paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 06:18:20 +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 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),
gdkRect.X,gdkRect.Y,gdkRect.Width,gdkRect.Height);
gtk_widget_draw(Widget, @gdkRect);
gtk_widget_draw(Widget, @gdkRect);}
end;
{------------------------------------------------------------------------------
@ -6959,6 +6965,9 @@ end;
{ =============================================================================
$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
MG: small bugfixes