file dialog: set button hint values

1 files changed, 13 insertions, 0 deletions

diff --git a/src/gui/fpg_dialogs.pas b/src/gui/fpg_dialogs.pas
index 6d6a317e..0ceeaa13 100644
--- a/src/gui/fpg_dialogs.pas
+++ b/src/gui/fpg_dialogs.pas
@@ -203,6 +203,7 @@ type
     procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
     procedure   btnOKClick(Sender: TObject); override;
     procedure   SetCurrentDirectory(const ADir: string);
+    procedure   SetupCaptions; override;
   public
     FileName: string;
     constructor Create(AOwner: TComponent); override;
@@ -1108,6 +1109,8 @@ end;
 
 procedure TfpgFileDialog.InitializeComponents;
 begin
+  self.ShowHint := True;
+
   chlDir := TfpgComboBox.Create(self);
   with chlDir do
   begin
@@ -1457,6 +1460,16 @@ begin
     edFilename.Clear;
 end;
 
+procedure TfpgFileDialog.SetupCaptions;
+begin
+  inherited SetupCaptions;
+  btnUpDir.Hint := rsGoToParentDirectory;
+  btnDirNew.Hint := rsCreateDirectory;
+  btnShowHidden.Hint := rsShowHidden;
+  btnGoHome.Hint := rsGoToHomeDirectory;
+  btnBookmark.Hint := rsBookmarks;
+end;
+
 function TfpgFileDialog.HighlightFile(const AFilename: string): boolean;
 var
   n: integer;