gui: fix multiple options reassignment in preferences window

diff --git a/src/editor/f_options.lfm b/src/editor/f_options.lfm
index 4a7a74662f7017164835aaf1fd230892a7ec8bf2..d579158963d59ff71dfb1fda12d746d67df24634 100644 (file)
--- a/src/editor/f_options.lfm
+++ b/src/editor/f_options.lfm
@@ -12,8 +12,8 @@ object OptionsForm: TOptionsForm
   Font.Color = clWindowText
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
-  OnActivate = FormActivate
   OnCreate = FormCreate
+  OnShow = FormShow
   Position = poScreenCenter
   LCLVersion = '2.2.4.0'
   object PageControl: TPageControl

diff --git a/src/editor/f_options.pas b/src/editor/f_options.pas
index aa7012f58f987771b474f9153853a64c0fd2218f..b52113c85cf36b8b716f614e7605c809cd7629b4 100644 (file)
--- a/src/editor/f_options.pas
+++ b/src/editor/f_options.pas
@@ -82,7 +82,7 @@ type
 
 
     procedure bGridClick(Sender: TObject);
-    procedure FormActivate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
     procedure bOKClick(Sender: TObject);
     procedure bCancelClick(Sender: TObject);
     procedure bBackClick(Sender: TObject);
@@ -144,7 +144,7 @@ begin
     edD2dExe.Text := FindD2dDialog.FileName;
 end;
 
-procedure TOptionsForm.FormActivate(Sender: TObject);
+procedure TOptionsForm.FormShow(Sender: TObject);
   const langfilename = 'editor';
   var info: TSearchRec;
 begin