object AppExpert: TAppExpert Left = 218 Top = 131 BorderStyle = bsDialog Caption = 'Application Wizard' ClientHeight = 281 ClientWidth = 528 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object Sample: TPaintBox Left = 4 Top = 5 Width = 107 Height = 72 OnPaint = SamplePaint end object CancelBtn: TButton Left = 444 Top = 256 Width = 77 Height = 21 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 3 end object PrevButton: TButton Left = 275 Top = 256 Width = 77 Height = 21 Caption = '< &Back' Enabled = False TabOrder = 1 OnClick = NextPrevClick end object NextButton: TButton Left = 352 Top = 256 Width = 77 Height = 21 Caption = '&Next >' Default = True TabOrder = 2 OnClick = NextPrevClick end object PageControl: TPageControl Left = 112 Top = 4 Width = 409 Height = 245 ActivePage = Menus TabOrder = 0 TabStop = False object Menus: TTabSheet Caption = 'Menus' TabVisible = False object Label1: TLabel Left = 8 Top = 7 Width = 385 Height = 45 AutoSize = False Caption = 'Your application can contain a menu bar by checking one or more ' + 'of the following standard Windows menus:' WordWrap = True end object Label2: TLabel Left = 32 Top = 59 Width = 336 Height = 13 AutoSize = False Caption = 'The file menu contains items such as Open, Save and Exit.' end object Label3: TLabel Left = 32 Top = 103 Width = 326 Height = 13 AutoSize = False Caption = 'The Edit menu contains Undo, Cut, Copy and Paste items' end object Label4: TLabel Left = 32 Top = 147 Width = 335 Height = 29 AutoSize = False Caption = 'The Window menu contains window management functions specficiall' + 'y designed for MDI applications.' WordWrap = True end object Label5: TLabel Left = 32 Top = 201 Width = 354 Height = 33 AutoSize = False Caption = 'The Help menu provides access to your application'#39's help file, a' + 's well as an item to show the About box.' WordWrap = True end object cbFileMenu: TCheckBox Left = 12 Top = 39 Width = 133 Height = 17 Caption = '&File menu' TabOrder = 0 OnClick = MenuClicked end object cbEditMenu: TCheckBox Left = 12 Top = 83 Width = 133 Height = 17 Caption = '&Edit menu' TabOrder = 1 OnClick = MenuClicked end object cbWindowMenu: TCheckBox Left = 12 Top = 127 Width = 129 Height = 17 Caption = '&Window menu' TabOrder = 2 OnClick = MenuClicked end object cbHelpMenu: TCheckBox Left = 12 Top = 187 Width = 97 Height = 17 Caption = '&Help menu' TabOrder = 3 OnClick = MenuClicked end end object Extensions: TTabSheet Caption = 'Extensions' TabVisible = False object Label6: TLabel Left = 8 Top = 5 Width = 385 Height = 45 AutoSize = False Caption = 'The table below allows you to define the file extensions to be u' + 'sed by the File Open and File Save dialog boxes. Press Add to c' + 'reate a new entry in the table.' FocusControl = ExtListBox WordWrap = True end object Panel1: TPanel Left = 8 Top = 52 Width = 313 Height = 180 BevelOuter = bvLowered Caption = 'Panel1' TabOrder = 0 object ExtHeader: THeader Left = 1 Top = 1 Width = 311 Height = 21 BorderStyle = bsNone Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Sections.Sections = ( #0'150'#0'Description' #0'64'#0'Extension') TabOrder = 0 OnSized = HeaderSized end object ExtListBox: TListBox Left = 2 Top = 22 Width = 309 Height = 156 BorderStyle = bsNone Ctl3D = False ItemHeight = 16 ParentCtl3D = False Style = lbOwnerDrawFixed TabOrder = 1 OnDrawItem = DrawExtension end end object AddButton: TButton Left = 332 Top = 65 Width = 65 Height = 25 Caption = '&Add' TabOrder = 1 OnClick = AddClick end object EditButton: TButton Left = 332 Top = 97 Width = 65 Height = 25 Caption = '&Edit' TabOrder = 2 OnClick = EditClick end object DeleteButton: TButton Left = 332 Top = 129 Width = 65 Height = 25 Caption = '&Delete' TabOrder = 3 OnClick = DeleteClick end object UpButton: TButton Left = 332 Top = 177 Width = 65 Height = 25 Caption = '&Up' TabOrder = 4 OnClick = MoveClick end object DownButton: TButton Left = 332 Top = 207 Width = 65 Height = 25 Caption = 'D&own' TabOrder = 5 OnClick = MoveClick end end object Speedbtns: TTabSheet Caption = 'Speedbtns' TabVisible = False object Label7: TLabel Left = 6 Top = 6 Width = 385 Height = 45 AutoSize = False Caption = 'You can create a speedbar for your application by selecting spee' + 'd buttons from the Available commands list, and pressing Insert ' + 'to add them to the speedbar. Press Space to add spacers.' WordWrap = True end object Speedbar: TPaintBox Left = 9 Top = 51 Width = 387 Height = 43 OnMouseDown = SpeedMouseDown OnPaint = SpeedbarPaint end object Label8: TLabel Left = 10 Top = 102 Width = 42 Height = 13 AutoSize = False Caption = '&Menus:' FocusControl = MenuList end object Label9: TLabel Left = 138 Top = 102 Width = 120 Height = 13 AutoSize = False Caption = 'Available &commands:' FocusControl = MenuItemList end object MenuList: TListBox Left = 10 Top = 118 Width = 121 Height = 113 ItemHeight = 13 Items.Strings = ( 'File' 'Edit' 'Window' 'Help') TabOrder = 0 OnClick = MenuListClick end object MenuItemList: TListBox Left = 138 Top = 118 Width = 185 Height = 113 ItemHeight = 26 Style = lbOwnerDrawFixed TabOrder = 1 OnDrawItem = DrawMenuItem end object Button1: TButton Left = 330 Top = 118 Width = 65 Height = 25 Caption = '&Insert' TabOrder = 2 OnClick = InsertClick end object Button2: TButton Left = 330 Top = 146 Width = 65 Height = 25 Caption = '&Remove' TabOrder = 3 OnClick = RemoveClick end object Button3: TButton Left = 330 Top = 174 Width = 65 Height = 25 Caption = '&Space' TabOrder = 4 OnClick = SpaceClick end end object AppInfo: TTabSheet Caption = 'AppInfo' TabVisible = False object Label13: TLabel Left = 19 Top = 80 Width = 274 Height = 13 AutoSize = False Caption = 'Enter the &path in which to store this application:' FocusControl = AppPath end object Label10: TLabel Left = 19 Top = 28 Width = 251 Height = 13 AutoSize = False Caption = 'Enter the &name to assign to this application:' FocusControl = AppName end object Label15: TLabel Left = 7 Top = 8 Width = 345 Height = 13 AutoSize = False Caption = 'The Application Wizard is ready to generate your application!' end object GroupBox1: TGroupBox Left = 19 Top = 124 Width = 365 Height = 93 Caption = 'Options' TabOrder = 3 object cbMDIApp: TCheckBox Left = 12 Top = 20 Width = 257 Height = 17 Caption = 'Create &MDI application' TabOrder = 0 end object cbStatusLine: TCheckBox Left = 12 Top = 44 Width = 237 Height = 17 Caption = 'Create a &status line' TabOrder = 1 end object cbHints: TCheckBox Left = 12 Top = 68 Width = 253 Height = 17 Caption = 'Enable &hints' TabOrder = 2 end end object AppPath: TEdit Left = 19 Top = 96 Width = 273 Height = 21 TabOrder = 1 Text = 'AppPath' end object PathBrowse: TButton Left = 303 Top = 94 Width = 81 Height = 25 Caption = 'Browse...' TabOrder = 2 OnClick = BrowseClick end object AppName: TEdit Left = 19 Top = 44 Width = 270 Height = 21 TabOrder = 0 Text = 'AppName' end end end end