paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-17 07:41:13 +01: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; FKeyMap: TKeyCommandRelationList;
procedure AddMouseCmd(const S: string); procedure AddMouseCmd(const S: string);
procedure FillListbox; procedure FillListbox;
protected
procedure CreateHandle; override;
public public
{ public declarations } { public declarations }
Procedure ResetInputs; Procedure ResetInputs;
@ -111,12 +113,9 @@ begin
end; end;
procedure TMouseaActionDialog.FillListbox; procedure TMouseaActionDialog.FillListbox;
const
cCheckSize=35;
var var
r: TSynMAUpRestriction; r: TSynMAUpRestriction;
s: string; s: string;
i, Len: integer;
begin begin
for r := low(TSynMAUpRestriction) to high(TSynMAUpRestriction) do for r := low(TSynMAUpRestriction) to high(TSynMAUpRestriction) do
case r of case r of
@ -131,7 +130,15 @@ begin
chkUpRestrict.AddItem(s, nil); chkUpRestrict.AddItem(s, nil);
end; end;
end; end;
end;
procedure TMouseaActionDialog.CreateHandle;
const
cCheckSize=35;
var
Len, i: Integer;
begin
inherited CreateHandle;
// update scrollbar // update scrollbar
Len := 0; Len := 0;
with chkUpRestrict do with chkUpRestrict do