EvaPig

program EvaPig2020;

{$STRINGCHECKS OFF}

{$WARN SYMBOL_PLATFORM OFF}

uses

  gnugettext in '..\gnugettext.pas',

  gginit in '..\gginit.pas',

  SQLite3 in '..\SQLite3.pas',

  SQLiteTable3 in '..\SQLiteTable3.pas',

  Windows,

  Forms,

  Graphics,

  SysUtils,

  HTMLHelpViewer,

  UnitDeclaration in 'UnitDeclaration.pas' {DataModuleDeclaration: TDataModule},

  UnitMain in 'UnitMain.pas' {FormMain: TForm},

  UnitOptions in 'UnitOptions.pas' {FormOptions: TForm},

  UnitIngredientsList in 'UnitIngredientsList.pas' {FormIngredientsList: TForm},

  UnitIngredientDetail in 'UnitIngredientDetail.pas' {FormIngredientDetail: TForm},

  UnitIngredientEditionCopy in 'UnitIngredientEditionCopy.pas' {FormIngredientEditionCopy: TForm},

  UnitIngredientEditionOriginal in 'UnitIngredientEditionOriginal.pas' {FormIngredientEditionOriginal: TForm},

  UnitIngredientCreation in 'UnitIngredientCreation.pas' {FormIngredientCreation: TForm},

  UnitFeedsList in 'UnitFeedsList.pas' {FormFeedsList: TForm},

  UnitFeedDetail in 'UnitFeedDetail.pas' {FormFeedDetail: TForm},

  UnitFeedEdition in 'UnitFeedEdition.pas' {FormFeedEdition: TForm},

  UnitFeedCreation in 'UnitFeedCreation.pas' {FormFeedCreation: TForm},

  UnitFeedCharts in 'UnitFeedCharts.pas' {FormFeedCharts: TForm},

  UnitFeedsCharts in 'UnitFeedsCharts.pas' {FormFeedsCharts: TForm},

  UnitRename in 'UnitRename.pas' {FormRename: TForm},

  UnitComment in 'UnitComment.pas' {FormComment: TForm},

  UnitPredictionCreate in 'UnitPredictionCreate.pas' {FormPredictionCreate: TForm},

  UnitPredictionDetail in 'UnitPredictionDetail.pas' {FormPredictionDetail: TForm},

  UnitChartVReport in 'UnitChartVReport.pas' {FormChartVReport: TFrame},

  UnitChartHReport in 'UnitChartHReport.pas' {FormChartHReport: TForm};

{$R *.res}

begin

  Application.Title := 'EvaPig2020';

  CreateMutex(nil, False, PChar(Application.Title));

  if GetLastError = ERROR_ALREADY_EXISTS

  then // L'application est d?j? lanc?e : mise au premier plan

  begin

    SendMessage(HWND_BROADCAST, RegisterWindowMessage(PChar(Application.Title)), 0, 0);

    Application.Terminate;

    Application.ProcessMessages;

    Exit;

  end;

  ReportMemoryLeaksOnShutdown := DebugHook <> 0;

  if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1

  then

  begin

    DefFontData.Name := 'Arial Unicode MS';

    Screen.HintFont.Name := 'Arial Unicode MS';

  end;

  Application.Initialize;

  DataModuleDeclaration := TDataModuleDeclaration.Create(nil);

  Application.ProcessMessages;

  if Application.Terminated then Exit;

  try

    Application.CreateForm(TFormMain, FormMain);

    Application.HelpFile := ChangeFileExt(Application.ExeName, '.chm');

    Application.Run;

  finally

    DataModuleDeclaration.Free;

  end;

end.