object FormBrowse: TFormBrowse Left = 479 Height = 538 Top = 279 Width = 964 Caption = 'Browse' ClientHeight = 538 ClientWidth = 964 Menu = MainMenu1 OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow LCLVersion = '1.5' object TreeView1: TTreeView Left = 0 Height = 538 Top = 0 Width = 241 Align = alLeft DefaultItemHeight = 24 TabOrder = 0 end object Splitter1: TSplitter Left = 241 Height = 538 Top = 0 Width = 5 end object ListView1: TListView Left = 246 Height = 538 Top = 0 Width = 718 Align = alClient Columns = < item Caption = 'Name' Width = 300 end item Caption = 'Revision' Width = 80 end item Caption = 'Last change date' Width = 100 end item Caption = 'Last author' Width = 100 end item Caption = 'Status' Width = 259 end> OwnerData = True PopupMenu = PopupMenu1 ReadOnly = True RowSelect = True SmallImages = Core.ImageList1 TabOrder = 2 ViewStyle = vsReport OnData = ListView1Data OnDblClick = AOpenExecute OnSelectItem = ListView1SelectItem end object PopupMenu1: TPopupMenu Images = Core.ImageList1 left = 353 top = 131 object MenuItem1: TMenuItem Action = AAdd end object MenuItem2: TMenuItem Action = ADelete end object MenuItem3: TMenuItem Action = ARename end object MenuItem4: TMenuItem Action = AUpdate end object MenuItem5: TMenuItem Action = AProperties end object MenuItem6: TMenuItem Action = AOpen end object MenuItem7: TMenuItem Action = ALogShow end end object ActionList1: TActionList Images = Core.ImageList1 left = 352 top = 208 object AAdd: TAction Caption = 'Add' OnExecute = AAddExecute end object ADelete: TAction Caption = 'Delete' OnExecute = ADeleteExecute end object ARename: TAction Caption = 'Rename' OnExecute = ARenameExecute end object AUpdate: TAction Caption = 'Update' end object AProperties: TAction Caption = 'Properties' end object AOpen: TAction Caption = 'Open' OnExecute = AOpenExecute end object ALogShow: TAction Caption = 'Show log' OnExecute = ALogShowExecute end end object MainMenu1: TMainMenu left = 429 top = 516 end end