Changeset 6 for trunk/UMainForm.pas

Timestamp:

Mar 6, 2011, 7:31:53 PM (13 years ago)

Author:

george

Message:

• Added: Fullscreen mode.

File:

• trunk/UMainForm.pas (modified) (6 diffs)

trunk/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  ComCtrls, Menus, UCore;
+  ComCtrls, Menus, ActnList, UCore;
 
 type
@@ -14 +14 @@
 
   TMainForm = class(TForm)
+    AShowMap: TAction;
+    ANewGame: TAction;
+    AExit: TAction;
+    AFullScreen: TAction;
+    ActionList1: TActionList;
     Image1: TImage;
     MainMenu1: TMainMenu;
@@ -19 +24 @@
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
-    MenuItemShowMap: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
     StatusBar1: TStatusBar;
     TimerDraw: TTimer;
     TimerEngineTick: TTimer;
+    procedure AExitExecute(Sender: TObject);
+    procedure AFullScreenExecute(Sender: TObject);
+    procedure ANewGameExecute(Sender: TObject);
+    procedure AShowMapExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@@ -28 +39 @@
     procedure FormShow(Sender: TObject);
     procedure Image1Resize(Sender: TObject);
-    procedure MenuItem2Click(Sender: TObject);
-    procedure MenuItem3Click(Sender: TObject);
-    procedure MenuItemShowMapClick(Sender: TObject);
     procedure TimerDrawTimer(Sender: TObject);
     procedure TimerEngineTickTimer(Sender: TObject);
   private
+    OriginalBounds: TRect;
+    OriginalWindowState: TWindowState;
+    ScreenBounds: TRect;
   public
     { public declarations }
@@ -106 +117 @@
 end;
 
+procedure TMainForm.AFullScreenExecute(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.ANewGameExecute(Sender: TObject);
+begin
+  Engine.NewGame;
+end;
+
+procedure TMainForm.AShowMapExecute(Sender: TObject);
+begin
+  MapForm.Show;
+end;
+
+procedure TMainForm.AExitExecute(Sender: TObject);
+begin
+  Close;
+end;
+
 procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
@@ -129 +182 @@
 end;
 
-procedure TMainForm.MenuItem2Click(Sender: TObject);
-begin
-  Close;
-end;
-
-procedure TMainForm.MenuItem3Click(Sender: TObject);
-begin
-  Engine.NewGame;
-end;
-
-procedure TMainForm.MenuItemShowMapClick(Sender: TObject);
-begin
-  MapForm.Show;
-end;
-
 end.