paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 02:57:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL, Customdrawn: Fix a crash in Android app. Issue #25686, patch from Samuel Herzog.

Browse Source 
git-svn-id: trunk@52114 -
This commit is contained in:
juha 2016-04-06 11:35:55 +00:00
parent b26c3a2855
commit ea6d77261a
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/customdrawn/customdrawnproc.pas
View File

@ -473,6 +473,7 @@ var
lBaseWindowOrg: TPoint;
lControlStateEx: TCDControlStateEx;
lDrawControl: Boolean;
lRegion:TLazRegionWithChilds;
begin
Result := False;
@ -504,7 +505,9 @@ begin
ACanvas.Clipping := True;
ACDWinControl.Region.Rect := Bounds(lBaseWindowOrg.X, lBaseWindowOrg.Y - ACDForm.ScrollY,
lWinControl.Width, lWinControl.Height);
ACanvas.ClipRegion := ACDWinControl.Region;
lRegion := TLazRegionWithChilds.Create;
lRegion.Assign(ACDWinControl.Region);
ACanvas.ClipRegion := lRegion;
lControlCanvas := ACanvas;