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

Slight modification to Invalidaterect.

Browse Source 
Shane

git-svn-id: trunk@130 -
This commit is contained in:
lazarus 2001-01-23 18:43:12 +00:00
parent 0c11c51967
commit 66c98f419a
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2009,11 +2009,17 @@ var
begin begin
Writeln('[InvalidateRect]'); Writeln('[InvalidateRect]');
Writeln(format('Rect = %d,%d,%d,%d',[rect^.left,rect^.top,rect^.Right,rect^.Bottom])); Writeln(format('Rect = %d,%d,%d,%d',[rect^.left,rect^.top,rect^.Right,rect^.Bottom]));
gdkRect.X := Rect^.Left; Result := True;
gdkRect.Y := Rect^.Top; Try
gdkREct.Width := (Rect^.Right - Rect^.Left); gdkRect.X := Rect^.Left;
gdkREct.Height := (Rect^.Bottom - Rect^.Top); gdkRect.Y := Rect^.Top;
gtk_widget_draw(PgtkWidget(aHandle),@gdkRect); gdkREct.Width := (Rect^.Right - Rect^.Left);
gdkREct.Height := (Rect^.Bottom - Rect^.Top);
gtk_widget_draw(PgtkWidget(aHandle),@gdkRect);
except
Result := False;
end;
Writeln('[InvalidateRect] Exiting....'); Writeln('[InvalidateRect] Exiting....');
end; end;
@ -3135,8 +3141,8 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.13 2001/01/23 18:42:10 lazarus Revision 1.14 2001/01/23 18:43:12 lazarus
Added InvalidateRect to gtkwinapi.inc Slight modification to Invalidaterect.
Shane Shane
Revision 1.12 2001/01/12 18:46:50 lazarus Revision 1.12 2001/01/12 18:46:50 lazarus