Changeset 2 for trunk/Forms

Timestamp:

Jan 22, 2013, 11:08:49 AM (12 years ago)

Author:

chronos

Message:

• Added: Early coding preparation.

Location:

trunk/Forms

Files:

• UFormBrowse.lfm (modified) (1 diff)
• UFormBrowse.pas (modified) (1 diff)

trunk/Forms/UFormBrowse.lfm

@@ -1 +1 @@
 object FormBrowse: TFormBrowse
-  Left = 259
-  Height = 240
-  Top = 84
-  Width = 320
+  Left = 327
+  Height = 526
+  Top = 143
+  Width = 722
   Caption = 'FormBrowse'
+  ClientHeight = 526
+  ClientWidth = 722
   LCLVersion = '1.1'
+  object TreeView1: TTreeView
+    Left = 0
+    Height = 526
+    Top = 0
+    Width = 241
+    Align = alLeft
+    TabOrder = 0
+  end
+  object Splitter1: TSplitter
+    Left = 241
+    Height = 526
+    Top = 0
+    Width = 5
+  end
+  object ListView1: TListView
+    Left = 246
+    Height = 526
+    Top = 0
+    Width = 476
+    Align = alClient
+    Columns = <    
+      item
+        Caption = 'Name'
+      end    
+      item
+        Caption = 'Revision'
+      end    
+      item
+        Caption = 'Last change date'
+      end    
+      item
+        Caption = 'Last author'
+      end    
+      item
+        Caption = 'Status'
+        Width = 256
+      end>
+    ReadOnly = True
+    RowSelect = True
+    TabOrder = 2
+    ViewStyle = vsReport
+  end
 end

trunk/Forms/UFormBrowse.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
+  ExtCtrls;
 
 type
+
+  { TFormBrowse }
+
   TFormBrowse = class(TForm)
+    ListView1: TListView;
+    Splitter1: TSplitter;
+    TreeView1: TTreeView;
   private
     { private declarations }