summaryrefslogtreecommitdiff
path: root/src/corelib/gdi/gfx_gdi.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/corelib/gdi/gfx_gdi.pas')
-rw-r--r--src/corelib/gdi/gfx_gdi.pas9
1 files changed, 5 insertions, 4 deletions
diff --git a/src/corelib/gdi/gfx_gdi.pas b/src/corelib/gdi/gfx_gdi.pas
index 86323c1b..b61fe4ac 100644
--- a/src/corelib/gdi/gfx_gdi.pas
+++ b/src/corelib/gdi/gfx_gdi.pas
@@ -1418,15 +1418,16 @@ begin
end;
procedure TfpgWindowImpl.DoUpdateWindowPosition(aleft, atop, awidth, aheight: TfpgCoord);
-var
- bx, by: integer;
+//var
+// bx, by: integer;
begin
FSkipResizeMessage := True;
- GetWindowBorderDimensions(Self, bx, by);
+// GetWindowBorderDimensions(Self, bx, by);
Windows.SetWindowPos(
WinHandle, HWND_TOP,
- aleft, atop, awidth + bx, aheight + by,
+ aleft, atop, awidth {+ bx}, aheight {+ by},
SWP_NOZORDER);// or SWP_NOREDRAW);
+ Windows.InvalidateRect(WinHandle, nil, True);
FSkipResizeMessage := False;
end;