fix map options on win32

diff --git a/src/editor/f_mapoptions.lfm b/src/editor/f_mapoptions.lfm
index 28294a899eef0793e0da005f1b2df46436dfd889..717e4192fe61f34091c77d643d1dcd58bd036c1f 100644 (file)
--- a/src/editor/f_mapoptions.lfm
+++ b/src/editor/f_mapoptions.lfm
@@ -12,7 +12,7 @@ object MapOptionsForm: TMapOptionsForm
   Font.Color = clWindowText
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
-  OnCreate = FormCreate
+  OnShow = FormShow
   Position = poScreenCenter
   ShowHint = True
   LCLVersion = '1.6.4.0'

diff --git a/src/editor/f_mapoptions.pas b/src/editor/f_mapoptions.pas
index a69c5cfbe434938855fc776c4c337f73bd4e52fb..22d74cc5f8d4699f50e8802ae9d3f2cc99b605e6 100644 (file)
--- a/src/editor/f_mapoptions.pas
+++ b/src/editor/f_mapoptions.pas
@@ -77,7 +77,7 @@ type
     bOK: TButton;
     bCancel: TButton;
     
-    procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
     procedure bCancelClick(Sender: TObject);
     procedure bOKClick(Sender: TObject);
 
@@ -122,7 +122,7 @@ begin
   Result := True;
 end;
 
-procedure TMapOptionsForm.FormCreate(Sender: TObject);
+procedure TMapOptionsForm.FormShow(Sender: TObject);
   var a, b: Integer;
 begin
   // General map options