X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-editor.git;a=blobdiff_plain;f=src%2Feditor%2Ff_mapoptions.pas;h=a69c5cfbe434938855fc776c4c337f73bd4e52fb;hp=d86ff0e3542b508c132588a588f188d4a0e0bfb9;hb=352afa5b7b27f7783344f1878fcfa1fae1001db1;hpb=1a6152dbb8ba2e7a6809476b5f78a45a46c3eaef

diff --git a/src/editor/f_mapoptions.pas b/src/editor/f_mapoptions.pas
index d86ff0e..a69c5cf 100644
--- a/src/editor/f_mapoptions.pas
+++ b/src/editor/f_mapoptions.pas
@@ -77,7 +77,7 @@ type
     bOK: TButton;
     bCancel: TButton;
     
-    procedure FormActivate(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
     procedure bCancelClick(Sender: TObject);
     procedure bOKClick(Sender: TObject);
 
@@ -122,10 +122,8 @@ begin
   Result := True;
 end;
 
-// Form processing
-procedure TMapOptionsForm.FormActivate(Sender: TObject);
-var
-  a, b: Integer;
+procedure TMapOptionsForm.FormCreate(Sender: TObject);
+  var a, b: Integer;
 begin
   // General map options
   eMapName.Text := gMapInfo.Name;
@@ -174,7 +172,6 @@ begin
       if gTriggers[a].TriggerType <> 0 then
         b := b + 1;
   lTriggerCount.Caption := IntToStr(b);
-
 end;
 
 procedure TMapOptionsForm.bCancelClick(Sender: TObject);