paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 09:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Require Handle in TCanvas.GetClipRect. Issue #40114, patch by nanobit.

Browse Source
This commit is contained in:
Juha 2023-03-11 16:16:57 +02:00
parent 3f185f585d
commit 9822443fd6
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/canvas.inc
View File

@ -54,6 +54,7 @@ end;
{-----------------------------------------------}
function TCanvas.GetClipRect: TRect;
begin
RequiredState([csHandleValid]);
// return actual clipping rectangle
if GetClipBox(FHandle, @Result) = ERROR then
Result := Rect(0, 0, 2000, 2000);{Just in Case}