Rename Project

500Foods · Dec 27, 2023 · 0082651 · 0082651
1 parent 97e1a96
commit 0082651
Show file tree

Hide file tree

Showing 7 changed files with 93 additions and 34 deletions.
diff --git a/Project1.html b/Project1.html
diff --git a/RutRace.css b/RutRace.css
@@ -0,0 +1,4 @@
+html,
+body {
+  font-family: Cairo;
+}
diff --git a/Project1.dpr → RutRace.dpr b/Project1.dpr → RutRace.dpr
@@ -1,4 +1,4 @@
-program Project1;
+program RutRace;
 
 {$R *.dres}
 

diff --git a/Project1.dproj → RutRace.dproj b/Project1.dproj → RutRace.dproj
@@ -3,7 +3,7 @@
         <ProjectGuid>{AF017F5B-5504-4557-9F63-BC34AE8CB544}</ProjectGuid>
         <ProjectVersion>18.7</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
-        <MainSource>Project1.dpr</MainSource>
+        <MainSource>RutRace.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
@@ -58,10 +58,10 @@
         <TMSWebPWA>2</TMSWebPWA>
         <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
         <Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns>
-        <TMSWebPWAResIconLowFile>IconResLow.png</TMSWebPWAResIconLowFile>
-        <TMSWebHTMLFile>Project1.html</TMSWebHTMLFile>
+        <SanitizedProjectName>RutRace</SanitizedProjectName>
         <TMSPWAManifestFile>Manifest.json</TMSPWAManifestFile>
-        <SanitizedProjectName>Project1</SanitizedProjectName>
+        <TMSWebHTMLFile>RutRace.html</TMSWebHTMLFile>
+        <TMSWebPWAResIconLowFile>IconResLow.png</TMSWebPWAResIconLowFile>
         <TMSWebPWAServiceWorkerFile>serviceworker.js</TMSWebPWAServiceWorkerFile>
         <TMSWebPWAResIconMidFile>IconResMid.png</TMSWebPWAResIconMidFile>
         <TMSWebPWAResIconHighFile>IconResHigh.png</TMSWebPWAResIconHighFile>
@@ -92,6 +92,8 @@
         <DCC_RemoteDebug>false</DCC_RemoteDebug>
         <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
         <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Locale>1033</VerInfo_Locale>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">
         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
@@ -115,7 +117,7 @@
             <FormType>dfm</FormType>
             <DesignClass>TWebForm</DesignClass>
         </DCCReference>
-        <None Include="Project1.html"/>
+        <None Include="RutRace.html"/>
         <None Include="Manifest.json"/>
         <None Include="serviceworker.js"/>
         <RcItem Include="IconResHigh.png">
@@ -130,6 +132,7 @@
             <ResourceType>RCDATA</ResourceType>
             <ResourceId>PngImage_3</ResourceId>
         </RcItem>
+        <None Include="RutRace.css"/>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
@@ -148,8 +151,17 @@
         <BorlandProject>
             <Delphi.Personality>
                 <Source>
-                    <Source Name="MainSource">Project1.dpr</Source>
+                    <Source Name="MainSource">RutRace.dpr</Source>
                 </Source>
+                <Excluded_Packages>
+                    <Excluded_Packages Name="C:\Program Files (x86)\Steema Software\Steema TeeChart Standard VCL FMX 2022.35\Delphi26\Delphi26.win32\Bin\DclTee926.bpl">TeeChart Standard 2022 Components</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k260.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp260.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+                    <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl\TMSFNCCorePkgDEDXE12.bpl">TMS FNC Core for FMX/VCL Designtime</Excluded_Packages>
+                    <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl\TMSFNCChartPkgDEDXE12.bpl">TMS FNC Chart for FMX/VCL Designtime</Excluded_Packages>
+                    <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl\TMSFNCUIPackPkgDEDXE12.bpl">TMS FNC UI Pack for FMX/VCL Designtime</Excluded_Packages>
+                    <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl\TMSFNCWXPackPkgDEDXE12.bpl">TMS FNC WX Pack for FMX/VCL Designtime</Excluded_Packages>
+                </Excluded_Packages>
             </Delphi.Personality>
             <Deployment Version="3">
                 <DeployFile LocalName="IconResHigh.png" Configuration="Debug" Class="ProjectFile">
