dialogs: We had a SetupCaptions method, but nothing ever called it!

1 files changed, 7 insertions, 0 deletions

diff --git a/src/gui/fpg_dialogs.pas b/src/gui/fpg_dialogs.pas
index 2253a770..6d6a317e 100644
--- a/src/gui/fpg_dialogs.pas
+++ b/src/gui/fpg_dialogs.pas
@@ -118,6 +118,7 @@ type
     procedure   SetupCaptions; virtual;
   public
     constructor Create(AOwner: TComponent); override;
+    procedure   AfterCreate; override;
   end;
 
 
@@ -605,6 +606,12 @@ begin
   btnOK.TabOrder  := 1;
 end;
 
+procedure TfpgBaseDialog.AfterCreate;
+begin
+  inherited AfterCreate;
+  SetupCaptions;
+end;
+
 
 { TfpgFontSelectDialog }