1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
program canvastest;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms
{ you can add units after this }, canvastestunit, LResources, pentest,
brushtest, fonttest, rectanglestest, shapedwindowtest, ellipseunit,
screenshotunit, drawtest, imagetest, systemcolorstest;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TfrmCanvasTest, frmCanvasTest);
Application.CreateForm(TfrmPen, frmPen);
Application.CreateForm(TfrmBrush, frmBrush);
Application.CreateForm(TfrmFont, frmFont);
Application.CreateForm(TfrmRectangles, frmRectangles);
Application.CreateForm(TfrmShapedWindow, frmShapedWindow);
Application.CreateForm(TfrmScreenshot, frmScreenshot);
Application.CreateForm(TfrmEllipse, frmEllipse);
Application.CreateForm(TfrmDraw, frmDraw);
Application.CreateForm(TfrmImage, frmImage);
Application.CreateForm(TfrmSystemColors, frmSystemColors);
Application.Run;
end.
|
