paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 21:29:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Correctly align fileds of TCMControlChange, TCMChanged, TCMControlListChange, TCMCancelMode records on 64-bit platforms.

Browse Source 
Patch by Artem Izmaylov, issue #40701.

(cherry picked from commit 9ae59e2b8d)
This commit is contained in:
Maxim Ganetsky 2024-01-26 20:30:45 +03:00
parent 6b6edf7857
commit bb8e0d1c4b
1 changed files with 24 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lcl/controls.pp
View File

@ -126,22 +126,39 @@ type
TCMControlChange = record
Msg: Cardinal;
{$ifdef cpu64}
UnusedMsg: Cardinal;
{$endif}
Control: TControl;
{$ifdef cpu64}
Inserting: QWordBool;
{$else}
Inserting: LongBool;
{$endif}
Result: LRESULT;
end;
TCMChanged = record
Msg: Cardinal;
Unused: Longint;
{$ifdef cpu64}
UnusedMsg: Cardinal;
{$endif}
Unused: PtrInt;
Child: TControl;
Result: Longint;
Result: LRESULT;
end;
TCMControlListChange = record
Msg: Cardinal;
{$ifdef cpu64}
UnusedMsg: Cardinal;
{$endif}
Control: TControl;
{$ifdef cpu64}
Inserting: QWordBool;
{$else}
Inserting: LongBool;
{$endif}
Result: LRESULT;
end;
@ -153,9 +170,12 @@ type
TCMCancelMode = record
Msg: Cardinal;
Unused: Integer;
{$ifdef cpu64}
UnusedMsg: Cardinal;
{$endif}
Unused: PtrInt;
Sender: TControl;
Result: Longint;
Result: LRESULT;
end;
TCMChildKey = record