PUBLIC colForms colForms = NEWOBJECT("Collection") ON SHUTDOWN CANCEL DO CreateMenu READ EVENTS RELEASE colForms SET SYSMENU TO DEFAULT PROCEDURE CreateMenu SET SYSMENU TO SET SYSMENU AUTOMATIC DEFINE PAD CreateForm OF _MSYSMENU PROMPT "\<Create Forms" COLOR SCHEME 3 ; KEY ALT+C, "" ON PAD CreateForm OF _MSYSMENU ACTIVATE POPUP FormMenu DEFINE POPUP FormMenu MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF FormMenu PROMPT "\<MDI Form" DEFINE BAR 2 OF FormMenu PROMPT "\<Dockable Form" DEFINE BAR 3 OF FormMenu PROMPT "\<Toolbar" DEFINE BAR 4 OF FormMenu PROMPT "E\<xit" ON SELECTION BAR 1 OF FormMenu ; DO CreateMDIForm ON SELECTION BAR 2 OF FormMenu ; DO CreateDockableForm ON SELECTION BAR 3 OF FormMenu ; DO CreateToolBar ON SELECTION BAR 4 OF FormMenu ; CLEAR EVENTS ENDPROC PROCEDURE CreateMDIForm colForms.add(NEWOBJECT("clsMDIForm")) DO SetupandShowForm ENDPROC PROCEDURE CreateDockableForm colForms.add(NEWOBJECT("clsDockForm")) DO SetupandShowForm ENDPROC PROCEDURE SetupandShowForm WITH colForms.item(colForms.count) .name = SYS(2015) .Caption = .name .Show(2) ENDWITH ENDPROC PROCEDURE CreateToolbar colForms.add(NEWOBJECT("clsToolbar")) DO SetupandShowForm ENDPROC DEFINE CLASS clsMDIForm as Form Autocenter = .T. MDIFORM = .T. ENDDEFINE DEFINE CLASS clsDockForm as Form Dockable = 1 ENDDEFINE DEFINE CLASS clsToolbar as Toolbar ADD OBJECT Command1 AS CommandButton WITH height = 27, width = 27 ADD OBJECT Separator1 as Separator WITH style = 1 ADD OBJECT Command2 AS CommandButton WITH height = 27, width = 27 ADD OBJECT Command3 AS CommandButton WITH height = 27, width = 27 ADD OBJECT Separator2 as Separator WITH style = 1 ADD OBJECT Combo1 as Combobox WITH height = 27, width = 100 ENDDEFINE