source: trunk/FioInfo.lpr

Last change on this file was 18, checked in by chronos, 11 years ago
  • Přidáno: Možnost nastavit jazyk rozhraní v okně nastavení.
File size: 895 bytes
Line 
1program FioInfo;
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, laz_synapse, UFioAPI, Common, TemplateGenerics, SysUtils,
11 UFormSettings, UFormMain, UFormAbout, UFormAccounts, UCore, CoolTranslator;
12
13{$R *.res}
14
15{$IFDEF DEBUG}
16const
17 HeapTraceLog = 'heaptrclog.trc';
18{$ENDIF}
19
20begin
21 {$IFDEF DEBUG}
22 // Heap trace
23 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
24 SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
25 {$ENDIF}
26
27 RequireDerivedFormResource := True;
28 Application.Initialize;
29 Application.CreateForm(TCore, Core);
30 Application.CreateForm(TFormMain, FormMain);
31 Application.CreateForm(TFormSettings, FormSettings);
32 Application.CreateForm(TFormAbout, FormAbout);
33 Application.CreateForm(TFormAccounts, FormAccounts);
34 Application.Run;
35end.
36
Note: See TracBrowser for help on using the repository browser.