Chip 1997 April/Chip_1997-04_cd.bin/prezent/cb/data.z/APP.DFM/APP.txt

Text File | 1997-01-16 | 10KB | 433 lines

object AppExpert: TAppExpert
  Left = 218
  Top = 131
  BorderStyle = bsDialog
  Caption = 'Application Expert'
  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 = 0
  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 >'
    TabOrder = 2
    OnClick = NextPrevClick
  end
  object PageControl: TPageControl
    Left = 112
    Top = 4
    Width = 409
    Height = 245
    ActivePage = Extensions
    TabOrder = 3
    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 = 18
          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 = 6
        Top = 114
        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 Expert is ready to generate your application!'
      end
      object GroupBox1: TGroupBox
        Left = 19
        Top = 124
        Width = 365
        Height = 93
        Caption = 'Options'
        TabOrder = 0
        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 = 249
        Height = 21
        TabOrder = 3
        Text = 'AppName'
      end
    end
  end
end