Changeset 7 for trunk/Forms

Timestamp:

Jan 20, 2015, 11:33:39 PM (10 years ago)

Author:

chronos

Message:

• Fixed: XML database can be opened from file.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 1250
   Caption = 'MyData'
+  ClientHeight = 820
+  ClientWidth = 1250
+  Menu = MainMenu1
   OnActivate = FormActivate
   OnClose = FormClose
   OnShow = FormShow
   LCLVersion = '1.3'
+  object StatusBar1: TStatusBar
+    Left = 0
+    Height = 29
+    Top = 791
+    Width = 1250
+    Panels = <>
+  end
+  object MainMenu1: TMainMenu
+    Images = Core.ImageList1
+    left = 870
+    top = 200
+    object MenuItem1: TMenuItem
+      Caption = 'Database'
+      object MenuItem2: TMenuItem
+        Caption = 'Connect'
+      end
+      object MenuItem4: TMenuItem
+        Caption = 'Disconnect'
+      end
+      object MenuItem5: TMenuItem
+        Caption = '-'
+      end
+      object MenuItem6: TMenuItem
+        Action = Core.AExit
+      end
+    end
+    object MenuItemPreferences: TMenuItem
+      Caption = 'Tools'
+      object MenuItem3: TMenuItem
+        Action = Core.APreferences
+      end
+    end
+  end
 end

trunk/Forms/UFormMain.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
+  ComCtrls;
 
 type
@@ -13 +14 @@
 
   TFormMain = class(TForm)
+    MainMenu1: TMainMenu;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
+    MenuItemPreferences: TMenuItem;
+    StatusBar1: TStatusBar;
     procedure FormActivate(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);