From e55a38b9b5d4b3ce3efe3b5f43ffff25b52fa9a7 Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Fri, 25 Oct 2024 14:07:23 +0200
Subject: [PATCH] IDE, Options: (advanced mouse opts) move measure text width
 to after handle creation

---
 ide/mouseactiondialog.pas | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/ide/mouseactiondialog.pas b/ide/mouseactiondialog.pas
index c34838ee35..fac1dcce9e 100644
--- a/ide/mouseactiondialog.pas
+++ b/ide/mouseactiondialog.pas
@@ -61,6 +61,8 @@ type
     FKeyMap: TKeyCommandRelationList;
     procedure AddMouseCmd(const S: string);
     procedure FillListbox;
+  protected
+    procedure CreateHandle; override;
   public
     { public declarations }
     Procedure ResetInputs;
@@ -111,12 +113,9 @@ begin
 end;
 
 procedure TMouseaActionDialog.FillListbox;
-const
-  cCheckSize=35;
 var
   r: TSynMAUpRestriction;
   s: string;
-  i, Len: integer;
 begin
   for r := low(TSynMAUpRestriction) to high(TSynMAUpRestriction) do
     case r of
@@ -131,7 +130,15 @@ begin
         chkUpRestrict.AddItem(s, nil);
       end;
     end;
+end;
 
+procedure TMouseaActionDialog.CreateHandle;
+const
+  cCheckSize=35;
+var
+  Len, i: Integer;
+begin
+  inherited CreateHandle;
   // update scrollbar
   Len := 0;
   with chkUpRestrict do