Changeset 472 for GraphicTest/UDrawMethod.pas

Timestamp:

Apr 9, 2015, 9:58:36 PM (10 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/UDrawMethod.pas (modified) (13 diffs)

GraphicTest/UDrawMethod.pas

@@ -21 +21 @@
     FControl: TControl;
     FFPS: Real;
+    FParent: TWinControl;
   public
     Caption: string;
@@ -39 +40 @@
     procedure DrawFrame(FastBitmap: TFastBitmap); virtual;
     procedure DrawFrameTiming(FastBitmap: TFastBitmap);
+    procedure UpdateSettings; virtual;
     property Control: TControl read FControl;
   end;
@@ -48 +50 @@
   TDrawMethodImage = class(TDrawMethod)
     Image: TImage;
+    procedure UpdateSettings; override;
     procedure Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat); override;
     procedure Done; override;
@@ -57 +60 @@
     PaintBox: TPaintBox;
     procedure Paint(Sender: TObject); virtual;
+    procedure UpdateSettings; override;
     procedure Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat); override;
     procedure Done; override;
@@ -69 +73 @@
     TextureId: GLuint;
     OpenGLBitmap: Pointer;
+    procedure UpdateSettings; override;
     procedure InitGL;
     procedure OpenGLControlResize(Sender: TObject);
@@ -86 +91 @@
 begin
 
+end;
+
+procedure TDrawMethodPaintBox.UpdateSettings;
+begin
+  inherited UpdateSettings;
+  PaintBox.ControlStyle := FParent.ControlStyle;
 end;
 
@@ -96 +107 @@
   PaintBox.OnPaint := Paint;
   PaintBox.Show;
+  UpdateSettings;
 end;
 
@@ -105 +117 @@
 
 { TDrawMethodImage }
+
+procedure TDrawMethodImage.UpdateSettings;
+begin
+  inherited;
+  Image.ControlStyle := FParent.ControlStyle;
+end;
 
 procedure TDrawMethodImage.Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat);
@@ -115 +133 @@
   Image.Picture.Bitmap.SetSize(Size.X, Size.Y);
   Image.Show;
+  UpdateSettings;
 end;
 
@@ -141 +160 @@
   end;
   GetMem(OpenGLBitmap, OpenGLControl.Width * OpenGLControl.Height * SizeOf(Integer));
+  UpdateSettings;
 end;
 
@@ -153 +173 @@
 begin
   glViewport(0, 0, OpenGLControl.Width, OpenGLControl.Height);
+end;
+
+procedure TDrawMethodOpenGL.UpdateSettings;
+begin
+  inherited UpdateSettings;
+  OpenGLControl.ControlStyle := FParent.ControlStyle;
 end;
 
@@ -195 +221 @@
 procedure TDrawMethod.Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat);
 begin
+  FParent := Parent;
 end;
 
@@ -227 +254 @@
 end;
 
+procedure TDrawMethod.UpdateSettings;
+begin
+end;
+
 end.