index d86ff0e3542b508c132588a588f188d4a0e0bfb9..a69c5cfbe434938855fc776c4c337f73bd4e52fb 100644 (file)
bOK: TButton;
bCancel: TButton;
- procedure FormActivate(Sender: TObject);
+ procedure FormCreate(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.FormCreate(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);