Changeset 3 for trunk/Forms

Timestamp:

Jan 27, 2016, 10:32:48 PM (9 years ago)

Author:

chronos

Message:

• Added: Classes for decoding MAP, CPS, SHP and ENG file formats.

Location:

trunk/Forms

Files:

• UFormLog.lfm (added)
• UFormLog.pas (added)
• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 578
-  Height = 646
-  Top = 309
-  Width = 985
+  Left = 333
+  Height = 1074
+  Top = 151
+  Width = 1420
   Caption = 'Dune 2'
-  ClientHeight = 646
-  ClientWidth = 985
+  ClientHeight = 1074
+  ClientWidth = 1420
   OnActivate = FormActivate
+  OnKeyPress = FormKeyPress
   LCLVersion = '1.7'
+  WindowState = wsMaximized
   object PaintBox1: TPaintBox
     Left = 0
-    Height = 646
+    Height = 1074
     Top = 0
-    Width = 985
+    Width = 1420
     Align = alClient
     OnClick = PaintBox1Click
+    OnPaint = PaintBox1Paint
   end
 end

trunk/Forms/UFormMain.pas

@@ -16 +16 @@
     PaintBox1: TPaintBox;
     procedure FormActivate(Sender: TObject);
+    procedure FormKeyPress(Sender: TObject; var Key: char);
     procedure PaintBox1Click(Sender: TObject);
+    procedure PaintBox1Paint(Sender: TObject);
   private
     Initialized: Boolean;
@@ -40 +42 @@
 end;
 
+procedure TFormMain.PaintBox1Paint(Sender: TObject);
+begin
+  Core.Game.Paint(PaintBox1.Canvas);
+end;
+
 procedure TFormMain.FormActivate(Sender: TObject);
 begin
@@ -45 +52 @@
     Initialized := True;
     Core.Init;
+  end;
+end;
+
+procedure TFormMain.FormKeyPress(Sender: TObject; var Key: char);
+begin
+  Caption := IntToStr(Ord(Key));
+  if Key = #63 then begin
+    Inc(Core.Game.IW);
+    core.Game.LoadData;
+    PaintBox1.Repaint;
+  end;
+  if Key = #41 then begin
+    Dec(Core.Game.IW);
+    core.Game.LoadData;
+    PaintBox1.Repaint;
   end;
 end;