From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Sat, 27 May 2023 13:57:54 +0000 (+0300)
Subject: gui: fix multiple options reassignment in preferences window
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=19f8a082fb249eb52f8fe49ad50a794d3176babd;p=d2df-editor.git

gui: fix multiple options reassignment in preferences window
---

diff --git a/src/editor/f_options.lfm b/src/editor/f_options.lfm
index 4a7a746..d579158 100644
--- 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 aa7012f..b52113c 100644
--- 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