Changeset 22 for trunk/Forms/UFormMain.pas

Timestamp:

Mar 24, 2018, 12:33:48 AM (7 years ago)

Author:

chronos

Message:

• Modified: Tables creation/deletion using SQL syntax for XML backend.

File:

• trunk/Forms/UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.pas

@@ -14 +14 @@
 
   TFormMain = class(TForm)
+    CoolBar1: TCoolBar;
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
@@ -25 +26 @@
     MenuItemPreferences: TMenuItem;
     StatusBar1: TStatusBar;
+    ToolBar1: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    ToolButton3: TToolButton;
     procedure FormActivate(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -51 +56 @@
 begin
   Core.Init;
+  // TODO: Toolbar height is incorrectly calculated
+  ToolBar1.ButtonHeight := ToolBar1.Height;
 end;