FlickrPhotoAnalytics.dpr

// Copyright (c) 2015-2016, Jordi Corbilla
// All rights reserved.
//
// Redistribution and use in source and binary forms, with or without
// modification, are permitted provided that the following conditions are met:
//
// - Redistributions of source code must retain the above copyright notice,
// this list of conditions and the following disclaimer.
// - Redistributions in binary form must reproduce the above copyright notice,
// this list of conditions and the following disclaimer in the documentation
// and/or other materials provided with the distribution.
// - Neither the name of this library nor the names of its contributors may be
// used to endorse or promote products derived from this software without
// specific prior written permission.
//
// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
// AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
// ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
// LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
// CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
// SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
// INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
// CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
// ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
// POSSIBILITY OF SUCH DAMAGE.

program FlickrPhotoAnalytics;



uses
  Forms,
  Windows,
  frmFlickrStatsMain in 'frmFlickrStatsMain.pas' {frmFlickrMain},
  Vcl.Themes,
  Vcl.Styles,
  frmFlickrContextList in 'frmFlickrContextList.pas' {frmFlickrContext},
  frmSplash in 'frmSplash.pas' {frmFlickrSplash},
  frmAuthentication in 'frmAuthentication.pas' {frmAuthenticate},
  frmSetup in 'frmSetup.pas' {frmSetupApp},
  frmChart in 'frmChart.pas' {frmChartViewer},
  frmFlickrPhotoSetInfo in 'frmFlickrPhotoSetInfo.pas' {frmFlickrPhotoSet},
  frmFlickrUserList in 'frmFlickrUserList.pas' {frmUserList};

{$R *.res}

var
  SplashScreen: TfrmFlickrSplash;

begin
  SplashScreen := TfrmFlickrSplash.Create(Application);
  SplashScreen.Show;
  Application.Initialize; // this line exists!
  SplashScreen.Update;

  Sleep(1000); // Or a delay command.
  SplashScreen.Label2.Caption := 'Loading Application.';
  SplashScreen.Update;
  Sleep(1000); // Or a delay command.
  SplashScreen.Label2.Caption := 'Loading Application..';
  SplashScreen.Update;
  Sleep(1000); // Or a delay command.
  SplashScreen.Label2.Caption := 'Loading Application...';
  SplashScreen.Update;
  Sleep(1000);
  SplashScreen.Hide;
  SplashScreen.Free;

  Application.Initialize;
  ReportMemoryLeaksOnShutdown := true;
  Application.MainFormOnTaskbar := True;
  TStyleManager.TrySetStyle('Metropolis UI Blue');
  Application.Title := 'Flickr Photo Analytics';
  Application.CreateForm(TfrmFlickrMain, frmFlickrMain);
  Application.Run;
end.