paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 18:47:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

TTaskDialog: fix compilation on non-Windows 64-bit targets (lParamlo and lParamhi not defined there).

Browse Source
This commit is contained in:
Bart 2023-08-26 18:58:49 +02:00
parent 5aab1a7b18
commit 42bcacac19
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/taskdlgemulation.pp
View File

@ -971,14 +971,14 @@ var
begin begin
debugln(['TLCLTaskDialog.SetProgressBarRange']); debugln(['TLCLTaskDialog.SetProgressBarRange']);
debugln([' Msg.wParam=',Msg.wParam]); debugln([' Msg.wParam=',Msg.wParam]);
debugln([' Msg.lParamLo=',Msg.lParamlo]); debugln([' Msg.lParam LoWord=',Msg.lParam and $FFFF]);
debugln([' Msg.lParamHi=',Msg.lParamhi]); debugln([' Msg.lParam HiWord=',(Msg.lParam and $FFFF0000) shr 16]);
if Assigned(ProgressBar) and (Msg.wParam = 0) then if Assigned(ProgressBar) and (Msg.wParam = 0) then
begin begin
OldMin := ProgressBar.Min; OldMin := ProgressBar.Min;
OldMax := ProgressBar.Max; OldMax := ProgressBar.Max;
ProgressBar.Min := Msg.lParamlo; ProgressBar.Min := Msg.lParam and $FFFF;
ProgressBar.Max := Msg.lParamhi; ProgressBar.Max := (Msg.lParam and $FFFF0000) shr 16;
Msg.Result := MAKELPARAM(OldMin,OldMax); Msg.Result := MAKELPARAM(OldMin,OldMax);
end end
else else