feat: support click on path parts on top label of file dialog

ansgarbecker · ansgarbecker · commit 98b796b6889a · 2025-11-28T13:11:09.000+01:00
Refs #2268
diff --git a/source/extfiledialog.lfm b/source/extfiledialog.lfm
@@ -206,12 +206,18 @@ object frmExtFileDialog: TfrmExtFileDialog
     OnSelectItem = ShellListViewSelectItem
   end
   object lblPath: TLabel
+    Cursor = crHandPoint
     Left = 10
     Height = 20
     Top = 10
     Width = 852
     Align = alTop
     BorderSpacing.Around = 10
     Caption = 'lblPath'
+    ParentShowHint = False
+    ShowHint = True
+    OnClick = lblPathClick
+    OnMouseDown = lblPathMouseDown
+    OnMouseMove = lblPathMouseMove
   end
 end
diff --git a/source/extfiledialog.pas b/source/extfiledialog.pas
@@ -34,6 +34,11 @@   TfrmExtFileDialog = class(TExtForm)
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure lblPathClick(Sender: TObject);
+    procedure lblPathMouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure lblPathMouseMove(Sender: TObject; Shift: TShiftState; X,
+      Y: Integer);
     procedure ShellListViewClick(Sender: TObject);
     procedure ShellListViewDblClick(Sender: TObject);
     procedure ShellListViewSelectItem(Sender: TObject; Item: TListItem;
@@ -53,11 +58,13 @@   TfrmExtFileDialog = class(TExtForm)
     FOptions: TOpenOptions;
     FFiles: TStringList;
     FOnTypeChange: TNotifyEvent;
+    FClickedPathPart: String;
     procedure SetTitle(AValue: String);
     function GetFileName: String;
     procedure SetFileName(const AValue: String);
     procedure SetInitialDir(const AValue: String);
     procedure SetFilterIndex(AValue: Integer);
+    function GetPathPartAt(X: Integer): String;
   public
     property OnTypeChange: TNotifyEvent read FOnTypeChange write FOnTypeChange;
     property Title: String write SetTitle;
@@ -156,6 +163,57 @@ procedure TfrmExtFileDialog.FormShow(Sender: TObject);
     comboLineBreaks.ItemIndex := LineBreakIndexInt;
 end;
 
+procedure TfrmExtFileDialog.lblPathClick(Sender: TObject);
+begin
+  if (not FClickedPathPart.IsEmpty) and DirectoryExists(FClickedPathPart) then begin
+    if ofNoChangeDir in FOptions then
+      ErrorDialog('You cannot change the directory in this context.')
+    else
+      ShellTreeView.Path := FClickedPathPart;
+  end;
+end;
+
+procedure TfrmExtFileDialog.lblPathMouseDown(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  FClickedPathPart := GetPathPartAt(X);
+end;
+
+function TfrmExtFileDialog.GetPathPartAt(X: Integer): String;
+var
+  i, CharIndex, CurrentWidth: Integer;
+  TextWidth: Integer;
+begin
+  CharIndex := -1;
+  CurrentWidth := 0;
+  Result := '';
+
+  lblPath.Canvas.Font := lblPath.Font;
+  for i := 1 to Length(lblPath.Caption) do
+  begin
+    TextWidth := lblPath.Canvas.TextWidth(Copy(lblPath.Caption, i, 1));
+    if (X >= CurrentWidth) and (X < CurrentWidth + TextWidth) then
+    begin
+      CharIndex := i; // 1-based character index clicked
+      Break;
+    end;
+    Inc(CurrentWidth, TextWidth);
+  end;
+  if CharIndex > 0 then begin
+    for i:=CharIndex to Length(lblPath.Caption) do begin
+      if Copy(lblPath.Caption, i, 1) = PathDelim then
+        break;
+    end;
+    Result := Copy(lblPath.Caption, 1, i);
+  end;
+end;
+
+procedure TfrmExtFileDialog.lblPathMouseMove(Sender: TObject;
+  Shift: TShiftState; X, Y: Integer);
+begin
+  lblPath.Hint := GetPathPartAt(X);
+end;
+
 procedure TfrmExtFileDialog.comboFileTypeChange(Sender: TObject);
 var
   FileMask: String;
