05a5e2c6a2
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@639 8e941d3f-bd1b-0410-a28a-d453659cc2b4
51 lines
1.1 KiB
ObjectPascal
51 lines
1.1 KiB
ObjectPascal
program germesorders;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
|
cthreads,
|
|
{$ENDIF}{$ENDIF}
|
|
Interfaces, // this includes the LCL widgetset
|
|
Forms
|
|
{ you can add units after this },
|
|
uDebug, SysUtils, rx,
|
|
uOrders, uTestForm, ufrmParent;
|
|
|
|
begin
|
|
GlobalLogger.Log('Старт приложения GermesOrders. %s', [FormatDateTime('dd-mm-yyyy hh-mm-ss', Now)]);
|
|
|
|
try
|
|
try
|
|
{$IFDEF LCLwince}
|
|
TaskBarHide;
|
|
|
|
GlobalLogger.Log('Запуск под WinCE');
|
|
Application.ApplicationType:=atPDA;
|
|
{$ENDIF}
|
|
|
|
Application.Initialize;
|
|
Application.OnException:=@GlobalLogger.ExceptionHandler;
|
|
Application.StopOnException:=False;
|
|
|
|
Application.CreateForm(TfrmOrders, frmOrders);
|
|
{$IFDEF LCLwince}
|
|
frmOrders.WindowResize;
|
|
{$ENDIF}
|
|
Application.Run;
|
|
except
|
|
on E:Exception do
|
|
begin
|
|
GlobalLogger.LogException(E);
|
|
end;
|
|
end;
|
|
finally
|
|
{$IFDEF LCLwince}
|
|
TaskBarUnHide;
|
|
{$ENDIF}
|
|
|
|
GlobalLogger.Log('Завершение приложения GermesOrders');
|
|
end;
|
|
end.
|
|
|