Chip 1997 April/Chip_1997-04_cd.bin/prezent/cb/data.z/BCB.EXE/RCDATA/TPROJECTMANAGER/TPROJECTMANAGER.txt

Text File | 1997-01-16 | 12KB | 366 lines

object ProjectManager: TProjectManager
  Left = 357
  Top = 258
  Width = 337
  Height = 239
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSizeToolWin
  Caption = 'Project Manager'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  PopupMenu = PopupMenu1
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 329
    Height = 31
    Align = alTop
    BevelOuter = bvNone
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object UpdateButton: TSpeedButton
      Left = 142
      Top = 3
      Width = 24
      Height = 24
      Hint = 'Update'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000026000000120000000100
        0400000000006801000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        3333333333333777777F3333334C3333004004440033333333377F77F3377F33
        33603330440FF04444033333337F87F37F3337F33332330440FFFF0444403333
        37F37F3337F3337F3388304440FF0780444403337F337F37F87F3337F34C3044
        447FF004444403337F3337F377F33337F3600444440FF74444444037F33337F3
        7F3333337F3204444447FF0444444037F333337F37F333337F8804444400FF74
        44444037F333377F37F333337F44044440870FF044444037F3337F87F37F3333
        7F440444440FFFF044444037F33337F3337F33337F3304444440FF0444444037
        F333337F37F333337F88304444440044444403337F3333377F333337F3443044
        44444004444403337F33333377F33337F300330444440FF04440333337F33337
        F37F337F3300333044440FF044033333337F3337F37F37F33388333300444004
        0033333333377F3377F77F3333443333330000003333333333333777777F3333
        3300}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      Spacing = 0
      OnClick = UpdateClick
      IsControl = True
    end
    object OptionsButton: TSpeedButton
      Left = 112
      Top = 3
      Width = 24
      Height = 24
      Hint = 'Project options'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333333333333333333333333FFFFFFFFFFFFF
        FFF3330000000000000000333377777777777777773F30BFBFBFBFBFBFBFBF03
        37F333F333333333337F30FBF0FBFBFBFBFBFB0337F337FF33333333337F30BF
        000FBFBFBFBFBF0337F3777FF3333333337F30F00B00FBFBFBFBFB0337F77377
        FF333333337F30BFBFB00FBFBFBFBF0337F333377FF33333337F30FBFBFB00FB
        FBFBFB0337F333F377333333337F30BFB0BFBFBFBFBFBF0337F337FF33333333
        337F30FB000BFBFBFBFBFB0337F3777FF3333333337F30B00F00BFBFBFBFBF03
        37F77377FF333333337F30FBFBF00BFBFBFBFB0337F333377FF33333337F30BF
        BFBF00BFBFBFBF0337F3333377333333337F30FBFBFBFBFBFBFBFB0337FFFFFF
        F3333333337F30000000BFBFBFBFBF03377777773FFFFFFFFF7330FBFBFB0000
        00000033373FFFFF777777777733330000003333333333333377777733333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      Spacing = 0
      OnClick = OptionsClick
      IsControl = True
    end
    object FormButton: TSpeedButton
      Left = 82
      Top = 3
      Width = 24
      Height = 24
      Hint = 'View form'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333300000000000000000000000000000000F77777777777777000000000F77
        777777777777000000000F77777777777777000000000F777777777777770000
        00000F77777777777777000000000F77777777777777000000000F7777777777
        7777000000000F77777777777777000000000F77777777777777000000000F77
        777777777777000000000FFFFFFFFFFFFFFF0000000004444444444444440000
        00000F44444444444F4F00000000000000000000000000000000333333333333
        333330000000}
      Layout = blGlyphTop
      ParentFont = False
      Spacing = 0
      OnClick = FormClick
      IsControl = True
    end
    object SourceButton: TSpeedButton
      Left = 58
      Top = 3
      Width = 24
      Height = 24
      Hint = 'View unit'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        06010000424D060100000000000076000000280000000F000000120000000100
        0400000000009000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3334300000000000003D30FFFFFFFFFFF03230FFFFFFFFFFF03030FFFFFFFFFF
        F03530FFFFFFFFFFF03230FFFFFFFFFFF03030FFFFFFFFFFF03530FFFFFFFFFF
        F03630FFFFFFFFFFF03030FFFFFFFFFFF03530FFFFFFFFFFF03230FFFFFFFFFF
        F03130FFFFFFFF00003730FFFFFFFF0F033230FFFFFFFF003335300000000003
        333F3333333333333332}
      Layout = blGlyphTop
      ParentFont = False
      Spacing = 0
      OnClick = SourceClick
      IsControl = True
    end
    object RemoveButton: TSpeedButton
      Left = 28
      Top = 3
      Width = 24
      Height = 24
      Hint = 'Remove unit'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333333333333333333333333FFFFFFFFFFFFF
        FFF3338888888888888888333388888888888888883F38BFBFBFBFBFBFBFBF83
        38F3333FFFFFFFFFFF8F38FBFB00000000000B8338F33388888888888F8F38BF
        BF09999999990F8338F3338F333333338F8F38FBFB09999999990B8338F3338F
        333333338F8F38BFBF09999999990F8338F3338FFFFFFFFF8F8F38FBFB000000
        00000B8338F3338888888888838F38BFBFBFBFBFBFBFBF8338F3333333333333
        338F38FBFBFBFBFBFBFBFB8338F3333333333333338F38BFBFBFBFBFBFBFBF83
        38F3333333333333338F38FBFBFBFBFBFBFBFB8338F3333333333333338F38BF
        BFBFBFBFBFBFBF8338F3333333333333338F38FBFBFBFBFBFBFBFB8338FFFFFF
        F3333333338F38888888BFBFBFBFBF83388888883FFFFFFFFF8338FBFBFB8888
        88888833383FFFFF888888888833338888883333333333333388888833333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      Spacing = 0
      OnClick = RemoveClick
      IsControl = True
    end
    object AddButton: TSpeedButton
      Left = 4
      Top = 3
      Width = 24
      Height = 24
      Hint = 'Add unit'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333FFFFF333333333333330000033333333FFFFFFF88888F
        FFF333888888880AAA08883333888888888F3388883F38BFBFBFBF0AAA0FBF83
        38F33333FF8F338FFF8F38FBFBF0000AAA00008338F3333888833388888F38BF
        BFB0AAAAAAAAA08338F33338F3333333388F38FBFBF0AAAAAAAAA08338F33338
        F3333333388F38BFBFB0AAAAAAAAA08338F33338FFFF3333388F38FBFBF0000A
        AA00008338F33338888F3388888F38BFBFBFBF0AAA0FBF8338F33333338F338F
        338F38FBFBFBFB0AAA0BFB8338F33333338FFF8F338F38BFBFBFBF00000FBF83
        38F3333333888883338F38FBFBFBFBFBFBFBFB8338F3333333333333338F38BF
        BFBFBFBFBFBFBF8338F3333333333333338F38FBFBFBFBFBFBFBFB8338FFFFFF
        F3333333338F38888888BFBFBFBFBF83388888883FFFFFFFFF8338FBFBFB8888
        88888833383FFFFF888888888833338888883333333333333388888833333333
        3333333333333333333333333333333333333333333333333333333333333333
        33333333333333333333}
      Layout = blGlyphTop
      NumGlyphs = 2
      ParentFont = False
      Spacing = 0
      OnClick = AddClick
      IsControl = True
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 193
    Width = 329
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object Panel2: TPanel
    Left = 0
    Top = 31
    Width = 329
    Height = 162
    Align = alClient
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = 'Panel2'
    TabOrder = 2
    object FileHeader: THeaderControl
      Left = 0
      Top = 0
      Width = 325
      Height = 17
      Sections = <
        item
          AllowClick = False
          MinWidth = 50
          Text = 'File'
          Width = 85
        end
        item
          AllowClick = False
          MinWidth = 50
          Text = 'Form'
          Width = 125
        end
        item
          AllowClick = False
          MinWidth = 50
          Text = 'Path'
          Width = 125
        end>
      OnResize = FileHeaderResize
      OnSectionResize = FileHeaderSectionResize
    end
    object FileList: TListBox
      Left = 0
      Top = 17
      Width = 325
      Height = 141
      Align = alClient
      BorderStyle = bsNone
      ItemHeight = 13
      Sorted = True
      Style = lbOwnerDrawFixed
      TabOrder = 1
      OnClick = FileListClick
      OnDblClick = FileListDblClick
      OnDrawItem = FileListDrawItem
      OnMouseDown = FileListMouseDown
    end
  end
  object PopupMenu1: TPopupMenu
    HelpContext = 4720
    Left = 285
    Top = 175
    object SaveProject1: TMenuItem
      Caption = '&Save Project'
      HelpContext = 2200
      OnClick = SaveClick
    end
    object SaveAsTemplateItem: TMenuItem
      Caption = 'Add Project &To Repository...'
      HelpContext = 2210
      OnClick = SaveTemplateClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object NewUnit1: TMenuItem
      Caption = '&New Unit'
      HelpContext = 2201
      OnClick = NewUnitButtonClick
    end
    object NewForm1: TMenuItem
      Caption = 'Ne&w Form'
      HelpContext = 2202
      OnClick = NewFormButtonClick
    end
    object AddfileItem: TMenuItem
      Caption = '&Add File...'
      HelpContext = 2203
      OnClick = AddClick
    end
    object RemoveFileItem: TMenuItem
      Caption = '&Remove File'
      HelpContext = 2204
      OnClick = RemoveClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object PrjUnitItem: TMenuItem
      Caption = 'View &Unit'
      HelpContext = 2205
      OnClick = SourceClick
    end
    object PrjFormItem: TMenuItem
      Caption = 'View &Form'
      HelpContext = 2206
      OnClick = FormClick
    end
    object EditProject1: TMenuItem
      Caption = 'View &Project Source'
      HelpContext = 2207
      OnClick = ProjClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object Options1: TMenuItem
      Caption = '&Options...'
      HelpContext = 2208
      OnClick = OptionsClick
    end
    object UpdateItem: TMenuItem
      Caption = 'Up&date'
      HelpContext = 2209
      OnClick = UpdateClick
    end
    object LocalMenuItem: TMenuItem
      Caption = 'Local Menu'
      Visible = False
      OnClick = LocalMenuItemClick
    end
    object ZoomWindowItem: TMenuItem
      Caption = 'Zoom Window'
      Visible = False
      OnClick = ZoomWindowItemClick
    end
  end
end