Initial Commit 😅

Author: shaunroselt

.gitignore

@@ -67,3 +67,11 @@ __recovery/
 
 # Boss dependency manager vendor folder https://github.com/HashLoad/boss
 modules/
+
+# Compile Folders
+Component Library Source/TMSWEB/
+Component Library Source/Win32/
+Core Source/TMSWEB/
+Core Source/Win32/
+Demo/TMSWEB/
+Demo/Win32/

Component Library Source/TMSWEBDevTools.dpk

@@ -0,0 +1,38 @@
+package TMSWEBDevTools;
+
+{$R *.res}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
+{$IMPLICITBUILD ON}
+
+requires
+  rtl,
+  vcl,
+  TMSWEBCorePkgLibDXE15;
+
+contains
+  WEBLIB.DevTools in 'WEBLIB.DevTools.pas';
+
+end.

Component Library Source/TMSWEBDevTools.dproj

@@ -0,0 +1,50 @@
+unit WEBLIB.DevTools;
+
+interface
+
+uses
+  {$IFNDEF LCLTMSWEB}
+  System.Classes, SysUtils, WEBLib.Controls, Web, JS, WEBLib.ExtCtrls;
+  {$ENDIF}
+  {$IFDEF LCLTMSWEB}
+  Classes, SysUtils, WEBLib.Controls, Web, JS, WEBLib.ExtCtrls;
+  {$ENDIF}
+
+type
+  {$IFNDEF LCLTMSWEB}
+  [ComponentPlatforms(TMSWebPlatform)]
+  [JSLibReference('https://cdn.jsdelivr.net/npm/disable-devtool')]
+  {$ENDIF}
+  TWebDevTools = class(TComponent)
+  private
+    FEnabled: boolean;
+    procedure SetEnabled(const Value: boolean);
+  public
+    constructor Create(AOwner: TComponent); override;
+  published
+    property Enabled: boolean read FEnabled write SetEnabled default true;
+  end;
+
+procedure Register;
+
+implementation
+
+procedure Register;
+begin
+  RegisterComponents('TMS WEB 3rd party', [TWebDevTools]);
+end;
+
+{ TWebDevTools }
+
+constructor TWebDevTools.Create(AOwner: TComponent);
+begin
+  inherited;
+  FEnabled := True;
+end;
+
+procedure TWebDevTools.SetEnabled(const Value: boolean);
+begin
+  FEnabled := Value;
+end;
+
+end.

Component Library Source/TMSWEBDevTools.res

@@ -0,0 +1,36 @@
+package TMSWEBDevToolsWEB;
+
+{$R *.res}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'TMS WEB Froala Editor'}
+{$RUNONLY}
+{$IMPLICITBUILD ON}
+
+contains
+  WEBLib.DevTools in '.\WEBLib.DevTools.pas',
+  WEBLib.DevToolsReg in '.\WEBLib.DevToolsReg.pas';
+
+end.