Changeset 444

Timestamp:

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

Author:

chronos

Message:

• Added: Now draw frame size can be changed.

Location:

GraphicTest

Files:

• UDrawForm.lfm (modified) (1 diff)
• UMainForm.lfm (modified) (3 diffs)
• UMainForm.pas (modified) (7 diffs)

GraphicTest/UDrawForm.lfm

@@ -4 +4 @@
   Top = 208
   Width = 327
+  BorderStyle = bsDialog
   Caption = 'Draw frame'
   FormStyle = fsStayOnTop

GraphicTest/UMainForm.lfm

@@ -24 +24 @@
       end    
       item
-        Caption = 'Duration [ms]'
+        Caption = 'Step draw duration [ms]'
         Width = 80
       end    
@@ -32 +32 @@
       end    
       item
-        Caption = 'Step duration [ms]'
+        Caption = 'Total step duration [ms]'
         Width = 80
       end    
@@ -107 +107 @@
     ParentColor = False
   end
+  object SpinEditWidth: TSpinEdit
+    Left = 363
+    Height = 21
+    Top = 411
+    Width = 58
+    Anchors = [akLeft, akBottom]
+    MaxValue = 1000
+    OnChange = SpinEditWidthChange
+    TabOrder = 5
+    Value = 320
+  end
+  object SpinEditHeight: TSpinEdit
+    Left = 432
+    Height = 21
+    Top = 411
+    Width = 58
+    Anchors = [akLeft, akBottom]
+    MaxValue = 1000
+    OnChange = SpinEditHeightChange
+    TabOrder = 6
+    Value = 240
+  end
+  object Label3: TLabel
+    Left = 328
+    Height = 13
+    Top = 416
+    Width = 23
+    Anchors = [akLeft, akBottom]
+    Caption = 'Size:'
+    ParentColor = False
+  end
+  object Label4: TLabel
+    Left = 424
+    Height = 13
+    Top = 415
+    Width = 6
+    Anchors = [akLeft, akBottom]
+    Caption = 'x'
+    ParentColor = False
+  end
   object Timer1: TTimer
     Interval = 500

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;