Changeset 543 for GraphicTest/Forms/UFormMain.pas

Timestamp:

May 14, 2020, 11:10:24 AM (4 years ago)

Author:

chronos

Message:

• Modified: Removed drawing methods files and classes to use Method prefix.
• Added: TBitmap.Scanline and Move draw methods.

File:

• GraphicTest/Forms/UFormMain.pas (modified) (2 diffs)

GraphicTest/Forms/UFormMain.pas

@@ -118 +118 @@
 
 uses
-  UFormDraw, ULazIntfImageColorsCopy, ULazIntfImageColorsNoCopy, UCanvasPixels,
-  UCanvasPixelsUpdateLock, UBGRABitmapPaintBox, UBitmapRawImageDataPaintBox,
-  UBitmapRawImageData, UBitmapRawImageDataMove, UDummyMethod, UOpenGLMethod,
-  UOpenGLPBOMethod{$IFDEF GRAPHICS32}, UGraphics32Method{$ENDIF};
+  UFormDraw, UMethodLazIntfImageColorsCopy, UMethodLazIntfImageColorsNoCopy, UMethodCanvasPixels,
+  UMethodCanvasPixelsUpdateLock, UMethodBGRABitmap, UMethodBitmapRawImageDataPaintBox,
+  UMethodBitmapRawImageData, UMethodBitmapRawImageDataMove, UMethodDummy, UMethodOpenGL,
+  UMethodOpenGLPBO{$IFDEF GRAPHICS32}, UGraphics32Method{$ENDIF},
+  UMethodBitmapScanline, UMethodMove;
 
 { TFormMain }
@@ -404 +405 @@
 procedure TFormMain.RegisterDrawMethods;
 begin
-  RegisterDrawMethod(TCanvasPixels);
-  RegisterDrawMethod(TCanvasPixelsUpdateLock);
-  RegisterDrawMethod(TLazIntfImageColorsCopy);
-  RegisterDrawMethod(TLazIntfImageColorsNoCopy);
-  RegisterDrawMethod(TBitmapRawImageData);
-  RegisterDrawMethod(TBitmapRawImageDataPaintBox);
-  RegisterDrawMethod(TBitmapRawImageDataMove);
-  RegisterDrawMethod(TBGRABitmapPaintBox);
+  RegisterDrawMethod(TMethodCanvasPixels);
+  RegisterDrawMethod(TMethodCanvasPixelsUpdateLock);
+  RegisterDrawMethod(TMethodLazIntfImageColorsCopy);
+  RegisterDrawMethod(TMethodLazIntfImageColorsNoCopy);
+  RegisterDrawMethod(TMethodBitmapRawImageData);
+  RegisterDrawMethod(TMethodBitmapRawImageDataPaintBox);
+  RegisterDrawMethod(TMethodBitmapRawImageDataMove);
+  RegisterDrawMethod(TMethodBitmapScanline);
+  RegisterDrawMethod(TMethodBGRABitmap);
   {$IFDEF GRAPHICS32}
-  RegisterDrawMethod(TGraphics32Method);
+  RegisterDrawMethod(TMethodGraphics32);
   {$ENDIF}
   {$IFDEF OPENGL}
-  RegisterDrawMethod(TOpenGLMethod);
-  RegisterDrawMethod(TOpenGLPBOMethod);
+  RegisterDrawMethod(TMethodOpenGL);
+  RegisterDrawMethod(TMethodOpenGLPBO);
   {$ENDIF}
-  RegisterDrawMethod(TDummyMethod);
+  RegisterDrawMethod(TMethodMove);
+  RegisterDrawMethod(TMethodDummy);
 end;