Changeset 459 for GraphicTest/UDrawMethod.pas

Timestamp:

Nov 28, 2012, 8:09:38 AM (12 years ago)

Author:

chronos

Message:

• Added: Brief description for rest of available draw methods.
• Added: Graphics32 method conditional compilation.

File:

• GraphicTest/UDrawMethod.pas (modified) (5 diffs)

GraphicTest/UDrawMethod.pas

@@ -27 +27 @@
     StepDuration: TDateTime;
     PaintObject: TPaintObject;
-    TempBitmap: TBitmap;
     FrameCounter: Integer;
     FrameCounterStart: TDateTime;
@@ -112 +111 @@
   Image.Parent := Parent;
   Image.SetBounds(0, 0, Size.X, Size.Y);
+  Image.Picture.Bitmap.PixelFormat := PixelFormat;
   Image.Picture.Bitmap.SetSize(Size.X, Size.Y);
-  Image.Picture.Bitmap.PixelFormat := PixelFormat;
   Image.Show;
 end;
@@ -195 +194 @@
 procedure TDrawMethod.Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat);
 begin
-  if (TempBitmap.Width <> Size.X) or (TempBitmap.Height <> Size.Y) then
-    TempBitmap.SetSize(Size.X, Size.Y);
 end;
 
@@ -206 +203 @@
 constructor TDrawMethod.Create;
 begin
-  TempBitmap := TBitmap.Create;
   Description := TStringList.Create;
 end;
@@ -213 +209 @@
 begin
   FreeAndNil(Description);
-  FreeAndNil(TempBitmap);
-  inherited Destroy;
+  inherited;
 end;