Sfoglia il codice sorgente

Not showing a filter mask on a disconnected panel

Source commit: 813f08bf65e15c2a8f69fce02a1143570379655d
Martin Prikryl 2 anni fa
parent
commit
c94f05810e

+ 3 - 1
source/packages/filemng/CustomDirView.pas

@@ -1692,7 +1692,9 @@ end;
 procedure TCustomDirView.UpdatePathLabelCaption;
 begin
   PathLabel.Caption := PathName;
-  PathLabel.Mask := Mask;
+  // Do not display mask on otherwise empty label (i.e. on a disconnected remote panel)
+  if PathLabel.Caption <> '' then PathLabel.Mask := Mask
+    else PathLabel.Mask := '';
 end;
 
 procedure TCustomDirView.UpdatePathLabel;

+ 1 - 1
source/packages/my/PathLabel.pas

@@ -558,7 +558,7 @@ begin
   VirtualMask := Mask;
   IsVirtualMask := False;
   IsEmptyMask := (VirtualMask = '');
-  if IsEmptyMask and HotTrack then
+  if IsEmptyMask and UseHotTrack then
   begin
     VirtualMask := '*.*';
     IsVirtualMask := not FMouseInView;