paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 23:19:30 +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 .

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

8
lcl/forms.pp
View File

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