tfilesframeunit.dfm

CVS IDE plugin for Borland Delphi this is a good program,i like this kind of practise

object FilesFrame: TFilesFrame
  Left = 0
  Top = 0
  Width = 639
  Height = 309
  TabOrder = 0
  object PListView: TListView
    Left = 0
    Top = 30
    Width = 639
    Height = 279
    Align = alClient
    Checkboxes = True
    Columns = <
      item
        Caption = 'Name'
        Width = 150
      end
      item
        Caption = 'Revision'
        Width = 80
      end
      item
        Caption = 'Options'
        Width = 60
      end
      item
        Caption = 'Status'
        Width = 80
      end
      item
        Caption = 'Sticky Tag/Date'
        Width = 120
      end
      item
        Caption = 'Date'
        Width = 170
      end
      item
        Caption = 'Conflict'
        Width = 150
      end
      item
        Caption = 'Path'
        Width = 200
      end>
    HideSelection = False
    ReadOnly = True
    RowSelect = True
    PopupMenu = PContextMenu
    TabOrder = 0
    ViewStyle = vsReport
    OnColumnClick = PListViewColumnClick
    OnCompare = PListViewCompare
    OnSelectItem = SelectionChanged
  end
  object PToolbar: TPanel
    Left = 0
    Top = 0
    Width = 639
    Height = 30
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object PUpdateBtn: TSpeedButton
      Left = 275
      Top = 0
      Width = 80
      Height = 25
      Action = PActCmdUpdate
      Flat = True
    end
    object PCommitBtn: TSpeedButton
      Left = 360
      Top = 0
      Width = 80
      Height = 25
      Action = PActCmdCommit
      Flat = True
    end
    object PLogBtn: TSpeedButton
      Left = 95
      Top = 0
      Width = 80
      Height = 25
      Action = PActCmdLog
      Flat = True
    end
    object PDiffBtn: TSpeedButton
      Left = 180
      Top = 0
      Width = 80
      Height = 25
      Action = PActCmdDiff
      Flat = True
    end
    object PMarkBtn: TSpeedButton
      Left = 0
      Top = 0
      Width = 80
      Height = 25
      Caption = 'Mark'
      Flat = True
      Glyph.Data = {
        C6000000424DC60000000000000076000000280000000A0000000A0000000100
        0400000000005000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDD00
        0000DDDDDDDDDD000000DDDDDDDDDD000000DDDDD0DDDD000000DDDD000DDD00
        0000DDD00000DD000000DD0000000D000000DDDDDDDDDD000000DDDDDDDDDD00
        0000DDDDDDDDDD000000}
      Layout = blGlyphRight
      PopupMenu = PMarkMenu
      OnClick = PMarkBtnClick
    end
  end
  object POpenDlg: TOpenDialog
    Filter = 'All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Title = 'Add file'
    Left = 392
    Top = 160
  end
  object PActions: TActionList
    Left = 128
    Top = 88
    object PActMarkAll: TAction
      Category = 'Mark'
      Caption = 'Mark all'
      OnExecute = PActMarkAllExecute
    end
    object PActMarkNone: TAction
      Category = 'Mark'
      Caption = 'Mark none'
      OnExecute = PActMarkNoneExecute
    end
    object PActMarkAllModified: TAction
      Category = 'Mark'
      Caption = 'Mark all "Modified"'
      OnExecute = PActMarkAllModifiedExecute
    end
    object PActMarkAllConflict: TAction
      Category = 'Mark'
      Caption = 'Mark all "Conflict"'
      OnExecute = PActMarkAllConflictExecute
    end
    object PActMarkAllNotInCvs: TAction
      Category = 'Mark'
      Caption = 'Mark all "Not in CVS"'
      OnExecute = PActMarkAllNotInCvsExecute
    end
    object PActAdd: TAction
      Caption = 'Add file'
      OnExecute = PActAddExecute
    end
    object PActSelectionChanged: TAction
      Caption = '__'
    end
    object PActCmdUpdate: TAction
      Category = 'Command'
      Caption = 'Update...'
      OnExecute = PActCmdUpdateExecute
    end
    object PActCmdCommit: TAction
      Category = 'Command'
      Caption = 'Commit...'
      OnExecute = PActCmdCommitExecute
    end
    object PActCmdLog: TAction
      Category = 'Command'
      Caption = 'Log...'
      OnExecute = PActCmdLogExecute
    end
    object PActCmdDiff: TAction
      Category = 'Command'
      Caption = 'Diff...'
      OnExecute = PActCmdDiffExecute
    end
  end
  object PContextMenu: TPopupMenu
    Left = 205
    Top = 88
    object Selectall1: TMenuItem
      Action = PActMarkAll
    end
    object Selectnone1: TMenuItem
      Action = PActMarkNone
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object Markallmodified1: TMenuItem
      Action = PActMarkAllModified
    end
    object Markallconflict1: TMenuItem
      Action = PActMarkAllConflict
    end
    object MarkallNotinCVS1: TMenuItem
      Action = PActMarkAllNotInCvs
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Update1: TMenuItem
      Action = PActCmdUpdate
    end
    object Commit1: TMenuItem
      Action = PActCmdCommit
    end
    object Log1: TMenuItem
      Action = PActCmdLog
    end
    object Diff1: TMenuItem
      Action = PActCmdDiff
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object Add1: TMenuItem
      Action = PActAdd
    end
  end
  object PMarkMenu: TPopupMenu
    Left = 280
    Top = 88
    object MenuItem1: TMenuItem
      Action = PActMarkAll
    end
    object MenuItem5: TMenuItem
      Action = PActMarkNone
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object MenuItem2: TMenuItem
      Action = PActMarkAllModified
    end
    object MenuItem3: TMenuItem
      Action = PActMarkAllConflict
    end
    object MenuItem4: TMenuItem
      Action = PActMarkAllNotInCvs
    end
  end
end