paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 06:09:29 +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
This commit is contained in:
Maxim Ganetsky 2024-01-27 03:05:51 +03:00
parent 9ae59e2b8d
commit 77daff816e
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

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