no message

Author: ForgotMyCode

Minesweeper_proj.dpr

@@ -9,7 +9,9 @@ uses
   UBoardFrame in 'UBoardFrame.pas' {BoardFrame: TFrame},
   UDogFrame in 'UDogFrame.pas' {DogFrame: TFrame},
   UCustomBoardForm in 'UCustomBoardForm.pas' {CustomBoardForm},
-  UHighScoresForm in 'UHighScoresForm.pas' {HighScoresForm};
+  UHighScoresForm in 'UHighScoresForm.pas' {HighScoresForm},
+  Vcl.Themes,
+  Vcl.Styles;
 
 {$R *.res}
 

Minesweeper_proj.dproj

@@ -71,6 +71,8 @@
         <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
         <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
         <SanitizedProjectName>Minesweeper_proj</SanitizedProjectName>
+        <VerInfo_Locale>1029</VerInfo_Locale>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win32)'!=''">
         <DCC_UsePackage>vclwinx;fmx;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;FireDACCommonODBC;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;Skia.Package.RTL;IndyIPClient;dbxcds;vcledge;bindcompvclwinx;bindcompfmx;inetdb;FireDACSqliteDriver;DbxClientDriver;soapmidas;vclactnband;fmxFireDAC;dbexpress;DBXMySQLDriver;VclSmp;inet;vcltouch;fmxase;dbrtl;Skia.Package.FMX;fmxdae;FireDACMSAccDriver;CustomIPTransport;vcldsnap;DBXInterBaseDriver;IndySystem;Skia.Package.VCL;vcldb;vclFireDAC;bindcomp;FireDACCommon;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;RESTComponents;DBXSqliteDriver;vcl;IndyIPServer;dsnapxml;dsnapcon;adortl;vclimg;FireDACPgDriver;FireDAC;inetdbxpress;xmlrtl;tethering;bindcompvcl;dsnap;CloudService;fmxobj;bindcompvclsmp;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)</DCC_UsePackage>
@@ -86,9 +88,10 @@
         <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
         <BT_BuildType>Debug</BT_BuildType>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
-        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
         <VerInfo_Locale>1033</VerInfo_Locale>
+        <Icon_MainIcon>Minesweeper_proj_Icon.ico</Icon_MainIcon>
         <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+        <AppDPIAwarenessMode>none</AppDPIAwarenessMode>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1)'!=''">
         <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
@@ -118,6 +121,9 @@
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
         <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <Icon_MainIcon>Minesweeper_proj_Icon.ico</Icon_MainIcon>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">
@@ -172,6 +178,10 @@
                 <Source>
                     <Source Name="MainSource">Minesweeper_proj.dpr</Source>
                 </Source>
+                <Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k290.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp290.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+                </Excluded_Packages>
             </Delphi.Personality>
             <Deployment Version="4">
                 <DeployFile LocalName="Win32\Debug\Minesweeper_proj.exe" Configuration="Debug" Class="ProjectOutput">

Minesweeper_proj_Icon.ico

@@ -42,9 +42,9 @@ object HighScoresForm: THighScoresForm
   object Label3: TLabel
     Left = 8
     Top = 29
-    Width = 33
+    Width = 36
     Height = 15
-    Caption = 'Mines'
+    Caption = 'Mines:'
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clCream
     Font.Height = -12

UHighScoresForm.dfm

@@ -88,28 +88,59 @@ procedure THighScoresForm.LoadForConfig(aWidth, aHeight, aMines: Integer);
 end;
 
 procedure THighScoresForm.NewScore(aScore: TDateTime);
-  procedure _overwrite(aPlace: Integer);
+  function _getUserName(): String;
   begin
-    var userName: String;
-    InputQuery('New high score!', 'What is your name?', userName);
-
-    var ini := TInifile.Create('./highscores.ini');
-    try
-      ini.WriteDateTime(GetSectionKey(), 'Place' + IntToStr(aPlace) + 'Time', aScore);
-      ini.WriteString(GetSectionKey(), 'Place' + IntToStr(aPlace) + 'Name', userName);
-    finally
-      FreeAndNil(ini);
-    end;
-
-    LoadForConfig(fWidth, fHeight, fMines);
+    InputQuery('New high score!', 'What is your name?', result);
   end;
 begin
-  if fPlace1Time > aScore then
-    _overwrite(1)
-  else if fPlace2Time > aScore then
-    _overwrite(2)
-  else if fPlace3Time > aScore then
-    _overwrite(3);
+
+  // Is score worse than 3rd place? -> exit
+  if aScore >= fPlace3Time then
+    Exit();
+
+  var userName := _getUserName();
+
+  fPlace3Time := aScore;
+  lblPlace3Name.Caption := userName;
+
+  // Promote to 2nd
+  if aScore < fPlace2Time then
+  begin
+    fPlace3Time := fPlace2Time;
+    lblPlace3Name.Caption := lblPlace2Name.Caption;
+
+    fPlace2Time := aScore;
+    lblPlace2Name.Caption := userName;
+  end;
+
+  // Promote to 1st
+  if aScore < fPlace1Time then
+  begin
+    fPlace2Time := fPlace1Time;
+    lblPlace2Name.Caption := lblPlace1Name.Caption;
+
+    fPlace1Time := aScore;
+    lblPlace1Name.Caption := userName;
+  end;
+
+  // Write
+  var key := GetSectionKey();
+
+  var ini := TIniFile.Create('./highscores.ini');
+  try
+    ini.WriteString(key, 'Place1Name', lblPlace1Name.Caption);
+    ini.WriteString(key, 'Place2Name', lblPlace2Name.Caption);
+    ini.WriteString(key, 'Place3Name', lblPlace3Name.Caption);
+
+    ini.WriteDateTime(key, 'Place1Time', fPlace1Time);
+    ini.WriteDateTime(key, 'Place2Time', fPlace2Time);
+    ini.WriteDateTime(key, 'Place3Time', fPlace3Time);
+  finally
+    FreeAndNil(ini);
+  end;
+
+  // Reload
+  LoadForConfig(fWidth, fHeight, fMines);
 end;
 
 end.