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 fields of TCMHintShow, TCMHintShowPause records on 64-bit platforms. Related to issue issue #40701.

Browse Source 
(cherry picked from commit 77daff816e)
This commit is contained in:
Maxim Ganetsky 2024-01-27 03:05:51 +03:00
parent bb8e0d1c4b
commit 72e1b7db40
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/forms.pp
View File

@ -1330,6 +1330,9 @@ type
// application hint stuff
TCMHintShow = record
Msg: Cardinal;
{$ifdef cpu64}
UnusedMsg: Cardinal;
{$endif}
Reserved: WPARAM;
HintInfo: PHintInfo;
Result: LRESULT;
@ -1337,7 +1340,10 @@ type
TCMHintShowPause = record
Msg: Cardinal;
WasActive: Integer;
{$ifdef cpu64}
UnusedMsg: Cardinal;
{$endif}
WasActive: PtrInt;
Pause: PInteger;
Result: LRESULT;
end;