Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue66/Construc/Refactor/Source/fMainForm.dfm

Text File | 2000-10-29 | 22.7 KB | 827 lines

object F_MainForm: TF_MainForm
  Left = 336
  Top = 117
  Width = 775
  Height = 640
  Caption = 'Delphi Builder Tool'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 527
    Width = 767
    Height = 41
    HelpContext = 10
    Align = alBottom
    TabOrder = 0
    object b_Build: TBitBtn
      Left = 596
      Top = 8
      Width = 75
      Height = 25
      Action = A_DoBuild
      Anchors = [akRight, akBottom]
      Caption = '&Build'
      TabOrder = 0
      Kind = bkOK
    end
    object b_exit: TBitBtn
      Left = 684
      Top = 8
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = 'E&xit'
      TabOrder = 1
      OnClick = b_exitClick
      Kind = bkCancel
    end
    object b_halt: TBitBtn
      Left = 504
      Top = 8
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = '&Stop'
      Enabled = False
      TabOrder = 2
      OnClick = b_haltClick
      Kind = bkIgnore
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 568
    Width = 767
    Height = 26
    Panels = <>
    SimplePanel = True
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 767
    Height = 527
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 2
    object Splitter1: TSplitter
      Left = 345
      Top = 1
      Width = 6
      Height = 525
      Cursor = crHSplit
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 344
      Height = 525
      Align = alLeft
      BevelInner = bvLowered
      BevelWidth = 2
      Caption = 'Panel3'
      TabOrder = 0
      object Splitter3: TSplitter
        Left = 4
        Top = 376
        Width = 336
        Height = 6
        Cursor = crVSplit
        Align = alBottom
      end
      object Panel9: TPanel
        Left = 4
        Top = 4
        Width = 336
        Height = 85
        Align = alTop
        TabOrder = 0
        object Label6: TLabel
          Left = 1
          Top = 1
          Width = 334
          Height = 16
          Align = alTop
          Alignment = taCenter
          Caption = 'Builder Project Settings'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label1: TLabel
          Left = 8
          Top = 29
          Width = 28
          Height = 13
          Caption = '&Name'
          FocusControl = cb_ProjectList
        end
        object cb_ProjectList: TComboBox
          Left = 56
          Top = 25
          Width = 201
          Height = 21
          ItemHeight = 13
          TabOrder = 0
          Text = 'cb_ProjectList'
          OnChange = cb_ProjectListChange
        end
        object bb_newProject: TBitBtn
          Left = 20
          Top = 55
          Width = 75
          Height = 25
          Action = A_NewProject
          Caption = '&New Project'
          TabOrder = 1
        end
        object bb_save: TBitBtn
          Left = 208
          Top = 55
          Width = 75
          Height = 25
          Action = A_saveProjectSettings
          Caption = '&Save Project'
          TabOrder = 2
        end
        object Button1: TButton
          Left = 112
          Top = 56
          Width = 75
          Height = 25
          Action = A_OpenProject
          TabOrder = 3
        end
      end
      object Panel8: TPanel
        Left = 4
        Top = 382
        Width = 336
        Height = 139
        Align = alBottom
        BevelInner = bvLowered
        BevelWidth = 2
        TabOrder = 1
        object Label5: TLabel
          Left = 4
          Top = 4
          Width = 328
          Height = 13
          Align = alTop
          Alignment = taCenter
          Caption = 'Version Information  -> files.ini and *.ver'
        end
        object Splitter2: TSplitter
          Left = 169
          Top = 17
          Width = 3
          Height = 85
          Cursor = crHSplit
        end
        object Panel10: TPanel
          Left = 4
          Top = 102
          Width = 328
          Height = 33
          Align = alBottom
          TabOrder = 0
          object b_editVersion: TBitBtn
            Left = 248
            Top = 7
            Width = 70
            Height = 22
            Action = A_editVersion
            Anchors = [akRight, akBottom]
            Caption = 'Edit Version'
            TabOrder = 0
          end
          object b_editResourceMask: TButton
            Left = 168
            Top = 7
            Width = 75
            Height = 22
            Action = A_EditRCMask
            TabOrder = 1
          end
        end
        object m_projectVersion: TMemo
          Left = 4
          Top = 17
          Width = 165
          Height = 85
          Align = alLeft
          Color = clInactiveCaptionText
          Lines.Strings = (
            'm_projectVersion')
          ReadOnly = True
          ScrollBars = ssVertical
          TabOrder = 1
          WordWrap = False
        end
        object LB_fileVersion: TListBox
          Left = 172
          Top = 17
          Width = 160
          Height = 85
          Align = alClient
          Color = clInactiveCaptionText
          ItemHeight = 13
          TabOrder = 2
        end
      end
      object Panel6: TPanel
        Left = 4
        Top = 89
        Width = 336
        Height = 287
        Align = alClient
        Caption = 'Panel6'
        TabOrder = 2
        object Splitter5: TSplitter
          Left = 1
          Top = 129
          Width = 334
          Height = 7
          Cursor = crVSplit
          Align = alTop
        end
        object Panel7: TPanel
          Left = 1
          Top = 1
          Width = 334
          Height = 128
          Align = alTop
          BevelInner = bvLowered
          BevelWidth = 2
          Caption = 'Panel6'
          TabOrder = 0
          object Label3: TLabel
            Left = 4
            Top = 4
            Width = 326
            Height = 13
            Align = alTop
            Alignment = taCenter
            Caption = 'Compiler options and switches -> base.cfg'
          end
          object Panel13: TPanel
            Left = 4
            Top = 94
            Width = 326
            Height = 30
            Align = alBottom
            TabOrder = 0
            object b_editconfig: TBitBtn
              Left = 223
              Top = 4
              Width = 75
              Height = 22
              Action = A_EditConfig
              Anchors = [akRight, akBottom]
              Caption = 'Edit Config'
              TabOrder = 0
            end
            object BitBtn4: TBitBtn
              Left = 123
              Top = 4
              Width = 75
              Height = 22
              Action = A_DisplayDCCOptions
              Anchors = [akRight, akBottom]
              Caption = 'DCC help'
              TabOrder = 1
            end
            object b_DPKOptions: TBitBtn
              Left = 22
              Top = 4
              Width = 75
              Height = 22
              Anchors = [akRight, akBottom]
              Caption = 'DPK Options'
              TabOrder = 2
            end
          end
          object M_ConfigFile: TMemo
            Left = 4
            Top = 17
            Width = 326
            Height = 77
            Align = alClient
            Color = clInactiveCaptionText
            Lines.Strings = (
              'M_ConfigFile')
            ReadOnly = True
            ScrollBars = ssVertical
            TabOrder = 1
            WordWrap = False
          end
        end
        object Panel11: TPanel
          Left = 1
          Top = 136
          Width = 334
          Height = 150
          Align = alClient
          BevelInner = bvLowered
          BevelWidth = 2
          Caption = 'Panel7'
          TabOrder = 1
          object Label4: TLabel
            Left = 4
            Top = 4
            Width = 326
            Height = 13
            Align = alTop
            Alignment = taCenter
            Caption = 'Library Path -> Library.path'
          end
          object Panel14: TPanel
            Left = 4
            Top = 113
            Width = 326
            Height = 33
            Align = alBottom
            TabOrder = 0
            object BitBtn3: TBitBtn
              Left = 237
              Top = 7
              Width = 82
              Height = 23
              Action = A_EditPath
              Anchors = [akRight, akBottom]
              Caption = 'Edit Path'
              TabOrder = 0
            end
            object b_libPathUp: TBitBtn
              Left = 152
              Top = 7
              Width = 33
              Height = 23
              Anchors = [akRight, akBottom]
              TabOrder = 1
              OnClick = b_libPathUpClick
              Glyph.Data = {
                0E010000424D0E0100000000000076000000280000000F000000130000000100
                0400000000009800000000000000000000001000000010000000FFFFFF00FF00
                000000FF0000808080000000FF0040004000FFFFFF00FFFFFF00FFFFFF00FFFF
                FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
                0000000033333330000000003111113000000000311111300000000031242130
                0000000031242130000000003124213000000000312421300000000031242130
                0000000031242130000000003124213000000333312421333300031111242111
                1300003111242111300000031114111300000000311411300000000003111300
                000000000031300000000000000300000000}
            end
            object b_libPathDown: TBitBtn
              Left = 195
              Top = 7
              Width = 33
              Height = 23
              Anchors = [akRight, akBottom]
              TabOrder = 2
              OnClick = b_libPathDownClick
              Glyph.Data = {
                0E010000424D0E0100000000000076000000280000000F000000130000000100
                0400000000009800000000000000000000001000000010000000FFFFFF00FF00
                000000FF0000808080000000FF0040004000FFFFFF00FFFFFF00FFFFFF00FFFF
                FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000030000
                0000000000313000000000000311130000000000311411300000000311141113
                0000003111242111300003111124211113000333312421333300000031242130
                0000000031242130000000003124213000000000312421300000000031242130
                0000000031242130000000003124213000000000311111300000000031111130
                000000003333333000000000000000000000}
            end
            object b_addDir: TBitBtn
              Left = 46
              Top = 7
              Width = 42
              Height = 23
              Action = A_addToPath
              Anchors = [akRight, akBottom]
              Caption = 'Add'
              TabOrder = 3
            end
            object b_DeleteDir: TBitBtn
              Left = 96
              Top = 7
              Width = 49
              Height = 23
              Action = A_deletePath
              Anchors = [akRight, akBottom]
              Caption = 'Delete'
              TabOrder = 4
            end
          end
          object LB_LibraryPath: TListBox
            Left = 4
            Top = 17
            Width = 326
            Height = 96
            Align = alClient
            Color = clInactiveCaptionText
            ItemHeight = 13
            TabOrder = 1
          end
        end
      end
    end
    object Panel4: TPanel
      Left = 351
      Top = 1
      Width = 415
      Height = 525
      Align = alClient
      BevelInner = bvLowered
      BevelWidth = 2
      Caption = 'Panel4'
      TabOrder = 1
      object L_Results: TLabel
        Left = 4
        Top = 217
        Width = 407
        Height = 16
        Align = alTop
        Alignment = taCenter
        Caption = 'Results'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Splitter4: TSplitter
        Left = 4
        Top = 209
        Width = 407
        Height = 8
        Cursor = crVSplit
        Align = alTop
      end
      object Memo1: TMemo
        Left = 4
        Top = 233
        Width = 407
        Height = 247
        Align = alClient
        Color = clInactiveCaptionText
        ScrollBars = ssBoth
        TabOrder = 0
        WordWrap = False
        OnChange = Memo1Change
      end
      object Panel15: TPanel
        Left = 4
        Top = 480
        Width = 407
        Height = 41
        Align = alBottom
        TabOrder = 1
        object b_save: TButton
          Left = 202
          Top = 8
          Width = 107
          Height = 25
          Anchors = [akRight, akBottom]
          Caption = '&Save'
          TabOrder = 0
        end
        object b_cancelEditwindow: TButton
          Left = 320
          Top = 8
          Width = 75
          Height = 25
          Action = A_cancelEditWindow
          Anchors = [akRight, akBottom]
          TabOrder = 1
        end
        object b_ideLibPath: TButton
          Left = 8
          Top = 8
          Width = 131
          Height = 25
          Caption = '&Grab IDE Library Path'
          TabOrder = 2
          OnClick = b_ideLibPathClick
        end
      end
      object Panel5: TPanel
        Left = 4
        Top = 4
        Width = 407
        Height = 205
        Align = alTop
        BevelInner = bvLowered
        BevelWidth = 2
        Caption = 'Panel5'
        TabOrder = 2
        object Label2: TLabel
          Left = 4
          Top = 4
          Width = 399
          Height = 13
          Align = alTop
          Alignment = taCenter
          Caption = 'Files to compile ( in order ) -> Files.ini'
        end
        object Panel12: TPanel
          Left = 4
          Top = 171
          Width = 399
          Height = 30
          Align = alBottom
          TabOrder = 0
          object b_editFiles: TBitBtn
            Left = 312
            Top = 5
            Width = 79
            Height = 22
            Action = A_editFileList
            Anchors = [akRight, akBottom]
            Caption = 'Edit File List'
            TabOrder = 0
          end
          object b_fileDown: TBitBtn
            Left = 267
            Top = 5
            Width = 32
            Height = 22
            Anchors = [akRight, akBottom]
            TabOrder = 1
            OnClick = b_fileDownClick
            Glyph.Data = {
              0E010000424D0E0100000000000076000000280000000F000000130000000100
              0400000000009800000000000000000000001000000010000000FFFFFF00FF00
              000000FF0000808080000000FF0040004000FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000030000
              0000000000313000000000000311130000000000311411300000000311141113
              0000003111242111300003111124211113000333312421333300000031242130
              0000000031242130000000003124213000000000312421300000000031242130
              0000000031242130000000003124213000000000311111300000000031111130
              000000003333333000000000000000000000}
          end
          object b_FileUp: TBitBtn
            Left = 224
            Top = 5
            Width = 32
            Height = 22
            Anchors = [akRight, akBottom]
            TabOrder = 2
            OnClick = b_FileUpClick
            Glyph.Data = {
              0E010000424D0E0100000000000076000000280000000F000000130000000100
              0400000000009800000000000000000000001000000010000000FFFFFF00FF00
              000000FF0000808080000000FF0040004000FFFFFF00FFFFFF00FFFFFF00FFFF
              FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
              0000000033333330000000003111113000000000311111300000000031242130
              0000000031242130000000003124213000000000312421300000000031242130
              0000000031242130000000003124213000000333312421333300031111242111
              1300003111242111300000031114111300000000311411300000000003111300
              000000000031300000000000000300000000}
          end
          object b_addFile: TBitBtn
            Left = 118
            Top = 5
            Width = 42
            Height = 22
            Action = A_AddFile
            Anchors = [akRight, akBottom]
            Caption = 'Add'
            TabOrder = 3
          end
          object b_deleteFile: TBitBtn
            Left = 168
            Top = 5
            Width = 49
            Height = 22
            Action = A_deleteFile
            Anchors = [akRight, akBottom]
            Caption = 'Delete'
            TabOrder = 4
          end
        end
        object LB_Files: TListBox
          Left = 4
          Top = 17
          Width = 399
          Height = 154
          Align = alClient
          Color = clInactiveCaptionText
          ItemHeight = 13
          Style = lbOwnerDrawFixed
          TabOrder = 1
          OnClick = LB_FilesClick
          OnDrawItem = LB_FilesDrawItem
        end
      end
    end
  end
  object ActionList1: TActionList
    Left = 439
    Top = 57
    object A_editVersion: TAction
      Caption = 'Edit Version'
      OnExecute = A_editVersionExecute
    end
    object A_editFileList: TAction
      Caption = 'Edit File List'
      OnExecute = A_editFileListExecute
    end
    object A_saveFileList: TAction
      Caption = 'Save File List'
      OnExecute = A_saveFileListExecute
    end
    object A_EditConfig: TAction
      Caption = 'Edit Config'
      OnExecute = A_EditConfigExecute
    end
    object A_SaveConfig: TAction
      Caption = 'Save Config'
      OnExecute = A_SaveConfigExecute
    end
    object A_EditPath: TAction
      Caption = 'Edit Path'
      OnExecute = A_EditPathExecute
    end
    object A_savePath: TAction
      Caption = 'Save Path'
      OnExecute = A_savePathExecute
    end
    object A_addToPath: TAction
      Caption = 'Add'
      OnExecute = A_addToPathExecute
    end
    object A_DisplayDCCOptions: TAction
      Caption = 'DCC help'
      OnExecute = A_DisplayDCCOptionsExecute
    end
    object A_NewProject: TAction
      Caption = '&New Project'
      OnExecute = A_NewProjectExecute
    end
    object A_saveProjectSettings: TAction
      Caption = '&Save Project'
      OnExecute = A_saveProjectSettingsExecute
    end
    object A_DoBuild: TAction
      Caption = '&Build'
      OnExecute = A_DoBuildExecute
    end
    object A_exit: TAction
      Caption = 'E&xit'
      OnExecute = b_exitClick
    end
    object A_stopBuild: TAction
      Caption = 'A_stopBuild'
    end
    object A_EditRCMask: TAction
      Caption = 'Edit RC Mask'
      OnExecute = A_EditRCMaskExecute
    end
    object A_SaveRCMask: TAction
      Caption = 'Save RC Mask'
      OnExecute = A_SaveRCMaskExecute
    end
    object A_deletePath: TAction
      Caption = 'Delete'
      OnExecute = A_deletePathExecute
    end
    object A_AddFile: TAction
      Caption = 'Add'
      OnExecute = A_AddFileExecute
    end
    object A_deleteFile: TAction
      Caption = 'Delete'
      OnExecute = A_deleteFileExecute
    end
    object A_projectOptions: TAction
      Caption = 'Options'
      OnExecute = A_projectOptionsExecute
    end
    object A_cancelEditWindow: TAction
      Caption = '&Cancel'
      OnExecute = A_cancelEditWindowExecute
    end
    object A_summary: TAction
      Caption = 'Summary'
      OnExecute = A_summaryExecute
    end
    object A_OpenProject: TAction
      Caption = '&Open Project'
      OnExecute = A_NewProjectExecute
    end
    object A_retrieveLastDump: TAction
      Caption = 'Retrieve last dump'
      OnExecute = A_retrieveLastDumpExecute
    end
  end
  object OpenDialog: TOpenDialog
    Filter = 'BPG|*.bpg|All|*.*'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 510
    Top = 53
  end
  object MainMenu1: TMainMenu
    Left = 587
    Top = 61
    object miProject: TMenuItem
      Caption = '&Project'
      object miNew: TMenuItem
        Action = A_NewProject
      end
      object OpenProject1: TMenuItem
        Action = A_OpenProject
      end
      object miSaveProject: TMenuItem
        Action = A_saveProjectSettings
      end
      object miProjectOptions: TMenuItem
        Action = A_projectOptions
      end
      object Retrievelastdump1: TMenuItem
        Action = A_retrieveLastDump
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object miBuild: TMenuItem
        Action = A_DoBuild
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object miExit: TMenuItem
        Action = A_exit
      end
    end
    object miFiles: TMenuItem
      Caption = '&Files'
      object miAdd: TMenuItem
        Action = A_AddFile
      end
      object miDelete: TMenuItem
        Action = A_deleteFile
      end
      object miEditFileList: TMenuItem
        Action = A_editFileList
      end
    end
    object miCompiler: TMenuItem
      Caption = '&Compiler'
      object miConfig: TMenuItem
        Action = A_EditConfig
      end
      object miDCC: TMenuItem
        Action = A_DisplayDCCOptions
      end
      object miLibraryPath: TMenuItem
        Caption = 'Library Path'
        object miAddPath: TMenuItem
          Action = A_addToPath
        end
        object miDeletepath: TMenuItem
          Action = A_deletePath
        end
        object EditPath1: TMenuItem
          Action = A_EditPath
        end
      end
    end
    object miResources: TMenuItem
      Caption = '&Resources'
      object EditVersion1: TMenuItem
        Action = A_editVersion
      end
      object EditRCMask1: TMenuItem
        Action = A_EditRCMask
      end
    end
    object miHelp: TMenuItem
      Caption = 'Help'
      object miContents: TMenuItem
        Caption = 'Contents'
        OnClick = miContentsClick
      end
      object miAbout: TMenuItem
        Caption = 'About'
        OnClick = miAboutClick
      end
    end
  end
end