Prepare release 4.8.0.2 with vclstyles

Author: JordiCorbilla

FlickrPhotoAnalytics.dpr

@@ -70,7 +70,7 @@ begin
   Application.Initialize;
   ReportMemoryLeaksOnShutdown := true;
   Application.MainFormOnTaskbar := True;
-  TStyleManager.TrySetStyle('Windows10 Dark');
+  TStyleManager.TrySetStyle('Metropolis UI Blue');
   Application.Title := 'Flickr Photo Analytics';
   Application.CreateForm(TfrmFlickrMain, frmFlickrMain);
   Application.Run;

FlickrPhotoAnalytics.dproj

@@ -59,7 +59,7 @@
         <Base>true</Base>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
-        <Custom_Styles>&quot;Iceberg Classico|VCLSTYLE|$(PUBLIC)\Documents\Embarcadero\Studio\17.0\Styles\IcebergClassico.vsf&quot;;Windows10|VCLSTYLE|$(PUBLIC)\Documents\Embarcadero\Studio\17.0\Styles\Windows10.vsf;&quot;Windows10 Dark|VCLSTYLE|$(PUBLIC)\Documents\Embarcadero\Studio\17.0\Styles\Windows10Dark.vsf&quot;</Custom_Styles>
+        <Custom_Styles>&quot;Iceberg Classico|VCLSTYLE|$(PUBLIC)\Documents\Embarcadero\Studio\17.0\Styles\IcebergClassico.vsf&quot;;&quot;Metropolis UI Blue|VCLSTYLE|$(PUBLIC)\Documents\Embarcadero\Studio\17.0\Styles\MetropolisUIBlue.vsf&quot;;Windows10|VCLSTYLE|$(PUBLIC)\Documents\Embarcadero\Studio\17.0\Styles\Windows10.vsf;&quot;Windows10 Dark|VCLSTYLE|$(PUBLIC)\Documents\Embarcadero\Studio\17.0\Styles\Windows10Dark.vsf&quot;</Custom_Styles>
         <SanitizedProjectName>FlickrPhotoAnalytics</SanitizedProjectName>
         <VCL_Custom_Styles>Carbon|VCLSTYLE|$(PUBLIC)\Documents\Embarcadero\Studio\14.0\Styles\Carbon.vsf;&quot;Metropolis UI Black|VCLSTYLE|$(PUBLIC)\Documents\Embarcadero\Studio\14.0\Styles\MetropolisUIBlack.vsf&quot;;&quot;Metropolis UI Dark|VCLSTYLE|$(PUBLIC)\Documents\Embarcadero\Studio\14.0\Styles\MetropolisUIDark.vsf&quot;;&quot;Ruby Graphite|VCLSTYLE|$(PUBLIC)\Documents\Embarcadero\Studio\14.0\Styles\RubyGraphite.vsf&quot;</VCL_Custom_Styles>
         <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;VclTee;Xml.Win;$(DCC_Namespace)</DCC_Namespace>

FlickrPhotoAnalytics.res

@@ -39,7 +39,7 @@ begin
   Application.Initialize;
   Application.MainFormOnTaskbar := True;
   Application.Title := 'Flickr Photo Migration Tool';
-  TStyleManager.TrySetStyle('Windows10 Blue');
+  TStyleManager.TrySetStyle('Metropolis UI Blue');
   Application.CreateForm(TfrmMigration, frmMigration);
   Application.Run;
 end.

FlickrPhotoMigrationTool.dpr

@@ -52,7 +52,7 @@
         <Base>true</Base>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
-        <Custom_Styles>&quot;Windows10 Blue|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Blue.vsf&quot;</Custom_Styles>
+        <Custom_Styles>&quot;Metropolis UI Blue|VCLSTYLE|$(PUBLIC)\Documents\Embarcadero\Studio\17.0\Styles\MetropolisUIBlue.vsf&quot;;&quot;Windows10 Blue|VCLSTYLE|$(PUBLIC)\Documents\Embarcadero\Studio\17.0\Styles\Windows10Blue.vsf&quot;</Custom_Styles>
         <VCL_Custom_Styles>Carbon|VCLSTYLE|$(PUBLIC)\Documents\Embarcadero\Studio\14.0\Styles\Carbon.vsf</VCL_Custom_Styles>
         <SanitizedProjectName>FlickrPhotoMigrationTool</SanitizedProjectName>
         <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>

FlickrPhotoMigrationTool.dproj

@@ -1597,7 +1597,7 @@ object frmFlickrMain: TfrmFlickrMain
       Top = 66
       Width = 1516
       Height = 841
-      ActivePage = Dashboard
+      ActivePage = TabSheet7
       Align = alClient
       TabOrder = 1
       object Dashboard: TTabSheet

FlickrPhotoMigrationTool.res

@@ -791,7 +791,38 @@ procedure TfrmFlickrMain.Log(s: string);
 procedure TfrmFlickrMain.AddColourCharts;
 begin
 //$00C8700C
-  if (TStyleManager.ActiveStyle.Name = 'Windows10 Blue') then
+//$1373A9
+  if (TStyleManager.ActiveStyle.Name = 'Metropolis UI Blue') then
+  begin
+    ChartStreamViews.color := $00A97313;
+    ChartAlbumViews.color := $00A97313;
+    ChartViews.color := $00A97313;
+    totalPhotos.color := $00A97313;
+    ChartLikes.color := $00A97313;
+    ChartComments.color := $00A97313;
+    executionTime.color := $00A97313;
+    mostviewschart.color := $00A97313;
+    mostlikeschart.color := $00A97313;
+    chartfollowing.color := $00A97313;
+    organicViews.color := $00A97313;
+    organicLikes.color := $00A97313;
+    organicComments.color := $00A97313;
+    groupspread.color := $00A97313;
+    dailyViews.color := $00A97313;
+    dailyLikes.color := $00A97313;
+    dailyComments.color := $00A97313;
+    chartAlbum.color := $00A97313;
+    chartHallViews.color := $00A97313;
+    ChartHallLikes.color := $00A97313;
+    chartItemViews.color := $00A97313;
+    chartItemLikes.color := $00A97313;
+    totalGroups.color := $00A97313;
+    chartItemComments.color := $00A97313;
+    chartItemViewsH.color := $00A97313;
+    chartItemLikesH.color := $00A97313;
+    chartItemCommentsH.color := $00A97313;
+  end
+  else if (TStyleManager.ActiveStyle.Name = 'Windows10 Blue') then
   begin
     ChartStreamViews.color := $00C8700C;
     ChartAlbumViews.color := $00C8700C;
@@ -1840,9 +1871,9 @@ procedure TfrmFlickrMain.LoadHallOfFame(repository: IFlickrRepository);
 
 procedure TfrmFlickrMain.LoadForms(repository: IFlickrRepository);
 begin
-  apikey.text := repository.apikey;
-  secret.text := repository.secret;
-  edtUserId.text := repository.UserId;
+  //apikey.text := repository.apikey;
+  //secret.text := repository.secret;
+  //edtUserId.text := repository.UserId;
   authenticate.Enabled := true;
   listPhotos.Clear;
   UpdateCounts();