diff options
| -rw-r--r-- | src/gui/fpg_dialogs.pas | 13 |
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; |