Changeset 9 for trunk/chronis.lpr


Ignore:
Timestamp:
Dec 26, 2010, 8:12:59 PM (14 years ago)
Author:
george
Message:
  • Modified: Non-visual functions moved to USystem unit.
  • Modified: Loading of object, properties and values rebuilded to general structures.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        22Config.xml
        33chronis
         4heaptrclog.trc

  • trunk/chronis.lpr

    r7 r9  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UPersistentForm, URegistry, USqlDatabase, UTreeState,
    11 UItemView, UItemEdit, ULoginForm, UMainForm, UItemAdd, TemplateGenerics
     10  Forms, UPersistentForm, URegistry, USqlDatabase, UTreeState, SysUtils,
     11  UItemView, UItemEdit, ULoginForm, UMainForm, UItemAdd, TemplateGenerics, USystem
    1212  { you can add units after this };
    1313
    1414{$R *.res}
    1515
     16const
     17  HeapTraceLog = 'heaptrclog.trc';
    1618begin
     19  // Heap trace
     20  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
     21  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
    1722  Application.Initialize;
    1823  Application.CreateForm(TMainForm, MainForm);
Note: See TracChangeset for help on using the changeset viewer.