lazarus-ccr/applications/lazimageeditor/lazimageeditor.pas

program lazimageeditor;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset   Preview,
  Forms,
  Main,
  PictureManager,
  PictureCtrls,
  Test,
  NewDialog,
  ResizeDialog,
  ResizePaperDialog,
  PictureDialog,
  AboutDialog, DLBitmap, IconStrConsts, appsettings, lieconstants;

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TTestForm, TestForm);
  Application.CreateForm(TNewDialogForm, NewDialogForm);
  Application.CreateForm(TResizeDialogForm, ResizeDialogForm);
  Application.CreateForm(TResizePaperDialogForm, ResizePaperDialogForm);

  // show new picture dialog
  MainForm.Show;
  //MainForm.FileNewExecute(nil);

  // With OS X app, ParamStr not meaningful unless launched with --args switch.
  if (ParamCount > 0) {$IFDEF DARWIN} and (Copy(ParamStr(1), 1, 4) <> '-psn') {$ENDIF} then
    MainForm.OpenImageFile(ParamStr(1))
  else
    MainForm.FileNewOnStart;
  Application.Run;
end.