@@ -164,6 +176,12 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
+                <DeployFile LocalName="Untitled1.css" Configuration="Debug" Class="ProjectFile">
+                    <Platform Name="Win32">
+                        <RemoteDir>.\</RemoteDir>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployFile LocalName="serviceworker.js" Configuration="Debug" Class="ProjectFile">
                     <Platform Name="Win32">
                         <RemoteDir>.\</RemoteDir>
@@ -176,9 +194,9 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="Win32\Debug\Project1.exe" Configuration="Debug" Class="ProjectOutput">
+                <DeployFile LocalName="Win32\Debug\RutRace.exe" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Win32">
-                        <RemoteName>Project1.exe</RemoteName>
+                        <RemoteName>RutRace.exe</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>

diff --git a/RutRace.html b/RutRace.html
@@ -0,0 +1,47 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta http-equiv="Content-type" content="text/html; charset=utf-8" />
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+    <meta $(ThemeColor)>
+    <noscript>Your browser does not support JavaScript!</noscript>
+    <link rel="icon" sizes="192x192" href="IconResMid.png">
+    <link rel="apple-touch-icon" href="IconResMid.png">
+    <script type="text/javascript" src="serviceworker.js"></script>
+    <meta $(Manifest)>
+    <link $(FavIcon)/>
+    <title>TMS Web Project</title>
+    <script type="text/javascript" src="$(ProjectName).js"></script>
+
+
+
+    <!-- HackTimer -->
+    <script src="https://cdn.jsdelivr.net/npm/hacktimer@latest/HackTimer.silent.min.js"></script>
+    <script src="https://cdn.jsdelivr.net/npm/hacktimer@latest/HackTimerWorker.min.js"></script>
+
+    <!-- Google's Cairo Font -->
+    <link href="https://fonts.googleapis.com" rel="preconnect"/>
+    <link crossorigin href="https://fonts.gstatic.com" rel="preconnect"/>
+    <link href="https://fonts.googleapis.com/css2?family=Cairo&amp;display=swap" rel="stylesheet" crossorigin="anonymous">
+
+    <!-- Bootstrap 5 -->
+    <link href="https://cdn.jsdelivr.net/npm/bootstrap@5.3.0-alpha2/dist/css/bootstrap.min.css" rel="stylesheet" crossorigin="anonymous">
+    <script src="https://cdn.jsdelivr.net/npm/bootstrap@5.3.0-alpha2/dist/js/bootstrap.bundle.min.js" crossorigin="anonymous"></script>
+
+    <!-- Font Awesome 6 Free -->
+    <!-- <link rel="stylesheet" href="https://cdn.jsdelivr.net/npm/@fortawesome/fontawesome-free@6.2.1/css/all.min.css" integrity="sha256-Z1K5uhUaJXA7Ll0XrZ/0JhX4lAtZFpT6jkKrEDT0drU=" crossorigin="anonymous"> -->
+
+    <!-- Font Awesome 6 Pro -->
+    <script async crossorigin="anonymous" src="https://kit.fontawesome.com/24746b3b71.js"></script>
+
+
+    <style>
+    </style>
+  </head>
+  <body>
+<meta $(BodyParameters)>
+  </body>
+  <script type="text/javascript">
+    rtl.run();
+  </script>
+</html>
diff --git a/Unit1.dfm b/Unit1.dfm
@@ -1,13 +1,25 @@
 object Form1: TForm1
   Width = 640
   Height = 672
+  CSSLibrary = cssBootstrap
+  ElementFont = efCSS
   object WebLabel1: TWebLabel
     Left = 176
     Top = 72
     Width = 44
     Height = 13
     Caption = 'Rut Race'
+    ElementFont = efCSS
     HeightPercent = 100.000000000000000000
     WidthPercent = 100.000000000000000000
   end
+  object WebHTMLDiv1: TWebHTMLDiv
+    Left = 176
+    Top = 120
+    Width = 297
+    Height = 113
+    ChildOrder = 1
+    ElementFont = efCSS
+    Role = ''
+  end
 end
diff --git a/Unit1.pas b/Unit1.pas
@@ -4,11 +4,13 @@ interface
 
 uses
   System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,
-  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, Vcl.StdCtrls, WEBLib.StdCtrls;
+  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, Vcl.StdCtrls, WEBLib.StdCtrls,
+  WEBLib.WebCtrls;
 
 type
   TForm1 = class(TWebForm)
     WebLabel1: TWebLabel;
+    WebHTMLDiv1: TWebHTMLDiv;
   private
     { Private declarations }
   public