From e0b09ace202eced03972f9c3763a1e2c16c664f4 Mon Sep 17 00:00:00 2001
From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Wed, 17 Jul 2019 21:40:14 +0300
Subject: [PATCH] fix map options on win32

---
 src/editor/f_mapoptions.lfm | 2 +-
 src/editor/f_mapoptions.pas | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/editor/f_mapoptions.lfm b/src/editor/f_mapoptions.lfm
index 28294a8..717e419 100644
--- 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 a69c5cf..22d74cc 100644
--- 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
-- 
2.29.2