Changeset 3 for trunk/Forms/UFormMain.pas

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.

File:

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

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;