Click here to Skip to main content
14,211,427 members
Click here to Skip to main content

Stats

300.1K views
79.2K downloads
227 bookmarked

Form Designer

,
Rate this:
4.96 (54 votes)
Please Sign up or sign in to vote.
4.96 (54 votes)
1 Aug 2009     CPOL    
Component for adding scriptable forms capabilities to an application.
MFCDemo.exe
CSDemo
App.ico
Bmp
ABottom.bmp
About.bmp
ALeft.bmp
ARight.bmp
ATop.bmp
AX.bmp
BringFront.bmp
Button.bmp
Center.bmp
Check.bmp
Combo.bmp
Copy.bmp
Cut.bmp
Delete.bmp
Down.bmp
Edit.bmp
Frame.bmp
Grid.bmp
GridSettings.bmp
HCenter.bmp
HScroll.bmp
HSL.bmp
HSpace.bmp
HSS.bmp
Left.bmp
List.bmp
New.bmp
Open.bmp
Paste.bmp
Picture.bmp
Preview.bmp
Progress.bmp
Props.bmp
Radio.bmp
Rectangle.bmp
Redo.bmp
Right.bmp
Save.bmp
SelAll.bmp
SelNone.bmp
SendBack.bmp
SL.bmp
Slider.bmp
Spin.bmp
SS.bmp
Tab.bmp
Text.bmp
Undo.bmp
Up.bmp
Validate.bmp
VCenter.bmp
VScroll.bmp
VSL.bmp
VSpace.bmp
VSS.bmp
Wand.bmp
CSDemo.suo
DaeDoe.bmp
MFCDemo
MFCDemo.dsp
MFCDemo.odl
MFCDemo.reg
res
DaeDoe.bmp
MFCDemo.ico
MFCDemoDoc.ico
Toolbar1.bmp
Toolbar2.bmp
Toolbar3.bmp
Wand.bmp
VBDemo
Bmp
ABottom.bmp
About.bmp
ALeft.bmp
ARight.bmp
ATop.bmp
AX.bmp
BringFront.bmp
Button.bmp
Center.bmp
Check.bmp
Combo.bmp
Copy.bmp
Cut.bmp
Delete.bmp
Down.bmp
Edit.bmp
Frame.bmp
Grid.bmp
GridSettings.bmp
HCenter.bmp
HScroll.bmp
HSL.bmp
HSpace.bmp
HSS.bmp
Left.bmp
List.bmp
New.bmp
Open.bmp
Paste.bmp
Picture.bmp
Preview.bmp
Progress.bmp
Props.bmp
Radio.bmp
Rectangle.bmp
Redo.bmp
Right.bmp
Save.bmp
SelAll.bmp
SelNone.bmp
SendBack.bmp
SL.bmp
Slider.bmp
Spin.bmp
SS.bmp
Tab.bmp
Text.bmp
Undo.bmp
Up.bmp
Validate.bmp
VCenter.bmp
VScroll.bmp
VSL.bmp
VSpace.bmp
VSS.bmp
Wand.bmp
DaeDoe.bmp
VBDemo.vbp
DDForms.chm
DDForms
Archive
FormEditorItems.rgs
vssver.scc
Constants.scr
DaeDoe.bmp
DDForms.def
DDForms.vcproj
DDForms.vcproj.vspscc
EventSinkPassThrough.rgs
FormEditor.bmp
FormEditor.rgs
FormEditorItemCollection.rgs
FormEditorItemDetails.rgs
FormViewer.bmp
FormViewer.rgs
FormViewerItemCollection.rgs
FormViewerItemDetails.rgs
mssccprj.scc
PropPageExtended.rgs
PropPageFormEditor.rgs
PropPageFormViewer.rgs
PropPageSimpleScriptEditor.rgs
SimpleScriptEditor.bmp
SimpleScriptEditor.rgs
vssver.scc
DDFormsTools
CodeMaxDriver
CodeMaxDriver.rgs
CodeMaxDriver.vcproj
CodeMaxDriver.vcproj.vspscc
CodeMaxDriverps.def
CodeMaxDriverPS.vcproj
CodeMaxDriverPS.vcproj.vspscc
mssccprj.scc
vssver.scc
CodeSenseDriver
CodeSenseDriver.rgs
CodeSenseDriver.vcproj
CodeSenseDriver.vcproj.vspscc
CodeSenseDriverps.def
CodeSenseDriverPS.vcproj
CodeSenseDriverPS.vcproj.vspscc
mssccprj.scc
vssver.scc
DDPropPageAll
DDPropPageAll.def
DDPropPageAll.vcproj
DDPropPageAll.vcproj.vspscc
mssccprj.scc
PropPageAll.rgs
vssver.scc
DDUnlock
DDUnlock.vcproj
DDUnlock.vcproj.vspscc
mssccprj.scc
vssver.scc
DDControlPack
DDButton.bmp
DDCheckBox.bmp
DDComboBox.bmp
DDControlPack.rgs
DDControlPack.vcproj
DDControlPack.vcproj.vspscc
DDHorzScrollBar.bmp
DDLabel.bmp
DDListBox.bmp
DDPicture.bmp
DDRadioButton.bmp
DDTextBox.bmp
DDVertScrollBar.bmp
mssccprj.scc
vssver.scc
Redistributables
Ansi
CodeMaxDriver.dll
CodeSenseDriver.dll
DDControlPack.dll
DDForms.dll
DDPropPageAll.dll
Unicode
CodeMaxDriver.dll
CodeSenseDriver.dll
DDControlPack.dll
DDForms.dll
DDPropPageAll.dll
VERSION 5.00
Object = "{F848E101-112B-11D6-B6A6-F0FA2EAB9C44}#1.1#0"; "DDForms.dll"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "DaeDoe Forms Demonstration Application"
   ClientHeight    =   6720
   ClientLeft      =   150
   ClientTop       =   435
   ClientWidth     =   9630
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6720
   ScaleWidth      =   9630
   StartUpPosition =   2  'CenterScreen
   WhatsThisHelp   =   -1  'True
   Begin ComctlLib.Toolbar Toolbar2 
      Align           =   1  'Align Top
      Height          =   420
      Left            =   0
      TabIndex        =   1
      Top             =   420
      Width           =   9630
      _ExtentX        =   16986
      _ExtentY        =   741
      ButtonWidth     =   635
      ButtonHeight    =   582
      Appearance      =   1
      ImageList       =   "ImageList2"
      _Version        =   327682
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
         NumButtons      =   30
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Frame"
            Object.ToolTipText     =   "Insert Frame"
            Object.Tag             =   ""
            ImageKey        =   "Frame"
         EndProperty
         BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Rectangle"
            Object.ToolTipText     =   "Insert Rectangle"
            Object.Tag             =   ""
            ImageKey        =   "Rectangle"
         EndProperty
         BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Picture"
            Object.ToolTipText     =   "Insert Picture"
            Object.Tag             =   ""
            ImageKey        =   "Picture"
         EndProperty
         BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Label"
            Object.ToolTipText     =   "Insert Label"
            Object.Tag             =   ""
            ImageKey        =   "Label"
         EndProperty
         BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Button"
            Object.ToolTipText     =   "Insert Button"
            Object.Tag             =   ""
            ImageKey        =   "Button"
         EndProperty
         BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Check"
            Object.ToolTipText     =   "Insert Check Box"
            Object.Tag             =   ""
            ImageKey        =   "Check"
         EndProperty
         BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Radio"
            Object.ToolTipText     =   "Insert Radio Button"
            Object.Tag             =   ""
            ImageKey        =   "Radio"
         EndProperty
         BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Text"
            Object.ToolTipText     =   "Insert Text Box"
            Object.Tag             =   ""
            ImageKey        =   "Text"
         EndProperty
         BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Combo"
            Object.ToolTipText     =   "Insert Combo Box"
            Object.Tag             =   ""
            ImageKey        =   "Combo"
         EndProperty
         BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "List"
            Object.ToolTipText     =   "Insert List Box"
            Object.Tag             =   ""
            ImageKey        =   "List"
         EndProperty
         BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "HScroll"
            Object.ToolTipText     =   "Insert Horizontal Scrollbar"
            Object.Tag             =   ""
            ImageKey        =   "HScroll"
         EndProperty
         BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "VScroll"
            Object.ToolTipText     =   "Insert Vertical Scrollbar"
            Object.Tag             =   ""
            ImageKey        =   "VScroll"
         EndProperty
         BeginProperty Button13 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button14 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Spin"
            Object.ToolTipText     =   "Insert Spin Control"
            Object.Tag             =   ""
            ImageKey        =   "Spin"
         EndProperty
         BeginProperty Button15 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Slider"
            Object.ToolTipText     =   "Insert Slider Control"
            Object.Tag             =   ""
            ImageKey        =   "Slider"
         EndProperty
         BeginProperty Button16 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Progress"
            Object.ToolTipText     =   "Insert Progress Bar Control"
            Object.Tag             =   ""
            ImageKey        =   "Progress"
         EndProperty
         BeginProperty Button17 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button18 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "ActiveX"
            Object.ToolTipText     =   "Insert Other ActiveX Control"
            Object.Tag             =   ""
            ImageKey        =   "ActiveX"
         EndProperty
         BeginProperty Button19 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button20 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Delete"
            Object.ToolTipText     =   "Delete [Del]"
            Object.Tag             =   ""
            ImageKey        =   "Delete"
         EndProperty
         BeginProperty Button21 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button22 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Grid"
            Object.ToolTipText     =   "Toggle Grid"
            Object.Tag             =   ""
            ImageKey        =   "Grid"
         EndProperty
         BeginProperty Button23 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "GridSettings"
            Object.ToolTipText     =   "Grid Settings"
            Object.Tag             =   ""
            ImageKey        =   "GridSettings"
         EndProperty
         BeginProperty Button24 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button25 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Tab"
            Object.ToolTipText     =   "Set Tab Order"
            Object.Tag             =   ""
            ImageKey        =   "Tab"
         EndProperty
         BeginProperty Button26 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button27 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "SelectAll"
            Object.ToolTipText     =   "Select All"
            Object.Tag             =   ""
            ImageKey        =   "SelectAll"
         EndProperty
         BeginProperty Button28 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "SelectNone"
            Object.ToolTipText     =   "Select None"
            Object.Tag             =   ""
            ImageKey        =   "SelectNone"
         EndProperty
         BeginProperty Button29 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button30 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Properties"
            Object.ToolTipText     =   "Properties"
            Object.Tag             =   ""
            ImageKey        =   "Properties"
         EndProperty
      EndProperty
   End
   Begin ComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   420
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9630
      _ExtentX        =   16986
      _ExtentY        =   741
      ButtonWidth     =   635
      ButtonHeight    =   582
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   327682
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
         NumButtons      =   12
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "New"
            Object.ToolTipText     =   "New [Ctrl+N]"
            Object.Tag             =   ""
            ImageKey        =   "New"
         EndProperty
         BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Open"
            Object.ToolTipText     =   "Open [Ctrl+O]"
            Object.Tag             =   ""
            ImageKey        =   "Open"
         EndProperty
         BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Save"
            Object.ToolTipText     =   "Save [Ctrl+S]"
            Object.Tag             =   ""
            ImageKey        =   "Save"
         EndProperty
         BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Cut"
            Object.ToolTipText     =   "Cut [Ctrl+X]"
            Object.Tag             =   ""
            ImageKey        =   "Cut"
         EndProperty
         BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Copy"
            Object.ToolTipText     =   "Copy [Ctrl+C]"
            Object.Tag             =   ""
            ImageKey        =   "Copy"
         EndProperty
         BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Paste"
            Object.ToolTipText     =   "Paste [Ctrl+V]"
            Object.Tag             =   ""
            ImageKey        =   "Paste"
         EndProperty
         BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Undo"
            Object.ToolTipText     =   "Undo [Ctrl+Z]"
            Object.Tag             =   ""
            ImageKey        =   "Undo"
         EndProperty
         BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Redo"
            Object.ToolTipText     =   "Redo [Ctrl+Y]"
            Object.Tag             =   ""
            ImageKey        =   "Redo"
         EndProperty
         BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "About"
            Object.ToolTipText     =   "About"
            Object.Tag             =   ""
            ImageKey        =   "About"
         EndProperty
      EndProperty
   End
   Begin ComctlLib.Toolbar Toolbar3 
      Align           =   1  'Align Top
      Height          =   420
      Left            =   0
      TabIndex        =   2
      Top             =   840
      Width           =   9630
      _ExtentX        =   16986
      _ExtentY        =   741
      ButtonWidth     =   635
      ButtonHeight    =   582
      Appearance      =   1
      ImageList       =   "ImageList3"
      _Version        =   327682
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
         NumButtons      =   32
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Left"
            Object.ToolTipText     =   "Left"
            Object.Tag             =   ""
            ImageKey        =   "Left"
         EndProperty
         BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Right"
            Object.ToolTipText     =   "Right"
            Object.Tag             =   ""
            ImageKey        =   "Right"
         EndProperty
         BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Up"
            Object.ToolTipText     =   "Up"
            Object.Tag             =   ""
            ImageKey        =   "Up"
         EndProperty
         BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Down"
            Object.ToolTipText     =   "Down"
            Object.Tag             =   ""
            ImageKey        =   "Down"
         EndProperty
         BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "SendBack"
            Object.ToolTipText     =   "Send To Back"
            Object.Tag             =   ""
            ImageKey        =   "SendToBack"
         EndProperty
         BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "BringFront"
            Object.ToolTipText     =   "Bring To Front"
            Object.Tag             =   ""
            ImageKey        =   "BringToFront"
         EndProperty
         BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "AlignLeft"
            Object.ToolTipText     =   "Align Left"
            Object.Tag             =   ""
            ImageKey        =   "AlignLeft"
         EndProperty
         BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "AlignRight"
            Object.ToolTipText     =   "Align Right"
            Object.Tag             =   ""
            ImageKey        =   "AlignRight"
         EndProperty
         BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "AlignTop"
            Object.ToolTipText     =   "Align Top"
            Object.Tag             =   ""
            ImageKey        =   "AlignTop"
         EndProperty
         BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "AlignBottom"
            Object.ToolTipText     =   "Align Bottom"
            Object.Tag             =   ""
            ImageKey        =   "AlignBottom"
         EndProperty
         BeginProperty Button13 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button14 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "SpaceHorz"
            Object.ToolTipText     =   "Space Horz"
            Object.Tag             =   ""
            ImageKey        =   "SpaceHorz"
         EndProperty
         BeginProperty Button15 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "SpaceVert"
            Object.ToolTipText     =   "Space Vert"
            Object.Tag             =   ""
            ImageKey        =   "SpaceVert"
         EndProperty
         BeginProperty Button16 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button17 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "SizeLargestWidth"
            Object.ToolTipText     =   "Size Largest Width"
            Object.Tag             =   ""
            ImageKey        =   "SizeLargestWidth"
         EndProperty
         BeginProperty Button18 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "SizeLargestHeight"
            Object.ToolTipText     =   "Size Largest Height"
            Object.Tag             =   ""
            ImageKey        =   "SizeLargestHeight"
         EndProperty
         BeginProperty Button19 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "SizeLargest"
            Object.ToolTipText     =   "Size Largest"
            Object.Tag             =   ""
            ImageKey        =   "SizeLargest"
         EndProperty
         BeginProperty Button20 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button21 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "SizeSmallestWidth"
            Object.ToolTipText     =   "Size Smallest Width"
            Object.Tag             =   ""
            ImageKey        =   "SizeSmallestWidth"
         EndProperty
         BeginProperty Button22 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "SizeSmallestHeight"
            Object.ToolTipText     =   "Size Smallest Height"
            Object.Tag             =   ""
            ImageKey        =   "SizeSmallestHeight"
         EndProperty
         BeginProperty Button23 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "SizeSmallest"
            Object.ToolTipText     =   "Size Smallest"
            Object.Tag             =   ""
            ImageKey        =   "SizeSmallest"
         EndProperty
         BeginProperty Button24 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button25 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "CenterHorz"
            Object.ToolTipText     =   "Center Horz"
            Object.Tag             =   ""
            ImageKey        =   "CenterHorz"
         EndProperty
         BeginProperty Button26 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "CenterVert"
            Object.ToolTipText     =   "Center Vert"
            Object.Tag             =   ""
            ImageKey        =   "CenterVert"
         EndProperty
         BeginProperty Button27 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Center"
            Object.ToolTipText     =   "Center"
            Object.Tag             =   ""
            ImageKey        =   "Center"
         EndProperty
         BeginProperty Button28 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button29 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "ValidateScript"
            Object.ToolTipText     =   "Validate Script [Ctrl+Q]"
            Object.Tag             =   ""
            ImageKey        =   "ValidateScript"
         EndProperty
         BeginProperty Button30 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
            Style           =   3
            MixedState      =   -1  'True
         EndProperty
         BeginProperty Button31 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Preview_AutoSizing"
            Object.ToolTipText     =   "Preview (Auto Sizing)"
            Object.Tag             =   ""
            ImageKey        =   "Preview"
         EndProperty
         BeginProperty Button32 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "Preview_NoneAutoSizing"
            Object.ToolTipText     =   "Preview (None Auto Sizing)"
            Object.Tag             =   ""
            ImageKey        =   "Preview"
         EndProperty
      EndProperty
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   1920
      Top             =   6120
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin DDFORMSLibCtl.FormViewer FormViewer1 
      Height          =   855
      Left            =   5400
      TabIndex        =   6
      Top             =   1920
      Width           =   975
      _cx             =   1720
      _cy             =   1508
      BorderVisible   =   -1  'True
      BackColor       =   -2147483633
   End
   Begin DDFORMSLibCtl.SimpleScriptEditor SimpleScriptEditor1 
      Height          =   855
      Left            =   4320
      TabIndex        =   5
      Top             =   1920
      Width           =   975
      _cx             =   1720
      _cy             =   1508
      BorderVisible   =   -1  'True
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Courier"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin DDFORMSLibCtl.FormEditor FormEditor1 
      Height          =   4710
      Left            =   240
      TabIndex        =   4
      Top             =   1755
      Width           =   9105
      _cx             =   16060
      _cy             =   8308
      BorderVisible   =   -1  'True
      BackColor       =   -2147483643
      FormWidth       =   250
      FormHeight      =   200
      FormBackColor   =   -2147483633
      FormForeColor   =   -2147483630
      GridWidth       =   8
      GridHeight      =   8
      GridVisible     =   -1  'True
      DragFrameBackColor=   -2147483634
      DragFrameForeColor=   -2147483635
      TabNumberBackColor=   -2147483635
      TabNumberForeColor=   -2147483634
   End
   Begin ComctlLib.TabStrip Tabstrip1 
      Height          =   5295
      Left            =   120
      TabIndex        =   3
      TabStop         =   0   'False
      Top             =   1320
      Width           =   9375
      _ExtentX        =   16536
      _ExtentY        =   9340
      _Version        =   327682
      BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7} 
         NumTabs         =   3
         BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "Form Editor"
            Key             =   "FormEditor"
            Object.Tag             =   ""
            Object.ToolTipText     =   "Form Editor"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab2 {0713F341-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "Script Editor"
            Key             =   "ScriptEditor"
            Object.Tag             =   ""
            Object.ToolTipText     =   "Script Editor"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab3 {0713F341-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "Form Viewer"
            Key             =   "FormViewer"
            Object.Tag             =   ""
            Object.ToolTipText     =   "Form Viewer"
            ImageVarType    =   2
         EndProperty
      EndProperty
   End
   Begin ComctlLib.ImageList ImageList3 
      Left            =   1320
      Top             =   6000
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   8421376
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   23
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":0000
            Key             =   "SendToBack"
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":0352
            Key             =   "SizeLargest"
         EndProperty
         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":06A4
            Key             =   "SizeSmallest"
         EndProperty
         BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":09F6
            Key             =   "Up"
         EndProperty
         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":0D48
            Key             =   "ValidateScript"
         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":109A
            Key             =   "CenterVert"
         EndProperty
         BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":13EC
            Key             =   "SizeLargestHeight"
         EndProperty
         BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":173E
            Key             =   "SpaceVert"
         EndProperty
         BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":1A90
            Key             =   "SizeSmallestHeight"
         EndProperty
         BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":1DE2
            Key             =   "AlignBottom"
         EndProperty
         BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":2134
            Key             =   "AlignLeft"
         EndProperty
         BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":2486
            Key             =   "AlignRight"
         EndProperty
         BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":27D8
            Key             =   "AlignTop"
         EndProperty
         BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":2B2A
            Key             =   "BringToFront"
         EndProperty
         BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":2E7C
            Key             =   "Center"
         EndProperty
         BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":31CE
            Key             =   "Down"
         EndProperty
         BeginProperty ListImage17 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":3520
            Key             =   "CenterHorz"
         EndProperty
         BeginProperty ListImage18 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":3872
            Key             =   "SizeLargestWidth"
         EndProperty
         BeginProperty ListImage19 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":3BC4
            Key             =   "SpaceHorz"
         EndProperty
         BeginProperty ListImage20 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":3F16
            Key             =   "SizeSmallestWidth"
         EndProperty
         BeginProperty ListImage21 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":4268
            Key             =   "Left"
         EndProperty
         BeginProperty ListImage22 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":45BA
            Key             =   "Preview"
         EndProperty
         BeginProperty ListImage23 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":490C
            Key             =   "Right"
         EndProperty
      EndProperty
   End
   Begin ComctlLib.ImageList ImageList2 
      Left            =   720
      Top             =   6000
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   8421376
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   23
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":4C5E
            Key             =   "Properties"
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":4FB0
            Key             =   "ActiveX"
         EndProperty
         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":5302
            Key             =   "Radio"
         EndProperty
         BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":5654
            Key             =   "Rectangle"
         EndProperty
         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":59A6
            Key             =   "HScroll"
         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":5CF8
            Key             =   "VScroll"
         EndProperty
         BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":604A
            Key             =   "SelectAll"
         EndProperty
         BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":639C
            Key             =   "SelectNone"
         EndProperty
         BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":66EE
            Key             =   "Slider"
         EndProperty
         BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":6A40
            Key             =   "Spin"
         EndProperty
         BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":6D92
            Key             =   "Tab"
         EndProperty
         BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":70E4
            Key             =   "Label"
         EndProperty
         BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":7436
            Key             =   "Button"
         EndProperty
         BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":7788
            Key             =   "Check"
         EndProperty
         BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":7ADA
            Key             =   "Combo"
         EndProperty
         BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":7E2C
            Key             =   "Delete"
         EndProperty
         BeginProperty ListImage17 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":817E
            Key             =   "Text"
         EndProperty
         BeginProperty ListImage18 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":8510
            Key             =   "Frame"
         EndProperty
         BeginProperty ListImage19 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":8862
            Key             =   "Grid"
         EndProperty
         BeginProperty ListImage20 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":8BB4
            Key             =   "GridSettings"
         EndProperty
         BeginProperty ListImage21 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":8F06
            Key             =   "List"
         EndProperty
         BeginProperty ListImage22 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":9258
            Key             =   "Picture"
         EndProperty
         BeginProperty ListImage23 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":95AA
            Key             =   "Progress"
         EndProperty
      EndProperty
   End
   Begin ComctlLib.ImageList ImageList1 
      Left            =   120
      Top             =   6000
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   8421376
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   9
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":98FC
            Key             =   "About"
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":9C4E
            Key             =   "Copy"
         EndProperty
         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":9FA0
            Key             =   "Cut"
         EndProperty
         BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":A2F2
            Key             =   "New"
         EndProperty
         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":A644
            Key             =   "Open"
         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":A996
            Key             =   "Paste"
         EndProperty
         BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":ACE8
            Key             =   "Redo"
         EndProperty
         BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":B03A
            Key             =   "Save"
         EndProperty
         BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":B38C
            Key             =   "Undo"
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnuFile_ 
      Caption         =   "&File"
      Begin VB.Menu mnuNew 
         Caption         =   "&New"
         Shortcut        =   ^N
      End
      Begin VB.Menu mnuOpen 
         Caption         =   "&Open..."
         Shortcut        =   ^O
      End
      Begin VB.Menu mnuSave 
         Caption         =   "&Save"
         Shortcut        =   ^S
      End
      Begin VB.Menu mnuSaveAs 
         Caption         =   "Save &As..."
      End
      Begin VB.Menu mnuFileBar0 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "E&xit"
      End
   End
   Begin VB.Menu mnuEdit_ 
      Caption         =   "&Edit"
      Begin VB.Menu mnuUndo 
         Caption         =   "&Undo"
         Shortcut        =   ^Z
      End
      Begin VB.Menu mnuRedo 
         Caption         =   "&Redo"
         Shortcut        =   ^Y
      End
      Begin VB.Menu mnuEditBar0 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCut 
         Caption         =   "Cu&t"
         Shortcut        =   ^X
      End
      Begin VB.Menu mnuCopy 
         Caption         =   "&Copy"
         Shortcut        =   ^C
      End
      Begin VB.Menu mnuPaste 
         Caption         =   "&Paste"
         Shortcut        =   ^V
      End
      Begin VB.Menu mnuEditBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuDelete 
         Caption         =   "&Delete"
         Shortcut        =   {DEL}
      End
      Begin VB.Menu mnuEditBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSelectAll 
         Caption         =   "Select &All"
      End
      Begin VB.Menu mnuSelectNone 
         Caption         =   "Select &None"
      End
      Begin VB.Menu mnuEditBar3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuProperties 
         Caption         =   "Pr&operties..."
      End
   End
   Begin VB.Menu mnuControls_ 
      Caption         =   "&Controls"
      Begin VB.Menu mnuFrame 
         Caption         =   "&Frame"
      End
      Begin VB.Menu mnuRectangle 
         Caption         =   "&Rectangle"
      End
      Begin VB.Menu mnuPicture 
         Caption         =   "Pict&ure"
      End
      Begin VB.Menu mnuLabel 
         Caption         =   "&Label"
      End
      Begin VB.Menu mnuButton 
         Caption         =   "&Button"
      End
      Begin VB.Menu mnuCheck 
         Caption         =   "&Check Box"
      End
      Begin VB.Menu mnuRadio 
         Caption         =   "R&adio Button"
      End
      Begin VB.Menu mnuText 
         Caption         =   "&Text Box"
      End
      Begin VB.Menu mnuCombo 
         Caption         =   "C&ombo Box"
      End
      Begin VB.Menu mnuList 
         Caption         =   "L&ist Box"
      End
      Begin VB.Menu mnuHScroll 
         Caption         =   "&Horizontal Scrollbar"
      End
      Begin VB.Menu mnuVScroll 
         Caption         =   "&Vertical Scrollbar"
      End
      Begin VB.Menu mnuControlBar0 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSpin 
         Caption         =   "S&pin Control"
      End
      Begin VB.Menu mnuSlider 
         Caption         =   "Sli&der Control"
      End
      Begin VB.Menu mnuProgress 
         Caption         =   "Pro&gress Bar Control"
      End
      Begin VB.Menu mnuControlBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuActiveX 
         Caption         =   "Other Active&X Control..."
      End
   End
   Begin VB.Menu mnuLayout_ 
      Caption         =   "&Layout"
      Begin VB.Menu mnuLeft 
         Caption         =   "&Left"
      End
      Begin VB.Menu mnuRight 
         Caption         =   "&Right"
      End
      Begin VB.Menu mnuUp 
         Caption         =   "&Up"
      End
      Begin VB.Menu mnuDown 
         Caption         =   "&Down"
      End
      Begin VB.Menu mnuLayoutBar0 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSendBack 
         Caption         =   "Send To &Back"
      End
      Begin VB.Menu mnuBringFront 
         Caption         =   "Bring To &Front"
      End
      Begin VB.Menu mnuLayoutBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAlign_ 
         Caption         =   "&Align"
         Begin VB.Menu mnuAlignLeft 
            Caption         =   "&Left"
         End
         Begin VB.Menu mnuAlignRight 
            Caption         =   "&Right"
         End
         Begin VB.Menu mnuAlignTop 
            Caption         =   "&Top"
         End
         Begin VB.Menu mnuAlignBottom 
            Caption         =   "&Bottom"
         End
      End
      Begin VB.Menu mnuSpace_ 
         Caption         =   "S&pace"
         Begin VB.Menu mnuSpaceHorz 
            Caption         =   "&Horizontal"
         End
         Begin VB.Menu mnuSpaceVert 
            Caption         =   "&Vertical"
         End
      End
      Begin VB.Menu mnuLayoutBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSizeLargest_ 
         Caption         =   "Size Lar&gest"
         Begin VB.Menu mnuSizeLargestWidth 
            Caption         =   "&Width"
         End
         Begin VB.Menu mnuSizeLargestHeight 
            Caption         =   "&Height"
         End
         Begin VB.Menu mnuSizeLargest 
            Caption         =   "&Both"
         End
      End
      Begin VB.Menu mnuSizeSmallest_ 
         Caption         =   "Size &Smallest"
         Begin VB.Menu mnuSizeSmallestWidth 
            Caption         =   "&Width"
         End
         Begin VB.Menu mnuSizeSmallestHeight 
            Caption         =   "&Height"
         End
         Begin VB.Menu mnuSizeSmallest 
            Caption         =   "&Both"
         End
      End
      Begin VB.Menu mnuLayoutBar3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuCenter_ 
         Caption         =   "&Center"
         Begin VB.Menu mnuCenterHorz 
            Caption         =   "&Horizontal"
         End
         Begin VB.Menu mnuCenterVert 
            Caption         =   "&Vertical"
         End
         Begin VB.Menu mnuCenter 
            Caption         =   "&Both"
         End
      End
   End
   Begin VB.Menu mnuTools_ 
      Caption         =   "&Tools"
      Begin VB.Menu mnuGrid 
         Caption         =   "Toggle &Grid"
      End
      Begin VB.Menu mnuGridSettings 
         Caption         =   "Grid &Settings..."
      End
      Begin VB.Menu mnuToolsBar0 
         Caption         =   "-"
      End
      Begin VB.Menu mnuTab 
         Caption         =   "Set &Tab Order"
      End
      Begin VB.Menu mnuToolsBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuValidateScript 
         Caption         =   "&Validate Script"
         Shortcut        =   ^Q
      End
      Begin VB.Menu mnuToolsBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuPreview_ 
         Caption         =   "&Preview"
         Begin VB.Menu mnuPreview_AutoSizing 
            Caption         =   "&Auto Sizing..."
         End
         Begin VB.Menu mnuPreview_NoneAutoSizing 
            Caption         =   "&None Auto Sizing..."
         End
      End
   End
   Begin VB.Menu mnuHelp_ 
      Caption         =   "&Help"
      Begin VB.Menu mnuAbout 
         Caption         =   "&About..."
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'
' Form Editor Demonstration Program
'
' Author :  David Shepherd
'           Copyright (c) 2002, DaeDoe-Softwre
'

' modified flag
Private IsModified As Boolean

Private Sub Form_Activate()
    On Error GoTo error
    
    ' refresh the state
    ' this forces a "StateChanged" event to be fired
    FormEditor1.RefreshState
    ' this forces a "ModifiedStateChanged" event to be fired
    SimpleScriptEditor1.RefreshModifiedState
    
    Exit Sub
error:
End Sub

Private Sub Form_Load()
    On Error GoTo error
    
    ' show the application notes
    Form6.Show vbModal
    
    ' connect the script editor to the script
    FormEditor1.Script.Editor = SimpleScriptEditor1.object
    
    ' expose an instance of "Class1"
    ' "Message" is the name by which the form editor will reference the object
    ' "CL1" is the name of the actual object within this program
    FormEditor1.Expose "Message", CL1
    ' expose an instance of "Class2"
    FormEditor1.Expose "YetAnotherObject", CL2

    ' the same is required for the form viewer
    FormViewer1.Expose "Message", CL1
    FormViewer1.Expose "YetAnotherObject", CL2
    
    ' size all tab components
    ' script editor
    SimpleScriptEditor1.Left = FormEditor1.Left
    SimpleScriptEditor1.Top = FormEditor1.Top
    SimpleScriptEditor1.Width = FormEditor1.Width
    SimpleScriptEditor1.Height = FormEditor1.Height
    ' form viewer
    FormViewer1.Left = FormEditor1.Left
    FormViewer1.Top = FormEditor1.Top
    FormViewer1.Width = FormEditor1.Width
    FormViewer1.Height = FormEditor1.Height
    
    ' the form editor tab is initially active
    FormEditor1.ZOrder
    
    ' set the script text
    FormEditor1.Script.Text = _
        "' ----------------------------------------------------------------" & vbCrLf & _
        "' This is the script editor provided by the standard DaeDoe Forms " & vbCrLf & _
        "' package. If required, it can easily be replaced by a number of  " & vbCrLf & _
        "' powerful third party syntax highlighting editors such as CodeMax" & vbCrLf & _
        "' and CodeSense. For additional information, please refer to the  " & vbCrLf & _
        "' DaeDoe Forms help manual.                                       " & vbCrLf & _
        "' ----------------------------------------------------------------" & vbCrLf
    ' reset the script editor modified flag
    SimpleScriptEditor1.Modified = False
    
    ' clear the modified flag
    IsModified = False
    
    Exit Sub
error:
End Sub

Private Sub FormEditor1_EditExistingEventHandler()
    On Error GoTo error

    ' select the script editor tab
    Tabstrip1.Tabs(2).Selected = True
    
    Exit Sub
error:
End Sub

Private Sub FormEditor1_EditScriptError(ByVal Source As String, ByVal Number As Long, ByVal Description As String)
    On Error GoTo error

    ' select the script editor tab
    Tabstrip1.Tabs(2).Selected = True

    ' show the error details
    Form5.ErrorInfo = "Error Details" & vbCrLf & vbCrLf
    Form5.ErrorInfo = Form5.ErrorInfo & "Source : " & Source & vbCrLf
    Form5.ErrorInfo = Form5.ErrorInfo & "Number : " & Number & " - " & Hex(Number) & " Hex" & vbCrLf
    Form5.ErrorInfo = Form5.ErrorInfo & "Description : " & Description
    Form5.Show vbModal
    
    Exit Sub
error:
End Sub

Private Sub FormEditor1_StateChanged(ByVal Busy As Boolean, ByVal Modified As Boolean, ByVal CanPaste As Boolean, ByVal CanUndo As Boolean, ByVal CanRedo As Boolean, ByVal ItemCount As Long, ByVal SelectedItemCount As Long)
    On Error GoTo error

    ' gray out buttons and menu items
    ' this simple example covers most cases but not all
    
    ' true when 1 or more items are selected
    Dim EnableWhenSelOnePlus As Boolean
    EnableWhenSelOnePlus = False
    If SelectedItemCount > 0 Then EnableWhenSelOnePlus = True
    
    ' true when 2 or more items are selected
    Dim EnableWhenSelTwoPlus As Boolean
    EnableWhenSelTwoPlus = False
    If SelectedItemCount > 1 Then EnableWhenSelTwoPlus = True
      
    ' true when 3 or more items are selected
    Dim EnableWhenSelThreePlus As Boolean
    EnableWhenSelThreePlus = False
    If SelectedItemCount > 2 Then EnableWhenSelThreePlus = True
    
    ' true when 1 or less items are selected
    Dim EnableWhenSelOneOrLess As Boolean
    EnableWhenSelOneOrLess = False
    If SelectedItemCount <= 1 Then EnableWhenSelOneOrLess = True
    
    ' true when 1 or more items are selected but not all
    Dim EnableWhenSelOnePlusButNotAll As Boolean
    EnableWhenSelOnePlusButNotAll = False
    If SelectedItemCount > 0 And SelectedItemCount <> ItemCount Then EnableWhenSelOnePlusButNotAll = True
        
    ' gray out the buttons and menu items
    mnuCut.Enabled = EnableWhenSelOnePlus
    Toolbar1.Buttons.Item("Cut").Enabled = EnableWhenSelOnePlus
    mnuCopy.Enabled = EnableWhenSelOnePlus
    Toolbar1.Buttons.Item("Copy").Enabled = EnableWhenSelOnePlus
    mnuPaste.Enabled = CanPaste
    Toolbar1.Buttons.Item("Paste").Enabled = CanPaste
    mnuUndo.Enabled = CanUndo
    Toolbar1.Buttons.Item("Undo").Enabled = CanUndo
    mnuRedo.Enabled = CanRedo
    Toolbar1.Buttons.Item("Redo").Enabled = CanRedo
    mnuDelete.Enabled = EnableWhenSelOnePlus
    Toolbar2.Buttons.Item("Delete").Enabled = EnableWhenSelOnePlus
    mnuProperties.Enabled = EnableWhenSelOneOrLess
    Toolbar2.Buttons.Item("Properties").Enabled = EnableWhenSelOneOrLess
    mnuLeft.Enabled = EnableWhenSelOnePlus
    Toolbar3.Buttons.Item("Left").Enabled = EnableWhenSelOnePlus
    mnuRight.Enabled = EnableWhenSelOnePlus
    Toolbar3.Buttons.Item("Right").Enabled = EnableWhenSelOnePlus
    mnuUp.Enabled = EnableWhenSelOnePlus
    Toolbar3.Buttons.Item("Up").Enabled = EnableWhenSelOnePlus
    mnuDown.Enabled = EnableWhenSelOnePlus
    Toolbar3.Buttons.Item("Down").Enabled = EnableWhenSelOnePlus
    mnuSendBack.Enabled = EnableWhenSelOnePlusButNotAll
    Toolbar3.Buttons.Item("SendBack").Enabled = EnableWhenSelOnePlusButNotAll
    mnuBringFront.Enabled = EnableWhenSelOnePlusButNotAll
    Toolbar3.Buttons.Item("BringFront").Enabled = EnableWhenSelOnePlusButNotAll
    mnuAlignLeft.Enabled = EnableWhenSelTwoPlus
    Toolbar3.Buttons.Item("AlignLeft").Enabled = EnableWhenSelTwoPlus
    mnuAlignRight.Enabled = EnableWhenSelTwoPlus
    Toolbar3.Buttons.Item("AlignRight").Enabled = EnableWhenSelTwoPlus
    mnuAlignTop.Enabled = EnableWhenSelTwoPlus
    Toolbar3.Buttons.Item("AlignTop").Enabled = EnableWhenSelTwoPlus
    mnuAlignBottom.Enabled = EnableWhenSelTwoPlus
    Toolbar3.Buttons.Item("AlignBottom").Enabled = EnableWhenSelTwoPlus
    mnuSpaceHorz.Enabled = EnableWhenSelThreePlus
    Toolbar3.Buttons.Item("SpaceHorz").Enabled = EnableWhenSelThreePlus
    mnuSpaceVert.Enabled = EnableWhenSelThreePlus
    Toolbar3.Buttons.Item("SpaceVert").Enabled = EnableWhenSelThreePlus
    mnuSizeLargestWidth.Enabled = EnableWhenSelTwoPlus
    Toolbar3.Buttons.Item("SizeLargestWidth").Enabled = EnableWhenSelTwoPlus
    mnuSizeLargestHeight.Enabled = EnableWhenSelTwoPlus
    Toolbar3.Buttons.Item("SizeLargestHeight").Enabled = EnableWhenSelTwoPlus
    mnuSizeLargest.Enabled = EnableWhenSelTwoPlus
    Toolbar3.Buttons.Item("SizeLargest").Enabled = EnableWhenSelTwoPlus
    mnuSizeSmallestWidth.Enabled = EnableWhenSelTwoPlus
    Toolbar3.Buttons.Item("SizeSmallestWidth").Enabled = EnableWhenSelTwoPlus
    mnuSizeSmallestHeight.Enabled = EnableWhenSelTwoPlus
    Toolbar3.Buttons.Item("SizeSmallestHeight").Enabled = EnableWhenSelTwoPlus
    mnuSizeSmallest.Enabled = EnableWhenSelTwoPlus
    Toolbar3.Buttons.Item("SizeSmallest").Enabled = EnableWhenSelTwoPlus
    mnuCenterHorz.Enabled = EnableWhenSelOnePlus
    Toolbar3.Buttons.Item("CenterHorz").Enabled = EnableWhenSelOnePlus
    mnuCenterVert.Enabled = EnableWhenSelOnePlus
    Toolbar3.Buttons.Item("CenterVert").Enabled = EnableWhenSelOnePlus
    mnuCenter.Enabled = EnableWhenSelOnePlus
    Toolbar3.Buttons.Item("Center").Enabled = EnableWhenSelOnePlus
    
    ' set the modified flag
    If Modified = True Then IsModified = True
    
    Exit Sub
error:
End Sub

Private Sub mnuAbout_Click()
    On Error GoTo error
    
    ' show the about box
    Form2.Show vbModal
    
    Exit Sub
error:
End Sub

Private Sub mnuActiveX_Click()
    On Error GoTo error
    
    ' insert an activex control from a list of controls installed on the system
    ProgId = FormEditor1.ShowInsertDialog
    If Len(ProgId) <> 0 Then FormEditor1.Insert ProgId
    
    Exit Sub
error:
    ' show help
    Form7.ProgId = "ProgID : " & ProgId
    Form7.Show vbModal
End Sub

Private Sub mnuAlignBottom_Click()
    On Error GoTo error
    
    ' align selected items to the bottom most
    FormEditor1.AlignBottom
    
    Exit Sub
error:
End Sub

Private Sub mnuAlignLeft_Click()
    On Error GoTo error
    
    ' align selected items to the left most
    FormEditor1.AlignLeft
    
    Exit Sub
error:
End Sub

Private Sub mnuAlignRight_Click()
    On Error GoTo error
    
    ' align selected items to the right most
    FormEditor1.AlignRight
    
    Exit Sub
error:
End Sub

Private Sub mnuAlignTop_Click()
    On Error GoTo error
    
    ' align selected items to the top most
    FormEditor1.AlignTop
    
    Exit Sub
error:
End Sub

Private Sub mnuBringFront_Click()
On Error GoTo error
    
    ' bring selected items to the front of other items
    FormEditor1.BringToFront
    
error:
End Sub

Private Sub mnuButton_Click()
    On Error GoTo error
    
    ' insert a command button
    FormEditor1.Insert "DDControlPack.DDButton"
    
    Exit Sub
error:
    ' show help
    Form7.ProgId = "ProgID : " & "DDControlPack.DDButton"
    Form7.Show vbModal
End Sub

Private Sub mnuProperties_Click()
    On Error GoTo error
    
    ' show property pages for the current selection
    FormEditor1.Properties
    
    Exit Sub
error:
End Sub

Private Sub mnuCenter_Click()
    On Error GoTo error
    
    ' align selected items to the form horizontal and vertical center
    FormEditor1.FormAlignBoth
    
    Exit Sub
error:
End Sub

Private Sub mnuCenterHorz_Click()
    On Error GoTo error
    
    ' align selected items to the form horizontal center
    FormEditor1.FormAlignHCenter
    
    Exit Sub
error:
End Sub

Private Sub mnuCenterVert_Click()
    On Error GoTo error
    
    ' align selected items to the form vertical center
    FormEditor1.FormAlignVCenter
    
    Exit Sub
error:
End Sub

Private Sub mnuCheck_Click()
    On Error GoTo error
    
    ' inset a check box
    FormEditor1.Insert "DDControlPack.DDCheckBox"
    
    Exit Sub
error:
    ' show help
    Form7.ProgId = "ProgID : " & "DDControlPack.DDCheckBox"
    Form7.Show vbModal
End Sub

Private Sub mnuCombo_Click()
    On Error GoTo error
    
    ' insert a combo box
    FormEditor1.Insert "DDControlPack.DDComboBox"
    
    Exit Sub
error:
    ' show help
    Form7.ProgId = "ProgID : " & "DDControlPack.DDComboBox"
    Form7.Show vbModal
End Sub

Private Sub mnuCopy_Click()
    On Error GoTo error
    
    ' copy selected items to the clipboard
    FormEditor1.Copy
    
    Exit Sub
error:
End Sub

Private Sub mnuCut_Click()
    On Error GoTo error
    
    ' cut selected items to the clipboard
    FormEditor1.Cut
    
    Exit Sub
error:
End Sub

Private Sub mnuDelete_Click()
    On Error GoTo error
    
    ' delete selected items
    FormEditor1.Delete
    
    Exit Sub
error:
End Sub

Private Sub mnuDown_Click()
    On Error GoTo error
    
    ' move selected items down by a single pixel
    FormEditor1.MoveDown
    
    Exit Sub
error:
End Sub

Private Sub mnuExit_Click()
    On Error GoTo error
    
    ' if modified save changes
    Dim Result As VbMsgBoxResult
    If IsModified = True Then
        Result = MsgBox("Do you wish to save changes first ?", vbYesNoCancel + vbQuestion)
        If Result = vbYes Then mnuSave_Click
        If Result = vbCancel Then Exit Sub
    End If
    ' unload the form if save succeeded or the user chose not to save changes
    If IsModified = False Or Result = vbNo Then Unload Me
    
    Exit Sub
error:
End Sub

Private Sub mnuFrame_Click()
    On Error GoTo error
    
    ' insert a frame
    Dim Obj As Object
    Set Obj = FormEditor1.Insert("DDControlPack.DDLabel")
    ' manipulate the new item
    Obj.BorderStyle = 3
    Obj.ForeColor = FormEditor1.FormForeColor
    Obj.BackColor = FormEditor1.FormBackColor
    
    Exit Sub
error:
    ' show help
    Form7.ProgId = "ProgID : " & "DDControlPack.DDLabel"
    Form7.Show vbModal
End Sub

Private Sub mnuGrid_Click()
    On Error GoTo error
    
    ' toggle the grid
    FormEditor1.GridVisible = Not FormEditor1.GridVisible
    
    Exit Sub
error:
End Sub

Private Sub mnuGridSettings_Click()
    On Error GoTo error
    
    ' show the grid settings form
    Form3.Show vbModal
    
    Exit Sub
error:
End Sub

Private Sub mnuLeft_Click()
    On Error GoTo error
    
    ' move selected items left by a single pixel
    FormEditor1.MoveLeft
    
    Exit Sub
error:
End Sub

Private Sub mnuList_Click()
    On Error GoTo error
    
    ' insert a list box
    FormEditor1.Insert "DDControlPack.DDListBox"
    
    Exit Sub
error:
    ' show help
    Form7.ProgId = "ProgID : " & "DDControlPack.DDListBox"
    Form7.Show vbModal
End Sub

Private Sub mnuNew_Click()
    On Error GoTo error
    
    ' if modified save changes
    Dim Result As VbMsgBoxResult
    If IsModified = True Then
        Result = MsgBox("Do you wish to save changes first ?", vbYesNoCancel + vbQuestion)
        If Result = vbYes Then mnuSave_Click
        If Result = vbCancel Then Exit Sub
    End If
    ' if save succeeded or the user chose not to save changes
    If IsModified = False Or Result = vbNo Then
        ' create a new form (this resets the form editor modified flag)
        FormEditor1.New
        ' set the script text
        FormEditor1.Script.Text = _
            "' ----------------------------------------------------------------" & vbCrLf & _
            "' This is the script editor provided by the standard DaeDoe Forms " & vbCrLf & _
            "' package. If required, it can easily be replaced by a number of  " & vbCrLf & _
            "' powerful third party syntax highlighting editors such as CodeMax" & vbCrLf & _
            "' and CodeSense. For additional information, please refer to the  " & vbCrLf & _
            "' DaeDoe Forms help manual.                                       " & vbCrLf & _
            "' ----------------------------------------------------------------" & vbCrLf
        ' reset the script editor modified flag
        SimpleScriptEditor1.Modified = False
        ' reset the modified flag
        IsModified = False
    End If
    
    Exit Sub
error:
End Sub

Private Sub mnuOpen_Click()
    On Error GoTo error
    
    ' if modified save changes
    Dim Result As VbMsgBoxResult
    If IsModified = True Then
        Result = MsgBox("Do you wish to save changes first ?", vbYesNoCancel + vbQuestion)
        If Result = vbYes Then mnuSave_Click
        If Result = vbCancel Then Exit Sub
    End If
    ' if save succeeded or the user chose not to save changes
    If IsModified = False Or Result = vbNo Then
        ' show the open file dialog
        Dim FileName As String
        With CommonDialog1
            .DialogTitle = "Open"
            .CancelError = False
            .Flags = cdlOFNFileMustExist
            'ToDo: set the flags and attributes of the common dialog control
            .Filter = "Form Files (*.ddf)|*.ddf|All Files (*.*)|*.*"
            .ShowOpen
            If Len(.FileName) = 0 Then
                Exit Sub
            End If
            FileName = .FileName
        End With
        ' open the form (this resets the form editor modified flag)
        FormEditor1.LoadFromFile FileName
        ' reset the script editor modified flag
        SimpleScriptEditor1.Modified = False
        ' reset the modified flag
        IsModified = False
    End If

    Exit Sub
error:
    ' show help
    Form8.Show vbModal
End Sub

Private Sub mnuPaste_Click()
    On Error GoTo error
    
    ' paste items from the clipboard into the form
    FormEditor1.Paste
    
    Exit Sub
error:
End Sub

Private Sub mnuPicture_Click()
    On Error GoTo error
    
    ' insert a picture
    FormEditor1.Insert "DDControlPack.DDPicture"
    
    Exit Sub
error:
    ' show help
    Form7.ProgId = "ProgID : " & "DDControlPack.DDPicture"
    Form7.Show vbModal
End Sub

Private Sub mnuPreview_AutoSizing_Click()
    On Error GoTo error
    
    ' validate the script
    If FormEditor1.ValidateScript = False Then GoTo error
    ' expose objects - see Form_Load() for more details
    Form4.FormViewer1.Expose "Message", CL1
    Form4.FormViewer1.Expose "YetAnotherObject", CL2
    ' save the form
    FormEditor1.SaveToFile App.Path & "\Demo.tmp"
    ' load the form into the viewer
    Form4.FormViewer1.LoadFromFile App.Path & "\Demo.tmp"
    ' set the viewer background color (optional but looks better)
    Form4.FormViewer1.BackColor = Form4.FormViewer1.Form.BackColor
    ' calculate the preview width
    PreviewWidth = Form4.Width - Form4.ScaleWidth
    PreviewWidth = PreviewWidth + Screen.TwipsPerPixelX * Form4.FormViewer1.Form.Width
    If PreviewWidth > Screen.Width Then PreviewWidth = Screen.Width
    Form4.Width = PreviewWidth
    ' calculate the preview height
    PreviewHeight = Form4.Height - Form4.ScaleHeight
    PreviewHeight = PreviewHeight + Screen.TwipsPerPixelY * Form4.FormViewer1.Form.Height
    If PreviewHeight > Screen.Height Then PreviewHeight = Screen.Height
    Form4.Height = PreviewHeight
    ' set the preview caption
    Form4.Caption = Form4.Caption & " (Auto Sizing)"
    ' show the preview
    Form4.Show vbModal
    
    Exit Sub
error:
    ' release exposed object references
    Unload Form4
End Sub

Private Sub mnuPreview_NoneAutoSizing_Click()
    On Error GoTo error

    ' validate the script
    If FormEditor1.ValidateScript = False Then GoTo error
    ' expose objects - see Form_Load() for more details
    Form4.FormViewer1.Expose "Message", CL1
    Form4.FormViewer1.Expose "YetAnotherObject", CL2
    ' save the form
    FormEditor1.SaveToFile App.Path & "\Demo.tmp"
    ' load the form into the viewer
    Form4.FormViewer1.LoadFromFile App.Path & "\Demo.tmp"
    ' set the viewer background color (optional but looks better)
    Form4.FormViewer1.BackColor = Form4.FormViewer1.Form.BackColor
    ' set the preview caption
    Form4.Caption = Form4.Caption & " (None Auto Sizing)"
    ' show the preview
    Form4.Show vbModal
    
    Exit Sub
error:
    ' release exposed object references
    Unload Form4
End Sub

Private Sub mnuProgress_Click()
    On Error GoTo error
    
    ' insert a progress bar
    FormEditor1.Insert "MsComCtlLib.ProgCtrl"
    
    Exit Sub
error:
    ' show help
    Form7.ProgId = "ProgID : " & "MsComCtlLib.ProgCtrl"
    Form7.Show vbModal
End Sub

Private Sub mnuRadio_Click()
    On Error GoTo error
    
    ' insert a radio button
    FormEditor1.Insert "DDControlPack.DDRadioButton"
    
    Exit Sub
error:
    ' show help
    Form7.ProgId = "ProgID : " & "DDControlPack.DDRadioButton"
    Form7.Show vbModal
End Sub

Private Sub mnuRectangle_Click()
    On Error GoTo error
    
    ' insert a rectangle
    Dim Obj As Object
    Set Obj = FormEditor1.Insert("DDControlPack.DDLabel")
    ' manipulate the new item
    Obj.BorderStyle = 0
    Obj.ForeColor = FormEditor1.FormForeColor
    Obj.BackColor = FormEditor1.FormForeColor
    
    Exit Sub
error:
    ' show help
    Form7.ProgId = "ProgID : " & "DDControlPack.DDLabel"
    Form7.Show vbModal
End Sub

Private Sub mnuRedo_Click()
    On Error GoTo error
    
    ' redo the last unfo
    FormEditor1.Redo
    
    Exit Sub
error:
End Sub

Private Sub mnuRight_Click()
    On Error GoTo error
    
    ' move selected items right by a single pixel
    FormEditor1.MoveRight
    
    Exit Sub
error:
End Sub

Private Sub mnuSave_Click()
    On Error GoTo error
    
    ' ToDo : implement this rather than delegating to SaveAs
    mnuSaveAs_Click
    
    Exit Sub
error:
End Sub

Private Sub mnuSaveAs_Click()
    On Error GoTo error

    ' show the save file dialog
    Dim FileName As String
    With CommonDialog1
        .DialogTitle = "Save"
        .CancelError = False
        'ToDo: set the flags and attributes of the common dialog control
        .Filter = "Form Files (*.ddf)|*.ddf|All Files (*.*)|*.*"
        .ShowSave
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        FileName = .FileName
    End With
    ' save the form (this resets the form editor modified flag)
    FormEditor1.SaveToFile FileName
    ' reset the script editor modified flag
    SimpleScriptEditor1.Modified = False
    ' reset the modified flag
    IsModified = False
    
    Exit Sub
error:
End Sub

Private Sub mnuHScroll_Click()
    On Error GoTo error
    
    ' insert a horizontal scroll bar
    FormEditor1.Insert "DDControlPack.DDHorzScrollBar"
    
    Exit Sub
error:
    ' show help
    Form7.ProgId = "ProgID : " & "DDControlPack.DDHorzScrollBar"
    Form7.Show vbModal
End Sub

Private Sub mnuVScroll_Click()
    On Error GoTo error
    
    ' insert a vertical scroll bar
    FormEditor1.Insert "DDControlPack.DDVertScrollBar"
    
    Exit Sub
error:
    ' show help
    Form7.ProgId = "ProgID : " & "DDControlPack.DDVertScrollBar"
    Form7.Show vbModal
End Sub

Private Sub mnuSelectAll_Click()
    On Error GoTo error
    
    ' select all items
    FormEditor1.SelectAll
    
    Exit Sub
error:
End Sub

Private Sub mnuSelectNone_Click()
    On Error GoTo error
    
    ' unselect all items
    FormEditor1.SelectNone
    
    Exit Sub
error:
End Sub

Private Sub mnuSendBack_Click()
    On Error GoTo error
    
    ' send selected items to the back of other items
    FormEditor1.SendToBack
    
error:
End Sub

Private Sub mnuSizeLargest_Click()
    On Error GoTo error
    
    ' size the width and height of selected items to match the largest
    FormEditor1.SizeToLargest
    
    Exit Sub
error:
End Sub

Private Sub mnuSizeLargestHeight_Click()
    On Error GoTo error
    
    ' size the height of selected items to match the largest
    FormEditor1.SizeHeightToLargest
    
    Exit Sub
error:
End Sub

Private Sub mnuSizeLargestWidth_Click()
    On Error GoTo error
    
    ' size the width of selected items to match the largest
    FormEditor1.SizeWidthToLargest
    
    Exit Sub
error:
End Sub

Private Sub mnuSizeSmallest_Click()
    On Error GoTo error
    
    ' size the width and height of selected items to match the smallest
    FormEditor1.SizeToSmallest
    
    Exit Sub
error:
End Sub

Private Sub mnuSizeSmallestHeight_Click()
    On Error GoTo error
    
    ' size the height of selected items to match the smallest
    FormEditor1.SizeHeightToSmallest
    
    Exit Sub
error:
End Sub

Private Sub mnuSizeSmallestWidth_Click()
    On Error GoTo error
    
    ' size the width of selected items to match the smallest
    FormEditor1.SizeWidthToSmallest
    
    Exit Sub
error:
End Sub

Private Sub mnuSlider_Click()
    On Error GoTo error
    
    ' insert a slider
    FormEditor1.Insert "MsComCtlLib.Slider"
    
    Exit Sub
error:
    ' show help
    Form7.ProgId = "ProgID : " & "MsComCtlLib.Slider"
    Form7.Show vbModal
End Sub

Private Sub mnuSpaceHorz_Click()
    On Error GoTo error
    
    ' space selected items horizontally
    FormEditor1.SpaceHorizontally
    
    Exit Sub
error:
End Sub

Private Sub mnuSpaceVert_Click()
    On Error GoTo error
    
    ' space selected items vertically
    FormEditor1.SpaceVertically
    
    Exit Sub
error:
End Sub

Private Sub mnuSpin_Click()
    On Error GoTo error
    
    ' insert a spin control
    FormEditor1.Insert "MSComCtl2.UpDown"
    
    Exit Sub
error:
    ' show help
    Form7.ProgId = "ProgID : " & "MSComCtl2.UpDown"
    Form7.Show vbModal
End Sub

Private Sub mnuTab_Click()
    On Error GoTo error
    
    ' switch the form editor into tab ordering mode
    FormEditor1.SetTabOrder
    
    Exit Sub
error:
End Sub

Private Sub mnuText_Click()
    On Error GoTo error
    
    ' inset a text box
    FormEditor1.Insert "DDControlPack.DDTextBox"
    
    Exit Sub
error:
    ' show help
    Form7.ProgId = "ProgID : " & "DDControlPack.DDTextBox"
    Form7.Show vbModal
End Sub

Private Sub mnuLabel_Click()
    On Error GoTo error
    
    ' insert a label
    FormEditor1.Insert "DDControlPack.DDLabel"
    
    Exit Sub
error:
    ' show help
    Form7.ProgId = "ProgID : " & "DDControlPack.DDLabel"
    Form7.Show vbModal
End Sub

Private Sub mnuUndo_Click()
    On Error GoTo error
    
    ' undo the last operation
    FormEditor1.Undo
    
    Exit Sub
error:
End Sub

Private Sub mnuUp_Click()
    On Error GoTo error
    
    ' move selected items up by a single pixel
    FormEditor1.MoveUp
    
    Exit Sub
error:
End Sub

Private Sub mnuValidateScript_Click()
    On Error GoTo error
    
    ' check the script for errors
    Valid = FormEditor1.ValidateScript
    If Valid = True Then
        MsgBox "The script does not contain any errors.", vbInformation
    End If
    
    Exit Sub
error:
End Sub

Private Sub SimpleScriptEditor1_ModifiedStateChanged(ByVal Modified As Boolean)
    On Error GoTo error
    
    ' set the modified flag
    If Modified = True Then IsModified = True
    
    Exit Sub
error:
End Sub

Private Sub TabStrip1_Click()
    On Error GoTo error
    
    ' show the relevant tab component
    Select Case Tabstrip1.SelectedItem.Key
        Case "FormEditor"
            FormEditor1.ZOrder
            FormEditor1.SetFocus
        Case "ScriptEditor"
            SimpleScriptEditor1.ZOrder
            SimpleScriptEditor1.SetFocus
        Case "FormViewer"
            FormViewer1.ZOrder
            FormViewer1.SetFocus
            ' validate the script
            If FormEditor1.ValidateScript = False Then GoTo error
            ' save the form
            FormEditor1.SaveToFile App.Path & "\Demo.tmp"
            ' load the form into the viewer
            FormViewer1.LoadFromFile App.Path & "\Demo.tmp"
            ' set the viewer background color (optional but looks better)
            FormViewer1.BackColor = FormViewer1.Form.BackColor
    End Select
    
    Exit Sub
error:
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
    On Error GoTo error

    ' process the button press
    Select Case Button.Key
        Case "New"
            mnuNew_Click
        Case "Open"
            mnuOpen_Click
        Case "Save"
            mnuSave_Click
        Case "Cut"
            mnuCut_Click
        Case "Copy"
            mnuCopy_Click
        Case "Paste"
            mnuPaste_Click
        Case "Undo"
            mnuUndo_Click
        Case "Redo"
            mnuRedo_Click
        Case "About"
            mnuAbout_Click
    End Select
    
    Exit Sub
error:
End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As ComctlLib.Button)
    On Error GoTo error

    ' process the button press
    Select Case Button.Key
        Case "Frame"
            mnuFrame_Click
        Case "Rectangle"
            mnuRectangle_Click
        Case "Picture"
            mnuPicture_Click
        Case "Label"
            mnuLabel_Click
        Case "Button"
            mnuButton_Click
        Case "Check"
            mnuCheck_Click
        Case "Radio"
            mnuRadio_Click
        Case "Text"
            mnuText_Click
        Case "Combo"
            mnuCombo_Click
        Case "List"
            mnuList_Click
        Case "HScroll"
            mnuHScroll_Click
        Case "VScroll"
            mnuVScroll_Click
        Case "Spin"
            mnuSpin_Click
        Case "Slider"
            mnuSlider_Click
        Case "Progress"
            mnuProgress_Click
        Case "ActiveX"
            mnuActiveX_Click
        Case "Delete"
            mnuDelete_Click
        Case "Grid"
            mnuGrid_Click
        Case "GridSettings"
            mnuGridSettings_Click
        Case "Tab"
            mnuTab_Click
        Case "SelectAll"
            mnuSelectAll_Click
        Case "SelectNone"
            mnuSelectNone_Click
        Case "Properties"
            mnuProperties_Click
    End Select
    
    Exit Sub
error:
End Sub

Private Sub Toolbar3_ButtonClick(ByVal Button As ComctlLib.Button)
    On Error GoTo error

    ' process the button press
    Select Case Button.Key
        Case "Left"
            mnuLeft_Click
        Case "Right"
            mnuRight_Click
        Case "Up"
            mnuUp_Click
        Case "Down"
            mnuDown_Click
        Case "SendBack"
            mnuSendBack_Click
        Case "BringFront"
            mnuBringFront_Click
        Case "AlignLeft"
            mnuAlignLeft_Click
        Case "AlignRight"
            mnuAlignRight_Click
        Case "AlignTop"
            mnuAlignTop_Click
        Case "AlignBottom"
            mnuAlignBottom_Click
        Case "SpaceHorz"
            mnuSpaceHorz_Click
        Case "SpaceVert"
            mnuSpaceVert_Click
        Case "SizeLargestWidth"
            mnuSizeLargestWidth_Click
        Case "SizeLargestHeight"
            mnuSizeLargestHeight_Click
        Case "SizeLargest"
            mnuSizeLargest_Click
        Case "SizeSmallestWidth"
            mnuSizeSmallestWidth_Click
        Case "SizeSmallestHeight"
            mnuSizeSmallestHeight_Click
        Case "SizeSmallest"
            mnuSizeSmallest_Click
        Case "CenterHorz"
            mnuCenterHorz_Click
        Case "CenterVert"
            mnuCenterVert_Click
        Case "Center"
            mnuCenter_Click
        Case "ValidateScript"
            mnuValidateScript_Click
        Case "Preview_AutoSizing"
            mnuPreview_AutoSizing_Click
        Case "Preview_NoneAutoSizing"
            mnuPreview_NoneAutoSizing_Click
    End Select
    
    Exit Sub
error:
End Sub

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author

DaveShep
Web Developer
United Kingdom United Kingdom
No Biography provided

Layout: fixed | fluid

Article Copyright 2005 by DaveShep
Everything else Copyright © CodeProject, 1999-2019

Server Web01
Version 2.8.190619.1