Changeset 444 for GraphicTest/UMainForm.pas

Timestamp:

Nov 22, 2012, 12:58:18 PM (12 years ago)

Author:

chronos

Message:

• Added: Now draw frame size can be changed.

File:

• GraphicTest/UMainForm.pas (modified) (7 diffs)

GraphicTest/UMainForm.pas

@@ -25 +25 @@
     Label1: TLabel;
     Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
     ListViewMethods: TListView;
+    SpinEditWidth: TSpinEdit;
+    SpinEditHeight: TSpinEdit;
     Timer1: TTimer;
     procedure ButtonBenchmarkClick(Sender: TObject);
@@ -37 +41 @@
     procedure ListViewMethodsSelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
+    procedure SpinEditHeightChange(Sender: TObject);
+    procedure SpinEditWidthChange(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
   private
@@ -42 +48 @@
     SingleTestActive: Boolean;
     AllTestActive: Boolean;
+    procedure GenerateSceneFrames;
     procedure UpdateMethodList;
     procedure UpdateInterface;
+    procedure UpdateFrameSize;
   public
     FrameSize: TPoint;
@@ -66 +74 @@
 procedure TMainForm.FormCreate(Sender: TObject);
 var
-  NewScene: TFastBitmap;
   NewDrawMethod: TDrawMethod;
   I: Integer;
 begin
+  Scenes := TObjectList.Create;
+
   FrameSize := Point(320, 240);
   Randomize;
-  Scenes := TObjectList.Create;
-  for I := 0 to SceneFrameCount - 1 do begin
-    NewScene := TFastBitmap.Create;
-    NewScene.Size := FrameSize;
-    NewScene.RandomImage;
-    Scenes.Add(NewScene);
-  end;
 
   DrawMethods := TObjectList.Create;
@@ -169 +171 @@
 procedure TMainForm.FormShow(Sender: TObject);
 begin
+  UpdateFrameSize;
   UpdateMethodList;
   UpdateInterface;
@@ -196 +199 @@
 end;
 
+procedure TMainForm.SpinEditHeightChange(Sender: TObject);
+begin
+  FrameSize.Y := SpinEditHeight.Value;
+  UpdateFrameSize;
+end;
+
+procedure TMainForm.SpinEditWidthChange(Sender: TObject);
+begin
+  FrameSize.X := SpinEditWidth.Value;
+  UpdateFrameSize;
+end;
+
 procedure TMainForm.Timer1Timer(Sender: TObject);
 begin
   UpdateMethodList;
+end;
+
+procedure TMainForm.GenerateSceneFrames;
+var
+  I: Integer;
+  NewScene: TFastBitmap;
+begin
+  Scenes.Clear;
+  for I := 0 to SceneFrameCount - 1 do begin
+    NewScene := TFastBitmap.Create;
+    NewScene.Size := FrameSize;
+    NewScene.RandomImage;
+    Scenes.Add(NewScene);
+  end;
 end;
 
@@ -212 +241 @@
   ButtonBenchmark.Enabled := not AllTestActive and not SingleTestActive;
   ButtonStop.Enabled := SingleTestActive or AllTestActive;
+  SpinEditWidth.MaxValue := Screen.DesktopWidth;
+  SpinEditHeight.MaxValue := Screen.DesktopHeight;
+end;
+
+procedure TMainForm.UpdateFrameSize;
+begin
+  DrawForm.SetBounds(DrawForm.Left, DrawForm.Top, FrameSize.X, FrameSize.Y);
+  GenerateSceneFrames;
 end;