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

Cleanups, extended TStatusBar, graphic control cleanups.

Browse Source 
git-svn-id: trunk@1888 -
This commit is contained in:
lazarus 2002-08-17 23:39:40 +00:00
parent 2d99e6a27b
commit b9766e4853
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -4340,10 +4340,16 @@ begin
if Widget=nil then Widget:=PgtkWidget(aHandle); if Widget=nil then Widget:=PgtkWidget(aHandle);
if bErase then if bErase then
gtk_widget_queue_clear_area(Widget,
gdkRect.X,gdkRect.Y,gdkRect.Width,gdkRect.Height);
gtk_widget_queue_draw_area(Widget, gdkRect.X,gdkRect.Y,gdkRect.Width,gdkRect.Height);
{ if bErase then
gdk_window_clear_area(GetControlWindow(Widget), gdk_window_clear_area(GetControlWindow(Widget),
gdkRect.X,gdkRect.Y,gdkRect.Width,gdkRect.Height); gdkRect.X,gdkRect.Y,gdkRect.Width,gdkRect.Height);
gtk_widget_draw(Widget, @gdkRect); gtk_widget_draw(Widget, @gdkRect);}
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -6959,6 +6965,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.132 2002/09/13 11:49:48 lazarus
Cleanups, extended TStatusBar, graphic control cleanups.
Revision 1.131 2002/09/12 15:35:57 lazarus Revision 1.131 2002/09/12 15:35:57 lazarus
MG: small bugfixes MG: small bugfixes