Changeset 3 for trunk/Forms

Timestamp:

Jan 28, 2013, 7:58:22 PM (12 years ago)

Author:

chronos

Message:

• Modified: Menu organization.
• Added: Form for settings.

Location:

trunk/Forms

Files:

• UFormBrowse.lfm (modified) (1 diff)
• UFormBrowse.pas (modified) (2 diffs)
• UFormFavorites.lfm (added)
• UFormFavorites.pas (added)
• UFormMain.lfm (modified) (3 diffs)
• UFormMain.pas (modified) (1 diff)
• UFormSettings.lfm (added)
• UFormSettings.pas (added)

trunk/Forms/UFormBrowse.lfm

@@ -1 +1 @@
 object FormBrowse: TFormBrowse
-  Left = 327
+  Left = 351
   Height = 526
-  Top = 143
+  Top = 147
   Width = 722
-  Caption = 'FormBrowse'
+  Caption = 'Browse'
   ClientHeight = 526
   ClientWidth = 722

trunk/Forms/UFormBrowse.pas

@@ -20 +20 @@
     { private declarations }
   public
-    { public declarations }
+    procedure ReloadList;
   end;
 
@@ -30 +30 @@
 {$R *.lfm}
 
+{ TFormBrowse }
+
+procedure TFormBrowse.ReloadList;
+begin
+
+end;
+
 end.
 

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 259
+  Left = 340
   Height = 497
-  Top = 84
+  Top = 152
   Width = 667
-  Caption = 'FormMain'
+  Caption = 'VCSCommander'
   ClientHeight = 472
   ClientWidth = 667
@@ -37 +37 @@
       end
     end
+    object MenuItem6: TMenuItem
+      Caption = 'View'
+      object MenuItem7: TMenuItem
+        Action = AViewFavorites
+      end
+    end
+    object MenuItem1: TMenuItem
+      Caption = 'General'
+      object MenuItem2: TMenuItem
+        Action = ASettings
+      end
+    end
+    object MenuItem3: TMenuItem
+      Caption = 'Help'
+      object MenuItem5: TMenuItem
+        Action = AHelp
+      end
+      object MenuItem4: TMenuItem
+        Action = AAbout
+      end
+    end
   end
   object ActionList1: TActionList
@@ -47 +68 @@
       OnExecute = AQuitExecute
     end
+    object ASettings: TAction
+      Caption = 'Settings'
+    end
+    object AAbout: TAction
+      Caption = 'About'
+    end
+    object AHelp: TAction
+      Caption = 'Help'
+    end
+    object AViewFavorites: TAction
+      Caption = 'Favorites'
+    end
   end
   object ImageList1: TImageList

trunk/Forms/UFormMain.pas

@@ -14 +14 @@
 
   TFormMain = class(TForm)
+    AViewFavorites: TAction;
+    AHelp: TAction;
+    ASettings: TAction;
+    AAbout: TAction;
     AQuit: TAction;
     ActionList1: TActionList;
     ImageList1: TImageList;
     MainMenu1: TMainMenu;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
     MenuItemQuit: TMenuItem;
     MenuItemFile: TMenuItem;