paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 16:59:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, Options: (advanced mouse opts) move measure text width to after handle creation

Browse Source
This commit is contained in:
Martin 2024-10-25 14:07:23 +02:00
parent 8da445d514
commit e55a38b9b5
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/mouseactiondialog.pas
View File

@ -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