diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-10-18 13:50:26 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-10-18 13:50:26 +0000 |
commit | 98851de91fc5f661087e2859a516b323de6a3c8a (patch) | |
tree | a4f3ec94a24ea6060298d0bedb44019f2ab392f1 /src/corelib/gfx_widget.pas | |
parent | 98ad0f11febab82677e87492360c1cff3e263e93 (diff) | |
download | fpGUI-98851de91fc5f661087e2859a516b323de6a3c8a.tar.xz |
* Improved the implementation of the Minimum Width/Height
support under Win32.
* Fixed bug #1811433 where the Anchor feature was broken
when resizing forms under Windows. We never took into
account the window border width and title bar height.
Diffstat (limited to 'src/corelib/gfx_widget.pas')
-rw-r--r-- | src/corelib/gfx_widget.pas | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/corelib/gfx_widget.pas b/src/corelib/gfx_widget.pas index 48559855..ce96922e 100644 --- a/src/corelib/gfx_widget.pas +++ b/src/corelib/gfx_widget.pas @@ -824,7 +824,7 @@ var dh: integer; begin if (csLoading in ComponentState) then - Exit; + Exit; //==> FAlignRect.Top := 0; FAlignRect.Left := 0; FAlignRect.Width := Width; @@ -841,9 +841,8 @@ begin if (Components[n] is TfpgWidget) then begin wg := TfpgWidget(Components[n]); - if (wg.FAlign = alNone) and - (anBottom in wg.Anchors) or (anRight in wg.Anchors) then + ((anBottom in wg.Anchors) or (anRight in wg.Anchors)) then begin // we must alter the window dx := 0; @@ -863,7 +862,7 @@ begin wg.MoveAndResizeBy(dx, dy, dw, dh); end; - end; + end; { if } RePaint; end; |