paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 20:18:11 +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
Writeln('[InvalidateRect]');
Writeln(format('Rect = %d,%d,%d,%d',[rect^.left,rect^.top,rect^.Right,rect^.Bottom]));
gdkRect.X := Rect^.Left;
gdkRect.Y := Rect^.Top;
gdkREct.Width := (Rect^.Right - Rect^.Left);
gdkREct.Height := (Rect^.Bottom - Rect^.Top);
gtk_widget_draw(PgtkWidget(aHandle),@gdkRect);
Result := True;
Try
gdkRect.X := Rect^.Left;
gdkRect.Y := Rect^.Top;
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....');
end;
@ -3135,8 +3141,8 @@ end;
{ =============================================================================
$Log$
Revision 1.13 2001/01/23 18:42:10 lazarus
Added InvalidateRect to gtkwinapi.inc
Revision 1.14 2001/01/23 18:43:12 lazarus
Slight modification to Invalidaterect.
Shane
Revision 1.12 2001/01/12 18:46:50 lazarus