index a194fa929071a597c29b9eaafa08e8baba658f6c..22d74cc5f8d4699f50e8802ae9d3f2cc99b605e6 100644 (file)
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)
bOK: TButton;
bCancel: TButton;
- procedure FormActivate(Sender: TObject);
+ procedure FormShow(Sender: TObject);
procedure bCancelClick(Sender: TObject);
procedure bOKClick(Sender: TObject);
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;
if gTriggers[a].TriggerType <> 0 then
b := b + 1;
lTriggerCount.Caption := IntToStr(b);
-
end;
procedure TMapOptionsForm.bCancelClick(Sender: TObject);