diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-11-18 14:35:30 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-11-18 14:35:30 +0200 |
| commit | a2ec86054d7e659dba10eede9152d65ab2f99035 (patch) | |
| tree | 24b885c09db83fceebc1688fa7fe1d88702d3307 /src/gui | |
| parent | b0a0f5b27680130f5fecff5484ed5f64754fa7a4 (diff) | |
| download | fpGUI-a2ec86054d7e659dba10eede9152d65ab2f99035.tar.xz | |
First draft of MDI support.
This work equates to about 3 hours of coding. Not bad I think! ;-)
The general idea is to have to new classes. The MDIWorkArea class is the
parent widget form MDI child forms. We then also have a MDIChildWindow
class which implements the outer child window - thus the one with the
titlebar and blue borders.
The end use creates a form based on TfpgFrame, not TfpgWindow. This design
might change later. The users form is then embedded inside the MDIChildWindow,
and displayed inside the bounds of the MDIWorkArea.
Diffstat (limited to 'src/gui')
| -rw-r--r-- | src/gui/fpg_panel.pas | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/gui/fpg_panel.pas b/src/gui/fpg_panel.pas index 700844dd..2d09a6a9 100644 --- a/src/gui/fpg_panel.pas +++ b/src/gui/fpg_panel.pas @@ -269,6 +269,8 @@ type property OnShowHint; end; + TfpgFrameClass = class of TfpgFrame; + function CreateBevel(AOwner: TComponent; ALeft, ATop, AWidth, AHeight: TfpgCoord; AShape: TPanelShape; AStyle: TPanelStyle): TfpgBevel; |