diff options
Diffstat (limited to 'src/corelib/gdi/gfx_gdi.pas')
-rw-r--r-- | src/corelib/gdi/gfx_gdi.pas | 9 |
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; |