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

Gtk2: fixed crash when -dDebug enabled. fixes issue #18016

Browse Source 
git-svn-id: trunk@28401 -
This commit is contained in:
zeljko 2010-11-22 11:57:11 +00:00
parent d4249c0b3a
commit 761b8d3048
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2callback.inc
View File

@ -25,7 +25,7 @@ begin
if (TObject(Target) is TCustomControl) then begin
Include(TWinControlAccess(Target).FWinControlFlags, wcfEraseBackground);
TWinControl(Target).Perform(LM_ERASEBKGND, PaintMsg.DC, 0);
TWinControl(Target).Perform(LM_ERASEBKGND, PtrInt(PaintMsg.DC), 0);
Exclude(TWinControlAccess(Target).FWinControlFlags, wcfEraseBackground);
end;