Skip to content

E
EMSystemsWeb
Commit 95b15d71 by Mac Stephens
Options

test to see if Elias can compile

parent 1f204a88
Showing with 504 additions and 1687 deletions
emSystemsWeb/EMSystemsWebsite.dpr
...@@ -12,7 +12,10 @@ uses ...@@ -12,7 +12,10 @@ uses
View.AboutUs in 'View.AboutUs.pas' {FAboutUs: TWebForm} {*.html}, View.AboutUs in 'View.AboutUs.pas' {FAboutUs: TWebForm} {*.html},
View.ContactUs in 'View.ContactUs.pas' {FContactUs: TWebForm} {*.html}, View.ContactUs in 'View.ContactUs.pas' {FContactUs: TWebForm} {*.html},
Utils in 'Utils.pas', Utils in 'Utils.pas',
ConnectionModule in 'ConnectionModule.pas' {DMConnection: TWebDataModule}; ConnectionModule in 'ConnectionModule.pas' {DMConnection: TWebDataModule},
View.RequestDemo in 'View.RequestDemo.pas' {FRequestDemo: TWebForm} {*.html},
Site.Footer in 'Site.Footer.pas',
Site.Navbar in 'Site.Navbar.pas';
{$R *.res} {$R *.res}
......
emSystemsWeb/Index.html
<html><head> <html lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<meta content="width=device-width, initial-scale=1" name="viewport"/> <meta content="width=device-width, initial-scale=1" name="viewport"/>
<noscript>Your browser does not support JavaScript!</noscript> <noscript>Your browser does not support JavaScript!</noscript>
<link href="data:;base64,=" rel="icon"/> <link href="data:;base64,=" rel="icon"/>
<title>EM Systems</title> <title>EM Systems</title>
<link href="https://cdnjs.cloudflare.com/ajax/libs/flag-icon-css/2.3.1/css/flag-icon.min.css" rel="stylesheet"/> <link href="https://cdnjs.cloudflare.com/ajax/libs/flag-icon-css/2.3.1/css/flag-icon.min.css" rel="stylesheet"/>
<link href="https://fonts.googleapis.com/icon?family=Material+Icons" rel="stylesheet"/> <link href="https://fonts.googleapis.com/icon?family=Material+Icons" rel="stylesheet"/>
<link href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.15.0/css/all.min.css" rel="stylesheet"/> <link href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.15.0/css/all.min.css" rel="stylesheet"/>
<link crossorigin="anonymous" href="https://cdn.jsdelivr.net/npm/bootstrap@5.0.1/dist/css/bootstrap.min.css" rel="stylesheet"/>
<script src="https://cdn.jsdelivr.net/npm/bootstrap@5.0.1/dist/js/bootstrap.bundle.min.js" type="text/javascript"></script> <link crossorigin="anonymous" href="https://cdn.jsdelivr.net/npm/bootstrap@5.3.8/dist/css/bootstrap.min.css" rel="stylesheet"/>
<script src="https://cdn.jsdelivr.net/npm/bootstrap@5.3.8/dist/js/bootstrap.bundle.min.js" type="text/javascript"></script>
<script async="async" defer="defer" src="https://www.google.com/recaptcha/api.js"></script> <script async="async" defer="defer" src="https://www.google.com/recaptcha/api.js"></script>
<link href="css/App.css" rel="stylesheet" type="text/css"/> <link href="css/App.css" rel="stylesheet" type="text/css"/>
<link href="css/spinner.css" rel="stylesheet" type="text/css"> <link href="css/spinner.css" rel="stylesheet" type="text/css"/>
<script src="$(ProjectName).js" type="text/javascript"></script> <script src="$(ProjectName).js" type="text/javascript"></script>
<style> </head>
</style>
<link href="css/spinner.css" rel="stylesheet"/></head>
<body> <body>
<script type="text/javascript">rtl.run();</script> <script type="text/javascript">rtl.run();</script>
</body></html> </body>
</html>
emSystemsWeb/Site.Footer.pas 0 → 100644
unit Site.Footer;
interface
uses
System.SysUtils, WEBLib.WebTools, WEBLib.Controls, JS, Web;
procedure InjectFooter;
procedure SetFooterVersion(const versionText: string);
implementation
const
// Note: keep this in ONE place. Edit footer here, all pages update.
FooterHtml =
'<footer class="bg-dark text-light">' +
' <div class="container-main py-4">' +
' <div class="row gy-3 align-items-start text-center text-lg-start">' +
' <div class="col-lg-4 d-flex justify-content-center justify-content-lg-start">' +
' <a href="#FHome" class="navbar-brand m-0">' +
' <img src="images/EM_Logo_2c66a0.png" alt="EM_Logo" style="height: 30px;">' +
' </a>' +
' </div>' +
' <div class="col-lg-4">' +
' <div class="h6 mb-2">Explore</div>' +
' <ul class="list-unstyled mb-0 small">' +
' <li class="mb-1"><a href="#FHome" id="homefooter" class="link-light text-decoration-none">Home</a></li>' +
' <li class="mb-1"><a href="#FAboutUs" id="aboutusfooter" class="link-light text-decoration-none">About Us</a></li>' +
' <li><a href="#FContactUs" id="contactusfooter" class="link-light text-decoration-none">Contact Us</a></li>' +
' </ul>' +
' </div>' +
' <div class="col-lg-4">' +
' <address class="mb-0 small opacity-75">' +
' 4043 Maple Rd, Suite 211<br>' +
' Amherst, NY 14226<br>' +
' (716) 836-4910' +
' </address>' +
' </div>' +
' </div>' +
' <div class="border-top border-secondary mt-3 pt-3">' +
' <div class="d-flex flex-column flex-sm-row justify-content-center align-items-center gap-2 text-center small opacity-75">' +
' <div> 2011-2026 EM Systems Inc</div>' +
' <span class="d-none d-sm-inline"></span>' +
' <span id="lbl_version"></span>' +
' </div>' +
' </div>' +
' </div>' +
'</footer>';
procedure InjectFooter;
var
el: TJSHTMLElement;
begin
el := TJSHTMLElement(document.getElementById('site_footer'));
if Assigned(el) then
el.innerHTML := FooterHtml;
end;
procedure SetFooterVersion(const versionText: string);
var
el: TJSHTMLElement;
begin
el := TJSHTMLElement(document.getElementById('lbl_version'));
if Assigned(el) then
el.textContent := versionText;
end;
end.
emSystemsWeb/Site.Navbar.pas 0 → 100644
unit Site.Navbar;
interface
procedure InjectNavbar;
implementation
uses
JS, Web;
const
NavbarHtml =
'<div class="em-navbar-wrap">' +
' <nav class="navbar navbar-expand-lg navbar-dark bg-dark fixed-top shadow py-1 py-lg-2">' +
' <div class="container-fluid container-main">' +
' <a class="navbar-brand em-brand" href="#FHome">' +
' <img src="images/EM_Logo_2c66a0.png" alt="EM_Logo" style="max-height: 50px;">' +
' </a>' +
' <button class="navbar-toggler navbar-toggler-sm" type="button" data-bs-toggle="collapse" data-bs-target="#navbarNav"' +
' aria-controls="navbarNav" aria-expanded="false" aria-label="Toggle navigation">' +
' <span class="navbar-toggler-icon"></span>' +
' </button>' +
' <div class="collapse navbar-collapse" id="navbarNav">' +
' <ul class="navbar-nav ms-auto">' +
' <li class="nav-item"><a class="nav-link" href="#FHome">Home</a></li>' +
' <li class="nav-item"><a class="nav-link" href="#FAboutUs">About Us</a></li>' +
' <li class="nav-item dropdown">' +
' <a class="nav-link dropdown-toggle" href="#" role="button" data-bs-toggle="dropdown" aria-expanded="false">What We Do</a>' +
' <ul class="dropdown-menu">' +
' <li><a class="dropdown-item" href="#FCustomSoftware">Custom Software</a></li>' +
' <li><a class="dropdown-item" href="#FPublicSafety">Public Safety</a></li>' +
' <li><a class="dropdown-item" href="#FRecordsManagement">Records Management</a></li>' +
' </ul>' +
' </li>' +
' <li class="nav-item"><a class="nav-link" href="#FContactUs">Contact Us</a></li>' +
' </ul>' +
' </div>' +
' </div>' +
' </nav>' +
'</div>';
procedure InjectNavbar;
var
el: TJSHTMLElement;
begin
el := TJSHTMLElement(document.getElementById('site_nav'));
if Assigned(el) then
el.innerHTML := NavbarHtml;
end;
end.
emSystemsWeb/View.AboutUs.dfm
object FAboutUs: TFAboutUs object FAboutUs: TFAboutUs
Width = 1058 Width = 1058
Height = 730 Height = 730
CSSLibrary = cssBootstrap
ElementFont = efCSS
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -11 Font.Height = -11
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
OnClose = WebFormClose OnShow = WebFormShow
object btnHome: TWebButton
Left = 208
Top = 105
Width = 100
Height = 25
Caption = 'HOME'
ElementID = 'home'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnHomeClick
end
object btnAboutUs: TWebButton
Left = 66
Top = 149
Width = 100
Height = 25
Caption = 'ABOUT US'
ElementID = 'aboutus'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnAboutUsClick
end
object btnContactUs: TWebButton
Left = 70
Top = 105
Width = 100
Height = 25
Caption = 'CONTACT US'
ElementID = 'contactus'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnContactUsClick
end
object btnPublicSafety: TWebButton
Left = 214
Top = 145
Width = 100
Height = 25
Caption = 'Public Safety'
ElementID = 'publicsafety'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnPublicSafetyClick
end
object btnRecordsManagement: TWebButton
Left = 338
Top = 145
Width = 100
Height = 25
Caption = 'Records Management'
ElementID = 'recordsmanagement'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnRecordsManagementClick
end
object btnCustomSoftware: TWebButton
Left = 338
Top = 105
Width = 100
Height = 25
Caption = 'Custom Software'
ElementID = 'customsoftware'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnCustomSoftwareClick
end
object btnAboutUsFooter: TWebButton
Left = 66
Top = 197
Width = 100
Height = 25
Caption = 'About Us'
ElementID = 'aboutusfooter'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnAboutUsClick
end
object btnHomeFooter: TWebButton
Left = 335
Top = 197
Width = 100
Height = 25
Caption = 'Home'
ElementID = 'homefooter'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnHomeClick
end
object btnContactUsFooter: TWebButton
Left = 214
Top = 197
Width = 100
Height = 25
Caption = 'Contact Us'
ElementID = 'contactusfooter'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnContactUsClick
end
end end
emSystemsWeb/View.AboutUs.html
<div class="d-flex flex-column min-vh-100 justify-content-center"> <div id="site_nav"></div>
<!--NAVBAR CONTAINER-->
<div class="em-navbar-wrap">
<nav class="navbar navbar-expand-lg navbar-dark bg-dark fixed-top shadow">
<div class="container-fluid container-main">
<a class="navbar-brand em-brand" href="#FHome">
<img src="images\EM_Logo_2c66a0.png" alt="EM_Logo" style="max-height: 50px;">
</a>
<button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbarNav"
aria-controls="navbarNav" aria-expanded="false" aria-label="Toggle navigation">
<span class="navbar-toggler-icon"></span>
</button>
<div class="collapse navbar-collapse" id="navbarNav">
<ul class="navbar-nav ms-auto">
<li class="nav-item">
<a class="nav-link" id="homenav" href="#FHome">Home</a>
</li>
<li class="nav-item">
<a class="nav-link" id="aboutusnav" href="#FAboutUs">About Us</a>
</li>
<li class="nav-item dropdown">
<a class="nav-link dropdown-toggle" href="#" id="navbarDropdown" role="button" data-bs-toggle="dropdown"
aria-expanded="false">
What We Do
</a>
<ul class="dropdown-menu" aria-labelledby="navbarDropdown">
<li><a class="dropdown-item" id="customsoftwarenav" href="#FCustomSoftware">Custom Software</a></li>
<li><a class="dropdown-item" id="publicsafetynav" href="#FPublicSafety">Public Safety</a></li>
<li><a class="dropdown-item" id="recordsmanagementnav" href="#FRecordsManagement">Records Management</a>
</li>
</ul>
</li>
<li class="nav-item">
<a class="nav-link" id="contactusnav" href="#FContactUs">Contact Us</a>
</li>
</ul>
</div>
</div>
</nav>
</div>
<!--MAIN CONTAINER-->
<div class="container-fluid px-0"> <div class="container-fluid px-0">
<div class="hero-section-aboutus bg-dark text-white text-center"> <div class="hero-section-aboutus bg-dark text-white text-center">
<img src="images/niagara.jpg" alt="Our Story Image" class="img-fluid hero-image-aboutus"> <img src="images/niagara.jpg" alt="Our Story Image" class="img-fluid hero-image-aboutus">
<div class="hero-overlay-aboutus"> <div class="hero-overlay-aboutus">
...@@ -68,43 +27,7 @@ ...@@ -68,43 +27,7 @@
</div> </div>
</div> </div>
</div> </div>
</div> </div>
<!-- FOOTER --> <div id="site_footer"></div>
<footer class="bg-dark text-light">
<div class="container-main">
<div class="row text-center text-lg-start">
<!-- Logo Column -->
<div class="col-lg-4 col-md-4 mb-4 mb-md-0 d-flex justify-content-lg-start justify-content-center">
<a href="#FHome" class="navbar-brand">
<img src="images/EM_Logo_2c66a0.png" alt="EM_Logo" style="max-height: 30px">
</a>
</div>
<div class="col-lg-4 col-md-4 mb-4 mb-md-0">
<div>
<h5>Explore</h5>
<ul class="list-unstyled mb-0">
<li><a href="#FHome" id="homefooter">Home</a></li>
<li><a href="#FAboutUs" id="aboutusfooter">About Us</a></li>
<li><a href="#FContactUs" id="contactusfooter">Contact Us</a></li>
</ul>
</div>
</div>
<div class="col-lg-4 col-md-4 mb-4 mb-md-0">
<div>
<address>
4043 Maple Rd, Suite 211<br>
Amherst, NY 14226<br>
(716) 836-4910
</address>
</div>
</div>
</div>
</div>
<div class="footer-copyright">
© 2011-2024 EM Systems Inc
</div>
</footer>
</div>
\ No newline at end of file
emSystemsWeb/View.AboutUs.pas
...@@ -9,25 +9,8 @@ uses ...@@ -9,25 +9,8 @@ uses
type type
TFAboutUs = class(TWebForm) TFAboutUs = class(TWebForm)
btnHome: TWebButton;
btnAboutUs: TWebButton;
btnContactUs: TWebButton;
btnRecordsManagement: TWebButton;
btnCustomSoftware: TWebButton;
btnAboutUsFooter: TWebButton;
btnHomeFooter: TWebButton;
btnContactUsFooter: TWebButton;
btnPublicSafety: TWebButton;
procedure btnHomeClick(Sender: TObject);
procedure btnAboutUsClick(Sender: TObject);
procedure btnContactUsClick(Sender: TObject);
procedure btnRecordsManagementClick(Sender: TObject);
procedure btnCustomSoftwareClick(Sender: TObject);
procedure btnPublicSafetyClick(Sender: TObject);
[async] [async]
procedure WebFormCreate(Sender: TObject); procedure WebFormShow(Sender: TObject);
procedure WebFormClose(Sender: TObject; var Action: TCloseAction);
private private
{ Private declarations } { Private declarations }
public public
...@@ -46,51 +29,22 @@ View.Home, ...@@ -46,51 +29,22 @@ View.Home,
View.ContactUs, View.ContactUs,
View.CustomSoftware, View.CustomSoftware,
View.PublicSafety, View.PublicSafety,
Site.Navbar,
Site.Footer,
ConnectionModule,
View.RecordsManagement; View.RecordsManagement;
procedure TFAboutUs.btnCustomSoftwareClick(Sender: TObject); procedure TFAboutUs.WebFormShow(Sender: TObject);
begin
Close;
Application.CreateForm(TFCustomSoftware, FCustomSoftware);
end;
procedure TFAboutUs.btnRecordsManagementClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFRecordsManagement, FRecordsManagement);
end;
procedure TFAboutUs.btnPublicSafetyClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFPublicSafety, FPublicSafety);
end;
procedure TFAboutUs.btnContactUsClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFContactUs, FContactUs);
end;
procedure TFAboutUs.btnAboutUsClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFAboutUs, FAboutUs);
end;
procedure TFAboutUs.btnHomeClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFHome, FHome);
end;
procedure TFAboutUs.WebFormCreate(Sender: TObject);
begin begin
Application.ThemeColor := clTMSWEB; Application.ThemeColor := clTMSWEB;
InjectNavbar;
InjectFooter;
SetFooterVersion('ver - ' + TDMConnection.clientVersion);
NavScrollSizing; NavScrollSizing;
end; end;
procedure TFAboutUs.NavScrollSizing; procedure TFAboutUs.NavScrollSizing;
begin begin
asm asm
...@@ -110,10 +64,6 @@ begin ...@@ -110,10 +64,6 @@ begin
end; end;
end; end;
procedure TFAboutUs.WebFormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
initialization initialization
RegisterClass(TFAboutUs); RegisterClass(TFAboutUs);
......
emSystemsWeb/View.ContactUs.dfm
object FContactUs: TFContactUs object FContactUs: TFContactUs
Width = 930 Width = 930
Height = 802 Height = 802
CSSLibrary = cssBootstrap
ElementFont = efCSS
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -11 Font.Height = -11
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
OnClose = WebFormClose OnShow = WebFormShow
OnCreate = WebFormCreate
object btnAboutUsFooter: TWebButton
Left = 170
Top = 74
Width = 100
Height = 25
Caption = 'About Us'
ElementID = 'aboutusfooter'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'null'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnAboutUsClick
end
object btnHomeFooter: TWebButton
Left = 492
Top = 105
Width = 100
Height = 25
Caption = 'Home'
ElementID = 'homefooter'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'null'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnHomeClick
end
object btnContactUsFooter: TWebButton
Left = 509
Top = 136
Width = 100
Height = 25
Caption = 'Contact Us'
ElementID = 'contactusfooter'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'null'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnContactUsClick
end
object btnAboutUs: TWebButton
Left = 174
Top = 101
Width = 100
Height = 25
Caption = 'ABOUT US'
ElementID = 'aboutusnav'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'null'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnAboutUsClick
end
object btnContactUs: TWebButton
Left = 488
Top = 74
Width = 100
Height = 25
Caption = 'CONTACT US'
ElementID = 'contactusnav'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'null'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnContactUsClick
end
object btnPublicSafety: TWebButton
Left = 280
Top = 105
Width = 100
Height = 25
Caption = 'Public Safety'
ElementID = 'publicsafetynav'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'null'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnPublicSafetyClick
end
object btnHome: TWebButton
Left = 382
Top = 74
Width = 100
Height = 25
Caption = 'HOME'
ElementID = 'homenav'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'null'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnHomeClick
end
object btnRecordsManagement: TWebButton
Left = 386
Top = 105
Width = 100
Height = 25
Caption = 'Records Management'
ElementID = 'recordsmanagementnav'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'null'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnRecordsManagementClick
end
object btnCustomSoftware: TWebButton
Left = 276
Top = 74
Width = 100
Height = 25
Caption = 'Custom Software'
ElementID = 'customsoftwarenav'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'null'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnCustomSoftwareClick
end
object edtName: TWebEdit object edtName: TWebEdit
Left = 24 Left = 24
Top = 40 Top = 40
...@@ -180,8 +50,8 @@ object FContactUs: TFContactUs ...@@ -180,8 +50,8 @@ object FContactUs: TFContactUs
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
end end
object memoMessage: TWebMemo object memoMessage: TWebMemo
Left = 24 Left = 28
Top = 155 Top = 151
Width = 464 Width = 464
Height = 303 Height = 303
TabStop = False TabStop = False
......
emSystemsWeb/View.ContactUs.html
<div class="d-flex flex-column min-vh-100"> <div class="d-flex flex-column min-vh-100">
<!--NAVBAR CONTAINER--> <div id="site_nav"></div>
<div class="em-navbar-wrap">
<nav class="navbar navbar-expand-lg navbar-dark bg-dark fixed-top shadow">
<div class="container-fluid container-main">
<a class="navbar-brand em-brand" href="#FHome">
<img src="images/EM_Logo_2c66a0.png" alt="EM_Logo" style="max-height: 50px;">
</a>
<button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbarNav"
aria-controls="navbarNav" aria-expanded="false" aria-label="Toggle navigation">
<span class="navbar-toggler-icon"></span>
</button>
<div class="collapse navbar-collapse" id="navbarNav">
<ul class="navbar-nav ms-auto">
<li class="nav-item">
<a class="nav-link" id="homenav" href="#FHome">Home</a>
</li>
<li class="nav-item">
<a class="nav-link" id="aboutusnav" href="#FAboutUs">About Us</a>
</li>
<li class="nav-item dropdown">
<a class="nav-link dropdown-toggle" href="#" id="navbarDropdown" role="button" data-bs-toggle="dropdown"
aria-expanded="false">
What We Do
</a>
<ul class="dropdown-menu" aria-labelledby="navbarDropdown">
<li><a class="dropdown-item" id="customsoftwarenav" href="#FCustomSoftware">Custom Software</a></li>
<li><a class="dropdown-item" id="publicsafetynav" href="#FPublicSafety">Public Safety</a></li>
<li><a class="dropdown-item" id="recordsmanagementnav" href="#FRecordsManagement">Records Management</a></li>
</ul>
</li>
<li class="nav-item">
<a class="nav-link" id="contactusnav" href="#FContactUs">Contact Us</a>
</li>
</ul>
</div>
</div>
</nav>
</div>
<!--CONTACT FORM CONTAINER--> <!-- CONTACT US SECTION -->
<div class="container flex-grow-1 d-flex flex-column justify-content-center py-5 mt-5 mt-md-5 mt-lg-0"> <main class="container pt-5 mt-5 flex-grow-1">
<div class="row mx-4"> <div class="row g-4">
<div class="col-lg-6"> <div class="col-lg-6">
<h2 class="mb-4">Contact Us</h2> <h2 class="mb-3">Contact Us</h2>
<hr> <hr class="mb-4">
<form> <form>
<div class="mb-3"> <div class="mb-3">
<label for="name" class="form-label">Name*</label> <label for="name" class="form-label">Name*</label>
<input type="text" class="form-control" id="name" required> <input type="text" class="form-control" id="name" required>
</div> </div>
<div class="mb-3"> <div class="mb-3">
<label for="email" class="form-label">Email*</label> <label for="email" class="form-label">Email*</label>
<input type="email" class="form-control" id="email" required> <input type="email" class="form-control" id="email" required>
</div> </div>
<div class="mb-3"> <div class="mb-3">
<label for="subject" class="form-label">Subject*</label> <label for="subject" class="form-label">Subject*</label>
<input type="text" class="form-control" id="subject" required> <input type="text" class="form-control" id="subject" required>
</div> </div>
<div class="mb-3"> <div class="mb-3">
<label for="message" class="form-label">Your Message*</label> <label for="message" class="form-label">Your Message*</label>
<textarea class="form-control" id="message" rows="3" required></textarea> <textarea class="form-control" id="message" rows="4" required></textarea>
</div> </div>
<button type="submit" class="btn btn-primary" id="submit">Submit</button> <button type="submit" class="btn btn-primary" id="submit">Submit</button>
</form> </form>
<div id="card_status_message" class="alert mt-3 d-none" role="alert"></div>
</div> </div>
<div id="card_status_message" class="mt-3" role="alert" style="display: none;"></div>
<div class="col-lg-6"> <div class="col-lg-6">
<h2 class="mb-4">EM Systems Inc.</h2> <h2 class="mb-3">EM Systems Inc.</h2>
<hr> <hr class="mb-4">
<p>4043 Maple Rd, Suite 211 | Amherst, NY 14226</p>
<p><strong>Phone:</strong> (716) 836-4910</p>
<iframe src="https://www.google.com/maps/embed?pb=!1m14!1m8!1m3!1d11673.673539086676!2d-78.8117081!3d42.990524!3m2!1i1024!2i768!4f13.1!3m3!1m2!1s0x89d37240e1804e2f%3A0xce8f13b6c4c68386!2sE%20M%20Systems%20Inc!5e0!3m2!1sen!2sus!4v1714072248166!5m2!1sen!2sus"
width="100%" height="450" style="border:0;" allowfullscreen="" loading="lazy"
referrerpolicy="no-referrer-when-downgrade"></iframe>
</div>
</div>
</div>
<!-- FOOTER --> <p class="mb-1">4043 Maple Rd, Suite 211 | Amherst, NY 14226</p>
<footer class="bg-dark text-light mt-auto"> <p class="mb-3"><strong>Phone:</strong> (716) 836-4910</p>
<div class="container-main">
<div class="row text-center text-lg-start"> <div class="ratio ratio-4x3 shadow-sm rounded overflow-hidden">
<!-- Logo Column --> <iframe
<div class="col-lg-4 col-md-4 mb-4 mb-md-0 d-flex justify-content-lg-start justify-content-center"> src="https://www.google.com/maps/embed?pb=!1m14!1m8!1m3!1d11673.673539086676!2d-78.8117081!3d42.990524!3m2!1i1024!2i768!4f13.1!3m3!1m2!1s0x89d37240e1804e2f%3A0xce8f13b6c4c68386!2sE%20M%20Systems%20Inc!5e0!3m2!1sen!2sus!4v1714072248166!5m2!1sen!2sus"
<a href="#FHome" class="navbar-brand"> style="border:0;"
<img src="images/EM_Logo_2c66a0.png" alt="EM_Logo" style="max-height: 30px"> allowfullscreen=""
</a> loading="lazy"
</div> referrerpolicy="no-referrer-when-downgrade">
<div class="col-lg-4 col-md-4 mb-4 mb-md-0"> </iframe>
<div>
<h5>Explore</h5>
<ul class="list-unstyled mb-0">
<li><a href="#FHome" id="homefooter">Home</a></li>
<li><a href="#FAboutUs" id="aboutusfooter">About Us</a></li>
<li><a href="#FContactUs" id="contactusfooter">Contact Us</a></li>
</ul>
</div>
</div>
<div class="col-lg-4 col-md-4 mb-4 mb-md-0">
<div>
<address>
4043 Maple Rd, Suite 211<br>
Amherst, NY 14226<br>
(716) 836-4910
</address>
</div>
</div>
</div> </div>
</div> </div>
<div class="footer-copyright">
© 2011-2024 EM Systems Inc
</div> </div>
</footer> </main>
<div id="site_footer" class="mt-auto"></div>
</div> </div>
<div id="spinner" class="position-absolute top-50 start-50 translate-middle d-none" style="z-index: 1100;"> <div id="spinner" class="position-fixed top-50 start-50 translate-middle d-none" style="z-index: 1100;">
<div class="lds-roller"> <div class="lds-roller">
<div></div><div></div><div></div><div></div> <div></div><div></div><div></div><div></div>
<div></div><div></div><div></div><div></div> <div></div><div></div><div></div><div></div>
</div> </div>
</div> </div>
<div class="modal fade" id="contact_notification_modal" tabindex="-1" aria-labelledby="contact_notification_modal_label" aria-hidden="true">
<div class="modal fade" id="contact_notification_modal" tabindex="-1" aria-labelledby="main_lblmodal" aria-hidden="true">
<div class="modal-dialog"> <div class="modal-dialog">
<div class="modal-content shadow-lg"> <div class="modal-content shadow-lg">
<div class="modal-header"> <div class="modal-header">
<h5 class="modal-title" id="contact_notification_modal">Info</h5> <h5 class="modal-title" id="contact_notification_modal_label">Info</h5>
<button type="button" class="btn-close" data-bs-dismiss="modal" aria-label="Close"></button> <button type="button" class="btn-close" data-bs-dismiss="modal" aria-label="Close"></button>
</div> </div>
<div class="modal-body fs-6 fw-bold" id="contact_notification_modal_body"> <div class="modal-body fs-6 fw-bold" id="contact_notification_modal_body">
...@@ -138,3 +81,4 @@ ...@@ -138,3 +81,4 @@
</div> </div>
</div> </div>
</div> </div>
emSystemsWeb/View.ContactUs.pas
...@@ -14,31 +14,14 @@ uses ...@@ -14,31 +14,14 @@ uses
type type
TFContactUs = class(TWebForm) TFContactUs = class(TWebForm)
btnHome: TWebButton;
btnAboutUs: TWebButton;
btnContactUs: TWebButton;
btnRecordsManagement: TWebButton;
btnCustomSoftware: TWebButton;
btnAboutUsFooter: TWebButton;
btnHomeFooter: TWebButton;
btnContactUsFooter: TWebButton;
edtName: TWebEdit; edtName: TWebEdit;
edtEmail: TWebEdit; edtEmail: TWebEdit;
edtSubject: TWebEdit; edtSubject: TWebEdit;
memoMessage: TWebMemo; memoMessage: TWebMemo;
btnSubmit: TWebButton; btnSubmit: TWebButton;
btnPublicSafety: TWebButton;
xdwcEmail: TXDataWebClient; xdwcEmail: TXDataWebClient;
procedure btnHomeClick(Sender: TObject);
procedure btnAboutUsClick(Sender: TObject);
procedure btnContactUsClick(Sender: TObject);
procedure btnRecordsManagementClick(Sender: TObject);
procedure btnCustomSoftwareClick(Sender: TObject);
procedure btnPublicSafetyClick(Sender: TObject);
procedure btnSubmitClick(Sender: TObject); procedure btnSubmitClick(Sender: TObject);
procedure WebFormCreate(Sender: TObject); procedure WebFormShow(Sender: TObject);
procedure WebFormClose(Sender: TObject; var Action: TCloseAction);
procedure xdwcEmailError(Error: TXDataClientError); procedure xdwcEmailError(Error: TXDataClientError);
private private
{ Private declarations } { Private declarations }
...@@ -63,25 +46,24 @@ uses ...@@ -63,25 +46,24 @@ uses
View.PublicSafety, View.PublicSafety,
View.RecordsManagement, View.RecordsManagement,
View.CustomSoftware, View.CustomSoftware,
Site.Navbar,
Site.Footer,
View.AboutUs; View.AboutUs;
procedure TFContactUs.WebFormCreate(Sender: TObject); procedure TFContactUs.WebFormShow(Sender: TObject);
begin begin
Application.ThemeColor := clTMSWEB; Application.ThemeColor := clTMSWEB;
InjectNavbar;
InjectFooter;
SetFooterVersion('ver - ' + TDMConnection.clientVersion);
NavScrollSizing; NavScrollSizing;
end; end;
procedure TFContactUs.xdwcEmailError(Error: TXDataClientError); procedure TFContactUs.xdwcEmailError(Error: TXDataClientError);
begin begin
ShowNotificationModal('Error when attempting to send: ' + error.ErrorMessage); ShowNotificationModal('Error when attempting to send: ' + error.ErrorMessage);
end; end;
procedure TFContactUs.WebFormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TFContactUs.NavScrollSizing; procedure TFContactUs.NavScrollSizing;
begin begin
asm asm
...@@ -158,41 +140,7 @@ begin ...@@ -158,41 +140,7 @@ begin
end); end);
end; end;
procedure TFContactUs.btnHomeClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFHome, FHome);
end;
procedure TFContactUs.btnPublicSafetyClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFPublicSafety, FPublicSafety);
end;
procedure TFContactUs.btnRecordsManagementClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFRecordsManagement, FRecordsManagement);
end;
procedure TFContactUs.btnCustomSoftwareClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFCustomSoftware, FCustomSoftware);
end;
procedure TFContactUs.btnAboutUsClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFAboutUs, FAboutUs);
end;
procedure TFContactUs.btnContactUsClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFContactUs, FContactUs);
end;
initialization initialization
RegisterClass(TFContactUs); RegisterClass(TFContactUs);
......
emSystemsWeb/View.CustomSoftware.dfm
object FCustomSoftware: TFCustomSoftware object FCustomSoftware: TFCustomSoftware
Width = 640 Width = 640
Height = 480 Height = 480
CSSLibrary = cssBootstrap
ElementFont = efCSS
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -11 Font.Height = -11
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
OnClose = WebFormClose OnShow = WebFormShow
object btnHome: TWebButton
Left = 482
Top = 17
Width = 100
Height = 25
Caption = 'HOME'
ElementID = 'home'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnHomeClick
end
object btnAboutUs: TWebButton
Left = 364
Top = 17
Width = 100
Height = 25
Caption = 'ABOUT US'
ElementID = 'aboutus'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
end
object btnContactUs: TWebButton
Left = 246
Top = 17
Width = 100
Height = 25
Caption = 'CONTACT US'
ElementID = 'contactus'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
end
object btnPublicSafety: TWebButton
Left = 132
Top = 17
Width = 100
Height = 25
Caption = 'Public Safety'
ElementID = 'publicsafety'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
end
object btnRecordsManagement: TWebButton
Left = 18
Top = 59
Width = 100
Height = 25
Caption = 'Records Management'
ElementID = 'recordsmanagement'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
end
object btnCustomSoftware: TWebButton
Left = 18
Top = 17
Width = 100
Height = 25
Caption = 'Custom Software'
ElementID = 'customsoftware'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
end
object btnAboutUsFooter: TWebButton
Left = 132
Top = 59
Width = 100
Height = 25
Caption = 'About Us'
ElementID = 'aboutusfooter'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
end
object btnHomeFooter: TWebButton
Left = 362
Top = 59
Width = 100
Height = 25
Caption = 'Home'
ElementID = 'homefooter'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnHomeClick
end
object btnContactUsFooter: TWebButton
Left = 246
Top = 59
Width = 100
Height = 25
Caption = 'Contact Us'
ElementID = 'contactusfooter'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnContactUsClick
end
end end
emSystemsWeb/View.CustomSoftware.html
<!--NAVBAR CONTAINER--> <div id="site_nav"></div>
<div class="em-navbar-wrap">
<nav class="navbar navbar-expand-lg navbar-dark bg-dark fixed-top shadow">
<div class="container-fluid container-main">
<a class="navbar-brand em-brand" href="#FHome">
<img src="images\EM_Logo_2c66a0.png" alt="EM_Logo" style="max-height: 50px;">
</a>
<button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbarNav"
aria-controls="navbarNav" aria-expanded="false" aria-label="Toggle navigation">
<span class="navbar-toggler-icon"></span>
</button>
<div class="collapse navbar-collapse" id="navbarNav">
<ul class="navbar-nav ms-auto">
<li class="nav-item">
<a class="nav-link" id="homenav" href="#FHome">Home</a>
</li>
<li class="nav-item">
<a class="nav-link" id="aboutusnav" href="#FAboutUs">About Us</a>
</li>
<!-- Dropdown Menu for "What We Do" -->
<li class="nav-item dropdown">
<a class="nav-link dropdown-toggle" href="#" id="navbarDropdown" role="button"
data-bs-toggle="dropdown" aria-expanded="false">
What We Do
</a>
<ul class="dropdown-menu" aria-labelledby="navbarDropdown">
<li><a class="dropdown-item" id="customsoftwarenav" href="#FCustomSoftware">Custom
Software</a></li>
<li><a class="dropdown-item" id="publicsafetynav" href="#FPublicSafety">Public Safety</a>
</li>
<li><a class="dropdown-item" id="recordsmanagementnav" href="#FRecordsManagement">Records
Management</a>
</li>
</ul>
</li>
<!-- End Dropdown Menu -->
<li class="nav-item">
<a class="nav-link" id="contactusnav" href="#FContactUs">Contact Us</a>
</li>
</ul>
</div>
</div>
</nav>
</div>
<!-- HERO SECTION --> <!-- HERO SECTION -->
<div class="container-fluid px-0"> <div class="container-fluid px-0">
...@@ -106,38 +63,4 @@ ...@@ -106,38 +63,4 @@
</div> </div>
</div> </div>
<!-- FOOTER --> <div id="site_footer"></div>
<footer class="bg-dark text-light">
<div class="container-main">
<div class="row text-center text-lg-start">
<!-- Logo Column -->
<div class="col-lg-4 col-md-4 mb-4 mb-md-0 d-flex justify-content-lg-start justify-content-center">
<a href="#FHome" class="navbar-brand">
<img src="images/EM_Logo_2c66a0.png" alt="EM_Logo" style="max-height: 30px">
</a>
</div>
<div class="col-lg-4 col-md-4 mb-4 mb-md-0">
<div>
<h5>Explore</h5>
<ul class="list-unstyled mb-0">
<li><a href="#FHome" id="homefooter">Home</a></li>
<li><a href="#FAboutUs" id="aboutusfooter">About Us</a></li>
<li><a href="#FContactUs" id="contactusfooter">Contact Us</a></li>
</ul>
</div>
</div>
<div class="col-lg-4 col-md-4 mb-4 mb-md-0">
<div>
<address>
4043 Maple Rd, Suite 211<br>
Amherst, NY 14226<br>
(716) 836-4910
</address>
</div>
</div>
</div>
</div>
<div class="footer-copyright">
© 2011-2024 EM Systems Inc
</div>
</footer>
\ No newline at end of file
emSystemsWeb/View.CustomSoftware.pas
...@@ -9,25 +9,8 @@ uses ...@@ -9,25 +9,8 @@ uses
type type
TFCustomSoftware = class(TWebForm) TFCustomSoftware = class(TWebForm)
btnHome: TWebButton;
btnAboutUs: TWebButton;
btnContactUs: TWebButton;
btnRecordsManagement: TWebButton;
btnCustomSoftware: TWebButton;
btnAboutUsFooter: TWebButton;
btnHomeFooter: TWebButton;
btnContactUsFooter: TWebButton;
btnPublicSafety: TWebButton;
procedure btnHomeClick(Sender: TObject);
procedure btnAboutUsClick(Sender: TObject);
procedure btnContactUsClick(Sender: TObject);
procedure btnRecordsManagementClick(Sender: TObject);
procedure btnCustomSoftwareClick(Sender: TObject);
procedure btnPublicSafetyClick(Sender: TObject);
[async] [async]
procedure WebFormCreate(Sender: TObject); procedure WebFormShow(Sender: TObject);
procedure WebFormClose(Sender: TObject; var Action: TCloseAction);
private private
{ Private declarations } { Private declarations }
public public
...@@ -46,51 +29,21 @@ View.AboutUs, ...@@ -46,51 +29,21 @@ View.AboutUs,
View.ContactUs, View.ContactUs,
View.Home, View.Home,
View.PublicSafety, View.PublicSafety,
Site.Navbar,
Site.Footer,
ConnectionModule,
View.RecordsManagement; View.RecordsManagement;
procedure TFCustomSoftware.WebFormShow(Sender: TObject);
procedure TFCustomSoftware.btnCustomSoftwareClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFCustomSoftware, FCustomSoftware);
end;
procedure TFCustomSoftware.btnRecordsManagementClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFRecordsManagement, FRecordsManagement);
end;
procedure TFCustomSoftware.btnPublicSafetyClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFPublicSafety, FPublicSafety);
end;
procedure TFCustomSoftware.btnContactUsClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFContactUs, FContactUs);
end;
procedure TFCustomSoftware.btnAboutUsClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFAboutUs, FAboutUs);
end;
procedure TFCustomSoftware.btnHomeClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFHome, FHome);
end;
procedure TFCustomSoftware.WebFormCreate(Sender: TObject);
begin begin
Application.ThemeColor := clTMSWEB; Application.ThemeColor := clTMSWEB;
InjectNavbar;
InjectFooter;
SetFooterVersion('ver - ' + TDMConnection.clientVersion);
NavScrollSizing; NavScrollSizing;
end; end;
procedure TFCustomSoftware.NavScrollSizing; procedure TFCustomSoftware.NavScrollSizing;
begin begin
asm asm
...@@ -110,10 +63,7 @@ begin ...@@ -110,10 +63,7 @@ begin
end; end;
end; end;
procedure TFCustomSoftware.WebFormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
initialization initialization
RegisterClass(TFCustomSoftware); RegisterClass(TFCustomSoftware);
......
emSystemsWeb/View.Home.dfm
...@@ -9,99 +9,10 @@ object FHome: TFHome ...@@ -9,99 +9,10 @@ object FHome: TFHome
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
OnCreate = WebFormCreate OnShow = WebFormShow
object btnHome: TWebButton
Left = 173
Top = 141
Width = 100
Height = 25
Caption = 'HOME'
ElementID = 'homenav'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnHomeClick
end
object btnAboutUs: TWebButton
Left = 379
Top = 101
Width = 100
Height = 25
Caption = 'ABOUT US'
ElementID = 'aboutusnav'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnAboutUsClick
end
object btnCustomSoftware: TWebButton
Left = 345
Top = 163
Width = 100
Height = 25
Caption = 'Custom Software'
ElementID = 'customsoftwarenav'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnCustomSoftwareClick
end
object btnRecordsManagement: TWebButton
Left = 657
Top = 141
Width = 100
Height = 25
Caption = 'Records Management'
ElementID = 'recordsmanagementnav'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnRecordsManagementClick
end
object btnPublicSafety: TWebButton
Left = 527
Top = 123
Width = 100
Height = 25
Caption = 'Public Safety'
ElementID = 'publicsafetynav'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnPublicSafetyClick
end
object btnContactUs: TWebButton
Left = 789
Top = 123
Width = 100
Height = 25
Caption = 'CONTACT US'
ElementID = 'contactusnav'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnContactUsClick
end
object btnRecordsManagementLearn: TWebButton object btnRecordsManagementLearn: TWebButton
Left = 60 Left = 48
Top = 136 Top = 57
Width = 100 Width = 100
Height = 25 Height = 25
Caption = 'Learn More' Caption = 'Learn More'
...@@ -111,11 +22,10 @@ object FHome: TFHome ...@@ -111,11 +22,10 @@ object FHome: TFHome
Role = 'button' Role = 'button'
TabStop = False TabStop = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
OnClick = btnRecordsManagementClick
end end
object btnCustomSoftwareLearn: TWebButton object btnCustomSoftwareLearn: TWebButton
Left = 60 Left = 48
Top = 167 Top = 109
Width = 100 Width = 100
Height = 25 Height = 25
Caption = 'Learn More' Caption = 'Learn More'
...@@ -125,11 +35,10 @@ object FHome: TFHome ...@@ -125,11 +35,10 @@ object FHome: TFHome
Role = 'button' Role = 'button'
TabStop = False TabStop = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
OnClick = btnCustomSoftwareClick
end end
object btnPublicSafetyLearn: TWebButton object btnPublicSafetyLearn: TWebButton
Left = 56 Left = 48
Top = 198 Top = 158
Width = 100 Width = 100
Height = 25 Height = 25
Caption = 'Learn More' Caption = 'Learn More'
...@@ -139,48 +48,5 @@ object FHome: TFHome ...@@ -139,48 +48,5 @@ object FHome: TFHome
Role = 'button' Role = 'button'
TabStop = False TabStop = False
WidthPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000
OnClick = btnPublicSafetyClick
end
object btnAboutUsFooter: TWebButton
Left = 56
Top = 229
Width = 100
Height = 25
Caption = 'About Us'
ElementID = 'aboutusfooter'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnAboutUsClick
end
object btnHomeFooter: TWebButton
Left = 179
Top = 172
Width = 100
Height = 25
Caption = 'Home'
ElementID = 'homefooter'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'null'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnHomeClick
end
object btnContactUsFooter: TWebButton
Left = 311
Top = 57
Width = 100
Height = 25
Caption = 'Contact Us'
ElementID = 'contactusfooter'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'null'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnContactUsClick
end end
end end
emSystemsWeb/View.Home.html
<!--NAVBAR CONTAINER--> <div id="site_nav"></div>
<div class="em-navbar-wrap">
<nav class="navbar navbar-expand-lg navbar-dark bg-dark fixed-top shadow">
<div class="container-fluid container-main">
<a class="navbar-brand em-brand" href="#FHome">
<img src="images\EM_Logo_2c66a0.png" alt="EM_Logo" style="max-height: 50px;">
</a>
<button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbarNav"
aria-controls="navbarNav" aria-expanded="false" aria-label="Toggle navigation">
<span class="navbar-toggler-icon"></span>
</button>
<div class="collapse navbar-collapse" id="navbarNav">
<ul class="navbar-nav ms-auto">
<li class="nav-item">
<a class="nav-link" id="homenav" href="#FHome">Home</a>
</li>
<li class="nav-item">
<a class="nav-link" id="aboutusnav" href="#FAboutUs">About Us</a>
</li>
<li class="nav-item dropdown">
<a class="nav-link dropdown-toggle" href="#" id="navbarDropdown" role="button" data-bs-toggle="dropdown"
aria-expanded="false">
What We Do
</a>
<ul class="dropdown-menu" aria-labelledby="navbarDropdown">
<li><a class="dropdown-item" id="customsoftwarenav" href="#FCustomSoftware">Custom Software</a></li>
<li><a class="dropdown-item" id="publicsafetynav" href="#FPublicSafety">Public Safety</a></li>
<li><a class="dropdown-item" id="recordsmanagementnav" href="#FRecordsManagement">Records Management</a>
</li>
</ul>
</li>
<li class="nav-item">
<a class="nav-link" id="contactusnav" href="#FContactUs">Contact Us</a>
</li>
</ul>
</div>
</div>
</nav>
</div>
<!-- HERO SECTION --> <!-- HERO SECTION -->
<div class="container-fluid px-0"> <div class="container-fluid px-0">
...@@ -64,7 +26,6 @@ ...@@ -64,7 +26,6 @@
</div> </div>
</div> </div>
<!--MAIN CONTAINER--> <!--MAIN CONTAINER-->
<div class="container-main"> <div class="container-main">
<!-- LEARN BOXES --> <!-- LEARN BOXES -->
...@@ -108,38 +69,6 @@ ...@@ -108,38 +69,6 @@
</div> </div>
</div> </div>
<!-- FOOTER --> <div id="site_footer"></div>
<footer class="bg-dark text-light mt-5">
<div class="container-main py-4">
<div class="row gy-3 align-items-start text-center text-lg-start">
<div class="col-lg-4 d-flex justify-content-center justify-content-lg-start">
<a href="#FHome" class="navbar-brand m-0">
<img src="images/EM_Logo_2c66a0.png" alt="EM_Logo" style="height: 30px;">
</a>
</div>
<div class="col-lg-4">
<div class="h6 mb-2">Explore</div>
<ul class="list-unstyled mb-0 small">
<li class="mb-1"><a href="#FHome" id="homefooter" class="link-light text-decoration-none">Home</a></li>
<li class="mb-1"><a href="#FAboutUs" id="aboutusfooter" class="link-light text-decoration-none">About Us</a></li>
<li><a href="#FContactUs" id="contactusfooter" class="link-light text-decoration-none">Contact Us</a></li>
</ul>
</div>
<div class="col-lg-4">
<address class="mb-0 small opacity-75">
4043 Maple Rd, Suite 211<br>
Amherst, NY 14226<br>
(716) 836-4910
</address>
</div>
</div>
<div class="border-top border-secondary mt-3 pt-3 text-center small opacity-75">
© 2011-2026 EM Systems Inc
</div>
</div>
</footer>
emSystemsWeb/View.Home.pas
...@@ -9,27 +9,11 @@ uses ...@@ -9,27 +9,11 @@ uses
type type
TFHome = class(TWebForm) TFHome = class(TWebForm)
btnHome: TWebButton;
btnAboutUs: TWebButton;
btnContactUs: TWebButton;
btnCustomSoftware: TWebButton;
btnRecordsManagementLearn: TWebButton; btnRecordsManagementLearn: TWebButton;
btnCustomSoftwareLearn: TWebButton; btnCustomSoftwareLearn: TWebButton;
btnHomeFooter: TWebButton;
btnContactUsFooter: TWebButton;
btnAboutUsFooter: TWebButton;
btnPublicSafetyLearn: TWebButton; btnPublicSafetyLearn: TWebButton;
btnPublicSafety: TWebButton; procedure WebFormShow(Sender: TObject);
btnRecordsManagement: TWebButton;
[async] [async]
procedure WebFormCreate(Sender: TObject);
procedure btnHomeClick(Sender: TObject);
procedure btnAboutUsClick(Sender: TObject);
procedure btnContactUsClick(Sender: TObject);
procedure btnRecordsManagementClick(Sender: TObject);
procedure btnCustomSoftwareClick(Sender: TObject);
procedure btnPublicSafetyClick(Sender: TObject);
procedure WebFormClose(Sender: TObject; var Action: TCloseAction);
private private
{ Private declarations } { Private declarations }
public public
...@@ -48,53 +32,18 @@ View.AboutUs, ...@@ -48,53 +32,18 @@ View.AboutUs,
View.ContactUs, View.ContactUs,
View.CustomSoftware, View.CustomSoftware,
View.PublicSafety, View.PublicSafety,
ConnectionModule,
Site.Footer,
Site.Navbar,
View.RecordsManagement; View.RecordsManagement;
//Navbar
procedure TFHome.btnCustomSoftwareClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFCustomSoftware, FCustomSoftware);
end;
procedure TFHome.btnRecordsManagementClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFRecordsManagement, FRecordsManagement);
end;
procedure TFHome.btnPublicSafetyClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFPublicSafety, FPublicSafety);
end;
procedure TFHome.btnContactUsClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFContactUs, FContactUs);
end;
procedure TFHome.btnAboutUsClick(Sender: TObject); procedure TFHome.WebFormShow(Sender: TObject);
begin
Close;
Application.CreateForm(TFAboutUs, FAboutUs);
end;
procedure TFHome.btnHomeClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFHome, FHome);
end;
procedure TFHome.WebFormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TFHome.WebFormCreate(Sender: TObject);
begin begin
Application.ThemeColor := clTMSWEB; Application.ThemeColor := clTMSWEB;
InjectNavbar;
InjectFooter;
SetFooterVersion('ver - ' + TDMConnection.clientVersion);
NavScrollSizing; NavScrollSizing;
end; end;
...@@ -117,6 +66,7 @@ begin ...@@ -117,6 +66,7 @@ begin
end; end;
end; end;
initialization initialization
RegisterClass(TFHome); RegisterClass(TFHome);
......
emSystemsWeb/View.PublicSafety.dfm
object FPublicSafety: TFPublicSafety object FPublicSafety: TFPublicSafety
Width = 640 Width = 640
Height = 480 Height = 480
CSSLibrary = cssBootstrap
ElementFont = efCSS
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -11 Font.Height = -11
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
OnClose = WebFormClose OnShow = WebFormShow
object btnHome: TWebButton
Left = 368
Top = 23
Width = 100
Height = 25
Caption = 'HOME'
ElementID = 'home'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnHomeClick
end
object btnAboutUs: TWebButton
Left = 262
Top = 23
Width = 100
Height = 25
Caption = 'ABOUT US'
ElementID = 'aboutus'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnAboutUsClick
end
object btnContactUs: TWebButton
Left = 150
Top = 23
Width = 100
Height = 25
Caption = 'CONTACT US'
ElementID = 'contactus'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnContactUsClick
end
object btnPublicSafety: TWebButton
Left = 474
Top = 23
Width = 100
Height = 25
Caption = 'Public Safety'
ElementID = 'publicsafety'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnPublicSafetyClick
end
object btnRecordsManagement: TWebButton
Left = 40
Top = 54
Width = 100
Height = 25
Caption = 'Records Management'
ElementID = 'recordsmanagement'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnRecordsManagementClick
end
object btnCustomSoftware: TWebButton
Left = 40
Top = 23
Width = 100
Height = 25
Caption = 'Custom Software'
ElementID = 'customsoftware'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnCustomSoftwareClick
end
object btnAboutUsFooter: TWebButton
Left = 152
Top = 54
Width = 100
Height = 25
Caption = 'About Us'
ElementID = 'aboutusfooter'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
end
object btnHomeFooter: TWebButton
Left = 368
Top = 54
Width = 100
Height = 25
Caption = 'Home'
ElementID = 'homefooter'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnHomeClick
end
object btnContactUsFooter: TWebButton
Left = 262
Top = 54
Width = 100
Height = 25
Caption = 'Contact Us'
ElementID = 'contactusfooter'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnContactUsClick
end
end end
emSystemsWeb/View.PublicSafety.html
<!--NAVBAR CONTAINER--> <div id="site_nav"></div>
<div class="em-navbar-wrap">
<nav class="navbar navbar-expand-lg navbar-dark bg-dark fixed-top shadow">
<div class="container-fluid container-main">
<a class="navbar-brand em-brand" href="#FHome">
<img src="images\EM_Logo_2c66a0.png" alt="EM_Logo" style="max-height: 50px;">
</a>
<button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbarNav"
aria-controls="navbarNav" aria-expanded="false" aria-label="Toggle navigation">
<span class="navbar-toggler-icon"></span>
</button>
<div class="collapse navbar-collapse" id="navbarNav">
<ul class="navbar-nav ms-auto">
<li class="nav-item">
<a class="nav-link" id="homenav" href="#FHome">Home</a>
</li>
<li class="nav-item">
<a class="nav-link" id="aboutusnav" href="#FAboutUs">About Us</a>
</li>
<!-- Dropdown Menu for "What We Do" -->
<li class="nav-item dropdown">
<a class="nav-link dropdown-toggle" href="#" id="navbarDropdown" role="button" data-bs-toggle="dropdown"
aria-expanded="false">
What We Do
</a>
<ul class="dropdown-menu" aria-labelledby="navbarDropdown">
<li><a class="dropdown-item" id="customsoftwarenav" href="#FCustomSoftware">Custom
Software</a></li>
<li><a class="dropdown-item" id="publicsafetynav" href="#FPublicSafety">Public Safety</a>
</li>
<li><a class="dropdown-item" id="recordsmanagementnav" href="#FRecordsManagement">Records
Management</a>
</li>
</ul>
</li>
<!-- End Dropdown Menu -->
<li class="nav-item">
<a class="nav-link" id="contactusnav" href="#FContactUs">Contact Us</a>
</li>
</ul>
</div>
</div>
</nav>
</div>
<!-- HERO SECTION --> <!-- HERO SECTION -->
<div class="container-fluid px-0"> <div class="container-fluid px-0">
...@@ -247,38 +204,4 @@ ...@@ -247,38 +204,4 @@
</div> </div>
</div> </div>
<!-- FOOTER --> <div id="site_footer"></div>
<footer class="bg-dark text-light">
<div class="container-main">
<div class="row text-center text-lg-start">
<!-- Logo Column -->
<div class="col-lg-4 col-md-4 mb-4 mb-md-0 d-flex justify-content-lg-start justify-content-center">
<a href="#FHome" class="navbar-brand">
<img src="images/EM_Logo_2c66a0.png" alt="EM_Logo" style="max-height: 30px">
</a>
</div>
<div class="col-lg-4 col-md-4 mb-4 mb-md-0">
<div>
<h5>Explore</h5>
<ul class="list-unstyled mb-0">
<li><a href="#FHome" id="homefooter">Home</a></li>
<li><a href="#FAboutUs" id="aboutusfooter">About Us</a></li>
<li><a href="#FContactUs" id="contactusfooter">Contact Us</a></li>
</ul>
</div>
</div>
<div class="col-lg-4 col-md-4 mb-4 mb-md-0">
<div>
<address>
4043 Maple Rd, Suite 211<br>
Amherst, NY 14226<br>
(716) 836-4910
</address>
</div>
</div>
</div>
</div>
<div class="footer-copyright">
© 2011-2024 EM Systems Inc
</div>
</footer>
\ No newline at end of file
emSystemsWeb/View.PublicSafety.pas
...@@ -9,25 +9,8 @@ uses ...@@ -9,25 +9,8 @@ uses
type type
TFPublicSafety = class(TWebForm) TFPublicSafety = class(TWebForm)
btnHome: TWebButton; procedure WebFormShow(Sender: TObject);
btnAboutUs: TWebButton;
btnContactUs: TWebButton;
btnRecordsManagement: TWebButton;
btnCustomSoftware: TWebButton;
btnAboutUsFooter: TWebButton;
btnHomeFooter: TWebButton;
btnContactUsFooter: TWebButton;
btnPublicSafety: TWebButton;
procedure btnHomeClick(Sender: TObject);
procedure btnAboutUsClick(Sender: TObject);
procedure btnContactUsClick(Sender: TObject);
procedure btnRecordsManagementClick(Sender: TObject);
procedure btnCustomSoftwareClick(Sender: TObject);
procedure btnPublicSafetyClick(Sender: TObject);
[async] [async]
procedure WebFormCreate(Sender: TObject);
procedure WebFormClose(Sender: TObject; var Action: TCloseAction);
private private
{ Private declarations } { Private declarations }
public public
...@@ -46,50 +29,22 @@ View.AboutUs, ...@@ -46,50 +29,22 @@ View.AboutUs,
View.ContactUs, View.ContactUs,
View.CustomSoftware, View.CustomSoftware,
View.Home, View.Home,
Site.Navbar,
Site.Footer,
ConnectionModule,
View.RecordsManagement; View.RecordsManagement;
procedure TFPublicSafety.btnCustomSoftwareClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFCustomSoftware, FCustomSoftware);
end;
procedure TFPublicSafety.btnRecordsManagementClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFRecordsManagement, FRecordsManagement);
end;
procedure TFPublicSafety.btnPublicSafetyClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFPublicSafety, FPublicSafety);
end;
procedure TFPublicSafety.btnContactUsClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFContactUs, FContactUs);
end;
procedure TFPublicSafety.btnAboutUsClick(Sender: TObject); procedure TFPublicSafety.WebFormShow(Sender: TObject);
begin
Close;
Application.CreateForm(TFAboutUs, FAboutUs);
end;
procedure TFPublicSafety.btnHomeClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFHome, FHome);
end;
procedure TFPublicSafety.WebFormCreate(Sender: TObject);
begin begin
Application.ThemeColor := clTMSWEB; Application.ThemeColor := clTMSWEB;
InjectNavbar;
InjectFooter;
SetFooterVersion('ver - ' + TDMConnection.clientVersion);
NavScrollSizing; NavScrollSizing;
end; end;
procedure TFPublicSafety.NavScrollSizing; procedure TFPublicSafety.NavScrollSizing;
begin begin
asm asm
...@@ -109,10 +64,7 @@ begin ...@@ -109,10 +64,7 @@ begin
end; end;
end; end;
procedure TFPublicSafety.WebFormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
initialization initialization
RegisterClass(TFPublicSafety); RegisterClass(TFPublicSafety);
......
emSystemsWeb/View.RecordsManagement.dfm
object FRecordsManagement: TFRecordsManagement object FRecordsManagement: TFRecordsManagement
Width = 640 Width = 640
Height = 480 Height = 480
Caption = 'l'
CSSLibrary = cssBootstrap CSSLibrary = cssBootstrap
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlack Font.Color = clBlack
...@@ -8,129 +9,5 @@ object FRecordsManagement: TFRecordsManagement ...@@ -8,129 +9,5 @@ object FRecordsManagement: TFRecordsManagement
Font.Name = 'Arial' Font.Name = 'Arial'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
OnClose = WebFormClose OnShow = WebFormShow
object btnHome: TWebButton
Left = 478
Top = 21
Width = 100
Height = 25
Caption = 'HOME'
ElementID = 'home'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
end
object btnAboutUs: TWebButton
Left = 364
Top = 21
Width = 100
Height = 25
Caption = 'ABOUT US'
ElementID = 'aboutus'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
end
object btnContactUs: TWebButton
Left = 148
Top = 21
Width = 100
Height = 25
Caption = 'CONTACT US'
ElementID = 'contactus'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
end
object btnPublicSafety: TWebButton
Left = 254
Top = 21
Width = 100
Height = 25
Caption = 'Public Safety'
ElementID = 'publicsafety'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
end
object btnRecordsManagement: TWebButton
Left = 34
Top = 57
Width = 100
Height = 25
Caption = 'Records Management'
ElementID = 'recordsmanagement'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
end
object btnCustomSoftware: TWebButton
Left = 34
Top = 21
Width = 100
Height = 25
Caption = 'Custom Software'
ElementID = 'customsoftware'
ElementFont = efCSS
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
end
object btnContactUsFooter: TWebButton
Left = 257
Top = 57
Width = 100
Height = 25
Caption = 'Contact Us'
ElementID = 'contactusfooter'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
end
object btnHomeFooter: TWebButton
Left = 368
Top = 57
Width = 100
Height = 25
Caption = 'Home'
ElementID = 'homefooter'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnHomeClick
end
object btnAboutUsFooter: TWebButton
Left = 148
Top = 57
Width = 100
Height = 25
Caption = 'About Us'
ElementID = 'aboutusfooter'
ElementPosition = epRelative
HeightPercent = 100.000000000000000000
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnAboutUsClick
end
end end
emSystemsWeb/View.RecordsManagement.html
<!--NAVBAR CONTAINER--> <div id="site_nav"></div>
<div class="em-navbar-wrap">
<nav class="navbar navbar-expand-lg navbar-dark bg-dark fixed-top shadow">
<div class="container-fluid container-main">
<a class="navbar-brand em-brand" href="#FHome">
<img src="images\EM_Logo_2c66a0.png" alt="EM_Logo" style="max-height: 50px;">
</a>
<button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbarNav"
aria-controls="navbarNav" aria-expanded="false" aria-label="Toggle navigation">
<span class="navbar-toggler-icon"></span>
</button>
<div class="collapse navbar-collapse" id="navbarNav">
<ul class="navbar-nav ms-auto">
<li class="nav-item">
<a class="nav-link" id="homenav" href="#FHome">Home</a>
</li>
<li class="nav-item">
<a class="nav-link" id="aboutusnav" href="#FAboutUs">About Us</a>
</li>
<!-- Dropdown Menu for "What We Do" -->
<li class="nav-item dropdown">
<a class="nav-link dropdown-toggle" href="#" id="navbarDropdown" role="button" data-bs-toggle="dropdown"
aria-expanded="false">
What We Do
</a>
<ul class="dropdown-menu" aria-labelledby="navbarDropdown">
<li><a class="dropdown-item" id="customsoftwarenav" href="#FCustomSoftware">Custom
Software</a></li>
<li><a class="dropdown-item" id="publicsafetynav" href="#FPublicSafety">Public Safety</a>
</li>
<li><a class="dropdown-item" id="recordsmanagementnav" href="#FRecordsManagement">Records
Management</a>
</li>
</ul>
</li>
<!-- End Dropdown Menu -->
<li class="nav-item">
<a class="nav-link" id="contactusnav" href="#FContactUs">Contact Us</a>
</li>
</ul>
</div>
</div>
</nav>
</div>
<!-- HERO SECTION --> <!-- HERO SECTION -->
<div class="container-fluid px-0"> <div class="container-fluid px-0">
...@@ -98,37 +55,4 @@ ...@@ -98,37 +55,4 @@
</div> </div>
</div> </div>
<!-- FOOTER --> <div id="site_footer"></div>
<footer class="bg-dark text-light">
<div class="container-main">
<div class="row text-center text-lg-start">
<div class="col-lg-4 col-md-4 mb-4 mb-md-0 d-flex justify-content-lg-start justify-content-center">
<a href="#FHome" class="navbar-brand">
<img src="images/EM_Logo_2c66a0.png" alt="EM_Logo" style="max-height: 30px">
</a>
</div>
<div class="col-lg-4 col-md-4 mb-4 mb-md-0">
<div>
<h5>Explore</h5>
<ul class="list-unstyled mb-0">
<li><a href="#FHome" id="homefooter">Home</a></li>
<li><a href="#FAboutUs" id="aboutusfooter">About Us</a></li>
<li><a href="#FContactUs" id="contactusfooter">Contact Us</a></li>
</ul>
</div>
</div>
<div class="col-lg-4 col-md-4 mb-4 mb-md-0">
<div>
<address>
4043 Maple Rd, Suite 211<br>
Amherst, NY 14226<br>
(716) 836-4910
</address>
</div>
</div>
</div>
</div>
<div class="footer-copyright">
© 2011-2024 EM Systems Inc
</div>
</footer>
\ No newline at end of file
emSystemsWeb/View.RecordsManagement.pas
...@@ -9,25 +9,8 @@ uses ...@@ -9,25 +9,8 @@ uses
type type
TFRecordsManagement = class(TWebForm) TFRecordsManagement = class(TWebForm)
btnHome: TWebButton;
btnAboutUs: TWebButton;
btnContactUs: TWebButton;
btnRecordsManagement: TWebButton;
btnCustomSoftware: TWebButton;
btnContactUsFooter: TWebButton;
btnHomeFooter: TWebButton;
btnAboutUsFooter: TWebButton;
btnPublicSafety: TWebButton;
procedure btnHomeClick(Sender: TObject);
procedure btnAboutUsClick(Sender: TObject);
procedure btnContactUsClick(Sender: TObject);
procedure btnRecordsManagementClick(Sender: TObject);
procedure btnCustomSoftwareClick(Sender: TObject);
procedure btnPublicSafetyClick(Sender: TObject);
[async] [async]
procedure WebFormCreate(Sender: TObject); procedure WebFormShow(Sender: TObject);
procedure WebFormClose(Sender: TObject; var Action: TCloseAction);
private private
{ Private declarations } { Private declarations }
public public
...@@ -46,48 +29,17 @@ View.AboutUs, ...@@ -46,48 +29,17 @@ View.AboutUs,
View.ContactUs, View.ContactUs,
View.CustomSoftware, View.CustomSoftware,
View.PublicSafety, View.PublicSafety,
Site.Navbar,
Site.Footer,
ConnectionModule,
View.Home; View.Home;
procedure TFRecordsManagement.WebFormShow(Sender: TObject);
procedure TFRecordsManagement.btnCustomSoftwareClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFCustomSoftware, FCustomSoftware);
end;
procedure TFRecordsManagement.btnRecordsManagementClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFRecordsManagement, FRecordsManagement);
end;
procedure TFRecordsManagement.btnPublicSafetyClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFPublicSafety, FPublicSafety);
end;
procedure TFRecordsManagement.btnContactUsClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFContactUs, FContactUs);
end;
procedure TFRecordsManagement.btnAboutUsClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFAboutUs, FAboutUs);
end;
procedure TFRecordsManagement.btnHomeClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFHome, FHome);
end;
procedure TFRecordsManagement.WebFormCreate(Sender: TObject);
begin begin
Application.ThemeColor := clTMSWEB; Application.ThemeColor := clTMSWEB;
InjectNavbar;
InjectFooter;
SetFooterVersion('ver - ' + TDMConnection.clientVersion);
NavScrollSizing; NavScrollSizing;
end; end;
...@@ -110,11 +62,6 @@ begin ...@@ -110,11 +62,6 @@ begin
end; end;
end; end;
procedure TFRecordsManagement.WebFormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
initialization initialization
RegisterClass(TFRecordsManagement); RegisterClass(TFRecordsManagement);
......
emSystemsWeb/View.RequestDemo.dfm 0 → 100644
object FRequestDemo: TFRequestDemo
Width = 640
Height = 480
CSSLibrary = cssBootstrap
ElementFont = efCSS
object lblReqPrefMethod: TWebLabel
Left = 54
Top = 138
Width = 96
Height = 15
Caption = 'lblReqPrefMethod'
ElementFont = efCSS
HeightStyle = ssAuto
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object edtReqName: TWebEdit
Left = 50
Top = 62
Width = 121
Height = 22
ElementClassName = 'form-control'
ElementFont = efCSS
HeightStyle = ssAuto
HeightPercent = 100.000000000000000000
Text = 'edtReqName'
WidthPercent = 100.000000000000000000
end
object WebEdit2: TWebEdit
Left = 196
Top = 62
Width = 121
Height = 22
ChildOrder = 1
ElementClassName = 'form-control'
ElementFont = efCSS
HeightStyle = ssAuto
HeightPercent = 100.000000000000000000
Text = 'edtReqEmail'
WidthPercent = 100.000000000000000000
end
object edtReqAgency: TWebEdit
Left = 196
Top = 100
Width = 121
Height = 22
ChildOrder = 2
ElementClassName = 'form-control'
ElementFont = efCSS
HeightStyle = ssAuto
HeightPercent = 100.000000000000000000
Text = 'edtReqAgency'
WidthPercent = 100.000000000000000000
end
object WebEdit4: TWebEdit
Left = 50
Top = 100
Width = 121
Height = 22
ChildOrder = 3
ElementClassName = 'form-control'
ElementFont = efCSS
HeightStyle = ssAuto
HeightPercent = 100.000000000000000000
Text = 'edtReqPhone'
WidthPercent = 100.000000000000000000
end
object req: TWebRadioButton
Left = 54
Top = 164
Width = 113
Height = 22
Caption = 'req'
Checked = False
ChildOrder = 5
Color = clNone
ElementClassName = 'custom-control custom-radio'
ElementButtonClassName = 'custom-control-input'
ElementLabelClassName = 'custom-control-label'
ElementFont = efCSS
HeightStyle = ssAuto
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
object WebRadioButton2: TWebRadioButton
Left = 196
Top = 164
Width = 113
Height = 22
Caption = 'WebRadioButton2'
Checked = False
ChildOrder = 6
Color = clNone
ElementClassName = 'custom-control custom-radio'
ElementButtonClassName = 'custom-control-input'
ElementLabelClassName = 'custom-control-label'
ElementFont = efCSS
HeightStyle = ssAuto
HeightPercent = 100.000000000000000000
WidthPercent = 100.000000000000000000
end
end
emSystemsWeb/View.RequestDemo.html 0 → 100644
<div class="d-flex flex-column min-vh-100">
<div id="site_nav"></div>
<!-- REQUEST DEMO SECTION -->
<main class="container pt-5 mt-5 flex-grow-1">
<div class="row justify-content-center">
<div class="col-12 col-md-10 col-lg-7">
<div class="card shadow-sm border-0">
<div class="card-body p-4 p-md-5">
<h2 class="mb-2 text-center">Request a Demo</h2>
<p class="text-muted text-center mb-4">
Tell us a little about you, and well reach out to schedule a demo.
</p>
<form>
<div class="row g-3">
<div class="col-md-6">
<label for="edt_req_name" class="form-label">Name*</label>
<input type="text" class="form-control" id="edt_req_name" required>
</div>
<div class="col-md-6">
<label for="edt_req_email" class="form-label">Email*</label>
<input type="email" class="form-control" id="edt_req_email" required>
</div>
<div class="col-md-6">
<label for="edt_req_phone_number" class="form-label">Phone Number</label>
<input type="tel" class="form-control" id="edt_req_phone_number">
</div>
<div class="col-md-6">
<label for="edt_req_agency" class="form-label">Agency</label>
<input type="text" class="form-control" id="edt_req_agency">
</div>
<div class="col-12 mt-2">
<div id="lbl_req_pref_method" class="form-label mb-2">
Preferred Contact Method
</div>
<div class="d-flex flex-column flex-sm-row gap-2 gap-sm-4">
<div class="form-check">
<input class="form-check-input" type="radio" name="req_pref_method" id="rad_req_phone">
<label class="form-check-label" for="rad_req_phone">Phone</label>
</div>
<div class="form-check">
<input class="form-check-input" type="radio" name="req_pref_method" id="rad_req_email">
<label class="form-check-label" for="rad_req_email">Email</label>
</div>
</div>
</div>
<div class="col-12 mt-3">
<button type="button" class="btn btn-primary w-100 w-sm-auto px-4" id="btn_req_send_request">
Send Request
</button>
</div>
<div class="col-12">
<div id="card_status_message" class="alert mt-3 d-none mb-0" role="alert"></div>
</div>
</div>
</form>
</div>
</div>
</div>
</div>
</main>
<div id="site_footer" class="mt-auto"></div>
</div>
<div id="spinner" class="position-fixed top-50 start-50 translate-middle d-none" style="z-index: 1100;">
<div class="lds-roller">
<div></div><div></div><div></div><div></div>
<div></div><div></div><div></div><div></div>
</div>
</div>
<div class="modal fade" id="request_demo_notification_modal" tabindex="-1" aria-labelledby="request_demo_notification_modal_label" aria-hidden="true">
<div class="modal-dialog">
<div class="modal-content shadow-lg">
<div class="modal-header">
<h5 class="modal-title" id="request_demo_notification_modal_label">Info</h5>
<button type="button" class="btn-close" data-bs-dismiss="modal" aria-label="Close"></button>
</div>
<div class="modal-body fs-6 fw-bold" id="request_demo_notification_modal_body">
Please contact EMSystems to solve the issue.
</div>
<div class="modal-footer justify-content-center">
<button type="button" id="btn_modal_close" class="btn btn-primary">Close</button>
</div>
</div>
</div>
</div>
emSystemsWeb/View.RequestDemo.pas 0 → 100644
unit View.RequestDemo;
interface
uses
System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,
WEBLib.Forms, WEBLib.Dialogs, Vcl.StdCtrls, WEBLib.StdCtrls, Vcl.Controls;
type
TFRequestDemo = class(TWebForm)
edtReqName: TWebEdit;
WebEdit2: TWebEdit;
edtReqAgency: TWebEdit;
WebEdit4: TWebEdit;
lblReqPrefMethod: TWebLabel;
req: TWebRadioButton;
WebRadioButton2: TWebRadioButton;
private
{ Private declarations }
public
{ Public declarations }
end;
var
FRequestDemo: TFRequestDemo;
implementation
{$R *.dfm}
initialization
RegisterClass(TFRequestDemo);
end.
\ No newline at end of file
emSystemsWeb/css/App.css
...@@ -228,38 +228,11 @@ body { ...@@ -228,38 +228,11 @@ body {
/* FOOTER */ /* FOOTER */
footer {
background-color: #000;
color: #fff;
padding: 1rem 0;
margin-top: auto;
}
footer .navbar-brand img {
max-height: 50px;
}
footer h5 {
font-size: 0.9rem;
}
footer ul li a,
footer ul li p {
font-size: 0.8rem;
color: #fff;
text-decoration: none;
}
footer ul li a:hover, footer ul li a:hover,
footer ul li a:focus { footer ul li a:focus {
color: #999999; color: #999999;
text-decoration: none; text-decoration: none;
} }
footer address,
footer p {
font-size: 0.8rem;
}
footer .footer-copyright {
font-size: 0.8rem;
padding: 0.5rem 0;
text-align: center;
}
/****************************************************************************************/ /****************************************************************************************/
......
emSystemsWeb/emSystemsWebsite.dproj
...@@ -137,6 +137,13 @@ ...@@ -137,6 +137,13 @@
<FormType>dfm</FormType> <FormType>dfm</FormType>
<DesignClass>TWebDataModule</DesignClass> <DesignClass>TWebDataModule</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="View.RequestDemo.pas">
<Form>FRequestDemo</Form>
<FormType>dfm</FormType>
<DesignClass>TWebForm</DesignClass>
</DCCReference>
<DCCReference Include="Site.Footer.pas"/>
<DCCReference Include="Site.Navbar.pas"/>
<None Include="css\App.css"/> <None Include="css\App.css"/>
<None Include="images\job-gcdf1cf1d3_1920-1536x925.jpg"> <None Include="images\job-gcdf1cf1d3_1920-1536x925.jpg">
<ResourceType>RCDATA</ResourceType> <ResourceType>RCDATA</ResourceType>
...@@ -175,7 +182,6 @@ ...@@ -175,7 +182,6 @@
<ResourceId>JpgImage_6</ResourceId> <ResourceId>JpgImage_6</ResourceId>
</None> </None>
<None Include="index.html"/> <None Include="index.html"/>
<None Include="test.html"/>
<None Include="css\spinner.css"/> <None Include="css\spinner.css"/>
<BuildConfiguration Include="Base"> <BuildConfiguration Include="Base">
<Key>Base</Key> <Key>Base</Key>
...@@ -206,18 +212,6 @@ ...@@ -206,18 +212,6 @@
</Delphi.Personality> </Delphi.Personality>
<Deployment Version="5"> <Deployment Version="5">
<DeployFile LocalName="EMSystemsWebsite.html" Configuration="Debug" Class="ProjectFile"/> <DeployFile LocalName="EMSystemsWebsite.html" Configuration="Debug" Class="ProjectFile"/>
<DeployFile LocalName="TMSWeb\Debug\images\computer_code.jpg" Configuration="Debug" Class="ProjectFile">
<Platform Name="Win32">
<RemoteDir>.\</RemoteDir>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="TMSWeb\Debug\images\niagara.jpg" Configuration="Debug" Class="ProjectFile">
<Platform Name="Win32">
<RemoteDir>.\</RemoteDir>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="Win32\Debug\EMSystemsWebsite.exe" Configuration="Debug" Class="ProjectOutput"/> <DeployFile LocalName="Win32\Debug\EMSystemsWebsite.exe" Configuration="Debug" Class="ProjectOutput"/>
<DeployFile LocalName="Win32\Debug\EMSystemsWebsite.exe" Configuration="Debug" Class="ProjectOutput"> <DeployFile LocalName="Win32\Debug\EMSystemsWebsite.exe" Configuration="Debug" Class="ProjectOutput">
<Platform Name="Win32"> <Platform Name="Win32">
...@@ -375,12 +369,6 @@ ...@@ -375,12 +369,6 @@
<Overwrite>true</Overwrite> <Overwrite>true</Overwrite>
</Platform> </Platform>
</DeployFile> </DeployFile>
<DeployFile LocalName="test.html" Configuration="Debug" Class="ProjectFile">
<Platform Name="Win32">
<RemoteDir>.\</RemoteDir>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName="test.html" Configuration="Release" Class="ProjectFile"> <DeployFile LocalName="test.html" Configuration="Release" Class="ProjectFile">
<Platform Name="Win32"> <Platform Name="Win32">
<RemoteDir>.\</RemoteDir> <RemoteDir>.\</RemoteDir>
......
emSystemsWebServer/bin/emSystemsWebServer.ini
[Settings] [Settings]
memoLogLevel=3 memoLogLevel=3
fileLogLevel=4 fileLogLevel=4
LogFileNum=34 LogFileNum=35
webClientVersion=1.0.0 webClientVersion=1.0.0
[SMTP] [SMTP]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment