Changeset 472 for GraphicTest/UMainForm.pas

Timestamp:

Apr 9, 2015, 9:58:36 PM (9 years ago)

Author:

chronos

Message:

• Fixed: Use csOpaque control style also to Image, PaintBox and OpenGLControl.
• Modified: Change size of test frame with SpinEdits as delayed using timer.
• Updated: BRGABitmap package to version 8.1.

File:

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

GraphicTest/UMainForm.pas

@@ -28 +28 @@
     ButtonSingleTest: TButton;
     ButtonStop: TButton;
-    CheckBox1: TCheckBox;
+    CheckBoxOpaque: TCheckBox;
     CheckBoxDoubleBuffered: TCheckBox;
     CheckBoxEraseBackground: TCheckBox;
-    ComboBox1: TComboBox;
+    ComboBoxPixelFormat: TComboBox;
     FileExit1: TFileExit;
     FloatSpinEdit1: TFloatSpinEdit;
@@ -65 +65 @@
     TabSheet1: TTabSheet;
     TabSheet2: TTabSheet;
+    TimerUpdateSettings: TTimer;
     TimerUpdateList: TTimer;
     procedure AExportAsWikiTextExecute(Sender: TObject);
@@ -71 +72 @@
     procedure ATestOneMethodExecute(Sender: TObject);
     procedure ATestStopExecute(Sender: TObject);
-    procedure CheckBox1Change(Sender: TObject);
+    procedure CheckBoxOpaqueChange(Sender: TObject);
     procedure CheckBoxDoubleBufferedChange(Sender: TObject);
     procedure CheckBoxEraseBackgroundChange(Sender: TObject);
-    procedure ComboBox1Change(Sender: TObject);
+    procedure ComboBoxPixelFormatChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -85 +86 @@
     procedure SpinEditWidthChange(Sender: TObject);
     procedure TimerUpdateListTimer(Sender: TObject);
+    procedure TimerUpdateSettingsTimer(Sender: TObject);
   private
+    FCurrentMethod: TDrawMethod;
     MethodIndex: Integer;
     SingleTestActive: Boolean;
@@ -96 +99 @@
     procedure UpdateMethodList;
     procedure UpdateInterface;
-    procedure UpdateFrameSize;
     procedure RegisterDrawMethods;
     procedure RegisterDrawMethod(MethodClass: TDrawMethodClass);
@@ -105 +107 @@
     Scenes: TObjectList; // TObjectList<TFastBitmap>
     SceneIndex: Integer;
+    property CurrentMethod: TDrawMethod read FCurrentMethod;
   end;
 
@@ -141 +144 @@
 
   for PF := Low(TPixelFormat) to High(TPixelFormat) do
-    ComboBox1.Items.Add(GetEnumName(TypeInfo(TPixelFormat), Integer(PF)));
+    ComboBoxPixelFormat.Items.Add(GetEnumName(TypeInfo(TPixelFormat), Integer(PF)));
 
   PageControl1.TabIndex := 0;
@@ -151 +154 @@
   StartTime: TDateTime;
 begin
+  FCurrentMethod := Method;
   with Method do begin
     Init(DrawForm, FrameSize, PixelFormat);
@@ -171 +175 @@
     Done;
   end;
+  FCurrentMethod := nil;
 end;
 
@@ -255 +260 @@
 end;
 
-procedure TMainForm.CheckBox1Change(Sender: TObject);
-begin
-  if CheckBox1.Checked then
+procedure TMainForm.CheckBoxOpaqueChange(Sender: TObject);
+begin
+  if CheckBoxOpaque.Checked then
     DrawForm.ControlStyle := DrawForm.ControlStyle + [csOpaque]
     else DrawForm.ControlStyle := DrawForm.ControlStyle - [csOpaque];
+  if Assigned(FCurrentMethod) then
+    FCurrentMethod.UpdateSettings;
 end;
 
@@ -272 +279 @@
 end;
 
-procedure TMainForm.ComboBox1Change(Sender: TObject);
-begin
-  PixelFormat := TPixelFormat(ComboBox1.ItemIndex);
+procedure TMainForm.ComboBoxPixelFormatChange(Sender: TObject);
+begin
+  PixelFormat := TPixelFormat(ComboBoxPixelFormat.ItemIndex);
   UpdateInterface;
 end;
@@ -292 +299 @@
 procedure TMainForm.FormShow(Sender: TObject);
 begin
-  UpdateFrameSize;
   UpdateMethodList;
   UpdateInterface;
   DrawForm.Show;
+  DrawForm.Left := Left + Width;
+  DrawForm.Top := Top;
 end;
 
@@ -339 +347 @@
 begin
   FrameSize.Y := SpinEditHeight.Value;
-  UpdateFrameSize;
 end;
 
@@ -345 +352 @@
 begin
   FrameSize.X := SpinEditWidth.Value;
-  UpdateFrameSize;
 end;
 
@@ -351 +357 @@
 begin
   UpdateMethodList;
+end;
+
+procedure TMainForm.TimerUpdateSettingsTimer(Sender: TObject);
+begin
+  if (FrameSize.X <> DrawForm.FrameSize.X) or
+    (FrameSize.Y <> DrawForm.FrameSize.Y) then begin
+      DrawForm.FrameSize := FrameSize;
+      DrawForm.ClientWidth := FrameSize.X;
+      DrawForm.ClientHeight := FrameSize.Y;
+      GenerateSceneFrames;
+    end;
 end;
 
@@ -382 +399 @@
   CheckBoxDoubleBuffered.Checked := DrawForm.DoubleBuffered;
   CheckBoxEraseBackground.Checked := DrawForm.EraseBackgroundEnabled;
-  CheckBox1.Checked := csOpaque in DrawForm.ControlStyle;
-  ComboBox1.ItemIndex := Integer(PixelFormat);
-end;
-
-procedure TMainForm.UpdateFrameSize;
-begin
-  DrawForm.ClientWidth := FrameSize.X;
-  DrawForm.ClientHeight := FrameSize.Y;
-  GenerateSceneFrames;
+  CheckBoxOpaque.Checked := csOpaque in DrawForm.ControlStyle;
+  ComboBoxPixelFormat.ItemIndex := Integer(PixelFormat);
 end;