paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 14:20:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-fpgui: Fix Canvas.BeginDraw() call in DeviceContext class + extra check added. Issue #35478, patch from Graeme.

Browse Source 
git-svn-id: trunk@61127 -
This commit is contained in:
juha 2019-05-03 19:45:33 +00:00
parent a1e1ff2512
commit 627ed33840
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/fpgui/fpguiobjects.pas
View File

@ -317,15 +317,20 @@ end;
constructor TFPGUIDeviceContext.Create(AFPGUIPrivate: TFPGUIPrivateWidget); constructor TFPGUIDeviceContext.Create(AFPGUIPrivate: TFPGUIPrivateWidget);
begin begin
if Assigned(AFPGUIPrivate) then begin // The Widget.Visible check is just for extra precaution.
if Assigned(AFPGUIPrivate) and AFPGUIPrivate.Widget.Visible then
begin
fpgCanvas := AFPGUIPrivate.Widget.Canvas; fpgCanvas := AFPGUIPrivate.Widget.Canvas;
fpgCanvas.BeginDraw(false); fpgCanvas.BeginDraw;
FPrivateWidget:=AFPGUIPrivate; FPrivateWidget:=AFPGUIPrivate;
FPrivateWidget.DC:=HDC(Self); FPrivateWidget.DC:=HDC(Self);
end else begin end
else
begin
fpgCanvas := nil; fpgCanvas := nil;
FPrivateWidget := nil; FPrivateWidget := nil;
end; end;
with FOrg do begin with FOrg do begin
X:=0; X:=0;
Y:=0; Y:=0;