diff options
-rw-r--r-- | src/gui/fpg_panel.pas | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/src/gui/fpg_panel.pas b/src/gui/fpg_panel.pas index 9a67cee3..0ba6cc04 100644 --- a/src/gui/fpg_panel.pas +++ b/src/gui/fpg_panel.pas @@ -228,6 +228,48 @@ type end; + { A panel that could replace a TfpgForm. Very handly for embedding + "forms" inside other forms. You should also be able to design such + frames with the UI designer too. } + TfpgFrame = class(TfpgAbstractPanel) + protected + WindowTitle: TfpgString; + public + constructor Create(AOwner: TComponent); override; + procedure AfterCreate; virtual; + published + property AcceptDrops; + property Align; + property BackgroundColor; + property BorderStyle; + property Enabled; + property Height; + property Hint; + property Left; + property MaxHeight; + property MaxWidth; + property MinHeight; + property MinWidth; + property ParentBackgroundColor; + property ParentShowHint; + property ShowHint; + property Style; + property Top; + property Width; + property OnClick; + property OnDoubleClick; + property OnDragDrop; + property OnDragEnter; + property OnDragLeave; + property OnDragStartDetected; + property OnMouseDown; + property OnMouseMove; + property OnMouseUp; + property OnPaint; + property OnShowHint; + end; + + function CreateBevel(AOwner: TComponent; ALeft, ATop, AWidth, AHeight: TfpgCoord; AShape: TPanelShape; AStyle: TPanelStyle): TfpgBevel; @@ -284,6 +326,19 @@ begin Result.FMargin := AMargin; end; +{ TfpgFrame } + +constructor TfpgFrame.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + AfterCreate; +end; + +procedure TfpgFrame.AfterCreate; +begin + // do nothing here +end; + {TfpgAbstractPanel} |