index d86ff0e3542b508c132588a588f188d4a0e0bfb9..22d74cc5f8d4699f50e8802ae9d3f2cc99b605e6 100644 (file)
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);