X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Feditor%2Ff_mapoptions.pas;h=22d74cc5f8d4699f50e8802ae9d3f2cc99b605e6;hb=e0b09ace202eced03972f9c3763a1e2c16c664f4;hp=a194fa929071a597c29b9eaafa08e8baba658f6c;hpb=b72e164f0fb64e3301ae8ca217449daf6a9d301d;p=d2df-editor.git

diff --git a/src/editor/f_mapoptions.pas b/src/editor/f_mapoptions.pas
index a194fa9..22d74cc 100644
--- a/src/editor/f_mapoptions.pas
+++ b/src/editor/f_mapoptions.pas
@@ -1,13 +1,13 @@
 unit f_mapoptions;
 
-{$MODE Delphi}
+{$INCLUDE ../shared/a_modes.inc}
 
 interface
 
 uses
   SysUtils, Classes, Forms, Dialogs,
   Controls, StdCtrls, ComCtrls, Buttons,
-  f_main;
+  f_main, utils;
 
 type
   TMapOptionsForm = class (TForm)
@@ -77,7 +77,7 @@ type
     bOK: TButton;
     bCancel: TButton;
     
-    procedure FormActivate(Sender: TObject);
+    procedure FormShow(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.FormShow(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);