Changeset 459 for GraphicTest/Methods

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.

Location:

GraphicTest/Methods

Files:

• UBGRABitmapPaintBox.pas (modified) (1 diff)
• UBitmapRawImageData.pas (modified) (1 diff)
• UBitmapRawImageDataMove.pas (modified) (1 diff)
• UBitmapRawImageDataPaintBox.pas (modified) (3 diffs)
• UGraphics32Method.pas (modified) (3 diffs)
• ULazIntfImageColorsCopy.pas (modified) (1 diff)
• ULazIntfImageColorsNoCopy.pas (modified) (1 diff)
• UOpenGLMethod.pas (modified) (1 diff)
• UOpenGLPBOMethod.pas (modified) (1 diff)

GraphicTest/Methods/UBGRABitmapPaintBox.pas

@@ -44 +44 @@
   BGRABitmap := TBGRABitmap.Create(0, 0);
   PaintObject := poPaintBox;
+  Description.Add('This method use graphic library BGRABitmap. ' +
+    'PaintBox is used to display image data.');
 end;
 

GraphicTest/Methods/UBitmapRawImageData.pas

@@ -25 +25 @@
   inherited;
   Caption := 'TBitmap.RawImage.Data';
+  Description.Add('Custom TFastBitmap data are converted to visible image bitmap raw data. ' +
+    'Then TImage is responsible for show loaded data.');
 end;
 

GraphicTest/Methods/UBitmapRawImageDataMove.pas

@@ -25 +25 @@
   inherited;
   Caption := 'TBitmap.RawImage.Data Move';
+  Description.Add('This is same as BitmapRawImageData but data is not converted from different format. ' +
+   'But only moved to TImage raw data. ' +
+    'Then TImage is responsible for show loaded data.');
 end;
 

GraphicTest/Methods/UBitmapRawImageDataPaintBox.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UDrawMethod, UFastBitmap, Graphics, LCLType,
-  FPimage, IntfGraphics, GraphType{$IFDEF windows}, Windows{$ENDIF};
+  {$IFDEF windows}Windows,{$ENDIF}Classes, SysUtils, Controls, UDrawMethod, UFastBitmap, Graphics, LCLType,
+  FPimage, IntfGraphics, GraphType;
 
 type
@@ -13 +13 @@
 
   TBitmapRawImageDataPaintBox = class(TDrawMethodPaintBox)
+    TempBitmap: TBitmap;
     constructor Create; override;
+    procedure Init(Parent: TWinControl; Size: TPoint; PixelFormat: TPixelFormat); override;
+    procedure Done; override;
     procedure Paint(Sender: TObject); override;
     procedure DrawFrame(FastBitmap: TFastBitmap); override;
@@ -28 +31 @@
   Caption := 'TBitmap.RawImage.Data PaintBox';
   PaintObject := poPaintBox;
+  Description.Add('Custom TFastBitmap data are converted to bitmap data compatible with screen. ' +
+    'Then data is sent to PaintBox by Draw method.');
+end;
+
+procedure TBitmapRawImageDataPaintBox.Init(Parent: TWinControl; Size: TPoint;
+  PixelFormat: TPixelFormat);
+begin
+  inherited;
+  TempBitmap := TBitmap.Create;
+  TempBitmap.PixelFormat := PixelFormat;
+  TempBitmap.SetSize(Size.X, Size.Y);
+end;
+
+procedure TBitmapRawImageDataPaintBox.Done;
+begin
+  FreeAndNil(TempBitmap);
+  inherited Done;
 end;
 

GraphicTest/Methods/UGraphics32Method.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UFastBitmap, UDrawMethod, GR32, GR32_Image, Controls,
+  Classes, SysUtils, UFastBitmap, UDrawMethod{$IFDEF gr32}, GR32, GR32_Image{$ENDIF}, Controls,
   Graphics;
 
+{$IFDEF gr32}
 type
   { TGraphics32Method }
@@ -20 +21 @@
     procedure Done; override;
   end;
-
+{$ENDIF}
 
 implementation
 
+{$IFDEF gr32}
 { TGraphics32Method }
 
@@ -92 +94 @@
 end;
 
+{$ENDIF}
+
 end.
 

GraphicTest/Methods/ULazIntfImageColorsCopy.pas

@@ -29 +29 @@
   Caption := 'TLazIntfImage.Colors copy';
   TempIntfImage := TLazIntfImage.Create(0, 0);
+  Description.Add('Method use TLazIntfImage class for faster access to bitmap pixels compared to simple access using TBitmap.Pixels.');
+  Description.Add('TLazIntfImage is created from visible image.');
 end;
 

GraphicTest/Methods/ULazIntfImageColorsNoCopy.pas

@@ -35 +35 @@
   inherited;
   Caption := 'TLazIntfImage.Colors no copy';
+  Description.Add('Method use TLazIntfImage class for faster access to bitmap pixels compared to simple access using TBitmap.Pixels.');
+  Description.Add('Bitmap is not copied from original bitmap.');
 end;
 

GraphicTest/Methods/UOpenGLMethod.pas

@@ -31 +31 @@
   Caption := 'OpenGL';
   PaintObject := poOpenGL;
+  Description.Add('This method use OpenGL 3D acceleration with simple one 2D orthogonal plane covering all visible area.' +
+    'Texture data is loaded from bitmap.');
 end;
 

GraphicTest/Methods/UOpenGLPBOMethod.pas

@@ -69 +69 @@
   Index := 0;
   NextIndex := 1;
+  Description.Add('This method use OpenGL acceleration same like other OpenGL method but ' +
+    'use DMA(Direct Memory Access) for faster texture data transfer without use of CPU.');
 end;