source: GraphicTest/GraphicTest.lpr

Last change on this file was 573, checked in by chronos, 13 months ago
  • Modified: Build with Lazarus 3.4.
  • Modified: Removed U prefix from unit names.
File size: 1.0 KB
Line 
1program GraphicTest;
2
3uses
4 {$IFDEF UNIX}{$IFDEF UseCThreads}
5 cthreads,
6 {$ENDIF}{$ENDIF}
7 Interfaces, // this includes the LCL widgetset
8 Forms, SysUtils, openglcontext, FormMain, Platform, DrawMethod,
9 FastBitmap, FormDraw, bgrabitmappack, MethodCanvasPixels,
10 MethodCanvasPixelsUpdateLock, MethodLazIntfImageColorsCopy, MethodLazIntfImageColorsNoCopy,
11 MethodBGRABitmap, MethodBitmapRawImageDataPaintBox, MethodBitmapRawImageData,
12 MethodDummy, MethodBitmapRawImageDataMove, MethodOpenGL, MethodOpenGLPBO,
13 MethodGraphics32, MethodBitmapScanline;
14
15{$R *.res}
16
17{$if declared(UseHeapTrace)}
18const
19 HeapTraceLog = 'heaptrclog.trc';
20{$ENDIF}
21
22begin
23 {$if declared(UseHeapTrace)}
24 // Heap trace
25 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
26 SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
27 {$ENDIF}
28
29 RequireDerivedFormResource := True;
30 Application.Title:='';
31 Application.Scaled:=True;
32 Application.Initialize;
33 Application.CreateForm(TFormMain, FormMain.FormMain);
34 Application.Run;
35end.
36
Note: See TracBrowser for help on using the repository browser.