├── .gitattributes ├── .gitignore ├── .hgignore ├── Essentials-1.2.png ├── Readme.md ├── packages ├── 11AndAbove │ ├── CBuilder │ │ ├── EssentialsCBuilder.groupproj │ │ ├── EssentialsCD.cbproj │ │ ├── EssentialsCD.cpp │ │ ├── EssentialsCD.res │ │ ├── EssentialsCR.cbproj │ │ ├── EssentialsCR.cpp │ │ ├── EssentialsCR.res │ │ ├── EssentialsDBCR.cbproj │ │ ├── EssentialsDBCR.cpp │ │ └── EssentialsDBCR.res │ └── Delphi │ │ ├── EssentialsDBDD.dpk │ │ ├── EssentialsDBDD.dproj │ │ ├── EssentialsDBDD.res │ │ ├── EssentialsDBDR.dpk │ │ ├── EssentialsDBDR.dproj │ │ ├── EssentialsDBDR.ico │ │ ├── EssentialsDBDR.res │ │ ├── EssentialsDD.dpk │ │ ├── EssentialsDD.dproj │ │ ├── EssentialsDD.ico │ │ ├── EssentialsDD.res │ │ ├── EssentialsDR.dpk │ │ ├── EssentialsDR.dproj │ │ ├── EssentialsDR.ico │ │ ├── EssentialsDR.res │ │ └── EssentialsDelphi.groupproj ├── Berlin │ ├── CBuilder │ │ ├── EssentialsCBuilder.groupproj │ │ ├── EssentialsCD.cbproj │ │ ├── EssentialsCD.cpp │ │ ├── EssentialsCD.res │ │ ├── EssentialsCR.cbproj │ │ ├── EssentialsCR.cpp │ │ ├── EssentialsCR.res │ │ ├── EssentialsDBCR.cbproj │ │ ├── EssentialsDBCR.cpp │ │ └── EssentialsDBCR.res │ └── Delphi │ │ ├── EssentialsDBDR.dpk │ │ ├── EssentialsDBDR.dproj │ │ ├── EssentialsDBDR.ico │ │ ├── EssentialsDBDR.res │ │ ├── EssentialsDD.dpk │ │ ├── EssentialsDD.dproj │ │ ├── EssentialsDD.ico │ │ ├── EssentialsDD.res │ │ ├── EssentialsDR.dpk │ │ ├── EssentialsDR.dproj │ │ ├── EssentialsDR.ico │ │ ├── EssentialsDR.res │ │ └── EssentialsDelphi.groupproj ├── Rio │ ├── CBuilder │ │ ├── EssentialsCBuilder.groupproj │ │ ├── EssentialsCD.cbproj │ │ ├── EssentialsCD.cpp │ │ ├── EssentialsCD.res │ │ ├── EssentialsCR.cbproj │ │ ├── EssentialsCR.cpp │ │ ├── EssentialsCR.res │ │ ├── EssentialsDBCR.cbproj │ │ ├── EssentialsDBCR.cpp │ │ └── EssentialsDBCR.res │ └── Delphi │ │ ├── EssentialsDBDR.dpk │ │ ├── EssentialsDBDR.dproj │ │ ├── EssentialsDBDR.ico │ │ ├── EssentialsDBDR.res │ │ ├── EssentialsDD.dpk │ │ ├── EssentialsDD.dproj │ │ ├── EssentialsDD.ico │ │ ├── EssentialsDD.res │ │ ├── EssentialsDR.dpk │ │ ├── EssentialsDR.dproj │ │ ├── EssentialsDR.ico │ │ ├── EssentialsDR.res │ │ └── EssentialsDelphi.groupproj ├── Sydney │ ├── CBuilder │ │ ├── EssentialsCBuilder.groupproj │ │ ├── EssentialsCD.cbproj │ │ ├── EssentialsCD.cpp │ │ ├── EssentialsCD.res │ │ ├── EssentialsCR.cbproj │ │ ├── EssentialsCR.cpp │ │ ├── EssentialsCR.res │ │ ├── EssentialsDBCR.cbproj │ │ ├── EssentialsDBCR.cpp │ │ └── EssentialsDBCR.res │ └── Delphi │ │ ├── EssentialsDBDR.dpk │ │ ├── EssentialsDBDR.dproj │ │ ├── EssentialsDBDR.ico │ │ ├── EssentialsDBDR.res │ │ ├── EssentialsDD.dpk │ │ ├── EssentialsDD.dproj │ │ ├── EssentialsDD.ico │ │ ├── EssentialsDD.res │ │ ├── EssentialsDR.dpk │ │ ├── EssentialsDR.dproj │ │ ├── EssentialsDR.ico │ │ ├── EssentialsDR.res │ │ └── EssentialsDelphi.groupproj └── Tokyo │ ├── CBuilder │ ├── EssentialsCBuilder.groupproj │ ├── EssentialsCD.cbproj │ ├── EssentialsCD.cpp │ ├── EssentialsCD.res │ ├── EssentialsCR.cbproj │ ├── EssentialsCR.cpp │ ├── EssentialsCR.res │ ├── EssentialsDBCR.cbproj │ ├── EssentialsDBCR.cpp │ └── EssentialsDBCR.res │ └── Delphi │ ├── EssentialsDBDR.dpk │ ├── EssentialsDBDR.dproj │ ├── EssentialsDBDR.ico │ ├── EssentialsDBDR.res │ ├── EssentialsDD.dpk │ ├── EssentialsDD.dproj │ ├── EssentialsDD.ico │ ├── EssentialsDD.res │ ├── EssentialsDR.dpk │ ├── EssentialsDR.dproj │ ├── EssentialsDR.ico │ ├── EssentialsDR.res │ └── EssentialsDelphi.groupproj └── source ├── ESBASE.R32 ├── ESBASE.RC ├── ESCONST.R32 ├── ESCONST.STR ├── ESDIR.R32 ├── ESDIR.RC ├── ESREG.RC ├── ESREGDB.RC ├── ESSENCE.MAK ├── EsAbout0.dfm ├── EsAbout0.pas ├── EsBase0.pas ├── EsCal.pas ├── EsCalc.pas ├── EsClrCbx.pas ├── EsConst.pas ├── EsData.pas ├── EsDbEd.pas ├── EsDir.pas ├── EsEdCal.PAS ├── EsEdPop.pas ├── EsGrad.pas ├── EsLabel0.PAS ├── EsLabel0.dfm ├── EsLabel1.PAS ├── EsLabel1.dfm ├── EsMarque.pas ├── EsMnuBtn.pas ├── EsReg.pas ├── EsRegDb.pas ├── EsSrmgr.pas ├── EsSrmgr.r32 ├── EsSrmgr.rc ├── EsSrmgr.s16 ├── EsSrmgr.s32 ├── EsSrmgr.str ├── EsTile.pas ├── EsWebPE.pas ├── Esbase.pas ├── Eslabel.pas ├── Tests ├── EssentialsTests.dpr ├── EssentialsTests.dproj ├── EssentialsTests.res └── TestEsEdCal.pas ├── esconst.rc ├── esconst.s16 ├── esconst.s32 ├── esedcalc.pas ├── esreg.r32 ├── esregdb.r32 ├── esrollup.pas └── esutil.PAS /.gitattributes: -------------------------------------------------------------------------------- 1 | # Set the default behavior, in case people don't have core.autocrlf set. 2 | * text=auto 3 | 4 | # Explicitly declare text files you want to always be normalized and converted 5 | # to native line endings on checkout. 6 | *.pas text 7 | *.dfm text 8 | *.md text 9 | *.txt text 10 | *.java text 11 | *.cs text 12 | *.cpp text 13 | *.dpk -text 14 | *.dproj -text 15 | *.groupproj -text 16 | 17 | # Declare files that will always have CRLF line endings on checkout. 18 | 19 | # Denote all files that are truly binary and should not be modified. 20 | *.exe binary 21 | *.res binary 22 | -------------------------------------------------------------------------------- /.gitignore: -------------------------------------------------------------------------------- 1 | 2 | Release 3 | Debug 4 | __history 5 | *.stat 6 | *.local 7 | *.identcache 8 | *.dcu 9 | *.dsk 10 | *.~* 11 | *.obj 12 | *.tmp 13 | *.apk 14 | *.bpl 15 | *.cgi 16 | *.d 17 | *.dct 18 | *.dcr 19 | *.dres 20 | *.dst 21 | *.entitlements 22 | *.i 23 | *.ilc 24 | *.ild 25 | *.ilf 26 | *.ilr 27 | *.ils 28 | *.ipa 29 | *.map 30 | *.o 31 | *.ocx 32 | *.pdi 33 | *.profile 34 | *.sdk 35 | *.rsm 36 | *.so 37 | *.tds 38 | *.vlb 39 | *.hpp 40 | *.tvsconfig 41 | -------------------------------------------------------------------------------- /.hgignore: -------------------------------------------------------------------------------- 1 | syntax: glob 2 | *.local 3 | *.dsk 4 | *identcache 5 | *.~dsk 6 | *.tvsconfig 7 | __history 8 | Win32 9 | Win64 10 | iOSSimulator 11 | Android 12 | OSX32 13 | Debug 14 | Release 15 | *.exe 16 | *.otares 17 | *.stat 18 | -------------------------------------------------------------------------------- /Essentials-1.2.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/Essentials-1.2.png -------------------------------------------------------------------------------- /Readme.md: -------------------------------------------------------------------------------- 1 | # TurboPack Essentials 2 | 3 | Updated for **10.3 Rio** / VER330 / PKG 260 4 | 5 | You can still access [10.2 Tokyo](https://github.com/TurboPack/Essentials/releases/tag/102Tokyo) and [10.1 Berlin](https://github.com/TurboPack/Essentials/releases/tag/101Berlin) too. 6 | 7 | ## Table of contents 8 | 9 | 1. Introduction 10 | 2. Package names 11 | 3. Installation 12 | 4. License 13 | 14 | ----- 15 | 16 | ## 1. Introduction 17 | 18 | Essentials contains 13 native VCL controls for Embarcadero Delphi & 19 | C++Builder. The controls include drop-down calendars & calculators, 20 | roll-up dialogs, 3-D labels, tiled backgrounds, scrolling messages, 21 | menu buttons, and more. 22 | 23 | This is a source-only release of TurboPack Essentials. It includes 24 | designtime and runtime packages for Delphi C++Builder. It supports WIn32 and Win64. 25 | 26 | ----- 27 | 28 | ## 2. Package names 29 | 30 | TurboPack Essentials package names have the following form: 31 | 32 | Delphi 33 | * EssentialsDR.bpl (Delphi Runtime) 34 | * EssentialsDBDR.bpl (Delphi data aware Runtime) 35 | * EssentialsDD.bpl (Delphi Designtime) 36 | * EssentialsDBDD.bpl (Delphi data aware Designtime) 37 | 38 | C++Builder 39 | * EssentialsCR.bpl (C++Builder Runtime) 40 | * EssentialsDBCR.bpl (C++Builder data aware Runtime) 41 | * EssentialsCD.bpl (C++Builder Runtime) 42 | 43 | The runtime package contains the core functionality of the product and 44 | is not installed into the IDE. The designtime package references the 45 | runtime package, registers the components, and contains property 46 | editors used in the IDE. 47 | 48 | ----- 49 | 50 | ## 3. Installation 51 | 52 | TurboPack Essentials is available via the [GetIt Package Manager](http://docwiki.embarcadero.com/RADStudio/en/Installing_a_Package_Using_GetIt_Package_Manager) where you can quickly and easily install and uninstall it. 53 | 54 | To manually install TurboPack Essentials into your IDE, take the following 55 | steps: 56 | 57 | 1. Unzip the release files into a directory (e.g., d:\essence). 58 | 59 | 2. Start RAD Studio. 60 | 61 | 3. Add the source subdirectory (e.g., d:\essence\source) to the 62 | IDE's library path. For CBuilder, add the hpp subdirectory 63 | (e.g., d:\essence\source\hpp\Win32\Release) to the IDE's system include path. 64 | 65 | 4. Open & compile the runtime package specific to the IDE being 66 | used. 67 | 68 | 5. Open & install the designtime package specific to the IDE being 69 | used. The IDE should notify you the components have been 70 | installed. 71 | 72 | ----- 73 | 74 | ## 4. License 75 | 76 | [Mozilla Public License 1.1 (MPL 1.1)](https://www.mozilla.org/en-US/MPL/1.1/) 77 | -------------------------------------------------------------------------------- /packages/11AndAbove/CBuilder/EssentialsCBuilder.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {A409CA77-3247-43C3-94F9-35206C95F576} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | Default.Personality.12 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | -------------------------------------------------------------------------------- /packages/11AndAbove/CBuilder/EssentialsCD.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | USEFORMNS("..\..\source\EsAbout0.pas", Esabout0, EsAboutForm); 6 | USEFORMNS("..\..\source\EsLabel1.pas", Eslabel1, SaveSchemeFrm); 7 | //--------------------------------------------------------------------------- 8 | #pragma package(smart_init) 9 | //--------------------------------------------------------------------------- 10 | 11 | // Package-Quelltext. 12 | //--------------------------------------------------------------------------- 13 | 14 | 15 | #pragma argsused 16 | extern "C" int _libmain(unsigned long reason) 17 | { 18 | return 1; 19 | } 20 | //--------------------------------------------------------------------------- 21 | -------------------------------------------------------------------------------- /packages/11AndAbove/CBuilder/EssentialsCD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/11AndAbove/CBuilder/EssentialsCD.res -------------------------------------------------------------------------------- /packages/11AndAbove/CBuilder/EssentialsCR.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | #pragma package(smart_init) 6 | //--------------------------------------------------------------------------- 7 | 8 | // Package-Quelltext. 9 | //--------------------------------------------------------------------------- 10 | 11 | 12 | #pragma argsused 13 | extern "C" int _libmain(unsigned long reason) 14 | { 15 | return 1; 16 | } 17 | //--------------------------------------------------------------------------- 18 | -------------------------------------------------------------------------------- /packages/11AndAbove/CBuilder/EssentialsCR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/11AndAbove/CBuilder/EssentialsCR.res -------------------------------------------------------------------------------- /packages/11AndAbove/CBuilder/EssentialsDBCR.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | #pragma package(smart_init) 6 | //--------------------------------------------------------------------------- 7 | 8 | // Package-Quelltext. 9 | //--------------------------------------------------------------------------- 10 | 11 | 12 | #pragma argsused 13 | extern "C" int _libmain(unsigned long reason) 14 | { 15 | return 1; 16 | } 17 | //--------------------------------------------------------------------------- 18 | -------------------------------------------------------------------------------- /packages/11AndAbove/CBuilder/EssentialsDBCR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/11AndAbove/CBuilder/EssentialsDBCR.res -------------------------------------------------------------------------------- /packages/11AndAbove/Delphi/EssentialsDBDD.dpk: -------------------------------------------------------------------------------- 1 | package EssentialsDBDD; 2 | 3 | {$R *.res} 4 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 5 | {$ALIGN 8} 6 | {$ASSERTIONS ON} 7 | {$BOOLEVAL OFF} 8 | {$DEBUGINFO OFF} 9 | {$EXTENDEDSYNTAX ON} 10 | {$IMPORTEDDATA ON} 11 | {$IOCHECKS ON} 12 | {$LOCALSYMBOLS OFF} 13 | {$LONGSTRINGS ON} 14 | {$OPENSTRINGS ON} 15 | {$OPTIMIZATION ON} 16 | {$OVERFLOWCHECKS OFF} 17 | {$RANGECHECKS OFF} 18 | {$REFERENCEINFO OFF} 19 | {$SAFEDIVIDE OFF} 20 | {$STACKFRAMES OFF} 21 | {$TYPEDADDRESS OFF} 22 | {$VARSTRINGCHECKS ON} 23 | {$WRITEABLECONST OFF} 24 | {$MINENUMSIZE 1} 25 | {$IMAGEBASE $400000} 26 | {$DEFINE RELEASE} 27 | {$ENDIF IMPLICITBUILDING} 28 | {$DESCRIPTION 'TurboPack Essentials Delphi DB Designtime package'} 29 | {$LIBSUFFIX AUTO} 30 | {$DESIGNONLY} 31 | {$IMPLICITBUILD OFF} 32 | 33 | requires 34 | vcl, 35 | designide, 36 | EssentialsDBDR; 37 | 38 | contains 39 | EsRegDb in '..\..\..\source\EsRegDb.pas'; 40 | 41 | end. 42 | -------------------------------------------------------------------------------- /packages/11AndAbove/Delphi/EssentialsDBDD.dproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | True 4 | Package 5 | Release 6 | VCL 7 | EssentialsDBDD.dpk 8 | Win32 9 | {7398384E-6F15-4D44-AA21-5DC9274A1F00} 10 | EssentialsDBDD 11 | 20.3 12 | 3 13 | 14 | 15 | true 16 | 17 | 18 | true 19 | Base 20 | true 21 | 22 | 23 | true 24 | Base 25 | true 26 | 27 | 28 | true 29 | Base 30 | true 31 | 32 | 33 | true 34 | Cfg_1 35 | true 36 | true 37 | 38 | 39 | true 40 | Base 41 | true 42 | 43 | 44 | true 45 | Cfg_2 46 | true 47 | true 48 | 49 | 50 | EssentialsDBDD 51 | All 52 | .\$(Platform)\$(Config) 53 | TurboPack Essentials Delphi DB Designtime package 54 | .\$(Platform)\$(Config) 55 | System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace) 56 | true 57 | true 58 | $(Auto) 59 | true 60 | true 61 | CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments= 62 | 1031 63 | 64 | 65 | Debug 66 | Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) 67 | vcl;EssentialsDBDR;$(DCC_UsePackage) 68 | true 69 | CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments= 70 | 1033 71 | 72 | 73 | Debug 74 | Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace) 75 | true 76 | 1033 77 | 78 | 79 | true 80 | true 81 | DEBUG;$(DCC_Define) 82 | true 83 | true 84 | false 85 | true 86 | true 87 | 88 | 89 | false 90 | true 91 | 1033 92 | 93 | 94 | 0 95 | RELEASE;$(DCC_Define) 96 | false 97 | 0 98 | 99 | 100 | true 101 | 1033 102 | 103 | 104 | 105 | MainSource 106 | 107 | 108 | 109 | 110 | 111 | 112 | Base 113 | 114 | 115 | Cfg_1 116 | Base 117 | 118 | 119 | Cfg_2 120 | Base 121 | 122 | 123 | 124 | Delphi.Personality.12 125 | Package 126 | 127 | 128 | 129 | EssentialsDBDD.dpk 130 | 131 | 132 | 133 | 134 | False 135 | False 136 | False 137 | False 138 | False 139 | True 140 | True 141 | False 142 | False 143 | False 144 | 145 | 146 | 12 147 | 148 | 149 | 150 | 151 | 152 | -------------------------------------------------------------------------------- /packages/11AndAbove/Delphi/EssentialsDBDD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/11AndAbove/Delphi/EssentialsDBDD.res -------------------------------------------------------------------------------- /packages/11AndAbove/Delphi/EssentialsDBDR.dpk: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | package EssentialsDBDR; 28 | 29 | {$R *.res} 30 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 31 | {$ALIGN 8} 32 | {$ASSERTIONS OFF} 33 | {$BOOLEVAL OFF} 34 | {$DEBUGINFO OFF} 35 | {$EXTENDEDSYNTAX ON} 36 | {$IMPORTEDDATA ON} 37 | {$IOCHECKS ON} 38 | {$LOCALSYMBOLS OFF} 39 | {$LONGSTRINGS ON} 40 | {$OPENSTRINGS ON} 41 | {$OPTIMIZATION ON} 42 | {$OVERFLOWCHECKS OFF} 43 | {$RANGECHECKS OFF} 44 | {$REFERENCEINFO OFF} 45 | {$SAFEDIVIDE OFF} 46 | {$STACKFRAMES OFF} 47 | {$TYPEDADDRESS OFF} 48 | {$VARSTRINGCHECKS ON} 49 | {$WRITEABLECONST ON} 50 | {$MINENUMSIZE 1} 51 | {$IMAGEBASE $400000} 52 | {$DEFINE RELEASE} 53 | {$ENDIF IMPLICITBUILDING} 54 | {$DESCRIPTION 'TurboPack Essentials Delphi DB Runtime package'} 55 | {$LIBSUFFIX AUTO} 56 | {$RUNONLY} 57 | {$IMPLICITBUILD OFF} 58 | 59 | requires 60 | vcl, 61 | vcldb, 62 | EssentialsDR; 63 | 64 | contains 65 | EsDbEd in '..\..\..\source\EsDbEd.pas'; 66 | 67 | end. 68 | -------------------------------------------------------------------------------- /packages/11AndAbove/Delphi/EssentialsDBDR.dproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | True 4 | Package 5 | Release 6 | DCC32 7 | VCL 8 | EssentialsDBDR.dpk 9 | Win32 10 | {CB8A20F8-EEA0-4CA5-9279-D207C5D4E5F0} 11 | EssentialsDBDR 12 | 20.3 13 | 3 14 | 15 | 16 | true 17 | 18 | 19 | true 20 | Base 21 | true 22 | 23 | 24 | true 25 | Base 26 | true 27 | 28 | 29 | true 30 | Base 31 | true 32 | 33 | 34 | true 35 | Cfg_1 36 | true 37 | true 38 | 39 | 40 | true 41 | Base 42 | true 43 | 44 | 45 | true 46 | Cfg_2 47 | true 48 | true 49 | 50 | 51 | EssentialsDBDR 52 | false 53 | ..\cpp\$(Platform)\$(Config) 54 | All 55 | .\$(Platform)\$(Config) 56 | 0 57 | C:\Users\Public\Documents\RAD Studio\7.0\Bpl\E111BR140.bpl 58 | TurboPack Essentials Delphi DB Runtime package 59 | ..\cpp\$(Platform)\$(Config) 60 | 00400000 61 | false 62 | Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace) 63 | ..\cpp\$(Platform)\$(Config) 64 | true 65 | x86 66 | 0 67 | true 68 | $(Auto) 69 | true 70 | true 71 | true 72 | false 73 | true 74 | CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= 75 | 1031 76 | 77 | 78 | Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) 79 | EssentialsDBDR.ico 80 | 1033 81 | 82 | 83 | Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace) 84 | EssentialsDBDR.ico 85 | 1033 86 | 87 | 88 | RELEASE;$(DCC_Define) 89 | false 90 | 0 91 | 92 | 93 | 1033 94 | 95 | 96 | 0 97 | DEBUG;$(DCC_Define) 98 | 99 | 100 | 1033 101 | 102 | 103 | 104 | MainSource 105 | 106 | 107 | 108 | 109 | 110 | 111 | Base 112 | 113 | 114 | Cfg_1 115 | Base 116 | 117 | 118 | Cfg_2 119 | Base 120 | 121 | 122 | 123 | 124 | Delphi.Personality.12 125 | Package 126 | 127 | 128 | 129 | EssentialsDBDR.dpk 130 | 131 | 132 | 133 | True 134 | False 135 | 1 136 | 0 137 | 0 138 | 0 139 | False 140 | False 141 | False 142 | False 143 | False 144 | 1031 145 | 1252 146 | 147 | 148 | 149 | 150 | 1.0.0.0 151 | 152 | 153 | 154 | 155 | 156 | 1.0.0.0 157 | 158 | 159 | 160 | False 161 | True 162 | False 163 | 164 | 165 | 166 | False 167 | False 168 | False 169 | False 170 | False 171 | True 172 | True 173 | False 174 | False 175 | False 176 | 177 | 178 | 12 179 | 180 | 181 | 182 | 183 | -------------------------------------------------------------------------------- /packages/11AndAbove/Delphi/EssentialsDBDR.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/11AndAbove/Delphi/EssentialsDBDR.ico -------------------------------------------------------------------------------- /packages/11AndAbove/Delphi/EssentialsDBDR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/11AndAbove/Delphi/EssentialsDBDR.res -------------------------------------------------------------------------------- /packages/11AndAbove/Delphi/EssentialsDD.dpk: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | package EssentialsDD; 28 | 29 | {$R *.res} 30 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 31 | {$ALIGN 8} 32 | {$ASSERTIONS ON} 33 | {$BOOLEVAL OFF} 34 | {$DEBUGINFO OFF} 35 | {$EXTENDEDSYNTAX ON} 36 | {$IMPORTEDDATA ON} 37 | {$IOCHECKS ON} 38 | {$LOCALSYMBOLS OFF} 39 | {$LONGSTRINGS ON} 40 | {$OPENSTRINGS ON} 41 | {$OPTIMIZATION ON} 42 | {$OVERFLOWCHECKS OFF} 43 | {$RANGECHECKS OFF} 44 | {$REFERENCEINFO OFF} 45 | {$SAFEDIVIDE OFF} 46 | {$STACKFRAMES OFF} 47 | {$TYPEDADDRESS OFF} 48 | {$VARSTRINGCHECKS ON} 49 | {$WRITEABLECONST ON} 50 | {$MINENUMSIZE 1} 51 | {$IMAGEBASE $400000} 52 | {$DEFINE RELEASE} 53 | {$ENDIF IMPLICITBUILDING} 54 | {$DESCRIPTION 'TurboPack Essentials Delphi Designtime package'} 55 | {$LIBSUFFIX AUTO} 56 | {$DESIGNONLY} 57 | {$IMPLICITBUILD OFF} 58 | 59 | requires 60 | vcl, 61 | designide, 62 | EssentialsDR; 63 | 64 | contains 65 | EsBase0 in '..\..\..\source\EsBase0.pas', 66 | EsReg in '..\..\..\source\EsReg.pas', 67 | EsLabel0 in '..\..\..\source\EsLabel0.pas', 68 | EsLabel1 in '..\..\..\source\EsLabel1.pas', 69 | EsDir in '..\..\..\source\EsDir.pas', 70 | EsAbout0 in '..\..\..\source\EsAbout0.pas', 71 | EsWebPE in '..\..\..\source\EsWebPE.pas'; 72 | 73 | end. 74 | -------------------------------------------------------------------------------- /packages/11AndAbove/Delphi/EssentialsDD.dproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | True 4 | Package 5 | Release 6 | DCC32 7 | VCL 8 | EssentialsDD.dpk 9 | Win32 10 | {54E58455-461F-4DC2-A6B0-49CDD542C794} 11 | EssentialsDD 12 | 20.3 13 | 3 14 | 15 | 16 | true 17 | 18 | 19 | true 20 | Base 21 | true 22 | 23 | 24 | true 25 | Base 26 | true 27 | 28 | 29 | true 30 | Base 31 | true 32 | 33 | 34 | true 35 | Cfg_1 36 | true 37 | true 38 | 39 | 40 | true 41 | Base 42 | true 43 | 44 | 45 | true 46 | Cfg_2 47 | true 48 | true 49 | 50 | 51 | EssentialsDD 52 | ..\cpp\$(Platform)\$(Config) 53 | All 54 | .\$(Platform)\$(Config) 55 | C:\Users\Public\Documents\RAD Studio\7.0\Bpl\E111_D140.bpl 56 | TurboPack Essentials Delphi Designtime package 57 | ..\cpp\$(Platform)\$(Config) 58 | 00400000 59 | Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace) 60 | ..\cpp\$(Platform)\$(Config) 61 | true 62 | x86 63 | 0 64 | true 65 | true 66 | $(Auto) 67 | true 68 | true 69 | false 70 | true 71 | CompanyName=TurboPower Software Company;FileDescription=;FileVersion=1.11.0.0;InternalName=;LegalCopyright=(c) TurboPower Software Co, 1997-2002;LegalTrademarks=;OriginalFilename=;ProductName=Essentials;ProductVersion=1.11;Comments= 72 | 1033 73 | 11 74 | 75 | 76 | Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) 77 | EssentialsDD.ico 78 | CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName) 79 | 0 80 | 81 | 82 | Debug 83 | Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace) 84 | CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments= 85 | 86 | 87 | 0 88 | RELEASE;$(DCC_Define) 89 | false 90 | 0 91 | 92 | 93 | CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName) 94 | 0 95 | 96 | 97 | DEBUG;$(DCC_Define) 98 | 99 | 100 | CompanyName=;FileVersion=1.11.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName) 101 | 102 | 103 | 104 | MainSource 105 | 106 | 107 | 108 | 109 | 110 | 111 | 112 | 113 | 114 | 115 | 116 | 117 | Base 118 | 119 | 120 | Cfg_1 121 | Base 122 | 123 | 124 | Cfg_2 125 | Base 126 | 127 | 128 | 129 | 130 | Delphi.Personality.12 131 | Package 132 | 133 | 134 | 135 | EssentialsDD.dpk 136 | 137 | 138 | 139 | True 140 | False 141 | 1 142 | 11 143 | 0 144 | 0 145 | False 146 | False 147 | False 148 | False 149 | False 150 | 1033 151 | 1252 152 | 153 | 154 | TurboPower Software Company 155 | 156 | 1.11.0.0 157 | 158 | (c) TurboPower Software Co, 1997-2002 159 | 160 | 161 | Essentials 162 | 1.11 163 | 164 | 165 | 166 | False 167 | True 168 | False 169 | 170 | 171 | 172 | False 173 | False 174 | False 175 | False 176 | False 177 | True 178 | True 179 | False 180 | False 181 | False 182 | 183 | 184 | 12 185 | 186 | 187 | 188 | 189 | -------------------------------------------------------------------------------- /packages/11AndAbove/Delphi/EssentialsDD.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/11AndAbove/Delphi/EssentialsDD.ico -------------------------------------------------------------------------------- /packages/11AndAbove/Delphi/EssentialsDD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/11AndAbove/Delphi/EssentialsDD.res -------------------------------------------------------------------------------- /packages/11AndAbove/Delphi/EssentialsDR.dpk: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | package EssentialsDR; 28 | 29 | {$R *.res} 30 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 31 | {$ALIGN 8} 32 | {$ASSERTIONS OFF} 33 | {$BOOLEVAL OFF} 34 | {$DEBUGINFO OFF} 35 | {$EXTENDEDSYNTAX ON} 36 | {$IMPORTEDDATA ON} 37 | {$IOCHECKS ON} 38 | {$LOCALSYMBOLS OFF} 39 | {$LONGSTRINGS ON} 40 | {$OPENSTRINGS ON} 41 | {$OPTIMIZATION ON} 42 | {$OVERFLOWCHECKS OFF} 43 | {$RANGECHECKS OFF} 44 | {$REFERENCEINFO OFF} 45 | {$SAFEDIVIDE OFF} 46 | {$STACKFRAMES OFF} 47 | {$TYPEDADDRESS OFF} 48 | {$VARSTRINGCHECKS ON} 49 | {$WRITEABLECONST ON} 50 | {$MINENUMSIZE 1} 51 | {$IMAGEBASE $400000} 52 | {$DEFINE RELEASE} 53 | {$ENDIF IMPLICITBUILDING} 54 | {$DESCRIPTION 'TurboPack Essentials Delphi Runtime package'} 55 | {$LIBSUFFIX AUTO} 56 | {$RUNONLY} 57 | {$IMPLICITBUILD OFF} 58 | 59 | requires 60 | vcl; 61 | 62 | contains 63 | EsBase in '..\..\..\source\EsBase.pas', 64 | EsCal in '..\..\..\source\EsCal.pas', 65 | EsCalc in '..\..\..\source\EsCalc.pas', 66 | EsClrCbx in '..\..\..\source\EsClrCbx.pas', 67 | EsConst in '..\..\..\source\EsConst.pas', 68 | EsData in '..\..\..\source\EsData.pas', 69 | EsEdCal in '..\..\..\source\EsEdCal.pas', 70 | EsEdCalc in '..\..\..\source\EsEdCalc.pas', 71 | EsEdPop in '..\..\..\source\EsEdPop.pas', 72 | EsGrad in '..\..\..\source\EsGrad.pas', 73 | EsLabel in '..\..\..\source\EsLabel.pas', 74 | EsMarque in '..\..\..\source\EsMarque.pas', 75 | EsMnuBtn in '..\..\..\source\EsMnuBtn.pas', 76 | EsRollup in '..\..\..\source\EsRollup.pas', 77 | EsTile in '..\..\..\source\EsTile.pas', 78 | EsUtil in '..\..\..\source\EsUtil.pas', 79 | EsSrmgr in '..\..\..\source\EsSrmgr.pas'; 80 | 81 | end. 82 | -------------------------------------------------------------------------------- /packages/11AndAbove/Delphi/EssentialsDR.dproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | True 4 | Package 5 | Release 6 | DCC32 7 | VCL 8 | EssentialsDR.dpk 9 | Win32 10 | {D3F562CC-A79B-46DA-83B7-DA2EC0A05D05} 11 | EssentialsDR 12 | 20.3 13 | 3 14 | 15 | 16 | true 17 | 18 | 19 | true 20 | Base 21 | true 22 | 23 | 24 | true 25 | Base 26 | true 27 | 28 | 29 | true 30 | Base 31 | true 32 | 33 | 34 | true 35 | Cfg_1 36 | true 37 | true 38 | 39 | 40 | true 41 | Cfg_1 42 | true 43 | true 44 | 45 | 46 | true 47 | Base 48 | true 49 | 50 | 51 | true 52 | Cfg_2 53 | true 54 | true 55 | 56 | 57 | true 58 | Cfg_2 59 | true 60 | true 61 | 62 | 63 | EssentialsDR 64 | false 65 | ..\cpp\$(Platform)\$(Config) 66 | All 67 | .\$(Platform)\$(Config) 68 | 0 69 | C:\Users\Public\Documents\RAD Studio\7.0\Bpl\E111_R140.bpl 70 | TurboPack Essentials Delphi Runtime package 71 | ..\cpp\$(Platform)\$(Config) 72 | 00400000 73 | false 74 | Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace) 75 | ..\cpp\$(Platform)\$(Config) 76 | true 77 | x86 78 | 0 79 | true 80 | $(Auto) 81 | true 82 | true 83 | true 84 | false 85 | true 86 | CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= 87 | 1031 88 | 89 | 90 | Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) 91 | EssentialsDR.ico 92 | 1033 93 | 94 | 95 | Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace) 96 | EssentialsDR.ico 97 | 1033 98 | 99 | 100 | RELEASE;$(DCC_Define) 101 | false 102 | 0 103 | 104 | 105 | 1033 106 | 107 | 108 | 1033 109 | 110 | 111 | 0 112 | DEBUG;$(DCC_Define) 113 | 114 | 115 | 1033 116 | 117 | 118 | 1033 119 | 120 | 121 | 122 | MainSource 123 | 124 | 125 | 126 | 127 | 128 | 129 | 130 | 131 | 132 | 133 | 134 | 135 | 136 | 137 | 138 | 139 | 140 | 141 | 142 | 143 | Base 144 | 145 | 146 | Cfg_1 147 | Base 148 | 149 | 150 | Cfg_2 151 | Base 152 | 153 | 154 | 155 | 156 | Delphi.Personality.12 157 | Package 158 | 159 | 160 | 161 | EssentialsDR.dpk 162 | 163 | 164 | 165 | True 166 | False 167 | 1 168 | 0 169 | 0 170 | 0 171 | False 172 | False 173 | False 174 | False 175 | False 176 | 1031 177 | 1252 178 | 179 | 180 | 181 | 182 | 1.0.0.0 183 | 184 | 185 | 186 | 187 | 188 | 1.0.0.0 189 | 190 | 191 | 192 | False 193 | True 194 | False 195 | 196 | 197 | 198 | False 199 | False 200 | False 201 | False 202 | False 203 | True 204 | True 205 | False 206 | False 207 | False 208 | 209 | 210 | 12 211 | 212 | 213 | 214 | 215 | -------------------------------------------------------------------------------- /packages/11AndAbove/Delphi/EssentialsDR.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/11AndAbove/Delphi/EssentialsDR.ico -------------------------------------------------------------------------------- /packages/11AndAbove/Delphi/EssentialsDR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/11AndAbove/Delphi/EssentialsDR.res -------------------------------------------------------------------------------- /packages/11AndAbove/Delphi/EssentialsDelphi.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {812935DC-3817-419E-9937-E3319E7CA6E7} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | Default.Personality.12 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | -------------------------------------------------------------------------------- /packages/Berlin/CBuilder/EssentialsCBuilder.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {A409CA77-3247-43C3-94F9-35206C95F576} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | Default.Personality.12 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | -------------------------------------------------------------------------------- /packages/Berlin/CBuilder/EssentialsCD.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | USEFORMNS("..\..\..\source\EsAbout0.pas", Esabout0, EsAboutForm); 6 | USEFORMNS("..\..\..\source\EsLabel1.pas", Eslabel1, SaveSchemeFrm); 7 | //--------------------------------------------------------------------------- 8 | #pragma package(smart_init) 9 | //--------------------------------------------------------------------------- 10 | 11 | // Package-Quelltext. 12 | //--------------------------------------------------------------------------- 13 | 14 | 15 | #pragma argsused 16 | extern "C" int _libmain(unsigned long reason) 17 | { 18 | return 1; 19 | } 20 | //--------------------------------------------------------------------------- 21 | -------------------------------------------------------------------------------- /packages/Berlin/CBuilder/EssentialsCD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Berlin/CBuilder/EssentialsCD.res -------------------------------------------------------------------------------- /packages/Berlin/CBuilder/EssentialsCR.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | #pragma package(smart_init) 6 | //--------------------------------------------------------------------------- 7 | 8 | // Package-Quelltext. 9 | //--------------------------------------------------------------------------- 10 | 11 | 12 | #pragma argsused 13 | extern "C" int _libmain(unsigned long reason) 14 | { 15 | return 1; 16 | } 17 | //--------------------------------------------------------------------------- 18 | -------------------------------------------------------------------------------- /packages/Berlin/CBuilder/EssentialsCR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Berlin/CBuilder/EssentialsCR.res -------------------------------------------------------------------------------- /packages/Berlin/CBuilder/EssentialsDBCR.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | #pragma package(smart_init) 6 | //--------------------------------------------------------------------------- 7 | 8 | // Package-Quelltext. 9 | //--------------------------------------------------------------------------- 10 | 11 | 12 | #pragma argsused 13 | extern "C" int _libmain(unsigned long reason) 14 | { 15 | return 1; 16 | } 17 | //--------------------------------------------------------------------------- 18 | -------------------------------------------------------------------------------- /packages/Berlin/CBuilder/EssentialsDBCR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Berlin/CBuilder/EssentialsDBCR.res -------------------------------------------------------------------------------- /packages/Berlin/Delphi/EssentialsDBDR.dpk: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | package EssentialsDBDR; 28 | 29 | {$R *.res} 30 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 31 | {$ALIGN 8} 32 | {$ASSERTIONS OFF} 33 | {$BOOLEVAL OFF} 34 | {$DEBUGINFO OFF} 35 | {$EXTENDEDSYNTAX ON} 36 | {$IMPORTEDDATA ON} 37 | {$IOCHECKS ON} 38 | {$LOCALSYMBOLS OFF} 39 | {$LONGSTRINGS ON} 40 | {$OPENSTRINGS ON} 41 | {$OPTIMIZATION ON} 42 | {$OVERFLOWCHECKS OFF} 43 | {$RANGECHECKS OFF} 44 | {$REFERENCEINFO OFF} 45 | {$SAFEDIVIDE OFF} 46 | {$STACKFRAMES OFF} 47 | {$TYPEDADDRESS OFF} 48 | {$VARSTRINGCHECKS ON} 49 | {$WRITEABLECONST ON} 50 | {$MINENUMSIZE 1} 51 | {$IMAGEBASE $400000} 52 | {$DEFINE DEBUG} 53 | {$ENDIF IMPLICITBUILDING} 54 | {$DESCRIPTION 'TurboPack Essentials Delphi DB Runtime package'} 55 | {$LIBSUFFIX '240'} 56 | {$RUNONLY} 57 | {$IMPLICITBUILD OFF} 58 | 59 | requires 60 | vcl, 61 | vcldb, 62 | EssentialsDR; 63 | 64 | contains 65 | EsDbEd in '..\..\..\source\EsDbEd.pas'; 66 | 67 | end. 68 | -------------------------------------------------------------------------------- /packages/Berlin/Delphi/EssentialsDBDR.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Berlin/Delphi/EssentialsDBDR.ico -------------------------------------------------------------------------------- /packages/Berlin/Delphi/EssentialsDBDR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Berlin/Delphi/EssentialsDBDR.res -------------------------------------------------------------------------------- /packages/Berlin/Delphi/EssentialsDD.dpk: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | package EssentialsDD; 28 | 29 | {$R *.res} 30 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 31 | {$ALIGN 8} 32 | {$ASSERTIONS ON} 33 | {$BOOLEVAL OFF} 34 | {$DEBUGINFO OFF} 35 | {$EXTENDEDSYNTAX ON} 36 | {$IMPORTEDDATA ON} 37 | {$IOCHECKS ON} 38 | {$LOCALSYMBOLS ON} 39 | {$LONGSTRINGS ON} 40 | {$OPENSTRINGS ON} 41 | {$OPTIMIZATION ON} 42 | {$OVERFLOWCHECKS OFF} 43 | {$RANGECHECKS OFF} 44 | {$REFERENCEINFO OFF} 45 | {$SAFEDIVIDE OFF} 46 | {$STACKFRAMES OFF} 47 | {$TYPEDADDRESS OFF} 48 | {$VARSTRINGCHECKS ON} 49 | {$WRITEABLECONST ON} 50 | {$MINENUMSIZE 1} 51 | {$IMAGEBASE $400000} 52 | {$DEFINE DEBUG} 53 | {$ENDIF IMPLICITBUILDING} 54 | {$DESCRIPTION 'TurboPack Essentials Delphi Designtime package'} 55 | {$LIBSUFFIX '240'} 56 | {$DESIGNONLY} 57 | {$IMPLICITBUILD OFF} 58 | 59 | requires 60 | vcl, 61 | designide, 62 | EssentialsDR; 63 | 64 | contains 65 | EsBase0 in '..\..\..\source\EsBase0.pas', 66 | EsReg in '..\..\..\source\EsReg.pas', 67 | EsLabel0 in '..\..\..\source\EsLabel0.pas', 68 | EsLabel1 in '..\..\..\source\EsLabel1.pas', 69 | EsDir in '..\..\..\source\EsDir.pas', 70 | EsAbout0 in '..\..\..\source\EsAbout0.pas', 71 | EsWebPE in '..\..\..\source\EsWebPE.pas'; 72 | 73 | end. 74 | -------------------------------------------------------------------------------- /packages/Berlin/Delphi/EssentialsDD.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Berlin/Delphi/EssentialsDD.ico -------------------------------------------------------------------------------- /packages/Berlin/Delphi/EssentialsDD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Berlin/Delphi/EssentialsDD.res -------------------------------------------------------------------------------- /packages/Berlin/Delphi/EssentialsDR.dpk: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | package EssentialsDR; 28 | 29 | {$R *.res} 30 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 31 | {$ALIGN 8} 32 | {$ASSERTIONS OFF} 33 | {$BOOLEVAL OFF} 34 | {$DEBUGINFO OFF} 35 | {$EXTENDEDSYNTAX ON} 36 | {$IMPORTEDDATA ON} 37 | {$IOCHECKS ON} 38 | {$LOCALSYMBOLS OFF} 39 | {$LONGSTRINGS ON} 40 | {$OPENSTRINGS ON} 41 | {$OPTIMIZATION ON} 42 | {$OVERFLOWCHECKS OFF} 43 | {$RANGECHECKS OFF} 44 | {$REFERENCEINFO OFF} 45 | {$SAFEDIVIDE OFF} 46 | {$STACKFRAMES OFF} 47 | {$TYPEDADDRESS OFF} 48 | {$VARSTRINGCHECKS ON} 49 | {$WRITEABLECONST ON} 50 | {$MINENUMSIZE 1} 51 | {$IMAGEBASE $400000} 52 | {$DEFINE DEBUG} 53 | {$ENDIF IMPLICITBUILDING} 54 | {$DESCRIPTION 'TurboPack Essentials Delphi Runtime package'} 55 | {$LIBSUFFIX '240'} 56 | {$RUNONLY} 57 | {$IMPLICITBUILD OFF} 58 | 59 | requires 60 | vcl; 61 | 62 | contains 63 | EsBase in '..\..\..\source\EsBase.pas', 64 | EsCal in '..\..\..\source\EsCal.pas', 65 | EsCalc in '..\..\..\source\EsCalc.pas', 66 | EsClrCbx in '..\..\..\source\EsClrCbx.pas', 67 | EsConst in '..\..\..\source\EsConst.pas', 68 | EsData in '..\..\..\source\EsData.pas', 69 | EsEdCal in '..\..\..\source\EsEdCal.pas', 70 | EsEdCalc in '..\..\..\source\EsEdCalc.pas', 71 | EsEdPop in '..\..\..\source\EsEdPop.pas', 72 | EsGrad in '..\..\..\source\EsGrad.pas', 73 | EsLabel in '..\..\..\source\EsLabel.pas', 74 | EsMarque in '..\..\..\source\EsMarque.pas', 75 | EsMnuBtn in '..\..\..\source\EsMnuBtn.pas', 76 | EsRollup in '..\..\..\source\EsRollup.pas', 77 | EsTile in '..\..\..\source\EsTile.pas', 78 | EsUtil in '..\..\..\source\EsUtil.pas', 79 | EsSrmgr in '..\..\..\source\EsSrmgr.pas'; 80 | 81 | end. 82 | -------------------------------------------------------------------------------- /packages/Berlin/Delphi/EssentialsDR.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Berlin/Delphi/EssentialsDR.ico -------------------------------------------------------------------------------- /packages/Berlin/Delphi/EssentialsDR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Berlin/Delphi/EssentialsDR.res -------------------------------------------------------------------------------- /packages/Berlin/Delphi/EssentialsDelphi.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {812935DC-3817-419E-9937-E3319E7CA6E7} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | Default.Personality.12 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | -------------------------------------------------------------------------------- /packages/Rio/CBuilder/EssentialsCBuilder.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {A409CA77-3247-43C3-94F9-35206C95F576} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | Default.Personality.12 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | -------------------------------------------------------------------------------- /packages/Rio/CBuilder/EssentialsCD.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | USEFORMNS("..\..\..\source\EsAbout0.pas", Esabout0, EsAboutForm); 6 | USEFORMNS("..\..\..\source\EsLabel1.pas", Eslabel1, SaveSchemeFrm); 7 | //--------------------------------------------------------------------------- 8 | #pragma package(smart_init) 9 | //--------------------------------------------------------------------------- 10 | 11 | // Package-Quelltext. 12 | //--------------------------------------------------------------------------- 13 | 14 | 15 | #pragma argsused 16 | extern "C" int _libmain(unsigned long reason) 17 | { 18 | return 1; 19 | } 20 | //--------------------------------------------------------------------------- 21 | -------------------------------------------------------------------------------- /packages/Rio/CBuilder/EssentialsCD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Rio/CBuilder/EssentialsCD.res -------------------------------------------------------------------------------- /packages/Rio/CBuilder/EssentialsCR.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | #pragma package(smart_init) 6 | //--------------------------------------------------------------------------- 7 | 8 | // Package-Quelltext. 9 | //--------------------------------------------------------------------------- 10 | 11 | 12 | #pragma argsused 13 | extern "C" int _libmain(unsigned long reason) 14 | { 15 | return 1; 16 | } 17 | //--------------------------------------------------------------------------- 18 | -------------------------------------------------------------------------------- /packages/Rio/CBuilder/EssentialsCR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Rio/CBuilder/EssentialsCR.res -------------------------------------------------------------------------------- /packages/Rio/CBuilder/EssentialsDBCR.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | #pragma package(smart_init) 6 | //--------------------------------------------------------------------------- 7 | 8 | // Package-Quelltext. 9 | //--------------------------------------------------------------------------- 10 | 11 | 12 | #pragma argsused 13 | extern "C" int _libmain(unsigned long reason) 14 | { 15 | return 1; 16 | } 17 | //--------------------------------------------------------------------------- 18 | -------------------------------------------------------------------------------- /packages/Rio/CBuilder/EssentialsDBCR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Rio/CBuilder/EssentialsDBCR.res -------------------------------------------------------------------------------- /packages/Rio/Delphi/EssentialsDBDR.dpk: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | package EssentialsDBDR; 28 | 29 | {$R *.res} 30 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 31 | {$ALIGN 8} 32 | {$ASSERTIONS OFF} 33 | {$BOOLEVAL OFF} 34 | {$DEBUGINFO OFF} 35 | {$EXTENDEDSYNTAX ON} 36 | {$IMPORTEDDATA ON} 37 | {$IOCHECKS ON} 38 | {$LOCALSYMBOLS OFF} 39 | {$LONGSTRINGS ON} 40 | {$OPENSTRINGS ON} 41 | {$OPTIMIZATION ON} 42 | {$OVERFLOWCHECKS OFF} 43 | {$RANGECHECKS OFF} 44 | {$REFERENCEINFO OFF} 45 | {$SAFEDIVIDE OFF} 46 | {$STACKFRAMES OFF} 47 | {$TYPEDADDRESS OFF} 48 | {$VARSTRINGCHECKS ON} 49 | {$WRITEABLECONST ON} 50 | {$MINENUMSIZE 1} 51 | {$IMAGEBASE $400000} 52 | {$DEFINE DEBUG} 53 | {$ENDIF IMPLICITBUILDING} 54 | {$DESCRIPTION 'TurboPack Essentials Delphi DB Runtime package'} 55 | {$LIBSUFFIX '260'} 56 | {$RUNONLY} 57 | {$IMPLICITBUILD OFF} 58 | 59 | requires 60 | vcl, 61 | vcldb, 62 | EssentialsDR; 63 | 64 | contains 65 | EsDbEd in '..\..\..\source\EsDbEd.pas'; 66 | 67 | end. 68 | -------------------------------------------------------------------------------- /packages/Rio/Delphi/EssentialsDBDR.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Rio/Delphi/EssentialsDBDR.ico -------------------------------------------------------------------------------- /packages/Rio/Delphi/EssentialsDBDR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Rio/Delphi/EssentialsDBDR.res -------------------------------------------------------------------------------- /packages/Rio/Delphi/EssentialsDD.dpk: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | package EssentialsDD; 28 | 29 | {$R *.res} 30 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 31 | {$ALIGN 8} 32 | {$ASSERTIONS ON} 33 | {$BOOLEVAL OFF} 34 | {$DEBUGINFO OFF} 35 | {$EXTENDEDSYNTAX ON} 36 | {$IMPORTEDDATA ON} 37 | {$IOCHECKS ON} 38 | {$LOCALSYMBOLS ON} 39 | {$LONGSTRINGS ON} 40 | {$OPENSTRINGS ON} 41 | {$OPTIMIZATION ON} 42 | {$OVERFLOWCHECKS OFF} 43 | {$RANGECHECKS OFF} 44 | {$REFERENCEINFO OFF} 45 | {$SAFEDIVIDE OFF} 46 | {$STACKFRAMES OFF} 47 | {$TYPEDADDRESS OFF} 48 | {$VARSTRINGCHECKS ON} 49 | {$WRITEABLECONST ON} 50 | {$MINENUMSIZE 1} 51 | {$IMAGEBASE $400000} 52 | {$DEFINE DEBUG} 53 | {$ENDIF IMPLICITBUILDING} 54 | {$DESCRIPTION 'TurboPack Essentials Delphi Designtime package'} 55 | {$LIBSUFFIX '260'} 56 | {$DESIGNONLY} 57 | {$IMPLICITBUILD OFF} 58 | 59 | requires 60 | vcl, 61 | designide, 62 | EssentialsDR; 63 | 64 | contains 65 | EsBase0 in '..\..\..\source\EsBase0.pas', 66 | EsReg in '..\..\..\source\EsReg.pas', 67 | EsLabel0 in '..\..\..\source\EsLabel0.pas', 68 | EsLabel1 in '..\..\..\source\EsLabel1.pas', 69 | EsDir in '..\..\..\source\EsDir.pas', 70 | EsAbout0 in '..\..\..\source\EsAbout0.pas', 71 | EsWebPE in '..\..\..\source\EsWebPE.pas'; 72 | 73 | end. 74 | -------------------------------------------------------------------------------- /packages/Rio/Delphi/EssentialsDD.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Rio/Delphi/EssentialsDD.ico -------------------------------------------------------------------------------- /packages/Rio/Delphi/EssentialsDD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Rio/Delphi/EssentialsDD.res -------------------------------------------------------------------------------- /packages/Rio/Delphi/EssentialsDR.dpk: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | package EssentialsDR; 28 | 29 | {$R *.res} 30 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 31 | {$ALIGN 8} 32 | {$ASSERTIONS OFF} 33 | {$BOOLEVAL OFF} 34 | {$DEBUGINFO OFF} 35 | {$EXTENDEDSYNTAX ON} 36 | {$IMPORTEDDATA ON} 37 | {$IOCHECKS ON} 38 | {$LOCALSYMBOLS OFF} 39 | {$LONGSTRINGS ON} 40 | {$OPENSTRINGS ON} 41 | {$OPTIMIZATION ON} 42 | {$OVERFLOWCHECKS OFF} 43 | {$RANGECHECKS OFF} 44 | {$REFERENCEINFO OFF} 45 | {$SAFEDIVIDE OFF} 46 | {$STACKFRAMES OFF} 47 | {$TYPEDADDRESS OFF} 48 | {$VARSTRINGCHECKS ON} 49 | {$WRITEABLECONST ON} 50 | {$MINENUMSIZE 1} 51 | {$IMAGEBASE $400000} 52 | {$DEFINE DEBUG} 53 | {$ENDIF IMPLICITBUILDING} 54 | {$DESCRIPTION 'TurboPack Essentials Delphi Runtime package'} 55 | {$LIBSUFFIX '260'} 56 | {$RUNONLY} 57 | {$IMPLICITBUILD OFF} 58 | 59 | requires 60 | vcl; 61 | 62 | contains 63 | EsBase in '..\..\..\source\EsBase.pas', 64 | EsCal in '..\..\..\source\EsCal.pas', 65 | EsCalc in '..\..\..\source\EsCalc.pas', 66 | EsClrCbx in '..\..\..\source\EsClrCbx.pas', 67 | EsConst in '..\..\..\source\EsConst.pas', 68 | EsData in '..\..\..\source\EsData.pas', 69 | EsEdCal in '..\..\..\source\EsEdCal.pas', 70 | EsEdCalc in '..\..\..\source\EsEdCalc.pas', 71 | EsEdPop in '..\..\..\source\EsEdPop.pas', 72 | EsGrad in '..\..\..\source\EsGrad.pas', 73 | EsLabel in '..\..\..\source\EsLabel.pas', 74 | EsMarque in '..\..\..\source\EsMarque.pas', 75 | EsMnuBtn in '..\..\..\source\EsMnuBtn.pas', 76 | EsRollup in '..\..\..\source\EsRollup.pas', 77 | EsTile in '..\..\..\source\EsTile.pas', 78 | EsUtil in '..\..\..\source\EsUtil.pas', 79 | EsSrmgr in '..\..\..\source\EsSrmgr.pas'; 80 | 81 | end. 82 | -------------------------------------------------------------------------------- /packages/Rio/Delphi/EssentialsDR.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Rio/Delphi/EssentialsDR.ico -------------------------------------------------------------------------------- /packages/Rio/Delphi/EssentialsDR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Rio/Delphi/EssentialsDR.res -------------------------------------------------------------------------------- /packages/Rio/Delphi/EssentialsDelphi.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {812935DC-3817-419E-9937-E3319E7CA6E7} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | Default.Personality.12 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | -------------------------------------------------------------------------------- /packages/Sydney/CBuilder/EssentialsCBuilder.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {A409CA77-3247-43C3-94F9-35206C95F576} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | Default.Personality.12 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | -------------------------------------------------------------------------------- /packages/Sydney/CBuilder/EssentialsCD.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | USEFORMNS("..\..\source\EsAbout0.pas", Esabout0, EsAboutForm); 6 | USEFORMNS("..\..\source\EsLabel1.pas", Eslabel1, SaveSchemeFrm); 7 | //--------------------------------------------------------------------------- 8 | #pragma package(smart_init) 9 | //--------------------------------------------------------------------------- 10 | 11 | // Package-Quelltext. 12 | //--------------------------------------------------------------------------- 13 | 14 | 15 | #pragma argsused 16 | extern "C" int _libmain(unsigned long reason) 17 | { 18 | return 1; 19 | } 20 | //--------------------------------------------------------------------------- 21 | -------------------------------------------------------------------------------- /packages/Sydney/CBuilder/EssentialsCD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Sydney/CBuilder/EssentialsCD.res -------------------------------------------------------------------------------- /packages/Sydney/CBuilder/EssentialsCR.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | #pragma package(smart_init) 6 | //--------------------------------------------------------------------------- 7 | 8 | // Package-Quelltext. 9 | //--------------------------------------------------------------------------- 10 | 11 | 12 | #pragma argsused 13 | extern "C" int _libmain(unsigned long reason) 14 | { 15 | return 1; 16 | } 17 | //--------------------------------------------------------------------------- 18 | -------------------------------------------------------------------------------- /packages/Sydney/CBuilder/EssentialsCR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Sydney/CBuilder/EssentialsCR.res -------------------------------------------------------------------------------- /packages/Sydney/CBuilder/EssentialsDBCR.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | #pragma package(smart_init) 6 | //--------------------------------------------------------------------------- 7 | 8 | // Package-Quelltext. 9 | //--------------------------------------------------------------------------- 10 | 11 | 12 | #pragma argsused 13 | extern "C" int _libmain(unsigned long reason) 14 | { 15 | return 1; 16 | } 17 | //--------------------------------------------------------------------------- 18 | -------------------------------------------------------------------------------- /packages/Sydney/CBuilder/EssentialsDBCR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Sydney/CBuilder/EssentialsDBCR.res -------------------------------------------------------------------------------- /packages/Sydney/Delphi/EssentialsDBDR.dpk: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | package EssentialsDBDR; 28 | 29 | {$R *.res} 30 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 31 | {$ALIGN 8} 32 | {$ASSERTIONS OFF} 33 | {$BOOLEVAL OFF} 34 | {$DEBUGINFO OFF} 35 | {$EXTENDEDSYNTAX ON} 36 | {$IMPORTEDDATA ON} 37 | {$IOCHECKS ON} 38 | {$LOCALSYMBOLS OFF} 39 | {$LONGSTRINGS ON} 40 | {$OPENSTRINGS ON} 41 | {$OPTIMIZATION ON} 42 | {$OVERFLOWCHECKS OFF} 43 | {$RANGECHECKS OFF} 44 | {$REFERENCEINFO OFF} 45 | {$SAFEDIVIDE OFF} 46 | {$STACKFRAMES OFF} 47 | {$TYPEDADDRESS OFF} 48 | {$VARSTRINGCHECKS ON} 49 | {$WRITEABLECONST ON} 50 | {$MINENUMSIZE 1} 51 | {$IMAGEBASE $400000} 52 | {$DEFINE DEBUG} 53 | {$ENDIF IMPLICITBUILDING} 54 | {$DESCRIPTION 'TurboPack Essentials Delphi DB Runtime package'} 55 | {$LIBSUFFIX '270'} 56 | {$RUNONLY} 57 | {$IMPLICITBUILD OFF} 58 | 59 | requires 60 | vcl, 61 | vcldb, 62 | EssentialsDR; 63 | 64 | contains 65 | EsDbEd in '..\..\..\source\EsDbEd.pas'; 66 | 67 | end. 68 | -------------------------------------------------------------------------------- /packages/Sydney/Delphi/EssentialsDBDR.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Sydney/Delphi/EssentialsDBDR.ico -------------------------------------------------------------------------------- /packages/Sydney/Delphi/EssentialsDBDR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Sydney/Delphi/EssentialsDBDR.res -------------------------------------------------------------------------------- /packages/Sydney/Delphi/EssentialsDD.dpk: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | package EssentialsDD; 28 | 29 | {$R *.res} 30 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 31 | {$ALIGN 8} 32 | {$ASSERTIONS ON} 33 | {$BOOLEVAL OFF} 34 | {$DEBUGINFO OFF} 35 | {$EXTENDEDSYNTAX ON} 36 | {$IMPORTEDDATA ON} 37 | {$IOCHECKS ON} 38 | {$LOCALSYMBOLS ON} 39 | {$LONGSTRINGS ON} 40 | {$OPENSTRINGS ON} 41 | {$OPTIMIZATION ON} 42 | {$OVERFLOWCHECKS OFF} 43 | {$RANGECHECKS OFF} 44 | {$REFERENCEINFO OFF} 45 | {$SAFEDIVIDE OFF} 46 | {$STACKFRAMES OFF} 47 | {$TYPEDADDRESS OFF} 48 | {$VARSTRINGCHECKS ON} 49 | {$WRITEABLECONST ON} 50 | {$MINENUMSIZE 1} 51 | {$IMAGEBASE $400000} 52 | {$DEFINE DEBUG} 53 | {$ENDIF IMPLICITBUILDING} 54 | {$DESCRIPTION 'TurboPack Essentials Delphi Designtime package'} 55 | {$LIBSUFFIX '270'} 56 | {$DESIGNONLY} 57 | {$IMPLICITBUILD OFF} 58 | 59 | requires 60 | vcl, 61 | designide, 62 | EssentialsDR; 63 | 64 | contains 65 | EsBase0 in '..\..\..\source\EsBase0.pas', 66 | EsReg in '..\..\..\source\EsReg.pas', 67 | EsLabel0 in '..\..\..\source\EsLabel0.pas', 68 | EsLabel1 in '..\..\..\source\EsLabel1.pas', 69 | EsDir in '..\..\..\source\EsDir.pas', 70 | EsAbout0 in '..\..\..\source\EsAbout0.pas', 71 | EsWebPE in '..\..\..\source\EsWebPE.pas'; 72 | 73 | end. 74 | -------------------------------------------------------------------------------- /packages/Sydney/Delphi/EssentialsDD.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Sydney/Delphi/EssentialsDD.ico -------------------------------------------------------------------------------- /packages/Sydney/Delphi/EssentialsDD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Sydney/Delphi/EssentialsDD.res -------------------------------------------------------------------------------- /packages/Sydney/Delphi/EssentialsDR.dpk: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | package EssentialsDR; 28 | 29 | {$R *.res} 30 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 31 | {$ALIGN 8} 32 | {$ASSERTIONS OFF} 33 | {$BOOLEVAL OFF} 34 | {$DEBUGINFO OFF} 35 | {$EXTENDEDSYNTAX ON} 36 | {$IMPORTEDDATA ON} 37 | {$IOCHECKS ON} 38 | {$LOCALSYMBOLS OFF} 39 | {$LONGSTRINGS ON} 40 | {$OPENSTRINGS ON} 41 | {$OPTIMIZATION ON} 42 | {$OVERFLOWCHECKS OFF} 43 | {$RANGECHECKS OFF} 44 | {$REFERENCEINFO OFF} 45 | {$SAFEDIVIDE OFF} 46 | {$STACKFRAMES OFF} 47 | {$TYPEDADDRESS OFF} 48 | {$VARSTRINGCHECKS ON} 49 | {$WRITEABLECONST ON} 50 | {$MINENUMSIZE 1} 51 | {$IMAGEBASE $400000} 52 | {$DEFINE DEBUG} 53 | {$ENDIF IMPLICITBUILDING} 54 | {$DESCRIPTION 'TurboPack Essentials Delphi Runtime package'} 55 | {$LIBSUFFIX '270'} 56 | {$RUNONLY} 57 | {$IMPLICITBUILD OFF} 58 | 59 | requires 60 | vcl; 61 | 62 | contains 63 | EsBase in '..\..\..\source\EsBase.pas', 64 | EsCal in '..\..\..\source\EsCal.pas', 65 | EsCalc in '..\..\..\source\EsCalc.pas', 66 | EsClrCbx in '..\..\..\source\EsClrCbx.pas', 67 | EsConst in '..\..\..\source\EsConst.pas', 68 | EsData in '..\..\..\source\EsData.pas', 69 | EsEdCal in '..\..\..\source\EsEdCal.pas', 70 | EsEdCalc in '..\..\..\source\EsEdCalc.pas', 71 | EsEdPop in '..\..\..\source\EsEdPop.pas', 72 | EsGrad in '..\..\..\source\EsGrad.pas', 73 | EsLabel in '..\..\..\source\EsLabel.pas', 74 | EsMarque in '..\..\..\source\EsMarque.pas', 75 | EsMnuBtn in '..\..\..\source\EsMnuBtn.pas', 76 | EsRollup in '..\..\..\source\EsRollup.pas', 77 | EsTile in '..\..\..\source\EsTile.pas', 78 | EsUtil in '..\..\..\source\EsUtil.pas', 79 | EsSrmgr in '..\..\..\source\EsSrmgr.pas'; 80 | 81 | end. 82 | -------------------------------------------------------------------------------- /packages/Sydney/Delphi/EssentialsDR.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Sydney/Delphi/EssentialsDR.ico -------------------------------------------------------------------------------- /packages/Sydney/Delphi/EssentialsDR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Sydney/Delphi/EssentialsDR.res -------------------------------------------------------------------------------- /packages/Sydney/Delphi/EssentialsDelphi.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {812935DC-3817-419E-9937-E3319E7CA6E7} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | Default.Personality.12 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | -------------------------------------------------------------------------------- /packages/Tokyo/CBuilder/EssentialsCBuilder.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {A409CA77-3247-43C3-94F9-35206C95F576} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | Default.Personality.12 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | -------------------------------------------------------------------------------- /packages/Tokyo/CBuilder/EssentialsCD.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | USEFORMNS("..\..\..\source\EsAbout0.pas", Esabout0, EsAboutForm); 6 | USEFORMNS("..\..\..\source\EsLabel1.pas", Eslabel1, SaveSchemeFrm); 7 | //--------------------------------------------------------------------------- 8 | #pragma package(smart_init) 9 | //--------------------------------------------------------------------------- 10 | 11 | // Package-Quelltext. 12 | //--------------------------------------------------------------------------- 13 | 14 | 15 | #pragma argsused 16 | extern "C" int _libmain(unsigned long reason) 17 | { 18 | return 1; 19 | } 20 | //--------------------------------------------------------------------------- 21 | -------------------------------------------------------------------------------- /packages/Tokyo/CBuilder/EssentialsCD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Tokyo/CBuilder/EssentialsCD.res -------------------------------------------------------------------------------- /packages/Tokyo/CBuilder/EssentialsCR.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | #pragma package(smart_init) 6 | //--------------------------------------------------------------------------- 7 | 8 | // Package-Quelltext. 9 | //--------------------------------------------------------------------------- 10 | 11 | 12 | #pragma argsused 13 | extern "C" int _libmain(unsigned long reason) 14 | { 15 | return 1; 16 | } 17 | //--------------------------------------------------------------------------- 18 | -------------------------------------------------------------------------------- /packages/Tokyo/CBuilder/EssentialsCR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Tokyo/CBuilder/EssentialsCR.res -------------------------------------------------------------------------------- /packages/Tokyo/CBuilder/EssentialsDBCR.cpp: -------------------------------------------------------------------------------- 1 | //--------------------------------------------------------------------------- 2 | 3 | #include 4 | #pragma hdrstop 5 | #pragma package(smart_init) 6 | //--------------------------------------------------------------------------- 7 | 8 | // Package-Quelltext. 9 | //--------------------------------------------------------------------------- 10 | 11 | 12 | #pragma argsused 13 | extern "C" int _libmain(unsigned long reason) 14 | { 15 | return 1; 16 | } 17 | //--------------------------------------------------------------------------- 18 | -------------------------------------------------------------------------------- /packages/Tokyo/CBuilder/EssentialsDBCR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Tokyo/CBuilder/EssentialsDBCR.res -------------------------------------------------------------------------------- /packages/Tokyo/Delphi/EssentialsDBDR.dpk: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | package EssentialsDBDR; 28 | 29 | {$R *.res} 30 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 31 | {$ALIGN 8} 32 | {$ASSERTIONS OFF} 33 | {$BOOLEVAL OFF} 34 | {$DEBUGINFO OFF} 35 | {$EXTENDEDSYNTAX ON} 36 | {$IMPORTEDDATA ON} 37 | {$IOCHECKS ON} 38 | {$LOCALSYMBOLS OFF} 39 | {$LONGSTRINGS ON} 40 | {$OPENSTRINGS ON} 41 | {$OPTIMIZATION ON} 42 | {$OVERFLOWCHECKS OFF} 43 | {$RANGECHECKS OFF} 44 | {$REFERENCEINFO OFF} 45 | {$SAFEDIVIDE OFF} 46 | {$STACKFRAMES OFF} 47 | {$TYPEDADDRESS OFF} 48 | {$VARSTRINGCHECKS ON} 49 | {$WRITEABLECONST ON} 50 | {$MINENUMSIZE 1} 51 | {$IMAGEBASE $400000} 52 | {$DEFINE DEBUG} 53 | {$ENDIF IMPLICITBUILDING} 54 | {$DESCRIPTION 'TurboPack Essentials Delphi DB Runtime package'} 55 | {$LIBSUFFIX '250'} 56 | {$RUNONLY} 57 | {$IMPLICITBUILD OFF} 58 | 59 | requires 60 | vcl, 61 | vcldb, 62 | EssentialsDR; 63 | 64 | contains 65 | EsDbEd in '..\..\..\source\EsDbEd.pas'; 66 | 67 | end. 68 | -------------------------------------------------------------------------------- /packages/Tokyo/Delphi/EssentialsDBDR.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Tokyo/Delphi/EssentialsDBDR.ico -------------------------------------------------------------------------------- /packages/Tokyo/Delphi/EssentialsDBDR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Tokyo/Delphi/EssentialsDBDR.res -------------------------------------------------------------------------------- /packages/Tokyo/Delphi/EssentialsDD.dpk: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | package EssentialsDD; 28 | 29 | {$R *.res} 30 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 31 | {$ALIGN 8} 32 | {$ASSERTIONS ON} 33 | {$BOOLEVAL OFF} 34 | {$DEBUGINFO OFF} 35 | {$EXTENDEDSYNTAX ON} 36 | {$IMPORTEDDATA ON} 37 | {$IOCHECKS ON} 38 | {$LOCALSYMBOLS ON} 39 | {$LONGSTRINGS ON} 40 | {$OPENSTRINGS ON} 41 | {$OPTIMIZATION ON} 42 | {$OVERFLOWCHECKS OFF} 43 | {$RANGECHECKS OFF} 44 | {$REFERENCEINFO OFF} 45 | {$SAFEDIVIDE OFF} 46 | {$STACKFRAMES OFF} 47 | {$TYPEDADDRESS OFF} 48 | {$VARSTRINGCHECKS ON} 49 | {$WRITEABLECONST ON} 50 | {$MINENUMSIZE 1} 51 | {$IMAGEBASE $400000} 52 | {$DEFINE DEBUG} 53 | {$ENDIF IMPLICITBUILDING} 54 | {$DESCRIPTION 'TurboPack Essentials Delphi Designtime package'} 55 | {$LIBSUFFIX '250'} 56 | {$DESIGNONLY} 57 | {$IMPLICITBUILD OFF} 58 | 59 | requires 60 | vcl, 61 | designide, 62 | EssentialsDR; 63 | 64 | contains 65 | EsBase0 in '..\..\..\source\EsBase0.pas', 66 | EsReg in '..\..\..\source\EsReg.pas', 67 | EsLabel0 in '..\..\..\source\EsLabel0.pas', 68 | EsLabel1 in '..\..\..\source\EsLabel1.pas', 69 | EsDir in '..\..\..\source\EsDir.pas', 70 | EsAbout0 in '..\..\..\source\EsAbout0.pas', 71 | EsWebPE in '..\..\..\source\EsWebPE.pas'; 72 | 73 | end. 74 | -------------------------------------------------------------------------------- /packages/Tokyo/Delphi/EssentialsDD.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Tokyo/Delphi/EssentialsDD.ico -------------------------------------------------------------------------------- /packages/Tokyo/Delphi/EssentialsDD.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Tokyo/Delphi/EssentialsDD.res -------------------------------------------------------------------------------- /packages/Tokyo/Delphi/EssentialsDR.dpk: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | package EssentialsDR; 28 | 29 | {$R *.res} 30 | {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users} 31 | {$ALIGN 8} 32 | {$ASSERTIONS OFF} 33 | {$BOOLEVAL OFF} 34 | {$DEBUGINFO OFF} 35 | {$EXTENDEDSYNTAX ON} 36 | {$IMPORTEDDATA ON} 37 | {$IOCHECKS ON} 38 | {$LOCALSYMBOLS OFF} 39 | {$LONGSTRINGS ON} 40 | {$OPENSTRINGS ON} 41 | {$OPTIMIZATION ON} 42 | {$OVERFLOWCHECKS OFF} 43 | {$RANGECHECKS OFF} 44 | {$REFERENCEINFO OFF} 45 | {$SAFEDIVIDE OFF} 46 | {$STACKFRAMES OFF} 47 | {$TYPEDADDRESS OFF} 48 | {$VARSTRINGCHECKS ON} 49 | {$WRITEABLECONST ON} 50 | {$MINENUMSIZE 1} 51 | {$IMAGEBASE $400000} 52 | {$DEFINE DEBUG} 53 | {$ENDIF IMPLICITBUILDING} 54 | {$DESCRIPTION 'TurboPack Essentials Delphi Runtime package'} 55 | {$LIBSUFFIX '250'} 56 | {$RUNONLY} 57 | {$IMPLICITBUILD OFF} 58 | 59 | requires 60 | vcl; 61 | 62 | contains 63 | EsBase in '..\..\..\source\EsBase.pas', 64 | EsCal in '..\..\..\source\EsCal.pas', 65 | EsCalc in '..\..\..\source\EsCalc.pas', 66 | EsClrCbx in '..\..\..\source\EsClrCbx.pas', 67 | EsConst in '..\..\..\source\EsConst.pas', 68 | EsData in '..\..\..\source\EsData.pas', 69 | EsEdCal in '..\..\..\source\EsEdCal.pas', 70 | EsEdCalc in '..\..\..\source\EsEdCalc.pas', 71 | EsEdPop in '..\..\..\source\EsEdPop.pas', 72 | EsGrad in '..\..\..\source\EsGrad.pas', 73 | EsLabel in '..\..\..\source\EsLabel.pas', 74 | EsMarque in '..\..\..\source\EsMarque.pas', 75 | EsMnuBtn in '..\..\..\source\EsMnuBtn.pas', 76 | EsRollup in '..\..\..\source\EsRollup.pas', 77 | EsTile in '..\..\..\source\EsTile.pas', 78 | EsUtil in '..\..\..\source\EsUtil.pas', 79 | EsSrmgr in '..\..\..\source\EsSrmgr.pas'; 80 | 81 | end. 82 | -------------------------------------------------------------------------------- /packages/Tokyo/Delphi/EssentialsDR.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Tokyo/Delphi/EssentialsDR.ico -------------------------------------------------------------------------------- /packages/Tokyo/Delphi/EssentialsDR.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/packages/Tokyo/Delphi/EssentialsDR.res -------------------------------------------------------------------------------- /packages/Tokyo/Delphi/EssentialsDelphi.groupproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | {812935DC-3817-419E-9937-E3319E7CA6E7} 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | Default.Personality.12 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | -------------------------------------------------------------------------------- /source/ESBASE.R32: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/source/ESBASE.R32 -------------------------------------------------------------------------------- /source/ESBASE.RC: -------------------------------------------------------------------------------- 1 | /* ***** BEGIN LICENSE BLOCK ***** 2 | * Version: MPL 1.1 3 | * 4 | * The contents of this file are subject to the Mozilla Public License Version 5 | * 1.1 (the "License"); you may not use this file except in compliance with 6 | * the License. You may obtain a copy of the License at 7 | * http://www.mozilla.org/MPL/ 8 | * 9 | * Software distributed under the License is distributed on an "AS IS" basis, 10 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 11 | * for the specific language governing rights and limitations under the 12 | * License. 13 | * 14 | * The Original Code is TurboPower Essentials Vol I 15 | * 16 | * The Initial Developer of the Original Code is 17 | * TurboPower Software 18 | * 19 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 20 | * the Initial Developer. All Rights Reserved. 21 | * 22 | * Contributor(s): 23 | * 24 | * ***** END LICENSE BLOCK ***** */ 25 | 26 | ESTODAY BITMAP 27 | BEGIN 28 | '42 4D BE 00 00 00 00 00 00 00 76 00 00 00 28 00' 29 | '00 00 0E 00 00 00 09 00 00 00 01 00 04 00 00 00' 30 | '00 00 48 00 00 00 00 00 00 00 00 00 00 00 00 00' 31 | '00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 80' 32 | '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80' 33 | '00 00 80 80 80 00 C0 C0 C0 00 00 00 FF 00 00 FF' 34 | '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF' 35 | '00 00 FF FF FF 00 88 88 88 88 88 88 88 00 88 88' 36 | '88 88 88 74 88 00 84 44 44 88 88 84 78 00 84 44' 37 | '48 88 88 88 48 00 84 44 88 88 88 88 48 00 84 48' 38 | '48 88 88 88 48 00 84 88 84 48 88 84 78 00 88 88' 39 | '88 84 44 47 88 00 88 88 88 88 88 88 88 00' 40 | END 41 | 42 | ESDOWNARROW BITMAP 43 | { 44 | '42 4D AE 00 00 00 00 00 00 00 76 00 00 00 28 00' 45 | '00 00 09 00 00 00 07 00 00 00 01 00 04 00 00 00' 46 | '00 00 38 00 00 00 00 00 00 00 00 00 00 00 00 00' 47 | '00 00 10 00 00 00 00 00 00 00 00 00 80 00 00 80' 48 | '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80' 49 | '00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF' 50 | '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF' 51 | '00 00 FF FF FF 00 FF FF FF FF F0 00 00 00 FF FF' 52 | '0F FF F0 00 00 00 FF F0 00 FF F0 00 00 00 FF 00' 53 | '00 0F F0 00 00 00 F0 00 00 00 F0 00 00 00 F0 00' 54 | '00 00 F0 00 00 00 FF FF FF FF F0 00 00 00' 55 | } 56 | 57 | ESLEFTARROW BITMAP 58 | BEGIN 59 | '42 4D 9A 00 00 00 00 00 00 00 76 00 00 00 28 00' 60 | '00 00 07 00 00 00 09 00 00 00 01 00 04 00 00 00' 61 | '00 00 24 00 00 00 00 00 00 00 00 00 00 00 00 00' 62 | '00 00 10 00 00 00 00 00 00 00 00 00 80 00 00 80' 63 | '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80' 64 | '00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF' 65 | '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF' 66 | '00 00 FF FF FF 00 FF FF FF F0 FF FF 00 F0 FF F0' 67 | '00 F0 FF 00 00 F0 F0 00 00 F0 FF 00 00 F0 FF F0' 68 | '00 F0 FF FF 00 F0 FF FF FF F0' 69 | END 70 | 71 | ESRIGHTARROW BITMAP 72 | BEGIN 73 | '42 4D 9A 00 00 00 00 00 00 00 76 00 00 00 28 00' 74 | '00 00 07 00 00 00 09 00 00 00 01 00 04 00 00 00' 75 | '00 00 24 00 00 00 00 00 00 00 00 00 00 00 00 00' 76 | '00 00 10 00 00 00 00 00 00 00 00 00 80 00 00 80' 77 | '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80' 78 | '00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF' 79 | '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF' 80 | '00 00 FF FF FF 00 FF FF FF F0 F0 0F FF F0 F0 00' 81 | 'FF F0 F0 00 0F F0 F0 00 00 F0 F0 00 0F F0 F0 00' 82 | 'FF F0 F0 0F FF F0 FF FF FF F0' 83 | END 84 | 85 | ESSMALLDOWNARROW BITMAP 86 | BEGIN 87 | '42 4D 8A 00 00 00 00 00 00 00 76 00 00 00 28 00' 88 | '00 00 08 00 00 00 05 00 00 00 01 00 04 00 00 00' 89 | '00 00 14 00 00 00 00 00 00 00 00 00 00 00 00 00' 90 | '00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 80' 91 | '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80' 92 | '00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF' 93 | '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF' 94 | '00 00 FF FF FF 00 FF FF FF FF FF F0 FF FF FF 00' 95 | '0F FF F0 00 00 FF FF FF FF FF' 96 | END 97 | 98 | ESUPARROW BITMAP 99 | { 100 | '42 4D AE 00 00 00 00 00 00 00 76 00 00 00 28 00' 101 | '00 00 09 00 00 00 07 00 00 00 01 00 04 00 00 00' 102 | '00 00 38 00 00 00 00 00 00 00 00 00 00 00 00 00' 103 | '00 00 10 00 00 00 00 00 00 00 00 00 80 00 00 80' 104 | '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80' 105 | '00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF' 106 | '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF' 107 | '00 00 FF FF FF 00 FF FF FF FF F0 00 00 00 F0 00' 108 | '00 00 F0 00 00 00 F0 00 00 00 F0 00 00 00 FF 00' 109 | '00 0F F0 00 00 00 FF F0 00 FF F0 00 00 00 FF FF' 110 | '0F FF F0 00 00 00 FF FF FF FF F0 00 00 00' 111 | } 112 | 113 | 114 | ESRIGHTARROWS BITMAP 115 | { 116 | '42 4D BE 00 00 00 00 00 00 00 76 00 00 00 28 00' 117 | '00 00 0D 00 00 00 09 00 00 00 01 00 04 00 00 00' 118 | '00 00 48 00 00 00 00 00 00 00 00 00 00 00 00 00' 119 | '00 00 10 00 00 00 00 00 00 00 00 00 80 00 00 80' 120 | '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80' 121 | '00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF' 122 | '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF' 123 | '00 00 FF FF FF 00 FF FF FF FF FF FF F0 00 F0 0F' 124 | 'FF F0 0F FF F0 00 F0 00 FF F0 00 FF F0 00 F0 00' 125 | '0F F0 00 0F F0 00 F0 00 00 F0 00 00 F0 00 F0 00' 126 | '0F F0 00 0F F0 00 F0 00 FF F0 00 FF F0 00 F0 0F' 127 | 'FF F0 0F FF F0 00 FF FF FF FF FF FF F0 00' 128 | } 129 | 130 | 131 | ESLEFTARROWS BITMAP 132 | { 133 | '42 4D BE 00 00 00 00 00 00 00 76 00 00 00 28 00' 134 | '00 00 0D 00 00 00 09 00 00 00 01 00 04 00 00 00' 135 | '00 00 48 00 00 00 00 00 00 00 00 00 00 00 00 00' 136 | '00 00 10 00 00 00 00 00 00 00 00 00 80 00 00 80' 137 | '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80' 138 | '00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF' 139 | '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF' 140 | '00 00 FF FF FF 00 FF FF FF FF FF FF F0 00 FF FF' 141 | '00 FF FF 00 F0 00 FF F0 00 FF F0 00 F0 00 FF 00' 142 | '00 FF 00 00 F0 00 F0 00 00 F0 00 00 F0 00 FF 00' 143 | '00 FF 00 00 F0 00 FF F0 00 FF F0 00 F0 00 FF FF' 144 | '00 FF FF 00 F0 00 FF FF FF FF FF FF F0 00' 145 | } -------------------------------------------------------------------------------- /source/ESCONST.R32: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/source/ESCONST.R32 -------------------------------------------------------------------------------- /source/ESCONST.STR: -------------------------------------------------------------------------------- 1 | 2 | ;* ***** BEGIN LICENSE BLOCK ***** 3 | ;* Version: MPL 1.1 4 | ;* 5 | ;* The contents of this file are subject to the Mozilla Public License Version 6 | ;* 1.1 (the "License"); you may not use this file except in compliance with 7 | ;* the License. You may obtain a copy of the License at 8 | ;* http://www.mozilla.org/MPL/ 9 | ;* 10 | ;* Software distributed under the License is distributed on an "AS IS" basis, 11 | ;* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | ;* for the specific language governing rights and limitations under the 13 | ;* License. 14 | ;* 15 | ;* The Original Code is TurboPower Essentials Vol I 16 | ;* 17 | ;* The Initial Developer of the Original Code is 18 | ;* TurboPower Software 19 | ;* 20 | ;* Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | ;* the Initial Developer. All Rights Reserved. 22 | ;* 23 | ;* Contributor(s): 24 | ;* 25 | ;* ***** END LICENSE BLOCK ***** 26 | 27 | #include "esconst.inc" 28 | 29 | SCEsColorBlack, "Black" 30 | SCEsColorMaroon, "Maroon" 31 | SCEsColorGreen, "Green" 32 | SCEsColorOlive, "Olive" 33 | SCEsColorNavy, "Navy" 34 | SCEsColorPurple, "Purple" 35 | SCEsColorTeal, "Teal" 36 | SCEsColorGray, "Gray" 37 | SCEsColorSilver, "Silver" 38 | SCEsColorRed, "Red" 39 | SCEsColorLime, "Lime" 40 | SCEsColorYellow, "Yellow" 41 | SCEsColorBlue, "Blue" 42 | SCEsColorFuchsia, "Fuchsia" 43 | SCEsColorAqua, "Aqua" 44 | SCEsColorWhite, "White" 45 | SCEsLabelNotAttached, "No label is attached" 46 | SCEsBlankDateNotAllowed, "A blank date is not allowed" 47 | SCEsInvalidDay, "Invalid day" 48 | SCEsInvalidMonth, "Invalid month" 49 | SCEsInvalidMonthName, "Invalid month name" 50 | SCEsInvalidYear, "Invalid year" 51 | SCEsDayIsRequired, "Day is required" 52 | SCEsMonthIsRequired, "Month is required" 53 | SCEsYearIsRequired, "Year is required" 54 | SCEsInvalidDate, "Invalid date" -------------------------------------------------------------------------------- /source/ESDIR.R32: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/source/ESDIR.R32 -------------------------------------------------------------------------------- /source/ESDIR.RC: -------------------------------------------------------------------------------- 1 | /* ***** BEGIN LICENSE BLOCK ***** 2 | * Version: MPL 1.1 3 | * 4 | * The contents of this file are subject to the Mozilla Public License Version 5 | * 1.1 (the "License"); you may not use this file except in compliance with 6 | * the License. You may obtain a copy of the License at 7 | * http://www.mozilla.org/MPL/ 8 | * 9 | * Software distributed under the License is distributed on an "AS IS" basis, 10 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 11 | * for the specific language governing rights and limitations under the 12 | * License. 13 | * 14 | * The Original Code is TurboPower Essentials Vol I 15 | * 16 | * The Initial Developer of the Original Code is 17 | * TurboPower Software 18 | * 19 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 20 | * the Initial Developer. All Rights Reserved. 21 | * 22 | * Contributor(s): 23 | * 24 | * ***** END LICENSE BLOCK ***** */ 25 | 26 | ESBLUEDOT BITMAP 27 | { 28 | '42 4D 86 00 00 00 00 00 00 00 76 00 00 00 28 00' 29 | '00 00 04 00 00 00 04 00 00 00 01 00 04 00 00 00' 30 | '00 00 10 00 00 00 00 00 00 00 00 00 00 00 00 00' 31 | '00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 80' 32 | '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80' 33 | '00 00 80 80 80 00 C0 C0 C0 00 00 00 FF 00 00 FF' 34 | '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF' 35 | '00 00 FF FF FF 00 E0 00 00 00 E6 60 00 00 E6 60' 36 | '00 00 EE E0 00 00' 37 | } 38 | 39 | ESREDDOT BITMAP 40 | { 41 | '42 4D 8E 00 00 00 00 00 00 00 76 00 00 00 28 00' 42 | '00 00 06 00 00 00 06 00 00 00 01 00 04 00 00 00' 43 | '00 00 18 00 00 00 00 00 00 00 00 00 00 00 00 00' 44 | '00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 80' 45 | '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80' 46 | '00 00 80 80 80 00 C0 C0 C0 00 00 00 FF 00 00 FF' 47 | '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF' 48 | '00 00 FF FF FF 00 E0 00 00 00 E9 99 90 00 E9 99' 49 | '90 00 E9 99 90 00 E9 99 90 00 EE EE E0 00' 50 | } -------------------------------------------------------------------------------- /source/ESREGDB.RC: -------------------------------------------------------------------------------- 1 | /* ***** BEGIN LICENSE BLOCK ***** 2 | * Version: MPL 1.1 3 | * 4 | * The contents of this file are subject to the Mozilla Public License Version 5 | * 1.1 (the "License"); you may not use this file except in compliance with 6 | * the License. You may obtain a copy of the License at 7 | * http://www.mozilla.org/MPL/ 8 | * 9 | * Software distributed under the License is distributed on an "AS IS" basis, 10 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 11 | * for the specific language governing rights and limitations under the 12 | * License. 13 | * 14 | * The Original Code is TurboPower Essentials Vol I 15 | * 16 | * The Initial Developer of the Original Code is 17 | * TurboPower Software 18 | * 19 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 20 | * the Initial Developer. All Rights Reserved. 21 | * 22 | * Contributor(s): 23 | * 24 | * ***** END LICENSE BLOCK ***** */ 25 | 26 | TESDBDATEEDIT BITMAP 27 | { 28 | '42 4D 96 01 00 00 00 00 00 00 76 00 00 00 28 00' 29 | '00 00 18 00 00 00 18 00 00 00 01 00 04 00 00 00' 30 | '00 00 20 01 00 00 00 00 00 00 00 00 00 00 00 00' 31 | '00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 80' 32 | '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80' 33 | '00 00 80 80 80 00 C0 C0 C0 00 00 00 FF 00 00 FF' 34 | '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF' 35 | '00 00 FF FF FF 00 80 00 00 00 00 00 00 00 00 00' 36 | '00 00 0F FF FF FF FF FF FF FF 88 88 88 80 0F FF' 37 | 'FF FF FF FF FF FF 88 88 88 80 0F FF FF FF FF FF' 38 | 'FF FF 88 88 88 80 0F 0F FF 0F 00 0F FF 0F 88 88' 39 | '88 80 0F 0F FF 0F 0F F0 FF 0F 88 80 88 80 0F 0F' 40 | '0F 0F 0F F0 FF 0F 88 00 08 80 0F 00 F0 0F 0F F0' 41 | 'F0 F0 80 00 00 80 0F 0F FF 0F 00 0F F0 F0 88 88' 42 | '88 80 0F FF FF FF FF FF FF FF 88 88 88 80 0F FF' 43 | 'FF FF FF FF FF FF 88 88 88 80 0F FF FF FF FF FF' 44 | 'FF FF 88 88 88 80 00 00 00 00 00 00 00 0F FF FF' 45 | 'FF F0 87 87 FF FF 8F FF FF F7 88 88 88 88 87 F7' 46 | 'F8 8F 8F 88 88 F7 88 88 88 88 87 87 FF FF 8F FF' 47 | 'FF F7 88 88 88 88 87 F7 F8 8F 8F 88 8F F7 88 88' 48 | '88 88 87 87 FF FF 8F FF FF F7 88 88 88 88 87 F7' 49 | 'F8 8F 8F 88 88 F7 88 88 88 88 87 87 FF FF 8F FF' 50 | 'FF F7 88 88 88 88 87 77 77 77 77 77 77 77 88 88' 51 | '88 88 87 87 F8 88 8F 88 88 87 88 88 88 88 87 77' 52 | '77 77 77 77 77 77 88 88 88 88 88 88 88 88 88 88' 53 | '88 88 88 88 88 88' 54 | } 55 | 56 | 57 | 58 | TESDBNUMBEREDIT BITMAP 59 | { 60 | '42 4D 96 01 00 00 00 00 00 00 76 00 00 00 28 00' 61 | '00 00 18 00 00 00 18 00 00 00 01 00 04 00 00 00' 62 | '00 00 20 01 00 00 00 00 00 00 00 00 00 00 00 00' 63 | '00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 80' 64 | '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80' 65 | '00 00 80 80 80 00 C0 C0 C0 00 00 00 FF 00 00 FF' 66 | '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF' 67 | '00 00 FF FF FF 00 80 00 00 00 00 00 00 00 00 00' 68 | '00 00 0F FF FF FF FF FF FF FF 88 88 88 80 0F FF' 69 | 'FF FF FF FF FF FF 88 88 88 80 0F FF FF FF FF FF' 70 | 'FF FF 88 88 88 80 0F FF 0F 00 0F 00 FF FF 88 88' 71 | '88 80 0F FF 0F F0 FF FF 0F FF 88 80 88 80 0F FF' 72 | '0F FF 0F F0 FF FF 88 00 08 80 0F F0 0F 0F 0F FF' 73 | '0F FF 80 00 00 80 0F FF 0F F0 FF 00 FF FF 88 88' 74 | '88 80 0F FF FF FF FF FF FF FF 88 88 88 80 0F FF' 75 | 'FF FF FF FF FF FF 88 88 88 80 0F FF FF FF FF FF' 76 | 'FF FF 88 88 88 80 00 00 00 00 00 00 00 0F FF FF' 77 | 'FF F0 87 87 FF FF 8F FF FF F7 88 88 88 88 87 F7' 78 | 'F8 8F 8F 88 88 F7 88 88 88 88 87 87 FF FF 8F FF' 79 | 'FF F7 88 88 88 88 87 F7 F8 8F 8F 88 8F F7 88 88' 80 | '88 88 87 87 FF FF 8F FF FF F7 88 88 88 88 87 F7' 81 | 'F8 8F 8F 88 88 F7 88 88 88 88 87 87 FF FF 8F FF' 82 | 'FF F7 88 88 88 88 87 77 77 77 77 77 77 77 88 88' 83 | '88 88 87 87 F8 88 8F 88 88 87 88 88 88 88 87 77' 84 | '77 77 77 77 77 77 88 88 88 88 88 88 88 88 88 88' 85 | '88 88 88 88 88 88' 86 | } 87 | 88 | -------------------------------------------------------------------------------- /source/ESSENCE.MAK: -------------------------------------------------------------------------------- 1 | #------------------------------------------------------------------------- 2 | # ESSENCE.MAK 3 | #------------------------------------------------------------------------- 4 | # Make file used to build Essentials 5 | # 6 | # This make file is designed to be used only with Borland's MAKE utility. 7 | # 8 | # MAKE -fESSENCE.MAK [optional parameters] 9 | # 10 | # at the DOS command line or in response to Window's File|Run dialog. 11 | # 12 | 13 | #------------------------------------------------------------------------- 14 | # Compiler choice 15 | #------------------------------------------------------------------------- 16 | 17 | # Define only one of the following by uncommenting the appropriate line 18 | # or undefine all and state the define as part of the make command line 19 | # as -DDelphi1/2/3 20 | 21 | Delphi1=1 22 | #Delphi2=1 23 | #Delphi3=1 24 | 25 | #set to the current version (for package naming) 26 | ver=104 27 | 28 | Setup1=1 # At work 29 | #Setup2=1 # At home 30 | 31 | #------------------------------------------------------------------------- 32 | # Macros 33 | #------------------------------------------------------------------------- 34 | 35 | # Path to compiler 36 | !if $d(Setup1) 37 | dcc1=c:\borland\delphi\bin\dcc.exe 38 | dcc2="c:\borland\delphi 2.0\bin\dcc32.exe" 39 | dcc3="c:\borland\delphi 3\bin\dcc32.exe" 40 | !else 41 | !if $d(Setup2) 42 | dcc1=d:\progra~1\borland\delphi\bin\dcc.exe 43 | dcc2=d:\progra~1\borland\delphi~1.0\bin\dcc32.exe 44 | dcc3=d:\progra~1\borland\delphi3\bin\dcc32.exe 45 | !endif 46 | !endif 47 | 48 | # Path to resource compilers 49 | !if $d(Setup1) 50 | brc1=c:\borland\delphi\bin\brcc.exe 51 | brc2="c:\borland\delphi 2.0\bin\brcc32.exe" 52 | brc3="c:\borland\delphi 3\bin\brcc32.exe" 53 | srmgr=d:\srmgr\srmc.exe 54 | !else 55 | !if $d(Setup2) 56 | brc1=d:\progra~1\borland\delphi\bin\brcc.exe 57 | brc2=d:\progra~1\borland\delphi~1.0\bin\brcc32.exe 58 | brc3=d:\progra~1\borland\delphi3\bin\brcc32.exe 59 | srmgr=d:\srmgr\srmc.exe 60 | !endif 61 | !endif 62 | 63 | 64 | opts=/M /$$D- /$$L- /L 65 | 66 | !if $d(Delphi1) 67 | dcc=$(dcc1) $(opts) 68 | brc=$(brc1) -31 -dwin16 -fo$&.r16 69 | res=r16 70 | srmc=$(srmgr) -16 -fo$&.s16 71 | srm=s16 72 | !endif 73 | 74 | !if $d(Delphi2) 75 | dcc=$(dcc2) $(opts) 76 | brc=$(brc2) -w32 -fo$&.r32 77 | res=r32 78 | srmc=$(srmgr) -32 -fo$&.s32 79 | srm=s32 80 | !endif 81 | 82 | !if $d(Delphi3) 83 | dcc=$(dcc3) $(opts) 84 | brc=$(brc3) -w32 -fo$&.r32 85 | res=r32 86 | srmc=$(srmgr) -32 -fo$&.s32 87 | srm=s32 88 | !endif 89 | 90 | 91 | #------------------------------------------------------------------------- 92 | # Implicit rules 93 | #------------------------------------------------------------------------- 94 | 95 | .pas.exe: 96 | $(dcc) $< 97 | 98 | .dpr.exe: 99 | $(dcc) $< 100 | 101 | .pas.dcu: 102 | $(dcc) $< 103 | 104 | .pas.dll: 105 | $(dcc) $< 106 | 107 | .dpr.dll: 108 | $(dcc) $< 109 | 110 | .dpk.dcp: 111 | $(dcc) $< 112 | 113 | .dpk.dpl: 114 | $(dcc) $< 115 | 116 | .rc.$(res): 117 | $(brc) $< 118 | 119 | .str.$(srm): 120 | $(srmc) $< 121 | 122 | #------------------------------------------------------------------------- 123 | # Explicit rules 124 | #------------------------------------------------------------------------- 125 | 126 | !if $d(Delphi3) 127 | alles : essentials resources packages 128 | !else 129 | alles : essentials resources 130 | !endif 131 | 132 | essentials : resources es.inc \ 133 | esbase.dcu esbase0.dcu escal.dcu escalc.dcu \ 134 | esclrcbx.dcu esconst.dcu esdata.dcu esdbed.dcu \ 135 | esedcal.dcu esedcalc.dcu esedpop.dcu esgrad.dcu \ 136 | eslabel.dcu eslabel0.dcu eslabel1.dcu esmarque.dcu \ 137 | esmnubtn.dcu esrollup.dcu esdir.dcu \ 138 | estile.dcu esutil.dcu esreg.dcu esregdb.dcu 139 | 140 | resources : esconst.$(srm) esconst.$(res) esconst.dcu \ 141 | esreg.$(res) esregdb.$(res) \ 142 | esbase.$(res) esdir.$(res) 143 | 144 | !if $d(Delphi3) 145 | packages : essentials resources \ 146 | tes$(ver)_r.dpl tes$(ver)_r.dcp \ 147 | tes$(ver)_d.dpl tes$(ver)_d.dcp \ 148 | tes$(ver)br.dpl tes$(ver)br.dcp \ 149 | tes$(ver)bd.dpl tes$(ver)bd.dcp 150 | !endif -------------------------------------------------------------------------------- /source/EsAbout0.pas: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | unit EsAbout0; 28 | 29 | interface 30 | 31 | uses 32 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 33 | StdCtrls, 34 | DesignIntf, {!!.09} 35 | DesignEditors, {!!.09} 36 | ExtCtrls, EsData; 37 | 38 | type 39 | TEsAboutForm = class(TForm) 40 | Panel1: TPanel; 41 | Image1: TImage; 42 | lblVersion: TLabel; 43 | btnOK: TButton; 44 | Bevel1: TBevel; 45 | procedure btnOKClick(Sender: TObject); 46 | procedure FormCreate(Sender: TObject); 47 | private 48 | { Private declarations } 49 | public 50 | { Public declarations } 51 | end; 52 | 53 | TEsVersionProperty = class(TStringProperty) 54 | public 55 | function GetAttributes: TPropertyAttributes; 56 | override; 57 | procedure Edit; 58 | override; 59 | end; 60 | 61 | implementation 62 | 63 | {$R *.DFM} 64 | 65 | 66 | {*** TEsVersionProperty ***} 67 | 68 | function TEsVersionProperty.GetAttributes: TPropertyAttributes; 69 | begin 70 | Result := [paDialog, paReadOnly]; 71 | end; 72 | 73 | procedure TEsVersionProperty.Edit; 74 | begin 75 | with TEsAboutForm.Create(Application) do begin 76 | try 77 | ShowModal; 78 | finally 79 | Free; 80 | end; 81 | end; 82 | end; 83 | 84 | 85 | {*** TEsAboutForm ***} 86 | 87 | procedure TEsAboutForm.btnOKClick(Sender: TObject); 88 | begin 89 | Close; 90 | end; 91 | 92 | procedure TEsAboutForm.FormCreate(Sender: TObject); 93 | begin 94 | Top := (Screen.Height - Height) div 3; 95 | Left := (Screen.Width - Width) div 2; 96 | lblVersion.Caption := 'Version ' + EsVersionStr; 97 | end; 98 | 99 | end. 100 | -------------------------------------------------------------------------------- /source/EsBase0.pas: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | unit EsBase0; 28 | 29 | interface 30 | 31 | uses 32 | DesignIntf, {!!.09} 33 | DesignEditors; {!!.09} 34 | 35 | type 36 | {property editor for the EsControl property of the TEsAttachedLabel component} 37 | TEsControlProperty = class(TClassProperty) 38 | public 39 | function GetAttributes: TPropertyAttributes; 40 | override; 41 | end; 42 | 43 | 44 | implementation 45 | 46 | 47 | {*** TEsControlProperty ***} 48 | 49 | function TEsControlProperty.GetAttributes : TPropertyAttributes; 50 | begin 51 | Result := [paReadOnly]; 52 | end; 53 | 54 | end. 55 | -------------------------------------------------------------------------------- /source/EsConst.pas: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | unit EsConst; 28 | {-constant declarations} 29 | 30 | {$R ESCONST.R32} 31 | 32 | interface 33 | 34 | const 35 | SCEsColorBlack = 0; 36 | SCEsColorMaroon = 1; 37 | SCEsColorGreen = 2; 38 | SCEsColorOlive = 3; 39 | SCEsColorNavy = 4; 40 | SCEsColorPurple = 5; 41 | SCEsColorTeal = 6; 42 | SCEsColorGray = 7; 43 | SCEsColorSilver = 8; 44 | SCEsColorRed = 9; 45 | SCEsColorLime = 10; 46 | SCEsColorYellow = 11; 47 | SCEsColorBlue = 12; 48 | SCEsColorFuchsia = 13; 49 | SCEsColorAqua = 14; 50 | SCEsColorWhite = 15; 51 | 52 | SCEsDayConvertError = 20; 53 | SCEsMonthConvertError = 21; 54 | SCEsMonthNameConvertError = 22; 55 | SCEsYearConvertError = 23; 56 | SCEsDayRequired = 24; 57 | SCEsMonthRequired = 25; 58 | SCEsYearRequired = 26; 59 | 60 | SCEsLabelNotAttached = 30; 61 | SCEsBlankDateNotAllowed = 31; 62 | SCEsInvalidDay = 32; 63 | SCEsInvalidMonth = 33; 64 | SCEsInvalidMonthName = 34; 65 | SCEsInvalidYear = 35; 66 | SCEsDayIsRequired = 36; 67 | SCEsMonthIsRequired = 37; 68 | SCEsYearIsRequired = 38; 69 | SCEsInvalidDate = 39; 70 | 71 | implementation 72 | 73 | end. 74 | -------------------------------------------------------------------------------- /source/EsData.pas: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | unit EsData; 28 | {-type, variable, and constant declarations} 29 | 30 | interface 31 | 32 | uses 33 | Windows, Messages; 34 | 35 | type 36 | TEsHdc = hDC; 37 | 38 | TRGBMap = packed record 39 | case Byte of 40 | 0 : (RGBValue : DWord); 41 | 1 : (Red : Byte; 42 | Green : Byte; 43 | Blue : Byte; 44 | Unused : Byte); 45 | end; 46 | 47 | const 48 | {message constants} 49 | ES_POSITIONLABEL = WM_USER + 100; 50 | ES_RECORDLABELPOSITION = WM_USER + 101; 51 | ES_ASSIGNLABEL = WM_USER + 102; 52 | 53 | const 54 | VK_0 = Ord('0'); 55 | VK_1 = Ord('1'); 56 | VK_2 = Ord('2'); 57 | VK_3 = Ord('3'); 58 | VK_4 = Ord('4'); 59 | VK_5 = Ord('5'); 60 | VK_6 = Ord('6'); 61 | VK_7 = Ord('7'); 62 | VK_8 = Ord('8'); 63 | VK_9 = Ord('9'); 64 | 65 | const 66 | EsVersionStr = '1.11'; {version string} 67 | 68 | implementation 69 | 70 | end. 71 | -------------------------------------------------------------------------------- /source/EsDir.pas: -------------------------------------------------------------------------------- 1 | (* ***** BEGIN LICENSE BLOCK ***** 2 | * Version: MPL 1.1 3 | * 4 | * The contents of this file are subject to the Mozilla Public License Version 5 | * 1.1 (the "License"); you may not use this file except in compliance with 6 | * the License. You may obtain a copy of the License at 7 | * http://www.mozilla.org/MPL/ 8 | * 9 | * Software distributed under the License is distributed on an "AS IS" basis, 10 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 11 | * for the specific language governing rights and limitations under the 12 | * License. 13 | * 14 | * The Original Code is TurboPower Essentials Vol I 15 | * 16 | * The Initial Developer of the Original Code is 17 | * TurboPower Software 18 | * 19 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 20 | * the Initial Developer. All Rights Reserved. 21 | * 22 | * Contributor(s): 23 | * 24 | * ***** END LICENSE BLOCK ***** *) 25 | 26 | unit EsDir; 27 | {-direction picker component} 28 | 29 | interface 30 | 31 | {$R ESDIR.R32} 32 | 33 | uses 34 | Windows, Classes, Controls, Graphics, Messages, EsData, EsUtil; 35 | 36 | type 37 | TEsCustomDirectionPicker = class(TGraphicControl) 38 | protected {private} 39 | {property variables} 40 | FDirection : Integer; 41 | FNumDirections : Integer; 42 | FSelectedBitmap : TBitmap; 43 | FShowCenter : Boolean; 44 | FDirectionBitmap : TBitmap; 45 | 46 | {event variables} 47 | FOnChange : TNotifyEvent; 48 | 49 | {property methods} 50 | procedure SetDirection(Value : Integer); 51 | procedure SetSelectedBitmap(Value : TBitmap); 52 | procedure SetNumDirections(Value : Integer); 53 | procedure SetShowCenter(Value : Boolean); 54 | procedure SetDirectionBitmap(Value : TBitmap); 55 | 56 | protected 57 | procedure MouseDown(Button : TMouseButton; Shift : TShiftState; X, Y : Integer); 58 | override; 59 | procedure Paint; 60 | override; 61 | 62 | property Direction : Integer 63 | read FDirection 64 | write SetDirection 65 | default 0; 66 | 67 | property NumDirections : Integer 68 | read FNumDirections 69 | write SetNumDirections 70 | default 8; 71 | 72 | property SelectedBitmap : TBitmap 73 | read FSelectedBitmap 74 | write SetSelectedBitmap; 75 | 76 | property ShowCenter : Boolean 77 | read FShowCenter 78 | write SetShowCenter 79 | default True; 80 | 81 | property DirectionBitmap : TBitmap 82 | read FDirectionBitmap 83 | write SetDirectionBitmap; 84 | 85 | property OnChange : TNotifyEvent 86 | read FOnChange 87 | write FOnChange; 88 | 89 | public 90 | constructor Create(AComponent : TComponent); 91 | override; 92 | destructor Destroy; 93 | override; 94 | end; 95 | 96 | TEsDirectionPicker = class(TEsCustomDirectionPicker) 97 | published 98 | property Direction; 99 | property Enabled; 100 | property SelectedBitmap; 101 | property NumDirections; 102 | property ShowCenter; 103 | property DirectionBitmap; 104 | 105 | property OnChange; 106 | property OnClick; 107 | property OnDblClick; 108 | property OnMouseDown; 109 | property OnMouseMove; 110 | property OnMouseUp; 111 | end; 112 | 113 | (* 114 | procedure Register; 115 | *) 116 | 117 | implementation 118 | 119 | 120 | const 121 | DToR = Pi / 180; 122 | 123 | constructor TEsCustomDirectionPicker.Create(AComponent : TComponent); 124 | begin 125 | inherited Create(AComponent); 126 | 127 | ControlStyle := [csClickEvents, csDoubleClicks]; 128 | 129 | Width := 50; 130 | Height := 50; 131 | 132 | FDirection := -1; 133 | FNumDirections := 8; 134 | FShowCenter := True; 135 | 136 | {create and load the bitmap images} 137 | FDirectionBitmap := TBitmap.Create; 138 | FDirectionBitmap.Handle := LoadBitmap(HInstance, 'ESBLUEDOT'); 139 | FSelectedBitmap := TBitmap.Create; 140 | FSelectedBitmap.Handle := LoadBitmap(HInstance, 'ESREDDOT'); 141 | end; 142 | 143 | destructor TEsCustomDirectionPicker.Destroy; 144 | begin 145 | {destroy bitmaps} 146 | FDirectionBitmap.Free; 147 | FDirectionBitmap := nil; 148 | FSelectedBitmap.Free; 149 | FSelectedBitmap := nil; 150 | 151 | inherited Destroy; 152 | end; 153 | 154 | procedure TEsCustomDirectionPicker.MouseDown(Button : TMouseButton; Shift : TShiftState; X, Y : Integer); 155 | var 156 | I : Integer; 157 | BW : Integer; 158 | Angle : Extended; 159 | Diameter : Integer; 160 | Radius : Integer; 161 | X1, Y1 : Integer; 162 | Distance : Integer; 163 | BestDirection : Integer; 164 | BestDistance : Integer; 165 | begin 166 | inherited MouseDown(Button, Shift, X, Y); 167 | 168 | if (Button = mbLeft) and Enabled then begin 169 | BW := Max(FDirectionBitmap.Width, FDirectionBitmap.Height); 170 | Diameter := Min(Height, Width)-2*BW; 171 | Radius := Diameter div 2; 172 | 173 | if FShowCenter then begin 174 | {initialize at center (-1)} 175 | BestDistance := Round(Sqrt(Sqr(Radius+BW-X) + Sqr(Radius+BW-Y))); 176 | BestDirection := -1; 177 | end else begin 178 | BestDistance := Width*2; 179 | BestDirection := FDirection; 180 | end; 181 | 182 | for I := 0 to Pred(FNumDirections) do begin 183 | Angle := (I * (360/FNumDirections) + 90) * DToR; 184 | X1 := Round(Radius * (1-Cos(Angle))) + BW; 185 | Y1 := Round(Radius * (1-Sin(Angle))) + BW; 186 | Distance := Round(Sqrt(Sqr(X1-X) + Sqr(Y1-Y))); 187 | if Distance < BestDistance then begin 188 | BestDistance := Distance; 189 | BestDirection := I; 190 | end; 191 | end; 192 | 193 | Direction := BestDirection; 194 | end; 195 | end; 196 | 197 | procedure TEsCustomDirectionPicker.Paint; 198 | var 199 | I : Integer; 200 | BW : Integer; 201 | BW2 : Integer; 202 | Angle : Extended; 203 | Diameter : Integer; 204 | Radius : Integer; 205 | X, Y : Integer; 206 | begin 207 | BW := Max(FDirectionBitmap.Width, FDirectionBitmap.Height); 208 | Diameter := Min(Height, Width)-2*BW; 209 | Radius := Diameter div 2; 210 | 211 | if FShowCenter then 212 | Canvas.Draw(Radius+BW, Radius+BW, FDirectionBitmap); 213 | for I := 0 to Pred(FNumDirections) do begin 214 | Angle := (I * (360/FNumDirections) + 90) * DToR; 215 | X := Round(Radius * (1-Cos(Angle))); 216 | Y := Round(Radius * (1-Sin(Angle))); 217 | Canvas.Draw(X+BW, Y+BW, FDirectionBitmap); 218 | end; 219 | 220 | {draw the dot for the selected direction} 221 | BW2 := (Max(FSelectedBitmap.Width, FSelectedBitmap.Height)-BW) div 2; {adjustment for larger bitmap} 222 | if FDirection = -1 then begin 223 | if FShowCenter then 224 | Canvas.Draw(Radius+BW-BW2, Radius+BW-BW2, FSelectedBitmap) 225 | end else begin 226 | Angle := (FDirection * (360/FNumDirections) + 90) * DToR; 227 | X := Round(Radius * (1-Cos(Angle))); 228 | Y := Round(Radius * (1-Sin(Angle))); 229 | Canvas.Draw(X+BW-BW2, Y+BW-BW2, FSelectedBitmap); 230 | end; 231 | end; 232 | 233 | procedure TEsCustomDirectionPicker.SetDirection(Value : Integer); 234 | begin 235 | if csLoading in ComponentState then begin 236 | FDirection := Value; 237 | Exit; 238 | end; 239 | 240 | if (Value <> FDirection) and (Value >= -1) and (Value < FNumDirections) then begin 241 | FDirection := Value; 242 | Invalidate; 243 | if Assigned(FOnChange) then 244 | FOnChange(Self); 245 | end; 246 | end; 247 | 248 | procedure TEsCustomDirectionPicker.SetSelectedBitmap(Value : TBitmap); 249 | begin 250 | if Assigned(Value) then 251 | FSelectedBitmap.Assign(Value) 252 | else 253 | FSelectedBitmap.ReleaseHandle; 254 | Invalidate; 255 | end; 256 | 257 | procedure TEsCustomDirectionPicker.SetNumDirections(Value : Integer); 258 | begin 259 | if (Value <> FNumDirections) and (Value >= 2) then begin 260 | FNumDirections := Value; 261 | Invalidate; 262 | end; 263 | end; 264 | 265 | procedure TEsCustomDirectionPicker.SetShowCenter(Value : Boolean); 266 | begin 267 | if Value <> FShowCenter then begin 268 | FShowCenter := Value; 269 | Invalidate; 270 | end; 271 | end; 272 | 273 | procedure TEsCustomDirectionPicker.SetDirectionBitmap(Value : TBitmap); 274 | begin 275 | if Assigned(Value) then 276 | FDirectionBitmap.Assign(Value) 277 | else 278 | FDirectionBitmap.ReleaseHandle; 279 | Invalidate; 280 | end; 281 | 282 | (* 283 | procedure Register; 284 | begin 285 | RegisterComponents('Essentials+', [TEsDirectionPicker]); 286 | end; 287 | *) 288 | 289 | initialization 290 | 291 | if Classes.GetClass(TEsDirectionPicker.ClassName) = nil then 292 | Classes.RegisterClass(TEsDirectionPicker); 293 | 294 | end. 295 | -------------------------------------------------------------------------------- /source/EsLabel0.dfm: -------------------------------------------------------------------------------- 1 | object EsLabelFrm: TEsLabelFrm 2 | Left = 224 3 | Top = 109 4 | BorderStyle = bsDialog 5 | Caption = 'Style Manager' 6 | ClientHeight = 456 7 | ClientWidth = 577 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'MS Sans Serif' 13 | Font.Style = [] 14 | OldCreateOrder = True 15 | OnCreate = FormCreate 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object Panel1: TPanel 19 | Left = 0 20 | Top = 0 21 | Width = 577 22 | Height = 97 23 | Align = alTop 24 | Font.Charset = DEFAULT_CHARSET 25 | Font.Color = clWindowText 26 | Font.Height = -11 27 | Font.Name = 'MS Sans Serif' 28 | Font.Style = [] 29 | ParentFont = False 30 | TabOrder = 0 31 | object EsLabel: TEsLabel 32 | Left = 1 33 | Top = 1 34 | Width = 575 35 | Height = 95 36 | Align = alClient 37 | Alignment = taCenter 38 | Appearance = apCustom 39 | Caption = 'Essential Labels' 40 | ColorScheme = csCustom 41 | Font.Charset = DEFAULT_CHARSET 42 | Font.Color = clGray 43 | Font.Height = -27 44 | Font.Name = 'Times New Roman' 45 | Font.Style = [] 46 | ParentFont = False 47 | end 48 | end 49 | object Button1: TButton 50 | Left = 418 51 | Top = 427 52 | Width = 75 53 | Height = 25 54 | Caption = 'OK' 55 | Default = True 56 | ModalResult = 1 57 | TabOrder = 4 58 | end 59 | object Button2: TButton 60 | Left = 500 61 | Top = 427 62 | Width = 75 63 | Height = 25 64 | Cancel = True 65 | Caption = 'Cancel' 66 | ModalResult = 2 67 | TabOrder = 5 68 | end 69 | object Panel2: TPanel 70 | Left = 0 71 | Top = 364 72 | Width = 393 73 | Height = 91 74 | TabOrder = 3 75 | object TLabel 76 | Left = 4 77 | Top = 4 78 | Width = 57 79 | Height = 13 80 | Caption = 'Style Name:' 81 | end 82 | object TLabel 83 | Left = 256 84 | Top = 5 85 | Width = 61 86 | Height = 13 87 | Caption = 'Appearance:' 88 | end 89 | object TLabel 90 | Left = 256 91 | Top = 48 92 | Width = 69 93 | Height = 13 94 | Caption = 'Color Scheme:' 95 | end 96 | object SchemeCb: TComboBox 97 | Left = 4 98 | Top = 20 99 | Width = 233 100 | Height = 21 101 | Style = csDropDownList 102 | ItemHeight = 13 103 | MaxLength = 255 104 | Sorted = True 105 | TabOrder = 0 106 | OnChange = SchemeCbChange 107 | Items.Strings = ( 108 | 'one' 109 | 'two') 110 | end 111 | object SaveAsBtn: TButton 112 | Left = 4 113 | Top = 55 114 | Width = 75 115 | Height = 25 116 | Caption = 'Save &As...' 117 | TabOrder = 1 118 | OnClick = SaveAsBtnClick 119 | end 120 | object DeleteBtn: TButton 121 | Left = 161 122 | Top = 55 123 | Width = 75 124 | Height = 25 125 | Caption = '&Delete' 126 | TabOrder = 2 127 | OnClick = DeleteBtnClick 128 | end 129 | object AppearanceCb: TComboBox 130 | Left = 256 131 | Top = 20 132 | Width = 126 133 | Height = 21 134 | ItemHeight = 13 135 | TabOrder = 3 136 | OnChange = AppearanceCbChange 137 | end 138 | object ColorSchemeCb: TComboBox 139 | Left = 256 140 | Top = 62 141 | Width = 126 142 | Height = 21 143 | ItemHeight = 13 144 | TabOrder = 4 145 | OnChange = ColorSchemeCbChange 146 | end 147 | end 148 | object Panel3: TPanel 149 | Left = 0 150 | Top = 97 151 | Width = 577 152 | Height = 189 153 | TabOrder = 1 154 | object TLabel 155 | Left = 152 156 | Top = 83 157 | Width = 70 158 | Height = 13 159 | Caption = 'Gradient Color:' 160 | end 161 | object TLabel 162 | Left = 294 163 | Top = 83 164 | Width = 71 165 | Height = 13 166 | Caption = 'Highlight Color:' 167 | end 168 | object TLabel 169 | Left = 437 170 | Top = 83 171 | Width = 69 172 | Height = 13 173 | Caption = 'Shadow Color:' 174 | end 175 | object HighlightDirectionLbl: TLabel 176 | Left = 304 177 | Top = 128 178 | Width = 50 179 | Height = 32 180 | AutoSize = False 181 | Caption = 'Highlight Direction:' 182 | WordWrap = True 183 | end 184 | object ShadowDirectionLbl: TLabel 185 | Left = 447 186 | Top = 128 187 | Width = 50 188 | Height = 32 189 | AutoSize = False 190 | Caption = 'Shadow Direction:' 191 | WordWrap = True 192 | end 193 | object TLabel 194 | Left = 8 195 | Top = 65 196 | Width = 53 197 | Height = 13 198 | Caption = 'Text Color/' 199 | end 200 | object TLabel 201 | Left = 8 202 | Top = 78 203 | Width = 86 204 | Height = 13 205 | Caption = 'Gradient To Color:' 206 | end 207 | object GraduateRg: TRadioGroup 208 | Left = 150 209 | Top = 3 210 | Width = 137 211 | Height = 73 212 | Caption = 'Text &Gradient Style' 213 | ItemIndex = 0 214 | Items.Strings = ( 215 | 'None' 216 | 'Horizontal' 217 | 'Vertical') 218 | TabOrder = 1 219 | OnClick = GraduateRgClick 220 | end 221 | object ShadowRg: TRadioGroup 222 | Left = 436 223 | Top = 3 224 | Width = 137 225 | Height = 73 226 | Caption = '&Shadow Style' 227 | ItemIndex = 0 228 | Items.Strings = ( 229 | 'Plain' 230 | 'Extrude' 231 | 'Graduate') 232 | TabOrder = 3 233 | OnClick = ShadowRgClick 234 | end 235 | object HighlightRg: TRadioGroup 236 | Left = 293 237 | Top = 3 238 | Width = 137 239 | Height = 73 240 | Caption = '&Highlight Style' 241 | ItemIndex = 0 242 | Items.Strings = ( 243 | 'Plain' 244 | 'Extrude' 245 | 'Graduate') 246 | TabOrder = 2 247 | OnClick = HighlightRgClick 248 | end 249 | object FromColorCcb: TEsColorComboBox 250 | Left = 151 251 | Top = 99 252 | Width = 137 253 | Height = 22 254 | EsLabelInfo.OffsetX = 0 255 | EsLabelInfo.OffsetY = 0 256 | EsLabelInfo.Visible = False 257 | TabOrder = 4 258 | OnChange = FromColorCcbChange 259 | end 260 | object HighlightColorCcb: TEsColorComboBox 261 | Left = 293 262 | Top = 99 263 | Width = 137 264 | Height = 22 265 | EsLabelInfo.OffsetX = 0 266 | EsLabelInfo.OffsetY = 0 267 | EsLabelInfo.Visible = False 268 | TabOrder = 5 269 | OnChange = HighlightColorCcbChange 270 | end 271 | object ShadowColorCcb: TEsColorComboBox 272 | Left = 436 273 | Top = 99 274 | Width = 137 275 | Height = 22 276 | EsLabelInfo.OffsetX = 0 277 | EsLabelInfo.OffsetY = 0 278 | EsLabelInfo.Visible = False 279 | TabOrder = 6 280 | OnChange = ShadowColorCcbChange 281 | end 282 | object FontColorCcb: TEsColorComboBox 283 | Left = 7 284 | Top = 99 285 | Width = 137 286 | Height = 22 287 | EsLabelInfo.OffsetX = 0 288 | EsLabelInfo.OffsetY = 0 289 | EsLabelInfo.Visible = False 290 | TabOrder = 0 291 | OnChange = FontColorCcbChange 292 | end 293 | end 294 | object Panel4: TPanel 295 | Left = 0 296 | Top = 286 297 | Width = 577 298 | Height = 78 299 | TabOrder = 2 300 | object TLabel 301 | Left = 20 302 | Top = 8 303 | Width = 105 304 | Height = 13 305 | Alignment = taRightJustify 306 | AutoSize = False 307 | Caption = 'Font Size: ' 308 | end 309 | object FontSizeLbl: TLabel 310 | Left = 500 311 | Top = 8 312 | Width = 6 313 | Height = 13 314 | Caption = '0' 315 | end 316 | object HighlightDepthLbl: TLabel 317 | Left = 500 318 | Top = 32 319 | Width = 6 320 | Height = 13 321 | Caption = '0' 322 | end 323 | object ShadowDepthLbl: TLabel 324 | Left = 500 325 | Top = 56 326 | Width = 6 327 | Height = 13 328 | Caption = '0' 329 | end 330 | object TLabel 331 | Left = 20 332 | Top = 32 333 | Width = 105 334 | Height = 13 335 | Alignment = taRightJustify 336 | AutoSize = False 337 | Caption = 'Highlight Depth: ' 338 | end 339 | object TLabel 340 | Left = 20 341 | Top = 56 342 | Width = 105 343 | Height = 13 344 | Alignment = taRightJustify 345 | AutoSize = False 346 | Caption = 'Shadow Depth: ' 347 | end 348 | object FontSizeSb: TScrollBar 349 | Left = 132 350 | Top = 8 351 | Width = 357 352 | Height = 14 353 | PageSize = 0 354 | TabOrder = 0 355 | OnChange = FontSizeSbChange 356 | end 357 | object ShadowDepthSb: TScrollBar 358 | Left = 132 359 | Top = 56 360 | Width = 357 361 | Height = 14 362 | Max = 50 363 | PageSize = 0 364 | TabOrder = 2 365 | OnChange = ShadowDepthSbChange 366 | end 367 | object HighlightDepthSb: TScrollBar 368 | Left = 132 369 | Top = 32 370 | Width = 357 371 | Height = 14 372 | Max = 50 373 | PageSize = 0 374 | TabOrder = 1 375 | OnChange = HighlightDepthSbChange 376 | end 377 | end 378 | end -------------------------------------------------------------------------------- /source/EsLabel1.PAS: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | unit EsLabel1; 28 | 29 | interface 30 | 31 | uses 32 | Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 33 | StdCtrls; 34 | 35 | type 36 | TSaveSchemeFrm = class(TForm) 37 | Label1: TLabel; 38 | SchemeNameEd: TEdit; 39 | OkBtn: TButton; 40 | CancelBtn: TButton; 41 | procedure FormCreate(Sender: TObject); 42 | private 43 | { Private declarations } 44 | public 45 | { Public declarations } 46 | end; 47 | 48 | implementation 49 | 50 | {$R *.dfm} 51 | 52 | procedure TSaveSchemeFrm.FormCreate(Sender: TObject); 53 | begin 54 | Top := (Screen.Height - Height) div 3; 55 | Left := (Screen.Width - Width) div 2; 56 | end; 57 | 58 | end. 59 | -------------------------------------------------------------------------------- /source/EsLabel1.dfm: -------------------------------------------------------------------------------- 1 | object SaveSchemeFrm: TSaveSchemeFrm 2 | Left = 311 3 | Top = 267 4 | BorderStyle = bsDialog 5 | Caption = 'Save Style' 6 | ClientHeight = 105 7 | ClientWidth = 428 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -14 12 | Font.Name = 'MS Sans Serif' 13 | Font.Style = [] 14 | OldCreateOrder = True 15 | OnCreate = FormCreate 16 | PixelsPerInch = 120 17 | TextHeight = 16 18 | object Label1: TLabel 19 | Left = 5 20 | Top = 10 21 | Width = 107 22 | Height = 16 23 | Margins.Left = 4 24 | Margins.Top = 4 25 | Margins.Right = 4 26 | Margins.Bottom = 4 27 | Caption = 'Save this style as:' 28 | end 29 | object SchemeNameEd: TEdit 30 | Left = 5 31 | Top = 30 32 | Width = 420 33 | Height = 24 34 | Margins.Left = 4 35 | Margins.Top = 4 36 | Margins.Right = 4 37 | Margins.Bottom = 4 38 | MaxLength = 255 39 | TabOrder = 0 40 | end 41 | object OkBtn: TButton 42 | Left = 236 43 | Top = 69 44 | Width = 93 45 | Height = 31 46 | Margins.Left = 4 47 | Margins.Top = 4 48 | Margins.Right = 4 49 | Margins.Bottom = 4 50 | Caption = 'OK' 51 | Default = True 52 | ModalResult = 1 53 | TabOrder = 1 54 | end 55 | object CancelBtn: TButton 56 | Left = 335 57 | Top = 69 58 | Width = 92 59 | Height = 31 60 | Margins.Left = 4 61 | Margins.Top = 4 62 | Margins.Right = 4 63 | Margins.Bottom = 4 64 | Cancel = True 65 | Caption = 'Cancel' 66 | ModalResult = 2 67 | TabOrder = 2 68 | end 69 | end 70 | -------------------------------------------------------------------------------- /source/EsReg.pas: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | unit EsReg; 28 | {-registration unit for the Essentials components} 29 | 30 | {$R ESREG.R32} 31 | 32 | interface 33 | 34 | uses 35 | Windows, DesignIntf, DesignEditors, Classes, Controls, Graphics, TypInfo, Buttons, 36 | EsBase, EsBase0, EsLabel, EsGrad, EsRollUp, EsCalc, 37 | EsEdCalc, EsCal, EsEdCal, EsClrCbx, EsMnuBtn, EsEdPop, 38 | EsTile, EsMarque, EsLabel0, EsDir, EsAbout0, EsWebPE; 39 | 40 | 41 | procedure Register; 42 | 43 | 44 | implementation 45 | 46 | 47 | procedure Register; 48 | begin 49 | RegisterPropertyEditor(TypeInfo(TWinControl), TEsAttachedLabel, 'EsControl', TEsControlProperty); 50 | 51 | RegisterPropertyEditor(TypeInfo(TEsCustomSettings), TEsCustomLabel, 'CustomSettings', TEsCustomSettingsProperty); 52 | 53 | RegisterPropertyEditor(TypeInfo(string), TEsBase, 'Version', TEsVersionProperty); 54 | RegisterPropertyEditor(TypeInfo(string), TEsCustomLabel, 'Version', TEsVersionProperty); 55 | RegisterPropertyEditor(TypeInfo(string), TEsCustomRollUp, 'Version', TEsVersionProperty); 56 | RegisterPropertyEditor(TypeInfo(string), TEsEdPopup, 'Version', TEsVersionProperty); 57 | RegisterPropertyEditor(TypeInfo(string), TEsCustomColorComboBox, 'Version', TEsVersionProperty); 58 | RegisterPropertyEditor(TypeInfo(string), TEsCustomTile, 'Version', TEsVersionProperty); 59 | RegisterPropertyEditor(TypeInfo(string), TEsCustomGradient, 'Version', TEsVersionProperty); 60 | 61 | 62 | {register web component editor} 63 | RegisterComponentEditor(TEsBase, TEsWebEditor); 64 | RegisterComponentEditor(TEsCustomRollUp, TEsWebEditor); 65 | RegisterComponentEditor(TEsEdPopup, TEsWebEditor); 66 | RegisterComponentEditor(TEsCustomColorComboBox, TEsWebEditor); 67 | RegisterComponentEditor(TEsCustomTile, TEsWebEditor); 68 | RegisterComponentEditor(TEsCustomGradient, TEsWebEditor); 69 | 70 | {register label component editor} 71 | RegisterComponentEditor(TEsCustomLabel, TEsLabelEditor); 72 | 73 | RegisterComponents('Essentials 1', 74 | [TEsLabel, 75 | TEsScrollingMarquee, 76 | TEsCalendar, 77 | TEsCalculator, 78 | TEsDateEdit, 79 | TEsNumberEdit, 80 | TEsMenuButton, 81 | TEsColorComboBox, 82 | TEsTile, 83 | TEsGradient, 84 | TEsRollUp 85 | ]); 86 | end; 87 | 88 | end. 89 | -------------------------------------------------------------------------------- /source/EsRegDb.pas: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | {$B-} {Complete Boolean Evaluation} 28 | {$I+} {Input/Output-Checking} 29 | {$P+} {Open Parameters} 30 | {$T-} {Typed @ Operator} 31 | {$W-} {Windows Stack Frame} 32 | {$X+} {Extended Syntax} 33 | 34 | {$IFNDEF Win32} 35 | {$G+} {286 Instructions} 36 | {$N+} {Numeric Coprocessor} 37 | {$C MOVEABLE,DEMANDLOAD,DISCARDABLE} 38 | {$ENDIF} 39 | 40 | unit EsRegDb; 41 | {-registration unit for the data-aware Essentials components} 42 | 43 | {$R ESREGDB.R32} 44 | 45 | interface 46 | 47 | uses 48 | Windows, DesignIntf, DesignEditors, Classes, Controls, Graphics, TypInfo, 49 | EsBase, EsLabel, EsCalc, EsEdCalc, EsCal, EsEdCal, EsDbEd; 50 | 51 | 52 | procedure Register; 53 | 54 | 55 | implementation 56 | 57 | 58 | procedure Register; 59 | begin 60 | RegisterComponents('Essentials 1', 61 | [TEsDbDateEdit, 62 | TEsDbNumberEdit]); 63 | end; 64 | 65 | end. 66 | -------------------------------------------------------------------------------- /source/EsSrmgr.r32: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/source/EsSrmgr.r32 -------------------------------------------------------------------------------- /source/EsSrmgr.rc: -------------------------------------------------------------------------------- 1 | /* ***** BEGIN LICENSE BLOCK ***** 2 | * Version: MPL 1.1 3 | * 4 | * The contents of this file are subject to the Mozilla Public License Version 5 | * 1.1 (the "License"); you may not use this file except in compliance with 6 | * the License. You may obtain a copy of the License at 7 | * http://www.mozilla.org/MPL/ 8 | * 9 | * Software distributed under the License is distributed on an "AS IS" basis, 10 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 11 | * for the specific language governing rights and limitations under the 12 | * License. 13 | * 14 | * The Original Code is TurboPower Essentials Vol I 15 | * 16 | * The Initial Developer of the Original Code is 17 | * TurboPower Software 18 | * 19 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 20 | * the Initial Developer. All Rights Reserved. 21 | * 22 | * Contributor(s): 23 | * 24 | * ***** END LICENSE BLOCK ***** */ 25 | 26 | #ifdef win16 27 | EsSRMGR_STRINGS RCDATA EsSRMGR.S16 28 | #else 29 | EsSRMGR_STRINGS RCDATA EsSRMGR.S32 30 | #endif 31 | -------------------------------------------------------------------------------- /source/EsSrmgr.s16: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/source/EsSrmgr.s16 -------------------------------------------------------------------------------- /source/EsSrmgr.s32: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/source/EsSrmgr.s32 -------------------------------------------------------------------------------- /source/EsSrmgr.str: -------------------------------------------------------------------------------- 1 | 2 | ;* ***** BEGIN LICENSE BLOCK ***** 3 | ;* Version: MPL 1.1 4 | ;* 5 | ;* The contents of this file are subject to the Mozilla Public License Version 6 | ;* 1.1 (the "License"); you may not use this file except in compliance with 7 | ;* the License. You may obtain a copy of the License at 8 | ;* http://www.mozilla.org/MPL/ 9 | ;* 10 | ;* Software distributed under the License is distributed on an "AS IS" basis, 11 | ;* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | ;* for the specific language governing rights and limitations under the 13 | ;* License. 14 | ;* 15 | ;* The Original Code is TurboPower Essentials Vol I 16 | ;* 17 | ;* The Initial Developer of the Original Code is 18 | ;* TurboPower Software 19 | ;* 20 | ;* Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | ;* the Initial Developer. All Rights Reserved. 22 | ;* 23 | ;* Contributor(s): 24 | ;* 25 | ;* ***** END LICENSE BLOCK ***** 26 | 27 | //Compile with SRMC, then compile SRMGR.RC with BRCC[32] 28 | 29 | 1, "String not found: %d" 30 | 2, "Cannot lock resource" 31 | 3, "String resource not found: %s" 32 | 4, "Unable to open string resource: %s" 33 | 5, "Invalid string resource" -------------------------------------------------------------------------------- /source/EsTile.pas: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | unit EsTile; 28 | {-tile component} 29 | 30 | interface 31 | 32 | uses 33 | Windows, Classes, Controls, Forms, Graphics, Messages, EsConst, EsData; 34 | 35 | type 36 | TEsCustomTile = class(TGraphicControl) 37 | protected {private} 38 | {.Z+} 39 | {property variables} 40 | FBitmap : TBitmap; 41 | 42 | {internal methods} 43 | procedure tiBitmapChange(Sender : TObject); 44 | 45 | {property methods} 46 | function GetVersion : string; 47 | procedure SetBitmap(Value : TBitmap); 48 | procedure SetVersion(const Value : string); 49 | {.Z-} 50 | protected 51 | {.Z+} 52 | procedure Paint; 53 | override; 54 | {.Z-} 55 | 56 | property Bitmap : TBitmap 57 | read FBitmap 58 | write SetBitmap; 59 | 60 | property Version : string 61 | read GetVersion 62 | write SetVersion 63 | stored False; 64 | 65 | public 66 | {.Z+} 67 | constructor Create(AComponent : TComponent); 68 | override; 69 | destructor Destroy; 70 | override; 71 | procedure PaintTo(DC : TEsHdc; R : TRect); 72 | {.Z-} 73 | end; 74 | 75 | TEsTile = class(TEsCustomTile) 76 | published 77 | property Anchors; {!!.06} 78 | property Constraints; {!!.06} 79 | property DragKind; {!!.06} 80 | property Align; 81 | property Bitmap; 82 | property Version; 83 | 84 | property OnClick; 85 | property OnDblClick; 86 | property OnDragDrop; 87 | property OnDragOver; 88 | property OnMouseDown; 89 | property OnMouseMove; 90 | property OnMouseUp; 91 | property OnStartDrag; 92 | end; 93 | 94 | 95 | implementation 96 | 97 | 98 | constructor TEsCustomTile.Create(AComponent : TComponent); 99 | begin 100 | inherited Create(AComponent); 101 | 102 | ControlStyle := ControlStyle + [csOpaque]; {!!.04} 103 | 104 | Width := 100; 105 | Height := 100; 106 | 107 | FBitmap := TBitmap.Create; 108 | FBitmap.OnChange := tiBitmapChange; 109 | 110 | end; 111 | 112 | destructor TEsCustomTile.Destroy; 113 | begin 114 | FBitmap.Free; 115 | FBitmap := nil; 116 | 117 | inherited Destroy; 118 | end; 119 | 120 | function TEsCustomTile.GetVersion : string; 121 | begin 122 | Result := EsVersionStr; 123 | end; 124 | 125 | procedure TEsCustomTile.Paint; 126 | begin 127 | if not Assigned(FBitmap) or FBitmap.Empty then begin 128 | Canvas.Brush.Color := Color; 129 | Canvas.FillRect(ClientRect); 130 | Exit; 131 | end; 132 | 133 | PaintTo(Canvas.Handle, ClientRect); 134 | end; 135 | 136 | procedure TEsCustomTile.PaintTo(DC : TEshDC; R : TRect); 137 | var 138 | HTiles : Integer; 139 | VTiles : Integer; 140 | X, Y : Integer; 141 | CW, CH : Integer; 142 | TmpDC : hDC; 143 | Bmp : hBitmap; 144 | OldBmp : hBitmap; 145 | OldPal : hPalette; 146 | OldPal2 : hPalette; 147 | begin 148 | if FBitmap.Handle > 0 then {force handle creation}; 149 | 150 | {get the width and height} 151 | CW := R.Right-R.Left; 152 | CH := R.Bottom-R.Top; 153 | 154 | OldPal := 0; 155 | if FBitmap.Palette <> 0 then begin 156 | {if the bitmap has a palette, use it} 157 | OldPal := SelectPalette(DC, FBitmap.Palette, True); 158 | RealizePalette(DC); 159 | end; 160 | try 161 | {create a temporary device context} 162 | TmpDC := CreateCompatibleDC(DC); 163 | try 164 | {create a bitmap to draw on} 165 | Bmp := CreateCompatibleBitmap(DC, CW, CH); 166 | try 167 | {select the bitmap into the temporary DC} 168 | OldBmp := SelectObject(TmpDC, Bmp); 169 | try 170 | OldPal2 := 0; 171 | if FBitmap.Palette <> 0 then begin 172 | OldPal2 := SelectPalette(TmpDC, FBitmap.Palette, True); 173 | RealizePalette(TmpDC); 174 | end; 175 | try 176 | {compute needed tiles} 177 | HTiles := CW div FBitmap.Width; 178 | if CW mod FBitmap.Width <> 0 then 179 | Inc(HTiles); 180 | VTiles := CH div FBitmap.Height; 181 | if CH mod FBitmap.Height <> 0 then 182 | Inc(VTiles); 183 | 184 | {paint the tiles} 185 | for X := 0 to Pred(HTiles) do 186 | for Y := 0 to Pred(VTiles) do 187 | BitBlt(TmpDC, X*FBitmap.Width, Y*FBitmap.Height, 188 | FBitmap.Width, FBitmap.Height, FBitmap.Canvas.Handle, 0, 0, SRCCOPY); 189 | 190 | {copy temporary device context to ours} 191 | BitBlt(DC, 0, 0, CW, CH, TmpDC, 0, 0, SRCCOPY); 192 | finally 193 | if OldPal2 <> 0 then 194 | SelectPalette(TmpDC, OldPal2, True); 195 | end; 196 | finally 197 | SelectObject(TmpDC, OldBmp); 198 | end; 199 | finally 200 | DeleteObject(Bmp); 201 | end; 202 | finally 203 | DeleteDC(TmpDC); 204 | end; 205 | finally 206 | if OldPal > 0 then 207 | SelectPalette(DC, OldPal, True); 208 | end; 209 | end; 210 | 211 | procedure TEsCustomTile.SetBitmap(Value : TBitmap); 212 | begin 213 | if Assigned(Value) then 214 | FBitmap.Assign(Value) 215 | else 216 | FBitmap.ReleaseHandle; 217 | Invalidate; 218 | end; 219 | 220 | procedure TEsCustomTile.SetVersion(const Value : string); 221 | begin 222 | end; 223 | 224 | procedure TEsCustomTile.tiBitmapChange(Sender : TObject); 225 | begin 226 | Invalidate; 227 | end; 228 | 229 | end. 230 | -------------------------------------------------------------------------------- /source/EsWebPE.pas: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | unit EsWebPE; 28 | {-component editor to provide web access} 29 | 30 | interface 31 | 32 | uses 33 | Windows, Dialogs, 34 | DesignIntf, {!!.09} 35 | DesignEditors, {!!.09} 36 | Classes, ShellApi, 37 | EsData; 38 | 39 | const 40 | WebText1 = 'TurboPower on the Web'; 41 | WebText2 = 'Essentials Home Page'; 42 | MailText = 'Send a Support Message'; 43 | 44 | type 45 | TEsWebEditor = class(TDefaultEditor) 46 | public 47 | procedure ExecuteVerb(Index : Integer); 48 | override; 49 | function GetVerb(Index : Integer) : String; 50 | override; 51 | function GetVerbCount : Integer; 52 | override; 53 | end; 54 | 55 | procedure ShellWebCall1; 56 | procedure ShellWebCall2; 57 | procedure ShellMailCall; 58 | 59 | implementation 60 | 61 | procedure ShellWebCall1; 62 | begin 63 | if ShellExecute(0, 'open', 'http://www.turbopower.com', '', '', SW_SHOWNORMAL) <= 32 then 64 | ShowMessage('Unable to start web browser. Make sure you have it properly set-up on your system.'); 65 | end; 66 | 67 | procedure ShellWebCall2; 68 | begin 69 | if ShellExecute(0, 'open', 'http://www.turbopower.com/products/essentials', '', '', SW_SHOWNORMAL) <= 32 then 70 | ShowMessage('Unable to start web browser. Make sure you have it properly set-up on your system.'); 71 | end; 72 | 73 | procedure ShellMailCall; 74 | begin 75 | if ShellExecute(0, 'open', 'mailto:support@turbopower.com', '', '', SW_SHOWNORMAL) <= 32 then 76 | ShowMessage('Unable to start mail client. Make sure you have it properly set-up on your system.'); 77 | end; 78 | 79 | 80 | {*** TEsWebEditor ***} 81 | 82 | procedure TEsWebEditor.ExecuteVerb(Index : Integer); 83 | begin 84 | case Index of 85 | 0 : ShellWebCall1; 86 | 1 : ShellWebCall2; 87 | 2 : ShellMailCall; 88 | end; 89 | end; 90 | 91 | function TEsWebEditor.GetVerb(Index : Integer) : String; 92 | begin 93 | case Index of 94 | 0 : Result := WebText1; 95 | 1 : Result := WebText2; 96 | 2 : Result := MailText; 97 | else 98 | Result := '?'; 99 | end; 100 | end; 101 | 102 | function TEsWebEditor.GetVerbCount : Integer; 103 | begin 104 | Result := 3; 105 | end; 106 | 107 | end. 108 | -------------------------------------------------------------------------------- /source/Tests/EssentialsTests.dpr: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/source/Tests/EssentialsTests.dpr -------------------------------------------------------------------------------- /source/Tests/EssentialsTests.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/source/Tests/EssentialsTests.res -------------------------------------------------------------------------------- /source/Tests/TestEsEdCal.pas: -------------------------------------------------------------------------------- 1 | /// 2 | /// This unit contains tests for the EsEdCal unit. 3 | /// 4 | unit TestEsEdCal; 5 | 6 | interface 7 | 8 | uses 9 | Vcl.StdCtrls, Vcl.Forms, TestFramework, EsEdCal; 10 | 11 | type 12 | /// 13 | /// This is a test class for TEsDateEdit. 14 | /// 15 | TTestEsDateEdit = class(TTestCase) 16 | strict private 17 | /// 18 | /// The TEsDateEdit that should be tested. 19 | /// 20 | FDateEdit: TEsDateEdit; 21 | /// 22 | /// A normal TEEdit that can get the focus. 23 | /// 24 | FEdit: TEdit; 25 | /// 26 | /// The form that has the TEsDateEdit control. 27 | /// 28 | FForm: TForm; 29 | strict protected 30 | /// 31 | /// Is called to set up the test environment. In this case a form with 32 | /// some controls is created. 33 | /// 34 | procedure SetUp; override; 35 | /// 36 | /// This method is called to destroy the the controls that are create in 37 | /// Setup. 38 | /// 39 | procedure TearDown; override; 40 | published 41 | /// 42 | /// Tests what happens if the TEsDateEdit gets an onExit event. 43 | /// 44 | procedure TestExit; 45 | end; 46 | 47 | implementation 48 | 49 | uses 50 | System.SysUtils; 51 | 52 | { TTestEsDateEdit } 53 | 54 | procedure TTestEsDateEdit.SetUp; 55 | begin 56 | inherited SetUp; 57 | FForm := TForm.Create(nil); 58 | 59 | FDateEdit := TEsDateEdit.Create(FForm); 60 | FDateEdit.Parent := FForm; 61 | 62 | FEdit := TEdit.Create(FForm); 63 | FEdit.Parent := FForm; 64 | 65 | FForm.Show; 66 | end; 67 | 68 | procedure TTestEsDateEdit.TearDown; 69 | begin 70 | FForm.Free; 71 | inherited TearDown; 72 | end; 73 | 74 | procedure TTestEsDateEdit.TestExit; 75 | begin 76 | FDateEdit.SetFocus; 77 | FDateEdit.Text := DateToStr(Date); 78 | FEdit.SetFocus; 79 | end; 80 | 81 | initialization 82 | RegisterTest(TTestEsDateEdit.Suite); 83 | end. 84 | 85 | -------------------------------------------------------------------------------- /source/esconst.rc: -------------------------------------------------------------------------------- 1 | /* ***** BEGIN LICENSE BLOCK ***** 2 | * Version: MPL 1.1 3 | * 4 | * The contents of this file are subject to the Mozilla Public License Version 5 | * 1.1 (the "License"); you may not use this file except in compliance with 6 | * the License. You may obtain a copy of the License at 7 | * http://www.mozilla.org/MPL/ 8 | * 9 | * Software distributed under the License is distributed on an "AS IS" basis, 10 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 11 | * for the specific language governing rights and limitations under the 12 | * License. 13 | * 14 | * The Original Code is TurboPower Essentials Vol I 15 | * 16 | * The Initial Developer of the Original Code is 17 | * TurboPower Software 18 | * 19 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 20 | * the Initial Developer. All Rights Reserved. 21 | * 22 | * Contributor(s): 23 | * 24 | * ***** END LICENSE BLOCK ***** */ 25 | 26 | ;win16 is defined in essence.mak when calling brcc 27 | 28 | #ifdef win16 29 | ESSENTIALS_STRINGS_ENGLISH RCDATA ESCONST.S16 30 | #else 31 | ESSENTIALS_STRINGS_ENGLISH RCDATA ESCONST.S32 32 | #endif -------------------------------------------------------------------------------- /source/esconst.s16: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/source/esconst.s16 -------------------------------------------------------------------------------- /source/esconst.s32: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/source/esconst.s32 -------------------------------------------------------------------------------- /source/esreg.r32: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/source/esreg.r32 -------------------------------------------------------------------------------- /source/esregdb.r32: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/TurboPack/Essentials/ed2fee2e1473f11d980fbd9ee1d494bc5fd91cae/source/esregdb.r32 -------------------------------------------------------------------------------- /source/esrollup.pas: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | unit EsRollUp; 28 | 29 | interface 30 | 31 | uses 32 | Windows, Classes, Forms, Messages, MMSystem, EsConst, EsData; 33 | 34 | const 35 | ruDefAnimate = True; 36 | ruDefAnimateSpeed = 8; 37 | 38 | type 39 | TEsAnimateSpeed = 0..10; 40 | 41 | TEsCustomRollUp = class(TComponent) 42 | protected {private} 43 | {.Z+} 44 | {property variables} 45 | FAnimate : Boolean; 46 | FAnimateSpeed : TEsAnimateSpeed; 47 | FHookForm : Boolean; 48 | FMinHeight : Integer; 49 | 50 | {event variables} 51 | FOnRollDown: TNotifyEvent; 52 | FOnRollUp : TNotifyEvent; 53 | 54 | {internal variables} 55 | ruNewWndProc : TFarProc; 56 | ruOldHeight : Integer; 57 | ruPrevWndProc : TFarProc; 58 | 59 | {property methods} 60 | function GetRolledUp : Boolean; 61 | function GetVersion : string; 62 | procedure SetAnimateSpeed(Value : TEsAnimateSpeed); 63 | procedure SetHookForm(Value : Boolean); 64 | procedure SetMinHeight(Value : Integer); 65 | procedure SetRolledUp(Value : Boolean); 66 | procedure SetVersion(const Value : string); 67 | 68 | {internal methods} 69 | procedure ruWndProc(var Msg : TMessage); 70 | {.Z-} 71 | 72 | protected 73 | {.Z+} 74 | procedure DoOnRollDown; 75 | dynamic; 76 | procedure DoOnRollUp; 77 | dynamic; 78 | {.Z-} 79 | 80 | {properties} 81 | property Animate : Boolean 82 | read FAnimate 83 | write FAnimate 84 | default ruDefAnimate; 85 | 86 | property AnimateSpeed : TEsAnimateSpeed 87 | read FAnimateSpeed 88 | write FAnimateSpeed 89 | default ruDefAnimateSpeed; 90 | 91 | property HookForm : Boolean 92 | read FHookForm 93 | write SetHookForm 94 | default False; 95 | 96 | property MinHeight : Integer 97 | read FMinHeight 98 | write SetMinHeight; 99 | 100 | property RolledUp : Boolean 101 | read GetRolledUp 102 | write SetRolledUp 103 | stored False; 104 | 105 | property Version : string 106 | read GetVersion 107 | write SetVersion 108 | stored False; 109 | 110 | {events} 111 | property OnRollDown : TNotifyEvent 112 | read FOnRollDown 113 | write FOnRollDown; 114 | 115 | property OnRollUp : TNotifyEvent 116 | read FOnRollUp 117 | write FOnRollUp; 118 | 119 | public 120 | {.Z+} 121 | constructor Create(AOwner : TComponent); 122 | override; 123 | destructor Destroy; 124 | override; 125 | {.Z-} 126 | end; 127 | 128 | TEsRollUp = class(TEsCustomRollUp) 129 | published 130 | {properties} 131 | property Animate; 132 | property AnimateSpeed; 133 | property HookForm; 134 | property MinHeight; 135 | property RolledUp; 136 | property Version; 137 | 138 | {events} 139 | property OnRollDown; 140 | property OnRollUp; 141 | end; 142 | 143 | 144 | implementation 145 | 146 | 147 | constructor TEsCustomRollUp.Create(AOwner : TComponent); 148 | begin 149 | inherited Create(AOwner); 150 | 151 | {create instance of our window procedure} 152 | ruNewWndProc := Classes.MakeObjectInstance(ruWndProc); {!!.09} 153 | 154 | FAnimate := ruDefAnimate; 155 | FAnimateSpeed := ruDefAnimateSpeed; 156 | FHookForm := False; 157 | FMinHeight := 0; 158 | 159 | end; 160 | 161 | destructor TEsCustomRollUp.Destroy; 162 | begin 163 | {restore old wnd proc} 164 | SetHookForm(False); 165 | 166 | Classes.FreeObjectInstance(ruNewWndProc); {!!.09} 167 | 168 | inherited Destroy; 169 | end; 170 | 171 | procedure TEsCustomRollUp.DoOnRollDown; 172 | begin 173 | if Assigned(FOnRollDown) then 174 | FOnRollDown(Self); 175 | end; 176 | 177 | procedure TEsCustomRollUp.DoOnRollUp; 178 | begin 179 | if Assigned(FOnRollUp) then 180 | FOnRollUp(Self); 181 | end; 182 | 183 | function TEsCustomRollUp.GetRolledUp : Boolean; 184 | begin 185 | Result := (Owner is TForm) and (FMinHeight >= TForm(Owner).ClientHeight); 186 | end; 187 | 188 | function TEsCustomRollUp.GetVersion : string; 189 | begin 190 | Result := EsVersionStr; 191 | end; 192 | 193 | procedure TEsCustomRollUp.ruWndProc(var Msg : TMessage); 194 | begin 195 | with Msg do begin 196 | if (Msg = WM_SYSCOMMAND) and (wParam = SC_MINIMIZE) then begin 197 | if not IsIconic(TForm(Owner).Handle) and not RolledUp then begin 198 | {click on minimize button} 199 | try 200 | SetRolledUp(True); 201 | except 202 | Application.HandleException(Self); 203 | end; 204 | end else 205 | if Assigned(ruPrevWndProc) then 206 | Result := CallWindowProc(ruPrevWndProc, TForm(Owner).Handle, Msg, wParam, lParam); 207 | end else if (Msg = WM_SYSCOMMAND) and (wParam = SC_MAXIMIZE) then begin 208 | if not IsZoomed(TForm(Owner).Handle) and RolledUp then begin 209 | {click on maximize button} 210 | try 211 | SetRolledUp(False); 212 | except 213 | Application.HandleException(Self); 214 | end; 215 | end else 216 | if Assigned(ruPrevWndProc) then 217 | Result := CallWindowProc(ruPrevWndProc, TForm(Owner).Handle, Msg, wParam, lParam); 218 | end else 219 | if Assigned(ruPrevWndProc) then 220 | Result := CallWindowProc(ruPrevWndProc, TForm(Owner).Handle, Msg, wParam, lParam); 221 | end; 222 | end; 223 | 224 | procedure TEsCustomRollUp.SetAnimateSpeed(Value : TEsAnimateSpeed); 225 | begin 226 | if (Value <> FAnimateSpeed) then 227 | FAnimateSpeed := Value; 228 | end; 229 | 230 | procedure TEsCustomRollUp.SetHookForm(Value : Boolean); 231 | begin 232 | if (Owner is TForm) and (Value <> FHookForm) then begin 233 | FHookForm := Value; 234 | if not (csDesigning in ComponentState) then begin 235 | if Value then begin 236 | ruPrevWndProc:= Pointer( 237 | SetWindowLong(TForm(Owner).Handle, GWL_WNDPROC, NativeInt(ruNewWndProc))) 238 | end else if Assigned(ruPrevWndProc) then begin 239 | SetWindowLong(TForm(Owner).Handle, GWL_WNDPROC, NativeInt(ruPrevWndProc)); 240 | ruPrevWndProc := nil; 241 | end; 242 | end; 243 | end; 244 | end; 245 | 246 | procedure TEsCustomRollUp.SetMinHeight(Value : Integer); 247 | var 248 | WasRolledUp : Boolean; 249 | begin 250 | if (Value >= 0) and (Value <> FMinHeight) then begin 251 | WasRolledUp := RolledUp; 252 | FMinHeight := Value; 253 | if WasRolledUp then 254 | RolledUp := True; 255 | end; 256 | end; 257 | 258 | procedure TEsCustomRollUp.SetRolledUp(Value : Boolean); 259 | const 260 | TMult = 5; 261 | var 262 | I : Integer; 263 | Form : TForm; 264 | SC : Boolean; 265 | Step : Integer; 266 | SpeedFactor : Integer; 267 | T : DWord; {!!.05} 268 | begin 269 | if (Owner is TForm) then begin 270 | Form := TForm(Owner); 271 | SpeedFactor := High(FAnimateSpeed) - FAnimateSpeed + 1; 272 | if Value then begin 273 | ruOldHeight := Form.ClientHeight; 274 | SC := Form.AutoScroll; 275 | Form.AutoScroll := False; 276 | try 277 | if FAnimate then begin 278 | Step := ruOldHeight div (SpeedFactor * 3); 279 | if Step < 2 then Step := 2; 280 | I := ruOldHeight+Step; 281 | while I > FMinHeight do begin 282 | Dec(I, Step); 283 | if I < FMinHeight then 284 | I := FMinHeight; 285 | Form.ClientHeight := I; 286 | Application.ProcessMessages; 287 | if FAnimateSpeed <> High(FAnimateSpeed) then begin 288 | T := timeGetTime; 289 | while Abs(timeGetTime - T) < (SpeedFactor * TMult) do {wait}; 290 | end; 291 | end; 292 | end else 293 | Form.ClientHeight := FMinHeight; 294 | finally 295 | Form.AutoScroll := SC; 296 | end; 297 | 298 | FMinHeight := Form.ClientHeight; 299 | DoOnRollUp; 300 | end else begin 301 | if (ruOldHeight < FMinHeight) then 302 | ruOldHeight := FMinHeight; 303 | 304 | SC := Form.AutoScroll; 305 | Form.AutoScroll := False; 306 | try 307 | if FAnimate then begin 308 | Step := ruOldHeight div (SpeedFactor * 3); 309 | if Step < 2 then Step := 2; 310 | I := FMinHeight-Step; 311 | while I < ruOldHeight do begin 312 | Inc(I, Step); 313 | if I > ruOldHeight then 314 | I := ruOldHeight; 315 | Form.ClientHeight := I; 316 | Application.ProcessMessages; 317 | if FAnimateSpeed <> High(FAnimateSpeed) then begin 318 | T := timeGetTime; 319 | while Abs(timeGetTime - T) < (SpeedFactor * TMult) do {wait}; 320 | end; 321 | end; 322 | end else 323 | Form.ClientHeight := ruOldHeight; 324 | finally 325 | Form.AutoScroll := SC; 326 | end; 327 | 328 | DoOnRollDown; 329 | end; 330 | end; 331 | end; 332 | 333 | procedure TEsCustomRollup.SetVersion(const Value : string); 334 | begin 335 | end; 336 | 337 | end. 338 | -------------------------------------------------------------------------------- /source/esutil.PAS: -------------------------------------------------------------------------------- 1 | 2 | (* ***** BEGIN LICENSE BLOCK ***** 3 | * Version: MPL 1.1 4 | * 5 | * The contents of this file are subject to the Mozilla Public License Version 6 | * 1.1 (the "License"); you may not use this file except in compliance with 7 | * the License. You may obtain a copy of the License at 8 | * http://www.mozilla.org/MPL/ 9 | * 10 | * Software distributed under the License is distributed on an "AS IS" basis, 11 | * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License 12 | * for the specific language governing rights and limitations under the 13 | * License. 14 | * 15 | * The Original Code is TurboPower Essentials Vol I 16 | * 17 | * The Initial Developer of the Original Code is 18 | * TurboPower Software 19 | * 20 | * Portions created by the Initial Developer are Copyright (C) 1997-2002 21 | * the Initial Developer. All Rights Reserved. 22 | * 23 | * Contributor(s): 24 | * 25 | * ***** END LICENSE BLOCK ***** *) 26 | 27 | unit EsUtil; 28 | {-general utility routines} 29 | 30 | interface 31 | 32 | uses 33 | Windows, Graphics, SysUtils, EsSRMgr; {!!.06} 34 | 35 | function DaysInMonth(Year, Month : Integer) : Integer; 36 | {-return the number of days in the specified month of a given year} 37 | function DefaultEpoch : Integer; 38 | {-return the current century} 39 | function GetLeftButton : Byte; 40 | procedure GetRGB(Clr : TColor; var IR, IG, IB : Byte); 41 | function IsLeapYear(Year : Integer) : Boolean; 42 | {-return True if Year is a leap year} 43 | function Max(I, J : Integer) : Integer; 44 | function Min(I, J : Integer) : Integer; 45 | 46 | var 47 | StrRes : TEsStringResource; {!!.06} 48 | 49 | implementation 50 | 51 | uses {!!.07} 52 | EsBase, EsConst; {!!.07} 53 | 54 | {!!.07} 55 | function DaysInMonth(Year, Month : Integer) : Integer; 56 | begin 57 | if (Year < 100) then 58 | raise EEssentialsError.Create(StrRes[SCEsInvalidYear] + 59 | ' "' + IntToStr(Year) + '"'); 60 | case Month of 61 | 1, 3, 5, 7, 8, 10, 12 : Result := 31; 62 | 4, 6, 9, 11 : Result := 30; 63 | 2 : Result := 28+Ord(IsLeapYear(Year)); 64 | else 65 | Result := 0; 66 | end; 67 | end; 68 | 69 | function DefaultEpoch : Integer; 70 | var 71 | ThisYear : Word; 72 | ThisMonth : Word; 73 | ThisDay : Word; 74 | begin 75 | DecodeDate(SysUtils.Date, ThisYear, ThisMonth, ThisDay); 76 | Result := (ThisYear div 100) * 100; {!!.06} 77 | end; 78 | 79 | function GetLeftButton : Byte; 80 | const 81 | RLButton : array[Boolean] of Word = (VK_LBUTTON, VK_RBUTTON); 82 | begin 83 | Result := RLButton[GetSystemMetrics(SM_SWAPBUTTON) <> 0]; 84 | end; 85 | 86 | procedure GetRGB(Clr : TColor; var IR, IG, IB : Byte); 87 | begin 88 | IR := GetRValue(Clr); 89 | IG := GetGValue(Clr); 90 | IB := GetBValue(Clr); 91 | end; 92 | 93 | function IsLeapYear(Year : Integer) : Boolean; 94 | begin 95 | Result := (Year mod 4 = 0) and (Year mod 4000 <> 0) and 96 | ((Year mod 100 <> 0) or (Year mod 400 = 0)); 97 | end; 98 | 99 | function Max(I, J : Integer) : Integer; 100 | begin 101 | if I > J then 102 | Result := I 103 | else 104 | Result := J; 105 | end; 106 | 107 | function Min(I, J : Integer) : Integer; 108 | begin 109 | if I < J then 110 | Result := I 111 | else 112 | Result := J; 113 | end; 114 | 115 | procedure FreeStrRes; far; 116 | begin 117 | StrRes.Free; 118 | StrRes := nil; 119 | end; 120 | 121 | initialization 122 | StrRes := TEsStringResource.Create(HInstance, 'ESSENTIALS_STRINGS_ENGLISH'); {!!.06} 123 | 124 | finalization 125 | FreeStrRes; 126 | end. 127 | --------------------------------------------------------------------------------