Changeset 6 for trunk/Forms/UMainForm.pas

Timestamp:

Dec 25, 2010, 9:31:21 PM (13 years ago)

Author:

george

Message:

• Activated generation of language files.
• Added: Full screen mode.

File:

• trunk/Forms/UMainForm.pas (modified) (15 diffs)

trunk/Forms/UMainForm.pas

@@ -21 +21 @@
 
   TMainForm = class(TForm)
+    AToggleFullscreen: TAction;
+    AExit: TAction;
     AObjectEdit: TAction;
     AObjectDelete: TAction;
@@ -38 +40 @@
     Label2: TLabel;
     ListView1: TListView;
+    MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
     MenuItem10: TMenuItem;
+    MenuItem11: TMenuItem;
+    MenuItem12: TMenuItem;
+    MenuItem13: TMenuItem;
+    MenuItem14: TMenuItem;
+    MenuItem15: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
@@ -55 +63 @@
     Splitter1: TSplitter;
     TreeView1: TTreeView;
+    procedure AExitExecute(Sender: TObject);
     procedure AItemAddExecute(Sender: TObject);
     procedure AItemEditExecute(Sender: TObject);
@@ -61 +70 @@
     procedure AObjectGroupAddGroupExecute(Sender: TObject);
     procedure AObjectGroupEditExecute(Sender: TObject);
+    procedure AToggleFullscreenExecute(Sender: TObject);
     procedure ButtonAddClick(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -73 +83 @@
     procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
   private
+    OriginalBounds: TRect;
+    OriginalWindowState: TWindowState;
+    ScreenBounds: TRect;
     procedure LoadConfiguration;
   public
@@ -103 +116 @@
   I3: Integer;
 begin
-  if FileExists(ConfigFileName) then begin
+  if FileExists(ConfigFileName) then try
     ReadXMLFile(Config, ConfigFileName);
     for I1 := 0 to Config.ChildNodes.Count - 1 do
@@ -124 +137 @@
       end;
     end;
-    Config.Destroy;
+  finally
+    Config.Free;
   end;
 end;
@@ -139 +153 @@
 procedure TMainForm.FormDestroy(Sender: TObject);
 begin
-  TreeState.Destroy;
-  Database.Destroy;
-  PersistentForm.Destroy;
+  TreeState.Free;
+  Database.Free;
+  PersistentForm.Free;
 end;
 
@@ -182 +196 @@
 end;
 
+procedure TMainForm.AToggleFullscreenExecute(Sender: TObject);
+begin
+   if BorderStyle <> bsNone then begin
+    // To full screen
+    OriginalWindowState := WindowState;
+    OriginalBounds := BoundsRect;
+
+    BorderStyle := bsNone;
+    ScreenBounds := Screen.MonitorFromWindow(Handle).BoundsRect;
+    with ScreenBounds do
+      SetBounds(Left, Top, Right - Left, Bottom - Top) ;
+  end else begin
+    // From full screen
+    {$IFDEF MSWINDOWS}
+    BorderStyle := bsSizeable;
+    {$ENDIF}
+    if OriginalWindowState = wsMaximized then
+      WindowState := wsMaximized
+    else
+      with OriginalBounds do
+        SetBounds(Left, Top, Right - Left, Bottom - Top) ;
+    {$IFDEF LINUX}
+    BorderStyle := bsSizeable;
+    {$ENDIF}
+  end;
+end;
+
 procedure TMainForm.AItemEditExecute(Sender: TObject);
 begin
@@ -190 +231 @@
 begin
   ItemAddForm.Show;
+end;
+
+procedure TMainForm.AExitExecute(Sender: TObject);
+begin
+  Close;
 end;
 
@@ -259 +305 @@
     TopItem.ImageIndex := 0;
     TopItem.SelectedIndex := 0;
-    DbRows := Database.Query('SELECT * FROM `ObjectGroup`');
-    for I := 0 to DbRows.Count - 1 do begin
-      NewNode := AddChild(TopItem, DbRows[I].Values['Name']);
-      NewNode.ImageIndex := 0;
-      NewNode.SelectedIndex := 0;
-      NewNode.Data := Pointer(StrToInt(DbRows[I].Values['Id']));
-      ObjectDbRows := Database.Query('SELECT * FROM `Object` WHERE `Group`=' + DbRows[I].Values['Id']);
-      for O := 0 to ObjectDbRows.Count - 1 do begin
-        NewObjectNode := AddChild(NewNode, ObjectDbRows[O].Values['Name']);
-        NewObjectNode.Data := Pointer(StrToInt(ObjectDbRows[O].Values['Id']));
-        NewObjectNode.ImageIndex := 1;
-        NewObjectNode.SelectedIndex := 1;
-      end;
-      ObjectDbRows.Destroy;
-    end;
-    TopItem.Expand(True);
-    DbRows.Destroy;
+    try
+      DbRows := Database.Query('SELECT * FROM `ObjectGroup`');
+      for I := 0 to DbRows.Count - 1 do begin
+        NewNode := AddChild(TopItem, DbRows[I].Values['Name']);
+        NewNode.ImageIndex := 0;
+        NewNode.SelectedIndex := 0;
+        NewNode.Data := Pointer(StrToInt(DbRows[I].Values['Id']));
+        try
+          ObjectDbRows := Database.Query('SELECT * FROM `Object` WHERE `Group`=' + DbRows[I].Values['Id']);
+          for O := 0 to ObjectDbRows.Count - 1 do begin
+            NewObjectNode := AddChild(NewNode, ObjectDbRows[O].Values['Name']);
+            NewObjectNode.Data := Pointer(StrToInt(ObjectDbRows[O].Values['Id']));
+            NewObjectNode.ImageIndex := 1;
+            NewObjectNode.SelectedIndex := 1;
+          end;
+        finally
+          ObjectDbRows.Free;
+        end;
+      end;
+      TopItem.Expand(True);
+    finally
+      DbRows.Free;
+    end;
     TreeState.LoadTree(TreeView1);
   end;
@@ -295 +347 @@
     Visible := True;
     Clear;
+    try
     DbRows := Database.Query('SELECT * FROM `Object` WHERE `Id`=' + IntToStr(Integer(TreeView1.Selected.Data)));
     if DbRows.Count = 1 then begin
@@ -300 +353 @@
 
       // Load column names
-      Properties := Database.Query('SELECT * FROM `Property` WHERE `Object`=' +
-        DbRows[0].Values['Id']);
-      Columns.Clear;
-      NewColumn := Columns.Add;
-      NewColumn.Caption := 'Id';
-      for I := 0 to Properties.Count - 1 do begin
+      try
+        Properties := Database.Query('SELECT * FROM `Property` WHERE `Object`=' +
+          DbRows[0].Values['Id']);
+        Columns.Clear;
         NewColumn := Columns.Add;
-        NewColumn.Caption := Properties[I].Values['Name'];
+        NewColumn.Caption := 'Id';
+        for I := 0 to Properties.Count - 1 do begin
+          NewColumn := Columns.Add;
+          NewColumn.Caption := Properties[I].Values['Name'];
+        end;
+      finally
+        Properties.Free;
       end;
 
@@ -313 +370 @@
 
       // Load items
+      try
       Values := Database.Query('SELECT * FROM `' + DbRows[0].Values['Schema'] + '`.`' +
         DbRows[0].Values['Table'] + '`');
@@ -323 +381 @@
         end;
       end;
-      Values.Destroy;
-      Properties.Destroy;
-    end;
-    DbRows.Destroy;
+      finally
+        Values.Free;
+      end;
+    end;
+    finally
+      DbRows.Free;
+    end;
   end;
 end;