From a2ec86054d7e659dba10eede9152d65ab2f99035 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Fri, 18 Nov 2011 14:35:30 +0200 Subject: 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. --- src/gui/fpg_panel.pas | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/gui/fpg_panel.pas') 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; -- cgit v1.2.3-70-g09d2