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

gtk: all custom controls need EraseBackground (not only those who don't have csOpaque) (fixes #0013224)

Browse Source 
git-svn-id: trunk@18825 -
This commit is contained in:
paul 2009-02-26 02:07:07 +00:00
parent 8c52991db1
commit 9d9c9448c5
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -30,17 +30,15 @@
function DoDeliverPaintMessage(const Target: TObject; var PaintMsg: TLMPaint): PtrInt;
begin
{
erase backgound of not csOpaque custom controls
erase backgound of custom controls
use only for real custom controls for gtk1 - that are GTKAPIWidget
}
if (TObject(Target) is TCustomControl) and
if (TObject(Target) is TCustomControl)
{$ifdef gtk1}
GtkWidgetIsA(PGtkWidget(TCustomControl(Target).Handle), GTKAPIWidget_Type) and
and GtkWidgetIsA(PGtkWidget(TCustomControl(Target).Handle), GTKAPIWidget_Type)
{$endif}
not (csOpaque in TWinControl(Target).ControlStyle) then
begin
then begin
//DebugLn('LM_ERASEBKGND for: ', dbgsName(TCustomControl(Target)));
Include(TWinControlAccess(Target).FWinControlFlags, wcfEraseBackground);
TWinControl(Target).Perform(LM_ERASEBKGND, PaintMsg.DC, 0);