Changeset 573 for GraphicTest/Forms

Timestamp:

Jun 25, 2024, 10:49:43 AM (5 months ago)

Author:

chronos

Message:

• Modified: Build with Lazarus 3.4.
• Modified: Removed U prefix from unit names.

Location:

GraphicTest/Forms

Files:

• FormDraw.lfm (moved) (moved from GraphicTest/Forms/UFormDraw.lfm )
• FormDraw.pas (moved) (moved from GraphicTest/Forms/UFormDraw.pas ) (3 diffs)
• FormMain.lfm (moved) (moved from GraphicTest/Forms/UFormMain.lfm )
• FormMain.pas (moved) (moved from GraphicTest/Forms/UFormMain.pas ) (7 diffs)

GraphicTest/Forms/FormDraw.pas

@@ -1 @@
-unit UFormDraw;
-
-{$mode delphi}
+unit FormDraw;
 
 interface
@@ -23 +21 @@
   end;
 
-var
-  FormDraw: TFormDraw;
 
 implementation
@@ -38 +34 @@
 begin
   if EraseBackgroundEnabled then
-    inherited EraseBackground(DC);
+    inherited;
 end;
 
 initialization
-  {$I UFormDraw.lrs}
+  {$I FormDraw.lrs}
 
 end.

GraphicTest/Forms/FormMain.pas

@@ -1 @@
-unit UFormMain;
-
-{$mode delphi}{$H+}
+unit FormMain;
 
 interface
@@ -7 +5 @@
 uses
   Classes, SysUtils, LazFileUtils, SynHighlighterPas, SynMemo, Forms, Controls,
-  Graphics, Dialogs, ComCtrls, ExtCtrls, StdCtrls, DateUtils, UPlatform,
+  Graphics, Dialogs, ComCtrls, ExtCtrls, StdCtrls, DateUtils, Platform,
   LCLType, IntfGraphics, fpImage, Math, GraphType, Contnrs, LclIntf, Spin,
-  ActnList, Menus, StdActns, UFastBitmap, UDrawMethod, typinfo;
+  ActnList, Menus, StdActns, FastBitmap, DrawMethod, TypInfo, FormDraw;
 
 const
@@ -107 +105 @@
     Scenes: TObjectList; // TObjectList<TFastBitmap>
     SceneIndex: Integer;
+    FormDraw: TFormDraw;
     property CurrentMethod: TDrawMethod read FCurrentMethod;
   end;
@@ -113 +112 @@
   FormMain: TFormMain;
 
+
 implementation
 
@@ -118 +118 @@
 
 uses
-  UFormDraw, UMethodLazIntfImageColorsCopy, UMethodLazIntfImageColorsNoCopy, UMethodCanvasPixels,
-  UMethodCanvasPixelsUpdateLock, UMethodBGRABitmap, UMethodBitmapRawImageDataPaintBox,
-  UMethodBitmapRawImageData, UMethodBitmapRawImageDataMove, UMethodDummy, UMethodOpenGL,
-  UMethodOpenGLPBO{$IFDEF GRAPHICS32}, UGraphics32Method{$ENDIF},
-  UMethodBitmapScanline, UMethodMove;
+  MethodLazIntfImageColorsCopy, MethodLazIntfImageColorsNoCopy,
+  MethodCanvasPixels, MethodCanvasPixelsUpdateLock, MethodBGRABitmap,
+  MethodBitmapRawImageDataPaintBox, MethodBitmapRawImageData,
+  MethodBitmapRawImageDataMove, MethodDummy, MethodOpenGL,
+  MethodOpenGLPBO{$IFDEF GRAPHICS32}, UGraphics32Method{$ENDIF},
+  MethodBitmapScanline, MethodMove;
 
 { TFormMain }
@@ -132 +133 @@
   PF: TPixelFormat;
 begin
+  FormDraw := TFormDraw.Create(nil);
+
   Scenes := TObjectList.Create;
 
@@ -294 +297 @@
   FreeAndNil(DrawMethods);
   FreeAndNil(Scenes);
+  FreeAndNil(FormDraw);
 end;