source: trunk/Packages/bgracontrols/testbgracontrols/testbgracontrols.lpr

Last change on this file was 2, checked in by chronos, 5 years ago
File size: 1.2 KB
Line 
1program testbgracontrols;
2
3{$mode objfpc}{$H+}
4
5uses {$IFDEF UNIX} {$IFDEF UseCThreads}
6 cthreads, {$ENDIF} {$ENDIF}
7 Forms,
8 Interfaces,
9 umain,
10 uflashplayersetup,
11 uwin7toolbar,
12 uscaledpi,
13 uglassmenu,
14 uribbon,
15 umetroui,
16 umathgame,
17 unice,
18 bgrabutton,
19 bgrawin7toolbar,
20 bgrasamples,
21 uioselements,
22 ubgraimagebuttontest,
23 uanim,
24 uallofthem;
25
26{$R *.res}
27
28begin
29 Application.Title := 'Test BGRA Controls';
30 Application.Initialize;
31 Application.CreateForm(TfrmMain, frmMain);
32 Application.CreateForm(TfrmFlashPlayerSetup, frmFlashPlayerSetup);
33 Application.CreateForm(TfrmWin7ToolBar, frmWin7ToolBar);
34 Application.CreateForm(TfrmRibbon, frmRibbon);
35 Application.CreateForm(TfrmMetroUI, frmMetroUI);
36 Application.CreateForm(TfrmGlassMenu, frmGlassMenu);
37 Application.CreateForm(TfrmJuego, frmJuego);
38 Application.CreateForm(TfrmNice, frmNice);
39 Application.CreateForm(TfrmiOSElements, frmiOSElements);
40 Application.CreateForm(TfrmAnimation, frmAnimation);
41 Application.CreateForm(TfrmAllOfThem, frmAllOfThem);
42 {$IFDEF WINDOWS}
43 HighDPI(96);
44 SetAllFormsDoubleBuffered;
45 {$ENDIF}
46 Application.CreateForm(Tfrmibtest, frmibtest); // it's already a big form
47 Application.Run;
48end.
Note: See TracBrowser for help on using the repository browser.