diff options
Diffstat (limited to 'src/corelib')
| -rw-r--r-- | src/corelib/fpgfx.pas | 1 | ||||
| -rw-r--r-- | src/corelib/gfx_widget.pas | 21 |
2 files changed, 10 insertions, 12 deletions
diff --git a/src/corelib/fpgfx.pas b/src/corelib/fpgfx.pas index 65977f62..78a00317 100644 --- a/src/corelib/fpgfx.pas +++ b/src/corelib/fpgfx.pas @@ -24,6 +24,7 @@ type TOrientation = (orVertical, orHorizontal); TAlign = (alNone, alTop, alBottom, alLeft, alRight, alClient); + TLayout = (tlTop, tlCenter, tlBottom); TAnchor = (anLeft, anRight, anTop, anBottom); TAnchors = set of TAnchor; diff --git a/src/corelib/gfx_widget.pas b/src/corelib/gfx_widget.pas index 74a9ff6d..cd096005 100644 --- a/src/corelib/gfx_widget.pas +++ b/src/corelib/gfx_widget.pas @@ -110,7 +110,7 @@ type procedure SetFocus; procedure KillFocus; procedure MoveAndResizeBy(dx, dy, dw, dh: TfpgCoord); - procedure SetPosition(aleft, atop, awidth, aheight: TfpgCoord); + procedure SetPosition(aleft, atop, awidth, aheight: TfpgCoord); virtual; procedure Invalidate; // double check this works as developers expect???? property FormDesigner: TObject read FFormDesigner write FFormDesigner; property Parent: TfpgWidget read GetParent write SetParent; @@ -532,18 +532,15 @@ var begin FOnScreen := True; FVisible := True; -// writeln(Classname, ' TfpgWidget.HandleShow - FVisible = ', FVisible); - if FVisible then - begin - AllocateWindowHandle; - DoSetWindowVisible(True); - for n := 0 to ComponentCount - 1 do - begin - c := Components[n]; - if (c is TfpgWidget) and (TfpgWidget(c).Parent = self) then - TfpgWidget(c).HandleShow; - end; + AllocateWindowHandle; + DoSetWindowVisible(True); + + for n := 0 to ComponentCount - 1 do + begin + c := Components[n]; + if (c is TfpgWidget) and (TfpgWidget(c).Parent = self) then + TfpgWidget(c).HandleShow; end; end; |