program mricron;

{$mode objfpc}{$H+}
uses
 {$IFDEF UNIX} cthreads,
 {$ENDIF}
 {$IFDEF FPC}{$IFNDEF UNIX} uscaledpi, {$ENDIF}{$IFDEF LINUX} Graphics, uscaledpi, {$ENDIF}{$ENDIF}
 Interfaces, Forms, nifti_img_view, nifti_hdr_view,
 about, Text, ReadInt, histoform, autoroi, ROIfilt, render,
 MultiSlice, CropEdges, bet, mni,dcm2nii,
 voismooth, prefs, perisettings, graphx, cutout, ReadFloat, landmarks,
batchstatselect, nii_label;
{$IFNDEF UNIX}
 {$IFDEF FPC}
   //{$R manifest.res}
   {$R *.res}
{$ELSE}
  {$R *.res}//windows icon
 {$ENDIF}
{$ELSE}
       {$R *.res}
{$ENDIF}



//{$IFNDEF FPC}
//{$IFDEF WINDOWS}{$R mricron.rc}{$ENDIF}
//{$ENDIF}

begin
  Application.Scaled:=True;
  Application.Title:='MRIcron';
  //Application.Title:='MRIcron';
  RequireDerivedFormResource := True;
  Application.Initialize;
  Application.CreateForm(TImgForm, ImgForm);
  Application.CreateForm(THdrForm, HdrForm);
  Application.CreateForm(Tdcm2niiForm, dcm2niiForm);
  Application.CreateForm(TAnatForm, AnatForm);
  Application.CreateForm(TAboutForm, AboutForm);
  Application.CreateForm(TTextForm, TextForm);
  Application.CreateForm(TReadIntForm, ReadIntForm);
  Application.CreateForm(TAutoROIForm, AutoROIForm);
  Application.CreateForm(THistogramForm, HistogramForm);
  Application.CreateForm(TFilterROIform, FilterROIform);
  Application.CreateForm(TMultiSliceForm, MultiSliceForm);
  Application.CreateForm(TRenderForm, RenderForm);
  Application.CreateForm(TCropEdgeForm, CropEdgeForm);
  Application.CreateForm(TBETForm, BETForm);
  Application.CreateForm(TMNIForm, MNIForm);
  Application.CreateForm(Tvoismoothform, voismoothform);
  Application.CreateForm(TPrefForm, PrefForm);
  Application.CreateForm(TPSForm, PSForm);
  Application.CreateForm(TGraph4DForm, Graph4DForm);
  Application.CreateForm(TCutoutForm, CutoutForm);
  Application.CreateForm(TReadFloatForm, ReadFloatForm);
//  {$IFDEF FPC}{$IFDEF LINUX} HighDPILinux(GetFontData(GLForm1.Font.Reference.Handle).Height); {$ENDIF} {$ENDIF}
  {$IFDEF FPC}{$IFNDEF UNIX}
  //HighDPI(96);
   {$ENDIF}{$ENDIF}

  Application.Run;
end.

