Changeset 573 for GraphicTest/GraphicTest.lpr

Timestamp:

Jun 25, 2024, 10:49:43 AM (8 days ago)

Author:

chronos

Message:

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

File:

• GraphicTest/GraphicTest.lpr (modified) (3 diffs)

GraphicTest/GraphicTest.lpr

@@ -1 +1 @@
 program GraphicTest;
-
-{$mode objfpc}{$H+}
 
 uses
@@ -8 +6 @@
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, SysUtils, openglcontext, UFormMain, UPlatform, UDrawMethod,
-  UFastBitmap, UFormDraw, bgrabitmappack, UMethodCanvasPixels,
-  UMethodCanvasPixelsUpdateLock, UMethodLazIntfImageColorsCopy, UMethodLazIntfImageColorsNoCopy,
-  UMethodBGRABitmap, UMethodBitmapRawImageDataPaintBox, UMethodBitmapRawImageData,
-  UMethodDummy, UMethodBitmapRawImageDataMove, UMethodOpenGL, UMethodOpenGLPBO,
-  UMethodGraphics32, UMethodBitmapScanline;
+  Forms, SysUtils, openglcontext, FormMain, Platform, DrawMethod,
+  FastBitmap, FormDraw, bgrabitmappack, MethodCanvasPixels,
+  MethodCanvasPixelsUpdateLock, MethodLazIntfImageColorsCopy, MethodLazIntfImageColorsNoCopy,
+  MethodBGRABitmap, MethodBitmapRawImageDataPaintBox, MethodBitmapRawImageData,
+  MethodDummy, MethodBitmapRawImageDataMove, MethodOpenGL, MethodOpenGLPBO,
+  MethodGraphics32, MethodBitmapScanline;
 
 {$R *.res}
@@ -30 +28 @@
 
   RequireDerivedFormResource := True;
+  Application.Title:='';
   Application.Scaled:=True;
   Application.Initialize;
-  Application.CreateForm(TFormMain, FormMain);
-  Application.CreateForm(TFormDraw, FormDraw);
+  Application.CreateForm(TFormMain, FormMain.FormMain);
   Application.Run;
 end.