Changeset 4 for trunk/UMainForm.lfm

Timestamp:

Feb 3, 2011, 8:01:00 AM (13 years ago)

Author:

chronos

Message:

• Fixed: Add and edit operations.

File:

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

trunk/UMainForm.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
-  Left = 266
+  Left = 259
   Height = 363
-  Top = 139
-  Width = 567
+  Top = 138
+  Width = 643
   Caption = 'Free Pascal Manager'
   ClientHeight = 363
-  ClientWidth = 567
+  ClientWidth = 643
   OnCreate = FormCreate
   OnDestroy = FormDestroy
@@ -15 +15 @@
     Height = 301
     Top = 24
-    Width = 548
+    Width = 624
     Anchors = [akTop, akLeft, akRight, akBottom]
     Columns = <    
@@ -29 +29 @@
         Caption = 'IDE version'
         Width = 150
+      end    
+      item
+        Caption = 'Downloaded'
+      end    
+      item
+        Caption = 'Compiled'
       end>
     OwnerData = True
+    PopupMenu = PopupMenu1
     ReadOnly = True
     RowSelect = True
@@ -48 +55 @@
   object Button1: TButton
     Left = 8
-    Height = 27
+    Height = 25
     Top = 333
     Width = 75
@@ -56 +63 @@
   end
   object Button2: TButton
-    Left = 96
+    Left = 90
     Height = 25
     Top = 333
@@ -65 +72 @@
   end
   object Button3: TButton
-    Left = 184
+    Left = 172
     Height = 25
     Top = 333
@@ -75 +82 @@
   end
   object Button4: TButton
-    Left = 272
+    Left = 336
     Height = 25
     Top = 333
@@ -83 +90 @@
     TabOrder = 4
   end
-  object Button5: TButton
-    Left = 440
+  object ButtonEdit: TButton
+    Left = 496
     Height = 25
     Top = 333
     Width = 75
-    Action = AOptions
-    Anchors = [akLeft]
+    Action = AEdit
+    Anchors = [akLeft, akBottom]
     TabOrder = 5
   end
   object Button6: TButton
-    Left = 355
+    Left = 416
     Height = 25
     Top = 333
@@ -100 +107 @@
     Anchors = [akLeft, akBottom]
     TabOrder = 6
+  end
+  object Button5: TButton
+    Left = 254
+    Height = 25
+    Top = 333
+    Width = 75
+    Action = ADownload
+    TabOrder = 7
   end
   object ActionList1: TActionList
@@ -116 +131 @@
       OnExecute = AStartExecute
     end
-    object AUpdate: TAction
-      Caption = 'Update'
-      OnExecute = AUpdateExecute
+    object ADownload: TAction
+      Caption = 'Download'
+      OnExecute = ADownloadExecute
     end
-    object AOptions: TAction
-      Caption = 'Options'
+    object AEdit: TAction
+      Caption = 'Edit'
+      OnExecute = AEditExecute
     end
     object ACompile: TAction
@@ -127 +143 @@
       OnExecute = ACompileExecute
     end
+    object AUpdate: TAction
+      Caption = 'Update'
+      OnExecute = AUpdateExecute
+    end
+  end
+  object PopupMenu1: TPopupMenu
+    left = 40
+    top = 66
+    object MenuItem2: TMenuItem
+      Action = AStart
+    end
+    object MenuItem6: TMenuItem
+      Action = ADownload
+    end
+    object MenuItem3: TMenuItem
+      Action = ACompile
+    end
+    object MenuItem4: TMenuItem
+      Action = ADownload
+    end
+    object MenuItem5: TMenuItem
+      Action = ARemove
+    end
+    object MenuItem1: TMenuItem
+      Action = AEdit
+    end
   end
 end