source: trunk/Packages/CoolDocking/Demo/Testing/Demo.lpr

Last change on this file was 73, checked in by chronos, 12 years ago
  • Modified: Packages are now stored as uncomporessed and are linked with relative path to project.
File size: 700 bytes
Line 
1program Demo;
2
3{$mode objfpc}{$H+}
4
5uses
6 {$IFDEF UNIX}{$IFDEF UseCThreads}
7 cthreads,
8 {$ENDIF}{$ENDIF}
9 Interfaces, // this includes the LCL widgetset
10 Forms, UMainForm, UDockForm, CoolDocking, SampleDockableForm, UComponentTree,
11 FileUtil, SysUtils;
12
13{$R *.res}
14
15const
16 HeapTraceLog = 'heaptrclog.trc';
17begin
18 // Heap trace
19 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
20 SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
21
22 Application.Initialize;
23 Application.CreateForm(TMainForm, MainForm);
24 Application.CreateForm(TDockableForm, DockableForm);
25 Application.CreateForm(TComponentTree, ComponentTree);
26 Application.Run;
27end.
28
Note: See TracBrowser for help on using the repository browser.