diff options
Diffstat (limited to 'gfx/gdi')
-rw-r--r-- | gfx/gdi/gfx_gdi.pas | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/gfx/gdi/gfx_gdi.pas b/gfx/gdi/gfx_gdi.pas index a6107d24..64622ab8 100644 --- a/gfx/gdi/gfx_gdi.pas +++ b/gfx/gdi/gfx_gdi.pas @@ -200,7 +200,7 @@ type procedure SetClientSize(const ASize: TSize); override; procedure SetMinMaxClientSize(const AMinSize, AMaxSize: TSize); override; procedure Show; override; - procedure Invalidate(const ARect: TRect); override; + procedure Invalidate; override; procedure PaintInvalidRegion; override; procedure CaptureMouse; override; procedure ReleaseMouse; override; @@ -1512,15 +1512,9 @@ begin end; -procedure TGDIWindow.Invalidate(const ARect: TRect); -var - Rect: Windows.Rect; +procedure TGDIWindow.Invalidate; begin - Rect.Left := ARect.Left; - Rect.Top := ARect.Top; - Rect.Right := ARect.Right; - Rect.Bottom := ARect.Bottom; - Windows.InvalidateRect(Handle, Rect, False); + Windows.InvalidateRect(Handle, nil, True); end; |