paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-24 09:19:33 +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.
This commit is contained in:
Maxim Ganetsky 2024-01-26 20:30:45 +03:00
parent 221b2ceff0
commit 9ae59e2b8d
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

@ -118,22 +118,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;
@ -145,9 +162,12 @@ type
TCMCancelMode = record
Msg: Cardinal;
Unused: Integer;
{$ifdef cpu64}
UnusedMsg: Cardinal;
{$endif}
Unused: PtrInt;
Sender: TControl;
Result: Longint;
Result: LRESULT;
end;
TCMChildKey = record