Skip to content

E
EMSystemsWeb
Commit 95b15d71 by Mac Stephens
Options

test to see if Elias can compile

parent 1f204a88
Showing with 510 additions and 1693 deletions
emSystemsWeb/EMSystemsWebsite.dpr
......@@ -12,7 +12,10 @@ uses
View.AboutUs in 'View.AboutUs.pas' {FAboutUs: TWebForm} {*.html},
View.ContactUs in 'View.ContactUs.pas' {FContactUs: TWebForm} {*.html},
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}
......
emSystemsWeb/Index.html
<html><head>
<html lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<meta content="width=device-width, initial-scale=1" name="viewport"/>
<noscript>Your browser does not support JavaScript!</noscript>
<link href="data:;base64,=" rel="icon"/>
<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://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 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>
<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>
<style>
</style>
<link href="css/spinner.css" rel="stylesheet"/></head>
</head>
<body>
<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
Width = 1058
Height = 730
CSSLibrary = cssBootstrap
ElementFont = efCSS
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
OnClose = WebFormClose
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
OnShow = WebFormShow
end
emSystemsWeb/View.AboutUs.html
<div class="d-flex flex-column min-vh-100 justify-content-center">
<!--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 id="site_nav"></div>
<div class="container-fluid px-0">
<div class="container-fluid px-0">
<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">
<div class="hero-overlay-aboutus">
......@@ -68,43 +27,7 @@
</div>
</div>
</div>
</div>
</div>
<!-- FOOTER -->
<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
<div id="site_footer"></div>
emSystemsWeb/View.AboutUs.pas
......@@ -9,25 +9,8 @@ uses
type
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]
procedure WebFormCreate(Sender: TObject);
procedure WebFormClose(Sender: TObject; var Action: TCloseAction);
procedure WebFormShow(Sender: TObject);
private
{ Private declarations }
public
......@@ -46,51 +29,22 @@ View.Home,
View.ContactUs,
View.CustomSoftware,
View.PublicSafety,
Site.Navbar,
Site.Footer,
ConnectionModule,
View.RecordsManagement;
procedure TFAboutUs.btnCustomSoftwareClick(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);
procedure TFAboutUs.WebFormShow(Sender: TObject);
begin
Application.ThemeColor := clTMSWEB;
InjectNavbar;
InjectFooter;
SetFooterVersion('ver - ' + TDMConnection.clientVersion);
NavScrollSizing;
end;
procedure TFAboutUs.NavScrollSizing;
begin
asm
......@@ -110,10 +64,6 @@ begin
end;
end;
procedure TFAboutUs.WebFormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
initialization
RegisterClass(TFAboutUs);
......
emSystemsWeb/View.ContactUs.dfm
object FContactUs: TFContactUs
Width = 930
Height = 802
CSSLibrary = cssBootstrap
ElementFont = efCSS
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
OnClose = WebFormClose
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
OnShow = WebFormShow
object edtName: TWebEdit
Left = 24
Top = 40
......@@ -180,8 +50,8 @@ object FContactUs: TFContactUs
WidthPercent = 100.000000000000000000
end
object memoMessage: TWebMemo
Left = 24
Top = 155
Left = 28
Top = 151
Width = 464
Height = 303
TabStop = False
......
emSystemsWeb/View.ContactUs.html
<div class="d-flex flex-column min-vh-100">
<!--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>
<div id="site_nav"></div>
<!--CONTACT FORM CONTAINER-->
<div class="container flex-grow-1 d-flex flex-column justify-content-center py-5 mt-5 mt-md-5 mt-lg-0">
<div class="row mx-4">
<!-- CONTACT US SECTION -->
<main class="container pt-5 mt-5 flex-grow-1">
<div class="row g-4">
<div class="col-lg-6">
<h2 class="mb-4">Contact Us</h2>
<hr>
<h2 class="mb-3">Contact Us</h2>
<hr class="mb-4">
<form>
<div class="mb-3">
<label for="name" class="form-label">Name*</label>
<input type="text" class="form-control" id="name" required>
</div>
<div class="mb-3">
<label for="email" class="form-label">Email*</label>
<input type="email" class="form-control" id="email" required>
</div>
<div class="mb-3">
<label for="subject" class="form-label">Subject*</label>
<input type="text" class="form-control" id="subject" required>
</div>
<div class="mb-3">
<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>
<button type="submit" class="btn btn-primary" id="submit">Submit</button>
</form>
<div id="card_status_message" class="alert mt-3 d-none" role="alert"></div>
</div>
<div id="card_status_message" class="mt-3" role="alert" style="display: none;"></div>
<div class="col-lg-6">
<h2 class="mb-4">EM Systems Inc.</h2>
<hr>
<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>
<h2 class="mb-3">EM Systems Inc.</h2>
<hr class="mb-4">
<!-- FOOTER -->
<footer class="bg-dark text-light mt-auto">
<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>
<p class="mb-1">4043 Maple Rd, Suite 211 | Amherst, NY 14226</p>
<p class="mb-3"><strong>Phone:</strong> (716) 836-4910</p>
<div class="ratio ratio-4x3 shadow-sm rounded overflow-hidden">
<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"
style="border:0;"
allowfullscreen=""
loading="lazy"
referrerpolicy="no-referrer-when-downgrade">
</iframe>
</div>
</div>
</div>
<div class="footer-copyright">
© 2011-2024 EM Systems Inc
</div>
</footer>
</div>
</main>
<div id="spinner" class="position-absolute 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 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="contact_notification_modal" tabindex="-1" aria-labelledby="main_lblmodal" aria-hidden="true">
<div class="modal fade" id="contact_notification_modal" tabindex="-1" aria-labelledby="contact_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="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>
</div>
<div class="modal-body fs-6 fw-bold" id="contact_notification_modal_body">
......@@ -138,3 +81,4 @@
</div>
</div>
</div>
emSystemsWeb/View.ContactUs.pas
......@@ -14,31 +14,14 @@ uses
type
TFContactUs = class(TWebForm)
btnHome: TWebButton;
btnAboutUs: TWebButton;
btnContactUs: TWebButton;
btnRecordsManagement: TWebButton;
btnCustomSoftware: TWebButton;
btnAboutUsFooter: TWebButton;
btnHomeFooter: TWebButton;
btnContactUsFooter: TWebButton;
edtName: TWebEdit;
edtEmail: TWebEdit;
edtSubject: TWebEdit;
memoMessage: TWebMemo;
btnSubmit: TWebButton;
btnPublicSafety: TWebButton;
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 WebFormCreate(Sender: TObject);
procedure WebFormClose(Sender: TObject; var Action: TCloseAction);
procedure WebFormShow(Sender: TObject);
procedure xdwcEmailError(Error: TXDataClientError);
private
{ Private declarations }
......@@ -63,25 +46,24 @@ uses
View.PublicSafety,
View.RecordsManagement,
View.CustomSoftware,
Site.Navbar,
Site.Footer,
View.AboutUs;
procedure TFContactUs.WebFormCreate(Sender: TObject);
procedure TFContactUs.WebFormShow(Sender: TObject);
begin
Application.ThemeColor := clTMSWEB;
InjectNavbar;
InjectFooter;
SetFooterVersion('ver - ' + TDMConnection.clientVersion);
NavScrollSizing;
end;
procedure TFContactUs.xdwcEmailError(Error: TXDataClientError);
begin
ShowNotificationModal('Error when attempting to send: ' + error.ErrorMessage);
end;
procedure TFContactUs.WebFormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TFContactUs.NavScrollSizing;
begin
asm
......@@ -158,41 +140,7 @@ begin
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
RegisterClass(TFContactUs);
......
emSystemsWeb/View.CustomSoftware.dfm
object FCustomSoftware: TFCustomSoftware
Width = 640
Height = 480
CSSLibrary = cssBootstrap
ElementFont = efCSS
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
OnClose = WebFormClose
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
OnShow = WebFormShow
end
emSystemsWeb/View.CustomSoftware.html
<!--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>
<!-- 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>
<div id="site_nav"></div>
<!-- HERO SECTION -->
<div class="container-fluid px-0">
......@@ -106,38 +63,4 @@
</div>
</div>
<!-- FOOTER -->
<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
<div id="site_footer"></div>
emSystemsWeb/View.CustomSoftware.pas
......@@ -9,25 +9,8 @@ uses
type
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]
procedure WebFormCreate(Sender: TObject);
procedure WebFormClose(Sender: TObject; var Action: TCloseAction);
procedure WebFormShow(Sender: TObject);
private
{ Private declarations }
public
......@@ -46,51 +29,21 @@ View.AboutUs,
View.ContactUs,
View.Home,
View.PublicSafety,
Site.Navbar,
Site.Footer,
ConnectionModule,
View.RecordsManagement;
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);
procedure TFCustomSoftware.WebFormShow(Sender: TObject);
begin
Application.ThemeColor := clTMSWEB;
InjectNavbar;
InjectFooter;
SetFooterVersion('ver - ' + TDMConnection.clientVersion);
NavScrollSizing;
end;
procedure TFCustomSoftware.NavScrollSizing;
begin
asm
......@@ -110,10 +63,7 @@ begin
end;
end;
procedure TFCustomSoftware.WebFormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
initialization
RegisterClass(TFCustomSoftware);
......
emSystemsWeb/View.Home.dfm
......@@ -9,99 +9,10 @@ object FHome: TFHome
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
OnCreate = WebFormCreate
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
OnShow = WebFormShow
object btnRecordsManagementLearn: TWebButton
Left = 60
Top = 136
Left = 48
Top = 57
Width = 100
Height = 25
Caption = 'Learn More'
......@@ -111,11 +22,10 @@ object FHome: TFHome
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnRecordsManagementClick
end
object btnCustomSoftwareLearn: TWebButton
Left = 60
Top = 167
Left = 48
Top = 109
Width = 100
Height = 25
Caption = 'Learn More'
......@@ -125,11 +35,10 @@ object FHome: TFHome
Role = 'button'
TabStop = False
WidthPercent = 100.000000000000000000
OnClick = btnCustomSoftwareClick
end
object btnPublicSafetyLearn: TWebButton
Left = 56
Top = 198
Left = 48
Top = 158
Width = 100
Height = 25
Caption = 'Learn More'
......@@ -139,48 +48,5 @@ object FHome: TFHome
Role = 'button'
TabStop = False
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
emSystemsWeb/View.Home.html
<!--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>
<div id="site_nav"></div>
<!-- HERO SECTION -->
<div class="container-fluid px-0">
......@@ -64,7 +26,6 @@
</div>
</div>
<!--MAIN CONTAINER-->
<div class="container-main">
<!-- LEARN BOXES -->
......@@ -108,38 +69,6 @@
</div>
</div>
<!-- FOOTER -->
<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>
<div id="site_footer"></div>
emSystemsWeb/View.Home.pas
......@@ -9,27 +9,11 @@ uses
type
TFHome = class(TWebForm)
btnHome: TWebButton;
btnAboutUs: TWebButton;
btnContactUs: TWebButton;
btnCustomSoftware: TWebButton;
btnRecordsManagementLearn: TWebButton;
btnCustomSoftwareLearn: TWebButton;
btnHomeFooter: TWebButton;
btnContactUsFooter: TWebButton;
btnAboutUsFooter: TWebButton;
btnPublicSafetyLearn: TWebButton;
btnPublicSafety: TWebButton;
btnRecordsManagement: TWebButton;
procedure WebFormShow(Sender: TObject);
[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 declarations }
public
......@@ -48,53 +32,18 @@ View.AboutUs,
View.ContactUs,
View.CustomSoftware,
View.PublicSafety,
ConnectionModule,
Site.Footer,
Site.Navbar,
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);
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);
procedure TFHome.WebFormShow(Sender: TObject);
begin
Application.ThemeColor := clTMSWEB;
InjectNavbar;
InjectFooter;
SetFooterVersion('ver - ' + TDMConnection.clientVersion);
NavScrollSizing;
end;
......@@ -117,6 +66,7 @@ begin
end;
end;
initialization
RegisterClass(TFHome);
......
emSystemsWeb/View.PublicSafety.dfm
object FPublicSafety: TFPublicSafety
Width = 640
Height = 480
CSSLibrary = cssBootstrap
ElementFont = efCSS
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
OnClose = WebFormClose
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
OnShow = WebFormShow
end
emSystemsWeb/View.PublicSafety.html
<!--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>
<!-- 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>
<div id="site_nav"></div>
<!-- HERO SECTION -->
<div class="container-fluid px-0">
......@@ -247,38 +204,4 @@
</div>
</div>
<!-- FOOTER -->
<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
<div id="site_footer"></div>
emSystemsWeb/View.PublicSafety.pas
......@@ -9,25 +9,8 @@ uses
type
TFPublicSafety = 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);
procedure WebFormShow(Sender: TObject);
[async]
procedure WebFormCreate(Sender: TObject);
procedure WebFormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
......@@ -46,50 +29,22 @@ View.AboutUs,
View.ContactUs,
View.CustomSoftware,
View.Home,
Site.Navbar,
Site.Footer,
ConnectionModule,
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);
begin
Close;
Application.CreateForm(TFAboutUs, FAboutUs);
end;
procedure TFPublicSafety.btnHomeClick(Sender: TObject);
begin
Close;
Application.CreateForm(TFHome, FHome);
end;
procedure TFPublicSafety.WebFormCreate(Sender: TObject);
procedure TFPublicSafety.WebFormShow(Sender: TObject);
begin
Application.ThemeColor := clTMSWEB;
InjectNavbar;
InjectFooter;
SetFooterVersion('ver - ' + TDMConnection.clientVersion);
NavScrollSizing;
end;
procedure TFPublicSafety.NavScrollSizing;
begin
asm
......@@ -109,10 +64,7 @@ begin
end;
end;
procedure TFPublicSafety.WebFormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
initialization
RegisterClass(TFPublicSafety);
......
emSystemsWeb/View.RecordsManagement.dfm
object FRecordsManagement: TFRecordsManagement
Width = 640
Height = 480
Caption = 'l'
CSSLibrary = cssBootstrap
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
......@@ -8,129 +9,5 @@ object FRecordsManagement: TFRecordsManagement
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
OnClose = WebFormClose
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
OnShow = WebFormShow
end
emSystemsWeb/View.RecordsManagement.html
<!--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>
<!-- 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>
<div id="site_nav"></div>
<!-- HERO SECTION -->
<div class="container-fluid px-0">
......@@ -98,37 +55,4 @@
</div>
</div>
<!-- FOOTER -->
<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
<div id="site_footer"></div>
emSystemsWeb/View.RecordsManagement.pas
......@@ -9,25 +9,8 @@ uses
type
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]
procedure WebFormCreate(Sender: TObject);
procedure WebFormClose(Sender: TObject; var Action: TCloseAction);
procedure WebFormShow(Sender: TObject);
private
{ Private declarations }
public
......@@ -46,48 +29,17 @@ View.AboutUs,
View.ContactUs,
View.CustomSoftware,
View.PublicSafety,
Site.Navbar,
Site.Footer,
ConnectionModule,
View.Home;
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);
procedure TFRecordsManagement.WebFormShow(Sender: TObject);
begin
Application.ThemeColor := clTMSWEB;
InjectNavbar;
InjectFooter;
SetFooterVersion('ver - ' + TDMConnection.clientVersion);
NavScrollSizing;
end;
......@@ -110,12 +62,7 @@ begin
end;
end;
procedure TFRecordsManagement.WebFormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
initialization
RegisterClass(TFRecordsManagement);
end.
\ No newline at end of file
end.
\ No newline at end of file
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 {
/* 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:focus {
color: #999999;
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 @@
<FormType>dfm</FormType>
<DesignClass>TWebDataModule</DesignClass>
</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="images\job-gcdf1cf1d3_1920-1536x925.jpg">
<ResourceType>RCDATA</ResourceType>
......@@ -175,7 +182,6 @@
<ResourceId>JpgImage_6</ResourceId>
</None>
<None Include="index.html"/>
<None Include="test.html"/>
<None Include="css\spinner.css"/>
<BuildConfiguration Include="Base">
<Key>Base</Key>
......@@ -206,18 +212,6 @@
</Delphi.Personality>
<Deployment Version="5">
<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">
<Platform Name="Win32">
......@@ -375,12 +369,6 @@
<Overwrite>true</Overwrite>
</Platform>
</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">
<Platform Name="Win32">
<RemoteDir>.\</RemoteDir>
......
emSystemsWebServer/bin/emSystemsWebServer.ini
[Settings]
memoLogLevel=3
fileLogLevel=4
LogFileNum=34
LogFileNum=35
webClientVersion=1.0.0
[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