From 19f8a082fb249eb52f8fe49ad50a794d3176babd Mon Sep 17 00:00:00 2001 From: DeaDDooMER Date: Sat, 27 May 2023 16:57:54 +0300 Subject: [PATCH] gui: fix multiple options reassignment in preferences window --- src/editor/f_options.lfm | 2 +- src/editor/f_options.pas | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) 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 -- 2.29.2