Changeset 7 for trunk/Forms/UMainForm.lfm

Timestamp:

Feb 4, 2011, 1:16:43 PM (13 years ago)

Author:

chronos

Message:

 

File:

• trunk/Forms/UMainForm.lfm (modified) (11 diffs)

trunk/Forms/UMainForm.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
-  Left = 234
-  Height = 380
-  Top = 123
+  Left = 203
+  Height = 418
+  Top = 88
   Width = 677
   Caption = 'Free Pascal Manager'
-  ClientHeight = 380
+  ClientHeight = 418
   ClientWidth = 677
   OnCreate = FormCreate
@@ -13 +13 @@
   object ListView1: TListView
     Left = 8
-    Height = 318
+    Height = 311
     Top = 24
-    Width = 658
+    Width = 666
     Anchors = [akTop, akLeft, akRight, akBottom]
     Columns = <    
@@ -56 +56 @@
     Left = 8
     Height = 25
-    Top = 350
+    Top = 343
     Width = 64
     Action = AAdd
@@ -65 +65 @@
     Left = 80
     Height = 25
-    Top = 350
+    Top = 343
     Width = 67
     Action = ARemove
@@ -74 +74 @@
     Left = 152
     Height = 25
-    Top = 350
+    Top = 343
     Width = 56
     Action = AStart
@@ -84 +84 @@
     Left = 296
     Height = 25
-    Top = 350
+    Top = 343
     Width = 64
     Action = AUpdate
@@ -93 +93 @@
     Left = 440
     Height = 25
-    Top = 350
+    Top = 343
     Width = 59
     Action = AEdit
@@ -102 +102 @@
     Left = 368
     Height = 25
-    Top = 350
+    Top = 343
     Width = 64
     Action = ACompile
@@ -111 +111 @@
     Left = 216
     Height = 25
-    Top = 350
+    Top = 343
     Width = 72
     Action = ADownload
@@ -118 +118 @@
   end
   object Options: TButton
-    Left = 591
-    Height = 25
-    Top = 350
+    Left = 8
+    Height = 25
+    Top = 387
     Width = 75
     Action = AOptions
+    Anchors = [akLeft, akBottom]
+    TabOrder = 8
+  end
+  object Bevel1: TBevel
+    Left = 8
+    Height = 3
+    Top = 375
+    Width = 664
+    Anchors = [akLeft, akRight, akBottom]
+  end
+  object Button7: TButton
+    Left = 93
+    Height = 25
+    Top = 387
+    Width = 75
+    Action = ASourceList
     Anchors = [akRight, akBottom]
-    TabOrder = 8
+    TabOrder = 9
   end
   object ActionList1: TActionList
@@ -161 +177 @@
       OnExecute = AOptionsExecute
     end
+    object ASourceList: TAction
+      Caption = 'Source list'
+      OnExecute = ASourceListExecute
+    end
   end
   object PopupMenu1: TPopupMenu