diff --git a/Project1.html b/Project1.html
deleted file mode 100644
index be30bd9..0000000
--- a/Project1.html
+++ /dev/null
@@ -1,24 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
- TMS Web Project
-
-
-
-
-
-
-
-
\ No newline at end of file
diff --git a/RutRace.css b/RutRace.css
new file mode 100644
index 0000000..7c37f0b
--- /dev/null
+++ b/RutRace.css
@@ -0,0 +1,4 @@
+html,
+body {
+ font-family: Cairo;
+}
diff --git a/Project1.dpr b/RutRace.dpr
similarity index 93%
rename from Project1.dpr
rename to RutRace.dpr
index 215a592..cab607b 100644
--- a/Project1.dpr
+++ b/RutRace.dpr
@@ -1,4 +1,4 @@
-program Project1;
+program RutRace;
{$R *.dres}
diff --git a/Project1.dproj b/RutRace.dproj
similarity index 95%
rename from Project1.dproj
rename to RutRace.dproj
index 311cce1..8f60f2c 100644
--- a/Project1.dproj
+++ b/RutRace.dproj
@@ -3,7 +3,7 @@
{AF017F5B-5504-4557-9F63-BC34AE8CB544}
18.7
VCL
- Project1.dpr
+ RutRace.dpr
True
Debug
Win32
@@ -58,10 +58,10 @@
2
$(BDS)\bin\delphi_PROJECTICON.ico
$(BDS)\bin\delphi_PROJECTICNS.icns
- IconResLow.png
- Project1.html
+ RutRace
Manifest.json
- Project1
+ RutRace.html
+ IconResLow.png
serviceworker.js
IconResMid.png
IconResHigh.png
@@ -92,6 +92,8 @@
false
true
PerMonitorV2
+ true
+ 1033
false
@@ -115,7 +117,7 @@
dfm
TWebForm
-
+
@@ -130,6 +132,7 @@
RCDATA
PngImage_3
+
Cfg_2
Base
@@ -148,8 +151,17 @@
- Project1.dpr
+ RutRace.dpr
+
+ TeeChart Standard 2022 Components
+ Microsoft Office 2000 Sample Automation Server Wrapper Components
+ Microsoft Office XP Sample Automation Server Wrapper Components
+ TMS FNC Core for FMX/VCL Designtime
+ TMS FNC Chart for FMX/VCL Designtime
+ TMS FNC UI Pack for FMX/VCL Designtime
+ TMS FNC WX Pack for FMX/VCL Designtime
+
@@ -164,6 +176,12 @@
true
+
+
+ .\
+ true
+
+
.\
@@ -176,9 +194,9 @@
true
-
+
- Project1.exe
+ RutRace.exe
true
diff --git a/RutRace.html b/RutRace.html
new file mode 100644
index 0000000..423ffc4
--- /dev/null
+++ b/RutRace.html
@@ -0,0 +1,47 @@
+
+
+
+
+
+
+
+
+
+
+
+
+ TMS Web Project
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Unit1.dfm b/Unit1.dfm
index c9b5b12..64da052 100644
--- 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
index b6d451c..10d29b2 100644
--- 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