Стартовый пул
This commit is contained in:
187
Pascal Script for Delphi/Changes.txt
Normal file
187
Pascal Script for Delphi/Changes.txt
Normal file
@@ -0,0 +1,187 @@
|
||||
==========
|
||||
3.0.3.57
|
||||
==========
|
||||
|
||||
- NEW Support for Borland Developer Studio 2006
|
||||
|
||||
==========
|
||||
3.0.3.53
|
||||
==========
|
||||
- Updated RemObjects SDk integration for Indy 10 / RO .349
|
||||
|
||||
==========
|
||||
3.0.3.51
|
||||
==========
|
||||
- Support for Delphi 2005
|
||||
- Allow overriding internal procs.
|
||||
- Add importdecl to old style AddFunction ImportDecl.
|
||||
- New compiletime support functions
|
||||
- getconst/getconstcount
|
||||
- allow interface to be registered more than once and in any order
|
||||
- widestring published properties support.
|
||||
- Fix. Var parameter types weren't always checked.
|
||||
- fixes for CHAR consts.
|
||||
- Eliminate "Comparing signed and unsigned types" warnings (on D5) (jr)
|
||||
|
||||
|
||||
==========
|
||||
3.0.3.39
|
||||
==========
|
||||
- strtoint now throws an exception for invalid numbers.
|
||||
- Compiler fix: Check var parameters.
|
||||
- Docs update
|
||||
- Fixes in the import tool
|
||||
- Added a few new functions to make it earlier to add variable pointers to the script.
|
||||
- Added a few new samples
|
||||
- New Help system
|
||||
|
||||
==========
|
||||
3.0.3.37
|
||||
==========
|
||||
|
||||
- Classes and units renamed
|
||||
- product integrated into RemObjects Software product line
|
||||
|
||||
==========
|
||||
3.0.1.33 (17 January 2004)
|
||||
==========
|
||||
- IDispatch Support now uses Variant for dynamic invocation
|
||||
- Smaller tweaks related to IDispatch
|
||||
|
||||
==========
|
||||
3.0.1.32 (16 January 2004)
|
||||
==========
|
||||
- IDispatch type support
|
||||
- Dynamic Invoke using IDispatch
|
||||
- Removed Export mode, no need to set it anymore
|
||||
- RunProcP, RunProcPN functions, invoke IFPS3 functions with with 1 command
|
||||
- TIFPS3CompExec.ExecuteFunction wrapper for RunProcPN
|
||||
- Small Fix
|
||||
- Included missing .dpk
|
||||
|
||||
==========
|
||||
3.0.1.31 (16 December 2003)
|
||||
==========
|
||||
- Fixes release
|
||||
|
||||
==========
|
||||
3.0.1.30 (25 November 2003)
|
||||
==========
|
||||
- Better Interface support
|
||||
- Lot's of fixes and improvements
|
||||
- Records and other complex types passing to events
|
||||
- Adding regular variables to the script
|
||||
- PreProcessing
|
||||
|
||||
==========
|
||||
3.0.1.21 (28 August 2003)
|
||||
==========
|
||||
- Speed Improvements
|
||||
- Default array properties
|
||||
- A few D5/BCC5 compatiblity changes
|
||||
- Help files update
|
||||
- SET properties
|
||||
- A few other fixes
|
||||
- Static arrays
|
||||
- With
|
||||
- Sets
|
||||
- Calling Interfaces (IUnknown etc)
|
||||
- AS/IS support (classes)
|
||||
- fixes
|
||||
- Speed Improvements
|
||||
- A small fix.
|
||||
|
||||
==========
|
||||
3.0.1.20 beta 5 (31 July 2003)
|
||||
==========
|
||||
- Fix in codegen with some expressions
|
||||
- All Get* and Add* Method of the exec are now uppercasing their params
|
||||
- Removed AddExportVariable, now all variables are "exported"
|
||||
- Added an VGetAsString function that returns the string value of any variant.
|
||||
- Default array properties.
|
||||
|
||||
==========
|
||||
3.0.1.20 beta 4 (26 July 2003)
|
||||
==========
|
||||
This release doesn't contain any new features, only fixes.
|
||||
|
||||
==========
|
||||
3.0.1.20 beta 3 (05 May 2003)
|
||||
==========
|
||||
Changes since last beta:
|
||||
- A few D5/BCC5 compatiblity changes
|
||||
- Help files update
|
||||
- SET properties
|
||||
- A few other fixes
|
||||
|
||||
==========
|
||||
3.0.1.20 beta 2 (02 April 2003)
|
||||
==========
|
||||
What's new: - Static arrays
|
||||
- With
|
||||
- Sets
|
||||
- Calling Interfaces (IUnknown etc)
|
||||
- AS/IS support (classes)
|
||||
- Assigned fixed
|
||||
- IFPS3 raises an exception when one of the Add* functions fail or when a scripted Event fails
|
||||
- A lot of fixes
|
||||
|
||||
==========
|
||||
3.0.1.04 stable (09 March 2003)
|
||||
==========
|
||||
- A few fixes
|
||||
|
||||
==========
|
||||
3.0.1.03 stable (14 January 2003)
|
||||
==========
|
||||
- New datetime library
|
||||
- Besides Open Array now also Dynamic Array (D4+) support
|
||||
- A few fixes
|
||||
|
||||
==========
|
||||
3.0.1.02.1 stable (07 November 2002)
|
||||
==========
|
||||
- WideString/WideChar support
|
||||
- Some small fixes
|
||||
|
||||
==========
|
||||
3.0.1.02 stable (26 August 2002)
|
||||
==========
|
||||
- Compiler speed improvements.
|
||||
- Couple of small changes.
|
||||
|
||||
==========
|
||||
3.0.1.01.1 (08 July 2002)
|
||||
==========
|
||||
- Additions/Changes: Variant and Int64 support in calling library
|
||||
- Forward procedures
|
||||
- Automaticly adding published properties
|
||||
- Try/Finally/Except/End support
|
||||
- Open Array parameters in calling library
|
||||
- Component Wrapper
|
||||
|
||||
==========
|
||||
3.0.1.01 (20 June 2002)
|
||||
==========
|
||||
- Added a lot of new imported classes
|
||||
- Added support for casting
|
||||
- Some fixes and changes
|
||||
|
||||
==========
|
||||
3.0.1.00.3 stable (07 June 2002)
|
||||
==========
|
||||
- Kylix Demo
|
||||
- Dll Library updated for Kylix
|
||||
- Variant type
|
||||
- array constants
|
||||
- Procedural Variables
|
||||
- Nil
|
||||
- Events
|
||||
- Some fixes
|
||||
|
||||
==========
|
||||
3.0.1.00.2 (15 May 2002)
|
||||
==========
|
||||
- Record support for class calling library.
|
||||
- Couple of new support functions.
|
||||
- Couple of fixes.
|
||||
87
Pascal Script for Delphi/License.txt
Normal file
87
Pascal Script for Delphi/License.txt
Normal file
@@ -0,0 +1,87 @@
|
||||
*** REMOBJECTS SOFTWARE END USER LICENSE AGREEMENT ***
|
||||
|
||||
Updated November 1, 2013
|
||||
|
||||
IMPORTANT: PLEASE READ THIS DOCUMENT CAREFULLY AND IN ITS ENTIRETY BEFORE USING ANY SOFTWARE PRODUCT ACQUIRED FROM REMOBJECTS SOFTWARE.
|
||||
|
||||
This document constitutes a LEGAL AGREEMENT between you, the End User (either an individual or an entity), and RemObjects Software, LLC.
|
||||
|
||||
|
||||
1. SCOPE
|
||||
|
||||
This End User License Agreement ("EULA") covers all SOFTWARE PRODUCTS produced and sold by RemObjects Software, LLC. The sections of this EULA that contain information that pertain specifically to a certain product are properly marked as such.
|
||||
|
||||
SOFTWARE PRODUCTS covered this EULA:
|
||||
|
||||
* RemObjects Data Abstract
|
||||
* RemObjects Elements
|
||||
* RemObjects Everwood
|
||||
* RemObjects Internet Pack
|
||||
* RemObjects Hydra
|
||||
* RemObjects Hydrogene
|
||||
* RemObjects Oxfuscator
|
||||
* RemObjects Oxygene
|
||||
* RemObjects Pascal Script
|
||||
* RemObjects Relativity Server
|
||||
* RemObjects Script
|
||||
* RemObjects SDK
|
||||
|
||||
|
||||
2. DEFINITIONS
|
||||
|
||||
SOFTWARE PRODUCTS: refers to one or more product as made available as a unified installation package.
|
||||
|
||||
(LIBRARY) SOURCE CODE: refers to the source code shipped with any of the SOFTWARE PRODUCTS licensed to you, the End User, in the "Source" folder of the product installation.
|
||||
|
||||
TOOLS: refers to ANY of the applications deployed with the SOFTWARE PRODUCTS in executable form, whether as auxiliary helper programs of a Library product or as main product. This includes but is not limited to any .EXE files and IDE integration.
|
||||
|
||||
SAMPLE CODE: sample code is provided to you as part of the SOFTWARE PRODUCT license inside the "Samples" folder
|
||||
|
||||
EXECUTABLE FORMAT refers to executable files such as .EXE and .DLL files build from your own source code, linking in code provided as part of the LIBRARY SOURCE CODE. It does not encompass Delphi .DCU or .BPL/.DCP files or any other format that would allow a third party to the provided file as a replacement for the LIBRARY SOURCE CODE
|
||||
|
||||
|
||||
3. COPYRIGHT
|
||||
|
||||
This SOFTWARE PRODUCT is owned by RemObjects Software, LLC and is protected by copyright laws and international copyright treaties.
|
||||
|
||||
All copyrights of this SOFTWARE PRODUCT, including but not limited to any source code, tools, documentation, images, text, and samples incorporated into the SOFTWARE PRODUCT, as well as those provided via Support Services or any of the RemObjects websites, are proprietary products of RemObjects Software, LLC and are protected by copyright law. You acquire only the right to use the SOFTWARE PRODUCT and do not acquire any rights of ownership. You acknowledge that the SOFTWARE PRODUCT and its source code remains a confidential trade secret of RemObjects Software, LLC. RemObjects Software, LLC may have trademarks, copyrights, patents or other intellectual property rights covering the SOFTWARE PRODUCT. You are not granted any license to these patents, trademarks, copyrights, or other intellectual property rights except as expressly provided herein. RemObjects Software, LLC reserves all rights not expressly granted.
|
||||
|
||||
All names and logos of the SOFTWARE PRODUCTS defined in the SCOPE section of this EULA are trademarks or registered trademarks of RemObjects Software, LLC. These names and logos may only be used by the End User when referring to RemObjects Software, LLC or any of its products. These names and logos may not be used by the End User for branding or marketing purposes, without written consent from RemObjects Software, LLC.
|
||||
|
||||
|
||||
2. GRANT OF LICENSE
|
||||
|
||||
BY INSTALLING, COPYING, OR OTHERWISE USING THE SOFTWARE PRODUCT, YOU AGREE TO BE BOUND BY ALL OF THE TERMS AND CONDITIONS OF THIS END USER LICENSE AGREEMENT. IF YOU DO NOT AGREE TO THE TERMS OF THIS AGREEMENT, YOU ARE NOT PERMITTED TO INSTALL, COPY, OR USE THE SOFTWARE PRODUCT. IF YOU REJECT THE TERMS OF THIS AGREEMENT WITHIN THIRTY (30) DAYS AFTER PURCHASING THE SOFTWARE PRODUCT, YOU MAY SEND AN EMAIL TO sales@remobjects.com AND REQUEST A FULL REFUND OF THE PURCHASE PRICE. IN ORDER TO RECEIVE THE REFUND, YOU MUST IRREVOCABLY UNINSTALL AND/OR DELETE ANY AND ALL COPIES OF THE SOFTWARE PRODUCT(S) YOU HAVE PURCHASED, AND PROVIDE CERTIFICATION OF SUCH TO REMOBJECTS.
|
||||
You may make one copy of the SOFTWARE PRODUCT solely for backup or archival purposes or transfer the SOFTWARE PRODUCT to a single hard disk provided you keep the original solely for backup or archival purposes.
|
||||
|
||||
You may install the software on up to five computers, providing you are the only person using the software on these computers.
|
||||
|
||||
You may not alter any of the programs or accompanying files without written permission from RemObjects Software, LLC. Any resale or commercial distribution of the SOFTWARE PRODUCT is strictly prohibited, unless RemObjects Software, LLC has given explicit written permission.
|
||||
|
||||
You are not obtaining title to the SOFTWARE PRODUCT or any copyrights. You may not sublicense, rent, lease, convey, modify, translate, convert to another programming language, decompile, or disassemble the SOFTWARE PRODUCT for any purpose. RemObjects Software, LLC grants you as an individual, a personal, non exclusive license to install and use the SOFTWARE PRODUCT for the sole purpose of developing systems that are not in competition with the SOFTWARE PRODUCT, or any other products developed and sold by RemObjects Software, LLC.
|
||||
|
||||
If you are an entity, RemObjects Software, LLC grants you the right to designate one individual within your organization to have the right to use the SOFTWARE PRODUCT in the manner described above.
|
||||
The named License you acquired is not transferrable to another individual or entity, unless you are given written permission by RemObjects Software, LLC.
|
||||
|
||||
You may link against the LIBRARY SOURCE CODE and deploy it in EXECUTABLE FORMAT as part of your application; you may make changes to the LIBRARY SOURCE CODE and write extensions for your own use, and link against and deploy your changes in EXECUTABLE FORMAT. You may NOT deploy RemObjects Software's source code to anyone.
|
||||
SAMPLE CODE for provided for your convenience and you may use it at your discretion. You may create your own products starting from the samples provided and consider this derived work as your own. You may also deploy such derived work in any way you see fit, including in source code form.
|
||||
|
||||
Unless specifically stated on a per-tool basis, you may not deploy the TOOLS included with the SOFTWARE PRODUCT to anyone, neither standalone or as part of your own application; the tools are intended solely for use by yourself.
|
||||
In general, you may not distribute any part of the installed product, nor any license codes, license files or your website login to third parties.
|
||||
|
||||
|
||||
3. SUPPORT SERVICES
|
||||
|
||||
RemObjects Software, LLC may provide the End User with Support Services related to the SOFTWARE PRODUCT. Support Services include free downloading of upgrades as covered by the original purchase, as well as technical support offered via NNTP-based newsgroups, e-mail or telephone. Use of Support Services is governed by RemObjects Software policies and programs described on the RemObjects website (www.remobjects.com/support) and may be subject to additional support charges depending on the type and level of support provided. Any supplemental software code provided to you as part of the Support Services shall be considered part of the SOFTWARE PRODUCT and is subject to the terms and conditions of this EULA.
|
||||
|
||||
|
||||
4. TERMINATION
|
||||
|
||||
This License shall remain in effect only for so long as you are in compliance with the terms and conditions of this EULA. This License will terminate if you fail to comply with any of its terms or conditions. You may terminate it at any time by destroying your copies of the SOFTWARE PRODUCT. You agree, upon termination, to destroy all copies of the Product. Without prejudice to any other rights, RemObjects Software, LLC may terminate this EULA if you fail to comply with the terms. The provisions of this EULA that protect the proprietary rights of RemObjects Software, LLC and the LIMITATIONS OF WARRANTIES will continue to be in force even after any termination. Upon termination, RemObjects Software, LLC may also enforce any rights provided by law.
|
||||
|
||||
|
||||
5. LIMITATIONS OF WARRANTIES AND LIABILITY
|
||||
|
||||
THIS SOFTWARE PRODUCT IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTIES OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE APPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE. YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE PRODUCT AND ALL OTHER RISK ARISING FROMTHE USE OR PERFORMANCE OF THIS SOFTWARE PRODUCT AND DOCUMENTATION.
|
||||
|
||||
RemObjects Software, LLC SHALL NOT BE LIABLE FOR ANY DAMAGES WHATSOEVER ARISING FROM USE OF OR INABILITY TO USE THIS SOFTWARE PRODUCT, EVEN IF RemObjects Software, LLC HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. TO THE MAXIMUM EXTENT PERMITTED BY APPLICABLE LAW, IN NO EVENT SHALL RemObjects Software, LLC BE LIABLE FOR ANY CONSEQUENTIAL, INCIDENTAL, DIRECT, INDIRECT, SPECIAL, PUNITIVE, OR OTHER DAMAGES WHATSOEVER, INCLUDING BUT NOT LIMITED TO DAMAGES OR LOSS OF BUSINESS PROFITS, BUSINESS INTERRUPTION, LOSS OF BUSINESS INFORMATION, OR OTHER PECUNIARY LOSS, EVEN IF RemObjects Software, LLC HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. BECAUSE SOME STATES/JURISDICTIONS DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES, THE ABOVE LIMITATION MAY NOT APPLY.
|
||||
BIN
Pascal Script for Delphi/Pascal Script.ico
Normal file
BIN
Pascal Script for Delphi/Pascal Script.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 22 KiB |
37
Pascal Script for Delphi/README.html
Normal file
37
Pascal Script for Delphi/README.html
Normal file
@@ -0,0 +1,37 @@
|
||||
<html>
|
||||
<head>
|
||||
<title>Pascal Script for Delphi - Readme</title>
|
||||
<style>
|
||||
body, table, tr, td
|
||||
{
|
||||
margin: 15px;
|
||||
font-family: Segoe UI, Lucida Grande, Helvetica, Verdana, sans-serif;
|
||||
font-size: 10.5pt;
|
||||
background-color: #f7f7f7;
|
||||
width: 700px;
|
||||
}
|
||||
p
|
||||
{
|
||||
margin-bottom: 0.75em; margin-top: 0;
|
||||
}
|
||||
p.h1
|
||||
{
|
||||
font-weight: normal;
|
||||
color: #202080;
|
||||
margin-top: 0.2em;
|
||||
padding-top: 0em;
|
||||
font-size: 15pt;
|
||||
}
|
||||
</style>
|
||||
<meta http-equiv="REFRESH" content="0;url=http://wiki.remobjects.com/wiki/Read_Me:Pascal_Script_for_Delphi">
|
||||
</head>
|
||||
<body>
|
||||
|
||||
<p class="h1">
|
||||
Pascal Script for Delphi - Readme
|
||||
</p>
|
||||
<p>
|
||||
Redirecting to <a href="http://wiki.remobjects.com/wiki/Read_Me:Pascal_Script_for_Delphi">wiki.remobjects.com</a>
|
||||
</p>
|
||||
</body>
|
||||
</html>
|
||||
23
Pascal Script for Delphi/Source/BuildPackages_D10.bdsgroup
Normal file
23
Pascal Script for Delphi/Source/BuildPackages_D10.bdsgroup
Normal file
@@ -0,0 +1,23 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Default.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{1AAFA68F-D7AE-44BA-927F-310105A7A640}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Default.Personality>
|
||||
|
||||
|
||||
|
||||
<Projects>
|
||||
<Projects Name="PascalScript_Core_D10.bpl">PascalScript_Core_D10.bdsproj</Projects>
|
||||
<Projects Name="PascalScript_RO_D10.bpl">PascalScript_RO_D10.bdsproj</Projects>
|
||||
<Projects Name="Targets">PascalScript_Core_D10.bpl PascalScript_RO_D10.bpl</Projects>
|
||||
</Projects>
|
||||
<Dependencies/>
|
||||
</Default.Personality> <StarTeamAssociation></StarTeamAssociation>
|
||||
<StarTeamNonRelativeFiles></StarTeamNonRelativeFiles>
|
||||
</BorlandProject>
|
||||
44
Pascal Script for Delphi/Source/BuildPackages_D11.groupproj
Normal file
44
Pascal Script for Delphi/Source/BuildPackages_D11.groupproj
Normal file
@@ -0,0 +1,44 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{301d154e-a852-4e08-89a3-6bfb2774fb38}</ProjectGuid>
|
||||
</PropertyGroup>
|
||||
<ItemGroup />
|
||||
<ItemGroup>
|
||||
<Projects Include="PascalScript_Core_D11.dproj" />
|
||||
<Projects Include="PascalScript_RO_D11.dproj" />
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Default.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Target Name="PascalScript_Core_D11">
|
||||
<MSBuild Projects="PascalScript_Core_D11.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PascalScript_Core_D11:Clean">
|
||||
<MSBuild Projects="PascalScript_Core_D11.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PascalScript_Core_D11:Make">
|
||||
<MSBuild Projects="PascalScript_Core_D11.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D11">
|
||||
<MSBuild Projects="PascalScript_RO_D11.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D11:Clean">
|
||||
<MSBuild Projects="PascalScript_RO_D11.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D11:Make">
|
||||
<MSBuild Projects="PascalScript_RO_D11.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="PascalScript_Core_D11;PascalScript_RO_D11" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="PascalScript_Core_D11:Clean;PascalScript_RO_D11:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="PascalScript_Core_D11:Make;PascalScript_RO_D11:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
44
Pascal Script for Delphi/Source/BuildPackages_D12.groupproj
Normal file
44
Pascal Script for Delphi/Source/BuildPackages_D12.groupproj
Normal file
@@ -0,0 +1,44 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{301d154e-a852-4e08-89a3-6bfb2774fb38}</ProjectGuid>
|
||||
</PropertyGroup>
|
||||
<ItemGroup />
|
||||
<ItemGroup>
|
||||
<Projects Include="PascalScript_Core_D12.dproj" />
|
||||
<Projects Include="PascalScript_RO_D12.dproj" />
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Default.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Target Name="PascalScript_Core_D12">
|
||||
<MSBuild Projects="PascalScript_Core_D12.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PascalScript_Core_D12:Clean">
|
||||
<MSBuild Projects="PascalScript_Core_D12.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PascalScript_Core_D12:Make">
|
||||
<MSBuild Projects="PascalScript_Core_D12.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D12">
|
||||
<MSBuild Projects="PascalScript_RO_D12.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D12:Clean">
|
||||
<MSBuild Projects="PascalScript_RO_D12.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D12:Make">
|
||||
<MSBuild Projects="PascalScript_RO_D12.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="PascalScript_Core_D12;PascalScript_RO_D12" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="PascalScript_Core_D12:Clean;PascalScript_RO_D12:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="PascalScript_Core_D12:Make;PascalScript_RO_D12:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
50
Pascal Script for Delphi/Source/BuildPackages_D14.groupproj
Normal file
50
Pascal Script for Delphi/Source/BuildPackages_D14.groupproj
Normal file
@@ -0,0 +1,50 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{301d154e-a852-4e08-89a3-6bfb2774fb38}</ProjectGuid>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Projects Include="PascalScript_Core_D14.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
<Projects Include="PascalScript_RO_D14.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Default.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject>
|
||||
<Default.Personality/>
|
||||
</BorlandProject>
|
||||
</BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Target Name="PascalScript_Core_D14">
|
||||
<MSBuild Projects="PascalScript_Core_D14.dproj"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_Core_D14:Clean">
|
||||
<MSBuild Targets="Clean" Projects="PascalScript_Core_D14.dproj"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_Core_D14:Make">
|
||||
<MSBuild Targets="Make" Projects="PascalScript_Core_D14.dproj"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D14">
|
||||
<MSBuild Projects="PascalScript_RO_D14.dproj"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D14:Clean">
|
||||
<MSBuild Targets="Clean" Projects="PascalScript_RO_D14.dproj"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D14:Make">
|
||||
<MSBuild Targets="Make" Projects="PascalScript_RO_D14.dproj"/>
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="PascalScript_Core_D14;PascalScript_RO_D14"/>
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="PascalScript_Core_D14:Clean;PascalScript_RO_D14:Clean"/>
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="PascalScript_Core_D14:Make;PascalScript_RO_D14:Make"/>
|
||||
</Target>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
|
||||
</Project>
|
||||
48
Pascal Script for Delphi/Source/BuildPackages_D15.groupproj
Normal file
48
Pascal Script for Delphi/Source/BuildPackages_D15.groupproj
Normal file
@@ -0,0 +1,48 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{EB482A50-3627-4F5E-8890-2151D4C8BFBD}</ProjectGuid>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Projects Include="PascalScript_Core_D15.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
<Projects Include="PascalScript_RO_D15.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Default.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<Default.Personality/>
|
||||
</BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Target Name="PascalScript_Core_D15">
|
||||
<MSBuild Projects="PascalScript_Core_D15.dproj"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_Core_D15:Clean">
|
||||
<MSBuild Targets="Clean" Projects="PascalScript_Core_D15.dproj"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_Core_D15:Make">
|
||||
<MSBuild Targets="Make" Projects="PascalScript_Core_D15.dproj"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D15">
|
||||
<MSBuild Projects="PascalScript_RO_D15.dproj"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D15:Clean">
|
||||
<MSBuild Targets="Clean" Projects="PascalScript_RO_D15.dproj"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D15:Make">
|
||||
<MSBuild Targets="Make" Projects="PascalScript_RO_D15.dproj"/>
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="PascalScript_Core_D15;PascalScript_RO_D15"/>
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="PascalScript_Core_D15:Clean;PascalScript_RO_D15:Clean"/>
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="PascalScript_Core_D15:Make;PascalScript_RO_D15:Make"/>
|
||||
</Target>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
|
||||
</Project>
|
||||
48
Pascal Script for Delphi/Source/BuildPackages_D16.groupproj
Normal file
48
Pascal Script for Delphi/Source/BuildPackages_D16.groupproj
Normal file
@@ -0,0 +1,48 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{EB482A50-3627-4F5E-8890-2151D4C8BFBD}</ProjectGuid>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Projects Include="PascalScript_Core_D16.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
<Projects Include="PascalScript_RO_D16.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Default.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<Default.Personality/>
|
||||
</BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Target Name="PascalScript_Core_D16">
|
||||
<MSBuild Projects="PascalScript_Core_D16.dproj"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_Core_D16:Clean">
|
||||
<MSBuild Projects="PascalScript_Core_D16.dproj" Targets="Clean"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_Core_D16:Make">
|
||||
<MSBuild Projects="PascalScript_Core_D16.dproj" Targets="Make"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D16">
|
||||
<MSBuild Projects="PascalScript_RO_D16.dproj"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D16:Clean">
|
||||
<MSBuild Projects="PascalScript_RO_D16.dproj" Targets="Clean"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D16:Make">
|
||||
<MSBuild Projects="PascalScript_RO_D16.dproj" Targets="Make"/>
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="PascalScript_Core_D16;PascalScript_RO_D16"/>
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="PascalScript_Core_D16:Clean;PascalScript_RO_D16:Clean"/>
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="PascalScript_Core_D16:Make;PascalScript_RO_D16:Make"/>
|
||||
</Target>
|
||||
<Import Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')" Project="$(BDS)\Bin\CodeGear.Group.Targets"/>
|
||||
</Project>
|
||||
48
Pascal Script for Delphi/Source/BuildPackages_D17.groupproj
Normal file
48
Pascal Script for Delphi/Source/BuildPackages_D17.groupproj
Normal file
@@ -0,0 +1,48 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{EB482A50-3627-4F5E-8890-2151D4C8BFBD}</ProjectGuid>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Projects Include="PascalScript_Core_D17.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
<Projects Include="PascalScript_RO_D17.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Default.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<Default.Personality/>
|
||||
</BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Target Name="PascalScript_Core_D17">
|
||||
<MSBuild Projects="PascalScript_Core_D17.dproj"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_Core_D17:Clean">
|
||||
<MSBuild Projects="PascalScript_Core_D17.dproj" Targets="Clean"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_Core_D17:Make">
|
||||
<MSBuild Projects="PascalScript_Core_D17.dproj" Targets="Make"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D17">
|
||||
<MSBuild Projects="PascalScript_RO_D17.dproj"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D17:Clean">
|
||||
<MSBuild Projects="PascalScript_RO_D17.dproj" Targets="Clean"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D17:Make">
|
||||
<MSBuild Projects="PascalScript_RO_D17.dproj" Targets="Make"/>
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="PascalScript_Core_D17;PascalScript_RO_D17"/>
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="PascalScript_Core_D17:Clean;PascalScript_RO_D17:Clean"/>
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="PascalScript_Core_D17:Make;PascalScript_RO_D17:Make"/>
|
||||
</Target>
|
||||
<Import Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')" Project="$(BDS)\Bin\CodeGear.Group.Targets"/>
|
||||
</Project>
|
||||
48
Pascal Script for Delphi/Source/BuildPackages_D18.groupproj
Normal file
48
Pascal Script for Delphi/Source/BuildPackages_D18.groupproj
Normal file
@@ -0,0 +1,48 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{EB482A50-3627-4F5E-8890-2151D4C8BFBD}</ProjectGuid>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Projects Include="PascalScript_Core_D18.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
<Projects Include="PascalScript_RO_D18.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Default.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<Default.Personality/>
|
||||
</BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Target Name="PascalScript_Core_D18">
|
||||
<MSBuild Projects="PascalScript_Core_D18.dproj"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_Core_D18:Clean">
|
||||
<MSBuild Projects="PascalScript_Core_D18.dproj" Targets="Clean"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_Core_D18:Make">
|
||||
<MSBuild Projects="PascalScript_Core_D18.dproj" Targets="Make"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D18">
|
||||
<MSBuild Projects="PascalScript_RO_D18.dproj"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D18:Clean">
|
||||
<MSBuild Projects="PascalScript_RO_D18.dproj" Targets="Clean"/>
|
||||
</Target>
|
||||
<Target Name="PascalScript_RO_D18:Make">
|
||||
<MSBuild Projects="PascalScript_RO_D18.dproj" Targets="Make"/>
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="PascalScript_Core_D18;PascalScript_RO_D18"/>
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="PascalScript_Core_D18:Clean;PascalScript_RO_D18:Clean"/>
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="PascalScript_Core_D18:Make;PascalScript_RO_D18:Make"/>
|
||||
</Target>
|
||||
<Import Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')" Project="$(BDS)\Bin\CodeGear.Group.Targets"/>
|
||||
</Project>
|
||||
23
Pascal Script for Delphi/Source/BuildPackages_D6.bpg
Normal file
23
Pascal Script for Delphi/Source/BuildPackages_D6.bpg
Normal file
@@ -0,0 +1,23 @@
|
||||
#------------------------------------------------------------------------------
|
||||
VERSION = BWS.01
|
||||
#------------------------------------------------------------------------------
|
||||
!ifndef ROOT
|
||||
ROOT = $(MAKEDIR)\..
|
||||
!endif
|
||||
#------------------------------------------------------------------------------
|
||||
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
|
||||
DCC = $(ROOT)\bin\dcc32.exe $**
|
||||
BRCC = $(ROOT)\bin\brcc32.exe $**
|
||||
#------------------------------------------------------------------------------
|
||||
PROJECTS = PascalScript_Core_D6.bpl PascalScript_RO_D6.bpl
|
||||
#------------------------------------------------------------------------------
|
||||
default: $(PROJECTS)
|
||||
#------------------------------------------------------------------------------
|
||||
|
||||
PascalScript_Core_D6.bpl: PascalScript_Core_D6.dpk
|
||||
$(DCC)
|
||||
|
||||
PascalScript_RO_D6.bpl: PascalScript_RO_D6.dpk
|
||||
$(DCC)
|
||||
|
||||
|
||||
23
Pascal Script for Delphi/Source/BuildPackages_D7.bpg
Normal file
23
Pascal Script for Delphi/Source/BuildPackages_D7.bpg
Normal file
@@ -0,0 +1,23 @@
|
||||
#------------------------------------------------------------------------------
|
||||
VERSION = BWS.01
|
||||
#------------------------------------------------------------------------------
|
||||
!ifndef ROOT
|
||||
ROOT = $(MAKEDIR)\..
|
||||
!endif
|
||||
#------------------------------------------------------------------------------
|
||||
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
|
||||
DCC = $(ROOT)\bin\dcc32.exe $**
|
||||
BRCC = $(ROOT)\bin\brcc32.exe $**
|
||||
#------------------------------------------------------------------------------
|
||||
PROJECTS = PascalScript_Core_D7.bpl PascalScript_RO_D7.bpl
|
||||
#------------------------------------------------------------------------------
|
||||
default: $(PROJECTS)
|
||||
#------------------------------------------------------------------------------
|
||||
|
||||
PascalScript_Core_D7.bpl: PascalScript_Core_D7.dpk
|
||||
$(DCC)
|
||||
|
||||
PascalScript_RO_D7.bpl: PascalScript_RO_D7.dpk
|
||||
$(DCC)
|
||||
|
||||
|
||||
20
Pascal Script for Delphi/Source/BuildPackages_D9.bdsgroup
Normal file
20
Pascal Script for Delphi/Source/BuildPackages_D9.bdsgroup
Normal file
@@ -0,0 +1,20 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Default.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{1AAFA68F-D7AE-44BA-927F-310105A7A640}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Default.Personality>
|
||||
|
||||
<Projects>
|
||||
<Projects Name="PascalScript_Core_D9.bpl">PascalScript_Core_D9.bdsproj</Projects>
|
||||
<Projects Name="PascalScript_RO_D9.bpl">PascalScript_RO_D9.bdsproj</Projects>
|
||||
<Projects Name="Targets">PascalScript_Core_D9.bpl PascalScript_RO_D9.bpl</Projects>
|
||||
</Projects>
|
||||
<Dependencies/>
|
||||
</Default.Personality>
|
||||
</BorlandProject>
|
||||
66
Pascal Script for Delphi/Source/PascalScript.inc
Normal file
66
Pascal Script for Delphi/Source/PascalScript.inc
Normal file
@@ -0,0 +1,66 @@
|
||||
{----------------------------------------------------------------------------}
|
||||
{ RemObjects Pascal Script }
|
||||
{ }
|
||||
{ compiler: Delphi 2 and up, Kylix 3 and up }
|
||||
{ platform: Win32, Linux }
|
||||
{ }
|
||||
{ (c)opyright RemObjects Software. all rights reserved. }
|
||||
{ }
|
||||
{----------------------------------------------------------------------------}
|
||||
|
||||
|
||||
{$INCLUDE eDefines.inc}
|
||||
|
||||
{$IFDEF FPC}{$MODE DELPHI}{$H+}{$ENDIF}
|
||||
|
||||
{$IFDEF VER125}{C4}{$B-}{$X+}{$T-}{$H+}{$ENDIF}
|
||||
{$IFDEF VER110}{C3}{$B-}{$X+}{$T-}{$H+}{$ENDIF}
|
||||
{$IFDEF VER93}{C1}{$B-}{$X+}{$T-}{$H+}{$ENDIF}
|
||||
|
||||
{$IFDEF DELPHI4UP}
|
||||
{$DEFINE PS_HAVEVARIANT}
|
||||
{$DEFINE PS_DYNARRAY}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFNDEF FPC}
|
||||
{$B-}{$X+}{$T-}{$H+}
|
||||
{$ELSE}
|
||||
{$R-}{$Q-}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFNDEF FPC}
|
||||
{$IFNDEF DELPHI4UP}
|
||||
{$IFNDEF LINUX}
|
||||
{$DEFINE PS_NOINT64}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF DELPHI2}
|
||||
{$DEFINE PS_NOINT64}
|
||||
{$DEFINE PS_NOWIDESTRING}
|
||||
{$B-}{$X+}{$T-}{$H+}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF LINUX}{KYLIX}{$DEFINE CLX}{$DEFINE DELPHI3UP}{$DEFINE DELPHI6UP}{$ENDIF}
|
||||
{$ENDIF}
|
||||
{$R-}{$Q-}
|
||||
|
||||
|
||||
{
|
||||
Defines:
|
||||
PS_NOSMARTLIST - Don't use the smart list option
|
||||
PS_NOIDISPATCH
|
||||
PS_NOWIDESTRING
|
||||
PS_NOINT64
|
||||
PS_DELPHIDIV
|
||||
}
|
||||
|
||||
{$UNDEF DEBUG}
|
||||
|
||||
{$IFDEF CLX}
|
||||
{$DEFINE PS_NOIDISPATCH} // not implemented
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$I PascalScriptFPC.inc}
|
||||
{$ENDIF}
|
||||
167
Pascal Script for Delphi/Source/PascalScriptFCL.lpk
Normal file
167
Pascal Script for Delphi/Source/PascalScriptFCL.lpk
Normal file
@@ -0,0 +1,167 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<Package Version="4">
|
||||
<Name Value="PascalScriptFCL"/>
|
||||
<AddToProjectUsesSection Value="True"/>
|
||||
<Author Value="Carlo Kok"/>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<SearchPaths>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Other>
|
||||
<Verbosity>
|
||||
<ShowHints Value="False"/>
|
||||
</Verbosity>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Description Value="RemObjects Pascal Script
|
||||
Created by Carlo Kok
|
||||
RemObjects Software
|
||||
Fixed for Lazarus by Bogusіaw Brandys
|
||||
"/>
|
||||
<License Value="*********************************************************************
|
||||
RemObjects Pascal Script
|
||||
Created By Carlo Kok ck@carlo-kok.com
|
||||
*********************************************************************
|
||||
Copyright (C) 2000-2004 by Carlo Kok, Innerfuse, RemObjects
|
||||
|
||||
This software is provided 'as-is', without any expressed or implied
|
||||
warranty. In no event will the author be held liable for any damages
|
||||
arising from the use of this software.
|
||||
Permission is granted to anyone to use this software for any kind of
|
||||
application, and to alter it and redistribute it freely, subject to
|
||||
the following restrictions:
|
||||
1. The origin of this software must not be misrepresented, you must
|
||||
not claim that you wrote the original software.
|
||||
2. Altered source versions must be plainly marked as such, and must
|
||||
not be misrepresented as being the original software.
|
||||
3. You must have a visible line in your programs aboutbox or
|
||||
documentation that it is made using RemObjects Pascal Script and
|
||||
where RemObjects Pascal Script can be found.
|
||||
4. This notice may not be removed or altered from any source
|
||||
distribution.
|
||||
|
||||
If you have any questions concerning this license write me (Carlo Kok):
|
||||
ck@carlo-kok.com or try our newsserver:
|
||||
news://news.RemObjects.com/
|
||||
|
||||
Carlo Kok
|
||||
RemObjects Software
|
||||
"/>
|
||||
<Version Build="1"/>
|
||||
<Files Count="25">
|
||||
<Item1>
|
||||
<Filename Value="uPSRuntime.pas"/>
|
||||
<UnitName Value="uPSRuntime"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Filename Value="eDefines.inc"/>
|
||||
<Type Value="Include"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Filename Value="PascalScript.inc"/>
|
||||
<Type Value="Include"/>
|
||||
</Item3>
|
||||
<Item4>
|
||||
<Filename Value="uPSC_classes.pas"/>
|
||||
<UnitName Value="uPSC_classes"/>
|
||||
</Item4>
|
||||
<Item5>
|
||||
<Filename Value="uPSC_dateutils.pas"/>
|
||||
<UnitName Value="uPSC_dateutils"/>
|
||||
</Item5>
|
||||
<Item6>
|
||||
<Filename Value="uPSC_DB.pas"/>
|
||||
<UnitName Value="uPSC_DB"/>
|
||||
</Item6>
|
||||
<Item7>
|
||||
<Filename Value="uPSC_dll.pas"/>
|
||||
<UnitName Value="uPSC_dll"/>
|
||||
</Item7>
|
||||
<Item8>
|
||||
<Filename Value="uPSC_std.pas"/>
|
||||
<UnitName Value="uPSC_std"/>
|
||||
</Item8>
|
||||
<Item9>
|
||||
<Filename Value="uPSCompiler.pas"/>
|
||||
<UnitName Value="uPSCompiler"/>
|
||||
</Item9>
|
||||
<Item10>
|
||||
<Filename Value="uPSComponent.pas"/>
|
||||
<UnitName Value="uPSComponent"/>
|
||||
</Item10>
|
||||
<Item11>
|
||||
<Filename Value="uPSComponent_DB.pas"/>
|
||||
<UnitName Value="uPSComponent_DB"/>
|
||||
</Item11>
|
||||
<Item12>
|
||||
<Filename Value="uPSComponent_Default.pas"/>
|
||||
<UnitName Value="uPSComponent_Default"/>
|
||||
</Item12>
|
||||
<Item13>
|
||||
<Filename Value="uPSUtils.pas"/>
|
||||
<UnitName Value="uPSUtils"/>
|
||||
</Item13>
|
||||
<Item14>
|
||||
<Filename Value="uPSDebugger.pas"/>
|
||||
<UnitName Value="uPSDebugger"/>
|
||||
</Item14>
|
||||
<Item15>
|
||||
<Filename Value="uPSDisassembly.pas"/>
|
||||
<UnitName Value="uPSDisassembly"/>
|
||||
</Item15>
|
||||
<Item16>
|
||||
<Filename Value="uPSPreProcessor.pas"/>
|
||||
<UnitName Value="uPSPreProcessor"/>
|
||||
</Item16>
|
||||
<Item17>
|
||||
<Filename Value="uPSR_classes.pas"/>
|
||||
<UnitName Value="uPSR_classes"/>
|
||||
</Item17>
|
||||
<Item18>
|
||||
<Filename Value="uPSR_dateutils.pas"/>
|
||||
<UnitName Value="uPSR_dateutils"/>
|
||||
</Item18>
|
||||
<Item19>
|
||||
<Filename Value="uPSR_DB.pas"/>
|
||||
<UnitName Value="uPSR_DB"/>
|
||||
</Item19>
|
||||
<Item20>
|
||||
<Filename Value="uPSR_dll.pas"/>
|
||||
<UnitName Value="uPSR_dll"/>
|
||||
</Item20>
|
||||
<Item21>
|
||||
<Filename Value="uPSR_std.pas"/>
|
||||
<UnitName Value="uPSR_std"/>
|
||||
</Item21>
|
||||
<Item22>
|
||||
<Filename Value="arm.inc"/>
|
||||
<Type Value="Include"/>
|
||||
</Item22>
|
||||
<Item23>
|
||||
<Filename Value="powerpc.inc"/>
|
||||
<Type Value="Include"/>
|
||||
</Item23>
|
||||
<Item24>
|
||||
<Filename Value="x64.inc"/>
|
||||
<Type Value="Include"/>
|
||||
</Item24>
|
||||
<Item25>
|
||||
<Filename Value="x86.inc"/>
|
||||
<Type Value="Include"/>
|
||||
</Item25>
|
||||
</Files>
|
||||
<UsageOptions>
|
||||
<UnitPath Value="$(PkgOutDir)"/>
|
||||
</UsageOptions>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IgnoreBinaries Value="False"/>
|
||||
</PublishOptions>
|
||||
<CustomOptions Items="ExternHelp" Version="2">
|
||||
<_ExternHelp Items="Count"/>
|
||||
</CustomOptions>
|
||||
</Package>
|
||||
</CONFIG>
|
||||
17
Pascal Script for Delphi/Source/PascalScriptFCL.pas
Normal file
17
Pascal Script for Delphi/Source/PascalScriptFCL.pas
Normal file
@@ -0,0 +1,17 @@
|
||||
{ This file was automatically created by Lazarus. Do not edit!
|
||||
This source is only used to compile and install the package.
|
||||
}
|
||||
|
||||
unit PascalScriptFCL;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uPSRuntime, uPSC_classes, uPSC_dateutils, uPSC_DB, uPSC_dll, uPSC_std,
|
||||
uPSCompiler, uPSComponent, uPSComponent_DB, uPSComponent_Default, uPSUtils,
|
||||
uPSDebugger, uPSDisassembly, uPSPreProcessor, uPSR_classes, uPSR_dateutils,
|
||||
uPSR_DB, uPSR_dll, uPSR_std;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
18
Pascal Script for Delphi/Source/PascalScriptFPC.inc
Normal file
18
Pascal Script for Delphi/Source/PascalScriptFPC.inc
Normal file
@@ -0,0 +1,18 @@
|
||||
|
||||
{$DEFINE PS_HAVEVARIANT}
|
||||
{$DEFINE PS_DYNARRAY}
|
||||
{$DEFINE PS_NOIDISPATCH}
|
||||
{.$if (fpc_version=2) and (fpc_release>=3) and (fpc_patch>=1)}
|
||||
{$if (fpc_version=2) and ((fpc_release=2) and (fpc_patch>=4)) or (fpc_release>2)}
|
||||
{$UNDEF FPC_OLD_FIX}
|
||||
{$DEFINE PS_STACKALIGN}
|
||||
{$UNDEF PS_FPCSTRINGWORKAROUND}
|
||||
{$DEFINE PS_RESBEFOREPARAMETERS}
|
||||
{$DEFINE x64_string_result_as_varparameter}
|
||||
{FreePascal 2.3.1 and above has much Delphi compatibility bugs fixed}
|
||||
{$else}
|
||||
{$DEFINE FPC_OLD_FIX}
|
||||
{$DEFINE PS_FPCSTRINGWORKAROUND}
|
||||
{$ifend}
|
||||
{$DEFINE DELPHI3UP}
|
||||
{$DEFINE DELPHI6UP}
|
||||
146
Pascal Script for Delphi/Source/PascalScriptLCL.lpk
Normal file
146
Pascal Script for Delphi/Source/PascalScriptLCL.lpk
Normal file
@@ -0,0 +1,146 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<Package Version="4">
|
||||
<Name Value="PascalScriptLCL"/>
|
||||
<AddToProjectUsesSection Value="True"/>
|
||||
<Author Value="Carlo Kok"/>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<SearchPaths>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Other>
|
||||
<Verbosity>
|
||||
<ShowHints Value="False"/>
|
||||
</Verbosity>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Description Value="RemObjects Pascal Script
|
||||
Created by Carlo Kok
|
||||
RemObjects Software
|
||||
Fixed for Lazarus by Bogusіaw Brandys
|
||||
"/>
|
||||
<License Value="*********************************************************************
|
||||
RemObjects Pascal Script
|
||||
Created By Carlo Kok ck@carlo-kok.com
|
||||
*********************************************************************
|
||||
Copyright (C) 2000-2004 by Carlo Kok, Innerfuse, RemObjects
|
||||
|
||||
This software is provided 'as-is', without any expressed or implied
|
||||
warranty. In no event will the author be held liable for any damages
|
||||
arising from the use of this software.
|
||||
Permission is granted to anyone to use this software for any kind of
|
||||
application, and to alter it and redistribute it freely, subject to
|
||||
the following restrictions:
|
||||
1. The origin of this software must not be misrepresented, you must
|
||||
not claim that you wrote the original software.
|
||||
2. Altered source versions must be plainly marked as such, and must
|
||||
not be misrepresented as being the original software.
|
||||
3. You must have a visible line in your programs aboutbox or
|
||||
documentation that it is made using RemObjects Pascal Script and
|
||||
where RemObjects Pascal Script can be found.
|
||||
4. This notice may not be removed or altered from any source
|
||||
distribution.
|
||||
|
||||
If you have any questions concerning this license write me (Carlo Kok):
|
||||
ck@carlo-kok.com or try our newsserver:
|
||||
news://news.RemObjects.com/
|
||||
|
||||
Carlo Kok
|
||||
RemObjects Software
|
||||
"/>
|
||||
<Version Build="1"/>
|
||||
<Files Count="17">
|
||||
<Item1>
|
||||
<Filename Value="uPSR_stdctrls.pas"/>
|
||||
<UnitName Value="uPSR_stdctrls"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Filename Value="PascalScript_Core_Reg.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="PascalScript_Core_Reg"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Filename Value="uPSC_buttons.pas"/>
|
||||
<UnitName Value="uPSC_buttons"/>
|
||||
</Item3>
|
||||
<Item4>
|
||||
<Filename Value="uPSC_controls.pas"/>
|
||||
<UnitName Value="uPSC_controls"/>
|
||||
</Item4>
|
||||
<Item5>
|
||||
<Filename Value="uPSC_extctrls.pas"/>
|
||||
<UnitName Value="uPSC_extctrls"/>
|
||||
</Item5>
|
||||
<Item6>
|
||||
<Filename Value="uPSC_forms.pas"/>
|
||||
<UnitName Value="uPSC_forms"/>
|
||||
</Item6>
|
||||
<Item7>
|
||||
<Filename Value="uPSC_graphics.pas"/>
|
||||
<UnitName Value="uPSC_graphics"/>
|
||||
</Item7>
|
||||
<Item8>
|
||||
<Filename Value="uPSC_menus.pas"/>
|
||||
<UnitName Value="uPSC_menus"/>
|
||||
</Item8>
|
||||
<Item9>
|
||||
<Filename Value="uPSC_stdctrls.pas"/>
|
||||
<UnitName Value="uPSC_stdctrls"/>
|
||||
</Item9>
|
||||
<Item10>
|
||||
<Filename Value="uPSComponent_Forms.pas"/>
|
||||
<UnitName Value="uPSComponent_Forms"/>
|
||||
</Item10>
|
||||
<Item11>
|
||||
<Filename Value="uPSComponent_StdCtrls.pas"/>
|
||||
<UnitName Value="uPSComponent_StdCtrls"/>
|
||||
</Item11>
|
||||
<Item12>
|
||||
<Filename Value="uPSR_buttons.pas"/>
|
||||
<UnitName Value="uPSR_buttons"/>
|
||||
</Item12>
|
||||
<Item13>
|
||||
<Filename Value="uPSR_controls.pas"/>
|
||||
<UnitName Value="uPSR_controls"/>
|
||||
</Item13>
|
||||
<Item14>
|
||||
<Filename Value="uPSR_extctrls.pas"/>
|
||||
<UnitName Value="uPSR_extctrls"/>
|
||||
</Item14>
|
||||
<Item15>
|
||||
<Filename Value="uPSR_forms.pas"/>
|
||||
<UnitName Value="UPSR_forms"/>
|
||||
</Item15>
|
||||
<Item16>
|
||||
<Filename Value="uPSR_graphics.pas"/>
|
||||
<UnitName Value="UPSR_graphics"/>
|
||||
</Item16>
|
||||
<Item17>
|
||||
<Filename Value="uPSR_menus.pas"/>
|
||||
<UnitName Value="uPSR_menus"/>
|
||||
</Item17>
|
||||
</Files>
|
||||
<Type Value="RunAndDesignTime"/>
|
||||
<RequiredPkgs Count="2">
|
||||
<Item1>
|
||||
<PackageName Value="PascalScriptFCL"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="LCL"/>
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item2>
|
||||
</RequiredPkgs>
|
||||
<UsageOptions>
|
||||
<UnitPath Value="$(PkgOutDir)"/>
|
||||
</UsageOptions>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IgnoreBinaries Value="False"/>
|
||||
</PublishOptions>
|
||||
<CustomOptions Items="ExternHelp" Version="2">
|
||||
<_ExternHelp Items="Count"/>
|
||||
</CustomOptions>
|
||||
</Package>
|
||||
</CONFIG>
|
||||
24
Pascal Script for Delphi/Source/PascalScriptLCL.pas
Normal file
24
Pascal Script for Delphi/Source/PascalScriptLCL.pas
Normal file
@@ -0,0 +1,24 @@
|
||||
{ This file was automatically created by Lazarus. Do not edit!
|
||||
This source is only used to compile and install the package.
|
||||
}
|
||||
|
||||
unit PascalScriptLCL;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uPSR_stdctrls, PascalScript_Core_Reg, uPSC_buttons, uPSC_controls,
|
||||
uPSC_extctrls, uPSC_forms, uPSC_graphics, uPSC_menus, uPSC_stdctrls,
|
||||
uPSComponent_Forms, uPSComponent_StdCtrls, uPSR_buttons, uPSR_controls,
|
||||
uPSR_extctrls, uPSR_forms, uPSR_graphics, uPSR_menus, LazarusPackageIntf;
|
||||
|
||||
implementation
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterUnit('PascalScript_Core_Reg', @PascalScript_Core_Reg.Register);
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterPackage('PascalScriptLCL', @Register);
|
||||
end.
|
||||
177
Pascal Script for Delphi/Source/PascalScript_Core_D10.bdsproj
Normal file
177
Pascal Script for Delphi/Source/PascalScript_Core_D10.bdsproj
Normal file
@@ -0,0 +1,177 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{7803B416-C1B3-4801-BCDB-CB1C64840119}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">PascalScript_Core_D10.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">1</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases"></Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">False</Compiler>
|
||||
<Compiler Name="SymbolLibrary">False</Compiler>
|
||||
<Compiler Name="SymbolPlatform">False</Compiler>
|
||||
<Compiler Name="SymbolExperimental">False</Compiler>
|
||||
<Compiler Name="UnitLibrary">False</Compiler>
|
||||
<Compiler Name="UnitPlatform">False</Compiler>
|
||||
<Compiler Name="UnitDeprecated">False</Compiler>
|
||||
<Compiler Name="UnitExperimental">False</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler> <Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">RemObjects Pascal Script - Core Package</Linker> <Linker Name="GenerateHpps">False</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir">..\Dcu\D10</Directories>
|
||||
<Directories Name="PackageDLLOutputDir">..\Dcu\D10</Directories>
|
||||
<Directories Name="PackageDCPOutputDir">..\Dcu\D10</Directories>
|
||||
<Directories Name="SearchPath">..\Dcu\D10</Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="RemoteHost"></Parameters>
|
||||
<Parameters Name="RemotePath"></Parameters>
|
||||
<Parameters Name="RemoteLauncher"></Parameters>
|
||||
<Parameters Name="RemoteCWD"></Parameters>
|
||||
<Parameters Name="RemoteDebug">False</Parameters> <Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">0</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">6</VersionInfo>
|
||||
<VersionInfo Name="Build">442</VersionInfo>
|
||||
<VersionInfo Name="Debug">0</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">0</VersionInfo>
|
||||
<VersionInfo Name="Special">0</VersionInfo>
|
||||
<VersionInfo Name="Private">0</VersionInfo>
|
||||
<VersionInfo Name="DLL">0</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.6.442</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompileDate">Tuesday, March 21, 2006 1:32 PM</VersionInfoKeys> <VersionInfoKeys Name="Compile Date">Monday, February 28, 2005 3:33 PM</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
76
Pascal Script for Delphi/Source/PascalScript_Core_D10.dpk
Normal file
76
Pascal Script for Delphi/Source/PascalScript_Core_D10.dpk
Normal file
@@ -0,0 +1,76 @@
|
||||
package PascalScript_Core_D10;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
uPSC_extctrls in 'uPSC_extctrls.pas',
|
||||
uPSC_forms in 'uPSC_forms.pas',
|
||||
uPSC_graphics in 'uPSC_graphics.pas',
|
||||
uPSC_menus in 'uPSC_menus.pas',
|
||||
uPSC_std in 'uPSC_std.pas',
|
||||
uPSC_stdctrls in 'uPSC_stdctrls.pas',
|
||||
uPSCompiler in 'uPSCompiler.pas',
|
||||
uPSComponent in 'uPSComponent.pas',
|
||||
uPSComponent_COM in 'uPSComponent_COM.pas',
|
||||
uPSComponent_Controls in 'uPSComponent_Controls.pas',
|
||||
uPSComponent_DB in 'uPSComponent_DB.pas',
|
||||
uPSComponent_Default in 'uPSComponent_Default.pas',
|
||||
uPSComponent_Forms in 'uPSComponent_Forms.pas',
|
||||
uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
|
||||
uPSDebugger in 'uPSDebugger.pas',
|
||||
uPSDisassembly in 'uPSDisassembly.pas',
|
||||
uPSPreProcessor in 'uPSPreProcessor.pas',
|
||||
uPSR_buttons in 'uPSR_buttons.pas',
|
||||
uPSR_classes in 'uPSR_classes.pas',
|
||||
uPSR_comobj in 'uPSR_comobj.pas',
|
||||
uPSR_controls in 'uPSR_controls.pas',
|
||||
uPSR_dateutils in 'uPSR_dateutils.pas',
|
||||
uPSR_DB in 'uPSR_DB.pas',
|
||||
uPSR_dll in 'uPSR_dll.pas',
|
||||
uPSR_extctrls in 'uPSR_extctrls.pas',
|
||||
uPSR_forms in 'uPSR_forms.pas',
|
||||
uPSR_graphics in 'uPSR_graphics.pas',
|
||||
uPSR_menus in 'uPSR_menus.pas',
|
||||
uPSR_std in 'uPSR_std.pas',
|
||||
uPSR_stdctrls in 'uPSR_stdctrls.pas',
|
||||
uPSRuntime in 'uPSRuntime.pas',
|
||||
uPSUtils in 'uPSUtils.pas',
|
||||
uPSC_buttons in 'uPSC_buttons.pas',
|
||||
uPSC_classes in 'uPSC_classes.pas',
|
||||
uPSC_comobj in 'uPSC_comobj.pas',
|
||||
uPSC_controls in 'uPSC_controls.pas',
|
||||
uPSC_dateutils in 'uPSC_dateutils.pas',
|
||||
uPSC_DB in 'uPSC_DB.pas',
|
||||
uPSC_dll in 'uPSC_dll.pas',
|
||||
PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
|
||||
|
||||
end.
|
||||
76
Pascal Script for Delphi/Source/PascalScript_Core_D11.dpk
Normal file
76
Pascal Script for Delphi/Source/PascalScript_Core_D11.dpk
Normal file
@@ -0,0 +1,76 @@
|
||||
package PascalScript_Core_D11;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
uPSC_extctrls in 'uPSC_extctrls.pas',
|
||||
uPSC_forms in 'uPSC_forms.pas',
|
||||
uPSC_graphics in 'uPSC_graphics.pas',
|
||||
uPSC_menus in 'uPSC_menus.pas',
|
||||
uPSC_std in 'uPSC_std.pas',
|
||||
uPSC_stdctrls in 'uPSC_stdctrls.pas',
|
||||
uPSCompiler in 'uPSCompiler.pas',
|
||||
uPSComponent in 'uPSComponent.pas',
|
||||
uPSComponent_COM in 'uPSComponent_COM.pas',
|
||||
uPSComponent_Controls in 'uPSComponent_Controls.pas',
|
||||
uPSComponent_DB in 'uPSComponent_DB.pas',
|
||||
uPSComponent_Default in 'uPSComponent_Default.pas',
|
||||
uPSComponent_Forms in 'uPSComponent_Forms.pas',
|
||||
uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
|
||||
uPSDebugger in 'uPSDebugger.pas',
|
||||
uPSDisassembly in 'uPSDisassembly.pas',
|
||||
uPSPreProcessor in 'uPSPreProcessor.pas',
|
||||
uPSR_buttons in 'uPSR_buttons.pas',
|
||||
uPSR_classes in 'uPSR_classes.pas',
|
||||
uPSR_comobj in 'uPSR_comobj.pas',
|
||||
uPSR_controls in 'uPSR_controls.pas',
|
||||
uPSR_dateutils in 'uPSR_dateutils.pas',
|
||||
uPSR_DB in 'uPSR_DB.pas',
|
||||
uPSR_dll in 'uPSR_dll.pas',
|
||||
uPSR_extctrls in 'uPSR_extctrls.pas',
|
||||
uPSR_forms in 'uPSR_forms.pas',
|
||||
uPSR_graphics in 'uPSR_graphics.pas',
|
||||
uPSR_menus in 'uPSR_menus.pas',
|
||||
uPSR_std in 'uPSR_std.pas',
|
||||
uPSR_stdctrls in 'uPSR_stdctrls.pas',
|
||||
uPSRuntime in 'uPSRuntime.pas',
|
||||
uPSUtils in 'uPSUtils.pas',
|
||||
uPSC_buttons in 'uPSC_buttons.pas',
|
||||
uPSC_classes in 'uPSC_classes.pas',
|
||||
uPSC_comobj in 'uPSC_comobj.pas',
|
||||
uPSC_controls in 'uPSC_controls.pas',
|
||||
uPSC_dateutils in 'uPSC_dateutils.pas',
|
||||
uPSC_DB in 'uPSC_DB.pas',
|
||||
uPSC_dll in 'uPSC_dll.pas',
|
||||
PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
|
||||
|
||||
end.
|
||||
112
Pascal Script for Delphi/Source/PascalScript_Core_D11.dproj
Normal file
112
Pascal Script for Delphi/Source/PascalScript_Core_D11.dproj
Normal file
@@ -0,0 +1,112 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{634be604-b73a-4b3d-bc81-719c905199e6}</ProjectGuid>
|
||||
<MainSource>PascalScript_Core_D11.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\Dcu\D11\PascalScript_Core_D11.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DcuOutput>..\Dcu\D10</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>..\Dcu\D10</DCC_ObjOutput>
|
||||
<DCC_HppOutput>..\Dcu\D10</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\Dcu\D10</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\Dcu\D10</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\Dcu\D10</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\Dcu\D10</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\Dcu\D10</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\Dcu\D10</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
<DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
|
||||
<DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
|
||||
<DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
|
||||
<DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
|
||||
<DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
|
||||
<DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
|
||||
<DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
|
||||
<DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
|
||||
<DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
|
||||
<DCC_UnitSearchPath>..\Dcu\D11</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\Dcu\D11</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\Dcu\D11</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\Dcu\D11</DCC_IncludePath>
|
||||
<DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
|
||||
<DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
|
||||
<DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
|
||||
<DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
|
||||
<DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
|
||||
<DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
|
||||
<DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
|
||||
<DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Pascal Script - Core Package</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">True</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">442</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.6.442</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="CompileDate">Tuesday, March 21, 2006 1:32 PM</VersionInfoKeys><VersionInfoKeys Name="Compile Date">Monday, February 28, 2005 3:33 PM</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">PascalScript_Core_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="PascalScript_Core_D11.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\rtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\vcl.dcp" />
|
||||
<DCCReference Include="PascalScript_Core_Reg.pas" />
|
||||
<DCCReference Include="uPSCompiler.pas" />
|
||||
<DCCReference Include="uPSComponent.pas" />
|
||||
<DCCReference Include="uPSComponent_COM.pas" />
|
||||
<DCCReference Include="uPSComponent_Controls.pas" />
|
||||
<DCCReference Include="uPSComponent_DB.pas" />
|
||||
<DCCReference Include="uPSComponent_Default.pas" />
|
||||
<DCCReference Include="uPSComponent_Forms.pas" />
|
||||
<DCCReference Include="uPSComponent_StdCtrls.pas" />
|
||||
<DCCReference Include="uPSC_buttons.pas" />
|
||||
<DCCReference Include="uPSC_classes.pas" />
|
||||
<DCCReference Include="uPSC_comobj.pas" />
|
||||
<DCCReference Include="uPSC_controls.pas" />
|
||||
<DCCReference Include="uPSC_dateutils.pas" />
|
||||
<DCCReference Include="uPSC_DB.pas" />
|
||||
<DCCReference Include="uPSC_dll.pas" />
|
||||
<DCCReference Include="uPSC_extctrls.pas" />
|
||||
<DCCReference Include="uPSC_forms.pas" />
|
||||
<DCCReference Include="uPSC_graphics.pas" />
|
||||
<DCCReference Include="uPSC_menus.pas" />
|
||||
<DCCReference Include="uPSC_std.pas" />
|
||||
<DCCReference Include="uPSC_stdctrls.pas" />
|
||||
<DCCReference Include="uPSDebugger.pas" />
|
||||
<DCCReference Include="uPSDisassembly.pas" />
|
||||
<DCCReference Include="uPSPreProcessor.pas" />
|
||||
<DCCReference Include="uPSRuntime.pas" />
|
||||
<DCCReference Include="uPSR_buttons.pas" />
|
||||
<DCCReference Include="uPSR_classes.pas" />
|
||||
<DCCReference Include="uPSR_comobj.pas" />
|
||||
<DCCReference Include="uPSR_controls.pas" />
|
||||
<DCCReference Include="uPSR_dateutils.pas" />
|
||||
<DCCReference Include="uPSR_DB.pas" />
|
||||
<DCCReference Include="uPSR_dll.pas" />
|
||||
<DCCReference Include="uPSR_extctrls.pas" />
|
||||
<DCCReference Include="uPSR_forms.pas" />
|
||||
<DCCReference Include="uPSR_graphics.pas" />
|
||||
<DCCReference Include="uPSR_menus.pas" />
|
||||
<DCCReference Include="uPSR_std.pas" />
|
||||
<DCCReference Include="uPSR_stdctrls.pas" />
|
||||
<DCCReference Include="uPSUtils.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
76
Pascal Script for Delphi/Source/PascalScript_Core_D12.dpk
Normal file
76
Pascal Script for Delphi/Source/PascalScript_Core_D12.dpk
Normal file
@@ -0,0 +1,76 @@
|
||||
package PascalScript_Core_D12;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
uPSC_extctrls in 'uPSC_extctrls.pas',
|
||||
uPSC_forms in 'uPSC_forms.pas',
|
||||
uPSC_graphics in 'uPSC_graphics.pas',
|
||||
uPSC_menus in 'uPSC_menus.pas',
|
||||
uPSC_std in 'uPSC_std.pas',
|
||||
uPSC_stdctrls in 'uPSC_stdctrls.pas',
|
||||
uPSCompiler in 'uPSCompiler.pas',
|
||||
uPSComponent in 'uPSComponent.pas',
|
||||
uPSComponent_COM in 'uPSComponent_COM.pas',
|
||||
uPSComponent_Controls in 'uPSComponent_Controls.pas',
|
||||
uPSComponent_DB in 'uPSComponent_DB.pas',
|
||||
uPSComponent_Default in 'uPSComponent_Default.pas',
|
||||
uPSComponent_Forms in 'uPSComponent_Forms.pas',
|
||||
uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
|
||||
uPSDebugger in 'uPSDebugger.pas',
|
||||
uPSDisassembly in 'uPSDisassembly.pas',
|
||||
uPSPreProcessor in 'uPSPreProcessor.pas',
|
||||
uPSR_buttons in 'uPSR_buttons.pas',
|
||||
uPSR_classes in 'uPSR_classes.pas',
|
||||
uPSR_comobj in 'uPSR_comobj.pas',
|
||||
uPSR_controls in 'uPSR_controls.pas',
|
||||
uPSR_dateutils in 'uPSR_dateutils.pas',
|
||||
uPSR_DB in 'uPSR_DB.pas',
|
||||
uPSR_dll in 'uPSR_dll.pas',
|
||||
uPSR_extctrls in 'uPSR_extctrls.pas',
|
||||
uPSR_forms in 'uPSR_forms.pas',
|
||||
uPSR_graphics in 'uPSR_graphics.pas',
|
||||
uPSR_menus in 'uPSR_menus.pas',
|
||||
uPSR_std in 'uPSR_std.pas',
|
||||
uPSR_stdctrls in 'uPSR_stdctrls.pas',
|
||||
uPSRuntime in 'uPSRuntime.pas',
|
||||
uPSUtils in 'uPSUtils.pas',
|
||||
uPSC_buttons in 'uPSC_buttons.pas',
|
||||
uPSC_classes in 'uPSC_classes.pas',
|
||||
uPSC_comobj in 'uPSC_comobj.pas',
|
||||
uPSC_controls in 'uPSC_controls.pas',
|
||||
uPSC_dateutils in 'uPSC_dateutils.pas',
|
||||
uPSC_DB in 'uPSC_DB.pas',
|
||||
uPSC_dll in 'uPSC_dll.pas',
|
||||
PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
|
||||
|
||||
end.
|
||||
126
Pascal Script for Delphi/Source/PascalScript_Core_D12.dproj
Normal file
126
Pascal Script for Delphi/Source/PascalScript_Core_D12.dproj
Normal file
@@ -0,0 +1,126 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{634be604-b73a-4b3d-bc81-719c905199e6}</ProjectGuid>
|
||||
<MainSource>PascalScript_Core_D12.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\Dcu\D12\PascalScript_Core_D12.bpl</DCC_DependencyCheckOutputName>
|
||||
<ProjectVersion>11.1</ProjectVersion>
|
||||
<Config Condition="'$(Config)'==''">Base</Config>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_Description>RemObjects Pascal Script - Core Package</DCC_Description>
|
||||
<DCC_DependencyCheckOutputName>..\Dcu\D12\PascalScript_Core_D12.bpl</DCC_DependencyCheckOutputName>
|
||||
<DCC_UnitSearchPath>..\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_BplOutput>..\Dcu\D12</DCC_BplOutput>
|
||||
<DCC_DcuOutput>..\Dcu\D12</DCC_DcuOutput>
|
||||
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
|
||||
<GenDll>true</GenDll>
|
||||
<DCC_DcpOutput>..\Dcu\D12</DCC_DcpOutput>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<DesignOnlyPackage>true</DesignOnlyPackage>
|
||||
<GenPackage>true</GenPackage>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="PascalScript_Core_D12.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="rtl.dcp"/>
|
||||
<DCCReference Include="vcl.dcp"/>
|
||||
<DCCReference Include="dbrtl.dcp"/>
|
||||
<DCCReference Include="uPSC_extctrls.pas"/>
|
||||
<DCCReference Include="uPSC_forms.pas"/>
|
||||
<DCCReference Include="uPSC_graphics.pas"/>
|
||||
<DCCReference Include="uPSC_menus.pas"/>
|
||||
<DCCReference Include="uPSC_std.pas"/>
|
||||
<DCCReference Include="uPSC_stdctrls.pas"/>
|
||||
<DCCReference Include="uPSCompiler.pas"/>
|
||||
<DCCReference Include="uPSComponent.pas"/>
|
||||
<DCCReference Include="uPSComponent_COM.pas"/>
|
||||
<DCCReference Include="uPSComponent_Controls.pas"/>
|
||||
<DCCReference Include="uPSComponent_DB.pas"/>
|
||||
<DCCReference Include="uPSComponent_Default.pas"/>
|
||||
<DCCReference Include="uPSComponent_Forms.pas"/>
|
||||
<DCCReference Include="uPSComponent_StdCtrls.pas"/>
|
||||
<DCCReference Include="uPSDebugger.pas"/>
|
||||
<DCCReference Include="uPSDisassembly.pas"/>
|
||||
<DCCReference Include="uPSPreProcessor.pas"/>
|
||||
<DCCReference Include="uPSR_buttons.pas"/>
|
||||
<DCCReference Include="uPSR_classes.pas"/>
|
||||
<DCCReference Include="uPSR_comobj.pas"/>
|
||||
<DCCReference Include="uPSR_controls.pas"/>
|
||||
<DCCReference Include="uPSR_dateutils.pas"/>
|
||||
<DCCReference Include="uPSR_DB.pas"/>
|
||||
<DCCReference Include="uPSR_dll.pas"/>
|
||||
<DCCReference Include="uPSR_extctrls.pas"/>
|
||||
<DCCReference Include="uPSR_forms.pas"/>
|
||||
<DCCReference Include="uPSR_graphics.pas"/>
|
||||
<DCCReference Include="uPSR_menus.pas"/>
|
||||
<DCCReference Include="uPSR_std.pas"/>
|
||||
<DCCReference Include="uPSR_stdctrls.pas"/>
|
||||
<DCCReference Include="uPSRuntime.pas"/>
|
||||
<DCCReference Include="uPSUtils.pas"/>
|
||||
<DCCReference Include="uPSC_buttons.pas"/>
|
||||
<DCCReference Include="uPSC_classes.pas"/>
|
||||
<DCCReference Include="uPSC_comobj.pas"/>
|
||||
<DCCReference Include="uPSC_controls.pas"/>
|
||||
<DCCReference Include="uPSC_dateutils.pas"/>
|
||||
<DCCReference Include="uPSC_DB.pas"/>
|
||||
<DCCReference Include="uPSC_dll.pas"/>
|
||||
<DCCReference Include="PascalScript_Core_Reg.pas"/>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">29</VersionInfo>
|
||||
<VersionInfo Name="Build">673</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.29.673</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompileDate">Friday, March 21, 2008 1:24 PM</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Compile Date">Monday, February 28, 2005 3:33 PM</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Source>
|
||||
<Source Name="MainSource">PascalScript_Core_D12.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
</Project>
|
||||
152
Pascal Script for Delphi/Source/PascalScript_Core_D14.dpk
Normal file
152
Pascal Script for Delphi/Source/PascalScript_Core_D14.dpk
Normal file
@@ -0,0 +1,152 @@
|
||||
package PascalScript_Core_D14;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
uPSC_extctrls in 'uPSC_extctrls.pas',
|
||||
uPSC_forms in 'uPSC_forms.pas',
|
||||
uPSC_graphics in 'uPSC_graphics.pas',
|
||||
uPSC_menus in 'uPSC_menus.pas',
|
||||
uPSC_std in 'uPSC_std.pas',
|
||||
uPSC_stdctrls in 'uPSC_stdctrls.pas',
|
||||
uPSCompiler in 'uPSCompiler.pas',
|
||||
uPSComponent in 'uPSComponent.pas',
|
||||
uPSComponent_COM in 'uPSComponent_COM.pas',
|
||||
uPSComponent_Controls in 'uPSComponent_Controls.pas',
|
||||
uPSComponent_DB in 'uPSComponent_DB.pas',
|
||||
uPSComponent_Default in 'uPSComponent_Default.pas',
|
||||
uPSComponent_Forms in 'uPSComponent_Forms.pas',
|
||||
uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
|
||||
uPSDebugger in 'uPSDebugger.pas',
|
||||
uPSDisassembly in 'uPSDisassembly.pas',
|
||||
uPSPreProcessor in 'uPSPreProcessor.pas',
|
||||
uPSR_buttons in 'uPSR_buttons.pas',
|
||||
uPSR_classes in 'uPSR_classes.pas',
|
||||
uPSR_comobj in 'uPSR_comobj.pas',
|
||||
uPSR_controls in 'uPSR_controls.pas',
|
||||
uPSR_dateutils in 'uPSR_dateutils.pas',
|
||||
uPSR_DB in 'uPSR_DB.pas',
|
||||
uPSR_dll in 'uPSR_dll.pas',
|
||||
uPSR_extctrls in 'uPSR_extctrls.pas',
|
||||
uPSR_forms in 'uPSR_forms.pas',
|
||||
uPSR_graphics in 'uPSR_graphics.pas',
|
||||
uPSR_menus in 'uPSR_menus.pas',
|
||||
uPSR_std in 'uPSR_std.pas',
|
||||
uPSR_stdctrls in 'uPSR_stdctrls.pas',
|
||||
uPSRuntime in 'uPSRuntime.pas',
|
||||
uPSUtils in 'uPSUtils.pas',
|
||||
uPSC_buttons in 'uPSC_buttons.pas',
|
||||
uPSC_classes in 'uPSC_classes.pas',
|
||||
uPSC_comobj in 'uPSC_comobj.pas',
|
||||
uPSC_controls in 'uPSC_controls.pas',
|
||||
uPSC_dateutils in 'uPSC_dateutils.pas',
|
||||
uPSC_DB in 'uPSC_DB.pas',
|
||||
uPSC_dll in 'uPSC_dll.pas',
|
||||
PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
|
||||
|
||||
end.
|
||||
package PascalScript_Core_D14;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
uPSC_extctrls in 'uPSC_extctrls.pas',
|
||||
uPSC_forms in 'uPSC_forms.pas',
|
||||
uPSC_graphics in 'uPSC_graphics.pas',
|
||||
uPSC_menus in 'uPSC_menus.pas',
|
||||
uPSC_std in 'uPSC_std.pas',
|
||||
uPSC_stdctrls in 'uPSC_stdctrls.pas',
|
||||
uPSCompiler in 'uPSCompiler.pas',
|
||||
uPSComponent in 'uPSComponent.pas',
|
||||
uPSComponent_COM in 'uPSComponent_COM.pas',
|
||||
uPSComponent_Controls in 'uPSComponent_Controls.pas',
|
||||
uPSComponent_DB in 'uPSComponent_DB.pas',
|
||||
uPSComponent_Default in 'uPSComponent_Default.pas',
|
||||
uPSComponent_Forms in 'uPSComponent_Forms.pas',
|
||||
uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
|
||||
uPSDebugger in 'uPSDebugger.pas',
|
||||
uPSDisassembly in 'uPSDisassembly.pas',
|
||||
uPSPreProcessor in 'uPSPreProcessor.pas',
|
||||
uPSR_buttons in 'uPSR_buttons.pas',
|
||||
uPSR_classes in 'uPSR_classes.pas',
|
||||
uPSR_comobj in 'uPSR_comobj.pas',
|
||||
uPSR_controls in 'uPSR_controls.pas',
|
||||
uPSR_dateutils in 'uPSR_dateutils.pas',
|
||||
uPSR_DB in 'uPSR_DB.pas',
|
||||
uPSR_dll in 'uPSR_dll.pas',
|
||||
uPSR_extctrls in 'uPSR_extctrls.pas',
|
||||
uPSR_forms in 'uPSR_forms.pas',
|
||||
uPSR_graphics in 'uPSR_graphics.pas',
|
||||
uPSR_menus in 'uPSR_menus.pas',
|
||||
uPSR_std in 'uPSR_std.pas',
|
||||
uPSR_stdctrls in 'uPSR_stdctrls.pas',
|
||||
uPSRuntime in 'uPSRuntime.pas',
|
||||
uPSUtils in 'uPSUtils.pas',
|
||||
uPSC_buttons in 'uPSC_buttons.pas',
|
||||
uPSC_classes in 'uPSC_classes.pas',
|
||||
uPSC_comobj in 'uPSC_comobj.pas',
|
||||
uPSC_controls in 'uPSC_controls.pas',
|
||||
uPSC_dateutils in 'uPSC_dateutils.pas',
|
||||
uPSC_DB in 'uPSC_DB.pas',
|
||||
uPSC_dll in 'uPSC_dll.pas',
|
||||
PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
|
||||
|
||||
end.
|
||||
127
Pascal Script for Delphi/Source/PascalScript_Core_D14.dproj
Normal file
127
Pascal Script for Delphi/Source/PascalScript_Core_D14.dproj
Normal file
@@ -0,0 +1,127 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{634be604-b73a-4b3d-bc81-719c905199e6}</ProjectGuid>
|
||||
<MainSource>PascalScript_Core_D14.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\Dcu\D12\PascalScript_Core_D12.bpl</DCC_DependencyCheckOutputName>
|
||||
<ProjectVersion>11.1</ProjectVersion>
|
||||
<Config Condition="'$(Config)'==''">Base</Config>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
|
||||
<DCC_Description>RemObjects Pascal Script - Core Package</DCC_Description>
|
||||
<DCC_DependencyCheckOutputName>..\Dcu\D14\PascalScript_Core_D14.bpl</DCC_DependencyCheckOutputName>
|
||||
<DCC_UnitSearchPath>..\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_BplOutput>..\Dcu\D14</DCC_BplOutput>
|
||||
<DCC_DcuOutput>..\Dcu\D14</DCC_DcuOutput>
|
||||
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
|
||||
<GenDll>true</GenDll>
|
||||
<DCC_DcpOutput>..\Dcu\D14</DCC_DcpOutput>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<DesignOnlyPackage>true</DesignOnlyPackage>
|
||||
<GenPackage>true</GenPackage>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="PascalScript_Core_D14.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="rtl.dcp"/>
|
||||
<DCCReference Include="vcl.dcp"/>
|
||||
<DCCReference Include="dbrtl.dcp"/>
|
||||
<DCCReference Include="uPSC_extctrls.pas"/>
|
||||
<DCCReference Include="uPSC_forms.pas"/>
|
||||
<DCCReference Include="uPSC_graphics.pas"/>
|
||||
<DCCReference Include="uPSC_menus.pas"/>
|
||||
<DCCReference Include="uPSC_std.pas"/>
|
||||
<DCCReference Include="uPSC_stdctrls.pas"/>
|
||||
<DCCReference Include="uPSCompiler.pas"/>
|
||||
<DCCReference Include="uPSComponent.pas"/>
|
||||
<DCCReference Include="uPSComponent_COM.pas"/>
|
||||
<DCCReference Include="uPSComponent_Controls.pas"/>
|
||||
<DCCReference Include="uPSComponent_DB.pas"/>
|
||||
<DCCReference Include="uPSComponent_Default.pas"/>
|
||||
<DCCReference Include="uPSComponent_Forms.pas"/>
|
||||
<DCCReference Include="uPSComponent_StdCtrls.pas"/>
|
||||
<DCCReference Include="uPSDebugger.pas"/>
|
||||
<DCCReference Include="uPSDisassembly.pas"/>
|
||||
<DCCReference Include="uPSPreProcessor.pas"/>
|
||||
<DCCReference Include="uPSR_buttons.pas"/>
|
||||
<DCCReference Include="uPSR_classes.pas"/>
|
||||
<DCCReference Include="uPSR_comobj.pas"/>
|
||||
<DCCReference Include="uPSR_controls.pas"/>
|
||||
<DCCReference Include="uPSR_dateutils.pas"/>
|
||||
<DCCReference Include="uPSR_DB.pas"/>
|
||||
<DCCReference Include="uPSR_dll.pas"/>
|
||||
<DCCReference Include="uPSR_extctrls.pas"/>
|
||||
<DCCReference Include="uPSR_forms.pas"/>
|
||||
<DCCReference Include="uPSR_graphics.pas"/>
|
||||
<DCCReference Include="uPSR_menus.pas"/>
|
||||
<DCCReference Include="uPSR_std.pas"/>
|
||||
<DCCReference Include="uPSR_stdctrls.pas"/>
|
||||
<DCCReference Include="uPSRuntime.pas"/>
|
||||
<DCCReference Include="uPSUtils.pas"/>
|
||||
<DCCReference Include="uPSC_buttons.pas"/>
|
||||
<DCCReference Include="uPSC_classes.pas"/>
|
||||
<DCCReference Include="uPSC_comobj.pas"/>
|
||||
<DCCReference Include="uPSC_controls.pas"/>
|
||||
<DCCReference Include="uPSC_dateutils.pas"/>
|
||||
<DCCReference Include="uPSC_DB.pas"/>
|
||||
<DCCReference Include="uPSC_dll.pas"/>
|
||||
<DCCReference Include="PascalScript_Core_Reg.pas"/>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">29</VersionInfo>
|
||||
<VersionInfo Name="Build">673</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.29.673</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompileDate">Friday, March 21, 2008 1:24 PM</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Compile Date">Monday, February 28, 2005 3:33 PM</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Source>
|
||||
<Source Name="MainSource">PascalScript_Core_D14.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
</Project>
|
||||
76
Pascal Script for Delphi/Source/PascalScript_Core_D15.dpk
Normal file
76
Pascal Script for Delphi/Source/PascalScript_Core_D15.dpk
Normal file
@@ -0,0 +1,76 @@
|
||||
package PascalScript_Core_D15;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
uPSC_extctrls in 'uPSC_extctrls.pas',
|
||||
uPSC_forms in 'uPSC_forms.pas',
|
||||
uPSC_graphics in 'uPSC_graphics.pas',
|
||||
uPSC_menus in 'uPSC_menus.pas',
|
||||
uPSC_std in 'uPSC_std.pas',
|
||||
uPSC_stdctrls in 'uPSC_stdctrls.pas',
|
||||
uPSCompiler in 'uPSCompiler.pas',
|
||||
uPSComponent in 'uPSComponent.pas',
|
||||
uPSComponent_COM in 'uPSComponent_COM.pas',
|
||||
uPSComponent_Controls in 'uPSComponent_Controls.pas',
|
||||
uPSComponent_DB in 'uPSComponent_DB.pas',
|
||||
uPSComponent_Default in 'uPSComponent_Default.pas',
|
||||
uPSComponent_Forms in 'uPSComponent_Forms.pas',
|
||||
uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
|
||||
uPSDebugger in 'uPSDebugger.pas',
|
||||
uPSDisassembly in 'uPSDisassembly.pas',
|
||||
uPSPreProcessor in 'uPSPreProcessor.pas',
|
||||
uPSR_buttons in 'uPSR_buttons.pas',
|
||||
uPSR_classes in 'uPSR_classes.pas',
|
||||
uPSR_comobj in 'uPSR_comobj.pas',
|
||||
uPSR_controls in 'uPSR_controls.pas',
|
||||
uPSR_dateutils in 'uPSR_dateutils.pas',
|
||||
uPSR_DB in 'uPSR_DB.pas',
|
||||
uPSR_dll in 'uPSR_dll.pas',
|
||||
uPSR_extctrls in 'uPSR_extctrls.pas',
|
||||
uPSR_forms in 'uPSR_forms.pas',
|
||||
uPSR_graphics in 'uPSR_graphics.pas',
|
||||
uPSR_menus in 'uPSR_menus.pas',
|
||||
uPSR_std in 'uPSR_std.pas',
|
||||
uPSR_stdctrls in 'uPSR_stdctrls.pas',
|
||||
uPSRuntime in 'uPSRuntime.pas',
|
||||
uPSUtils in 'uPSUtils.pas',
|
||||
uPSC_buttons in 'uPSC_buttons.pas',
|
||||
uPSC_classes in 'uPSC_classes.pas',
|
||||
uPSC_comobj in 'uPSC_comobj.pas',
|
||||
uPSC_controls in 'uPSC_controls.pas',
|
||||
uPSC_dateutils in 'uPSC_dateutils.pas',
|
||||
uPSC_DB in 'uPSC_DB.pas',
|
||||
uPSC_dll in 'uPSC_dll.pas',
|
||||
PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
|
||||
|
||||
end.
|
||||
162
Pascal Script for Delphi/Source/PascalScript_Core_D15.dproj
Normal file
162
Pascal Script for Delphi/Source/PascalScript_Core_D15.dproj
Normal file
@@ -0,0 +1,162 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{EA463298-00FA-42B3-87EB-DD289B924EA0}</ProjectGuid>
|
||||
<MainSource>PascalScript_Core_D15.dpk</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<ProjectVersion>12.1</ProjectVersion>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DesignOnlyPackage>true</DesignOnlyPackage>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<GenPackage>true</GenPackage>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
<DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias>
|
||||
<DCC_BplOutput>..\Dcu\D15</DCC_BplOutput>
|
||||
<DCC_UnitSearchPath>..\Dcu\D15;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_Description>RemObjects Pascal Script - Core Package</DCC_Description>
|
||||
<DCC_DcuOutput>..\Dcu\D15</DCC_DcuOutput>
|
||||
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
|
||||
<DCC_S>false</DCC_S>
|
||||
<GenDll>true</GenDll>
|
||||
<DCC_DcpOutput>..\Dcu\D15</DCC_DcpOutput>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_K>false</DCC_K>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DebugInformation>false</DCC_DebugInformation>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="PascalScript_Core_D15.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="rtl.dcp"/>
|
||||
<DCCReference Include="vcl.dcp"/>
|
||||
<DCCReference Include="dbrtl.dcp"/>
|
||||
<DCCReference Include="uPSC_extctrls.pas"/>
|
||||
<DCCReference Include="uPSC_forms.pas"/>
|
||||
<DCCReference Include="uPSC_graphics.pas"/>
|
||||
<DCCReference Include="uPSC_menus.pas"/>
|
||||
<DCCReference Include="uPSC_std.pas"/>
|
||||
<DCCReference Include="uPSC_stdctrls.pas"/>
|
||||
<DCCReference Include="uPSCompiler.pas"/>
|
||||
<DCCReference Include="uPSComponent.pas"/>
|
||||
<DCCReference Include="uPSComponent_COM.pas"/>
|
||||
<DCCReference Include="uPSComponent_Controls.pas"/>
|
||||
<DCCReference Include="uPSComponent_DB.pas"/>
|
||||
<DCCReference Include="uPSComponent_Default.pas"/>
|
||||
<DCCReference Include="uPSComponent_Forms.pas"/>
|
||||
<DCCReference Include="uPSComponent_StdCtrls.pas"/>
|
||||
<DCCReference Include="uPSDebugger.pas"/>
|
||||
<DCCReference Include="uPSDisassembly.pas"/>
|
||||
<DCCReference Include="uPSPreProcessor.pas"/>
|
||||
<DCCReference Include="uPSR_buttons.pas"/>
|
||||
<DCCReference Include="uPSR_classes.pas"/>
|
||||
<DCCReference Include="uPSR_comobj.pas"/>
|
||||
<DCCReference Include="uPSR_controls.pas"/>
|
||||
<DCCReference Include="uPSR_dateutils.pas"/>
|
||||
<DCCReference Include="uPSR_DB.pas"/>
|
||||
<DCCReference Include="uPSR_dll.pas"/>
|
||||
<DCCReference Include="uPSR_extctrls.pas"/>
|
||||
<DCCReference Include="uPSR_forms.pas"/>
|
||||
<DCCReference Include="uPSR_graphics.pas"/>
|
||||
<DCCReference Include="uPSR_menus.pas"/>
|
||||
<DCCReference Include="uPSR_std.pas"/>
|
||||
<DCCReference Include="uPSR_stdctrls.pas"/>
|
||||
<DCCReference Include="uPSRuntime.pas"/>
|
||||
<DCCReference Include="uPSUtils.pas"/>
|
||||
<DCCReference Include="uPSC_buttons.pas"/>
|
||||
<DCCReference Include="uPSC_classes.pas"/>
|
||||
<DCCReference Include="uPSC_comobj.pas"/>
|
||||
<DCCReference Include="uPSC_controls.pas"/>
|
||||
<DCCReference Include="uPSC_dateutils.pas"/>
|
||||
<DCCReference Include="uPSC_DB.pas"/>
|
||||
<DCCReference Include="uPSC_dll.pas"/>
|
||||
<DCCReference Include="PascalScript_Core_Reg.pas"/>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">PascalScript_Core_D15.dpk</Source>
|
||||
</Source>
|
||||
<Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">29</VersionInfo>
|
||||
<VersionInfo Name="Build">673</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.29.673</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"/>
|
||||
<VersionInfoKeys Name="CompileDate">Friday, March 21, 2008 1:24 PM</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
<Platforms>
|
||||
<Platform value="Win32">True</Platform>
|
||||
</Platforms>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
</Project>
|
||||
79
Pascal Script for Delphi/Source/PascalScript_Core_D16.dpk
Normal file
79
Pascal Script for Delphi/Source/PascalScript_Core_D16.dpk
Normal file
@@ -0,0 +1,79 @@
|
||||
package PascalScript_Core_D16;
|
||||
|
||||
{$R *.res}
|
||||
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION OFF}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DEFINE DEBUG}
|
||||
{$ENDIF IMPLICITBUILDING}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
uPSC_extctrls in 'uPSC_extctrls.pas',
|
||||
uPSC_forms in 'uPSC_forms.pas',
|
||||
uPSC_graphics in 'uPSC_graphics.pas',
|
||||
uPSC_menus in 'uPSC_menus.pas',
|
||||
uPSC_std in 'uPSC_std.pas',
|
||||
uPSC_stdctrls in 'uPSC_stdctrls.pas',
|
||||
uPSCompiler in 'uPSCompiler.pas',
|
||||
uPSComponent in 'uPSComponent.pas',
|
||||
uPSComponent_COM in 'uPSComponent_COM.pas',
|
||||
uPSComponent_Controls in 'uPSComponent_Controls.pas',
|
||||
uPSComponent_DB in 'uPSComponent_DB.pas',
|
||||
uPSComponent_Default in 'uPSComponent_Default.pas',
|
||||
uPSComponent_Forms in 'uPSComponent_Forms.pas',
|
||||
uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
|
||||
uPSDebugger in 'uPSDebugger.pas',
|
||||
uPSDisassembly in 'uPSDisassembly.pas',
|
||||
uPSPreProcessor in 'uPSPreProcessor.pas',
|
||||
uPSR_buttons in 'uPSR_buttons.pas',
|
||||
uPSR_classes in 'uPSR_classes.pas',
|
||||
uPSR_comobj in 'uPSR_comobj.pas',
|
||||
uPSR_controls in 'uPSR_controls.pas',
|
||||
uPSR_dateutils in 'uPSR_dateutils.pas',
|
||||
uPSR_DB in 'uPSR_DB.pas',
|
||||
uPSR_dll in 'uPSR_dll.pas',
|
||||
uPSR_extctrls in 'uPSR_extctrls.pas',
|
||||
uPSR_forms in 'uPSR_forms.pas',
|
||||
uPSR_graphics in 'uPSR_graphics.pas',
|
||||
uPSR_menus in 'uPSR_menus.pas',
|
||||
uPSR_std in 'uPSR_std.pas',
|
||||
uPSR_stdctrls in 'uPSR_stdctrls.pas',
|
||||
uPSRuntime in 'uPSRuntime.pas',
|
||||
uPSUtils in 'uPSUtils.pas',
|
||||
uPSC_buttons in 'uPSC_buttons.pas',
|
||||
uPSC_classes in 'uPSC_classes.pas',
|
||||
uPSC_comobj in 'uPSC_comobj.pas',
|
||||
uPSC_controls in 'uPSC_controls.pas',
|
||||
uPSC_dateutils in 'uPSC_dateutils.pas',
|
||||
uPSC_DB in 'uPSC_DB.pas',
|
||||
uPSC_dll in 'uPSC_dll.pas',
|
||||
PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
|
||||
|
||||
end.
|
||||
205
Pascal Script for Delphi/Source/PascalScript_Core_D16.dproj
Normal file
205
Pascal Script for Delphi/Source/PascalScript_Core_D16.dproj
Normal file
@@ -0,0 +1,205 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{EA463298-00FA-42B3-87EB-DD289B924EA0}</ProjectGuid>
|
||||
<MainSource>PascalScript_Core_D16.dpk</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<ProjectVersion>13.4</ProjectVersion>
|
||||
<FrameworkType>VCL</FrameworkType>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
<AppType>Package</AppType>
|
||||
<TargetedPlatforms>3</TargetedPlatforms>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
|
||||
<Base_Win64>true</Base_Win64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
|
||||
<Cfg_2_Win64>true</Cfg_2_Win64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_UsePackage>rtl;dbrtl;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<VerInfo_Build>673</VerInfo_Build>
|
||||
<VerInfo_Keys>CompanyName=RemObjects Software;FileDescription=;FileVersion=3.0.29.673;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=Pascal Script;ProductVersion=3.0.0.0;Comments=;CompileDate=Friday, March 21, 2008 1:24 PM</VerInfo_Keys>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<VerInfo_MajorVer>3</VerInfo_MajorVer>
|
||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;Winapi;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Release>29</VerInfo_Release>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<GenPackage>true</GenPackage>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
<DCC_Description>RemObjects Pascal Script - Core Package</DCC_Description>
|
||||
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
|
||||
<DCC_S>false</DCC_S>
|
||||
<GenDll>true</GenDll>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_K>false</DCC_K>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||
<DCC_BplOutput>..\Dcu\D16\win64</DCC_BplOutput>
|
||||
<DCC_UnitSearchPath>..\Dcu\D16\win64;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_DcpOutput>..\Dcu\D16\win64</DCC_DcpOutput>
|
||||
<DCC_DcuOutput>..\Dcu\D16\win64</DCC_DcuOutput>
|
||||
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
|
||||
<DCC_UsePackage>vcl;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_Namespace>System.Win;$(DCC_Namespace)</DCC_Namespace>
|
||||
<DCC_BplOutput>..\Dcu\D16\win32</DCC_BplOutput>
|
||||
<DCC_UnitSearchPath>..\Dcu\D16\win32;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_DcpOutput>..\Dcu\D16\win32</DCC_DcpOutput>
|
||||
<DCC_DcuOutput>..\Dcu\D16\win32</DCC_DcuOutput>
|
||||
<DCC_UsePackage>vcl;PascalScript_Core_D16;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DebugInformation>false</DCC_DebugInformation>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
|
||||
<DCC_RemoteDebug>true</DCC_RemoteDebug>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="rtl.dcp"/>
|
||||
<DCCReference Include="vcl.dcp"/>
|
||||
<DCCReference Include="dbrtl.dcp"/>
|
||||
<DCCReference Include="uPSC_extctrls.pas"/>
|
||||
<DCCReference Include="uPSC_forms.pas"/>
|
||||
<DCCReference Include="uPSC_graphics.pas"/>
|
||||
<DCCReference Include="uPSC_menus.pas"/>
|
||||
<DCCReference Include="uPSC_std.pas"/>
|
||||
<DCCReference Include="uPSC_stdctrls.pas"/>
|
||||
<DCCReference Include="uPSCompiler.pas"/>
|
||||
<DCCReference Include="uPSComponent.pas"/>
|
||||
<DCCReference Include="uPSComponent_COM.pas"/>
|
||||
<DCCReference Include="uPSComponent_Controls.pas"/>
|
||||
<DCCReference Include="uPSComponent_DB.pas"/>
|
||||
<DCCReference Include="uPSComponent_Default.pas"/>
|
||||
<DCCReference Include="uPSComponent_Forms.pas"/>
|
||||
<DCCReference Include="uPSComponent_StdCtrls.pas"/>
|
||||
<DCCReference Include="uPSDebugger.pas"/>
|
||||
<DCCReference Include="uPSDisassembly.pas"/>
|
||||
<DCCReference Include="uPSPreProcessor.pas"/>
|
||||
<DCCReference Include="uPSR_buttons.pas"/>
|
||||
<DCCReference Include="uPSR_classes.pas"/>
|
||||
<DCCReference Include="uPSR_comobj.pas"/>
|
||||
<DCCReference Include="uPSR_controls.pas"/>
|
||||
<DCCReference Include="uPSR_dateutils.pas"/>
|
||||
<DCCReference Include="uPSR_DB.pas"/>
|
||||
<DCCReference Include="uPSR_dll.pas"/>
|
||||
<DCCReference Include="uPSR_extctrls.pas"/>
|
||||
<DCCReference Include="uPSR_forms.pas"/>
|
||||
<DCCReference Include="uPSR_graphics.pas"/>
|
||||
<DCCReference Include="uPSR_menus.pas"/>
|
||||
<DCCReference Include="uPSR_std.pas"/>
|
||||
<DCCReference Include="uPSR_stdctrls.pas"/>
|
||||
<DCCReference Include="uPSRuntime.pas"/>
|
||||
<DCCReference Include="uPSUtils.pas"/>
|
||||
<DCCReference Include="uPSC_buttons.pas"/>
|
||||
<DCCReference Include="uPSC_classes.pas"/>
|
||||
<DCCReference Include="uPSC_comobj.pas"/>
|
||||
<DCCReference Include="uPSC_controls.pas"/>
|
||||
<DCCReference Include="uPSC_dateutils.pas"/>
|
||||
<DCCReference Include="uPSC_DB.pas"/>
|
||||
<DCCReference Include="uPSC_dll.pas"/>
|
||||
<DCCReference Include="PascalScript_Core_Reg.pas"/>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">PascalScript_Core_D16.dpk</Source>
|
||||
</Source>
|
||||
<Parameters/>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">29</VersionInfo>
|
||||
<VersionInfo Name="Build">673</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.29.673</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"/>
|
||||
<VersionInfoKeys Name="CompileDate">Friday, March 21, 2008 1:24 PM</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k160.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp160.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<Platforms>
|
||||
<Platform value="Win64">True</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
</Platforms>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
|
||||
</Project>
|
||||
79
Pascal Script for Delphi/Source/PascalScript_Core_D17.dpk
Normal file
79
Pascal Script for Delphi/Source/PascalScript_Core_D17.dpk
Normal file
@@ -0,0 +1,79 @@
|
||||
package PascalScript_Core_D17;
|
||||
|
||||
{$R *.res}
|
||||
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION OFF}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DEFINE DEBUG}
|
||||
{$ENDIF IMPLICITBUILDING}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
uPSC_extctrls in 'uPSC_extctrls.pas',
|
||||
uPSC_forms in 'uPSC_forms.pas',
|
||||
uPSC_graphics in 'uPSC_graphics.pas',
|
||||
uPSC_menus in 'uPSC_menus.pas',
|
||||
uPSC_std in 'uPSC_std.pas',
|
||||
uPSC_stdctrls in 'uPSC_stdctrls.pas',
|
||||
uPSCompiler in 'uPSCompiler.pas',
|
||||
uPSComponent in 'uPSComponent.pas',
|
||||
uPSComponent_COM in 'uPSComponent_COM.pas',
|
||||
uPSComponent_Controls in 'uPSComponent_Controls.pas',
|
||||
uPSComponent_DB in 'uPSComponent_DB.pas',
|
||||
uPSComponent_Default in 'uPSComponent_Default.pas',
|
||||
uPSComponent_Forms in 'uPSComponent_Forms.pas',
|
||||
uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
|
||||
uPSDebugger in 'uPSDebugger.pas',
|
||||
uPSDisassembly in 'uPSDisassembly.pas',
|
||||
uPSPreProcessor in 'uPSPreProcessor.pas',
|
||||
uPSR_buttons in 'uPSR_buttons.pas',
|
||||
uPSR_classes in 'uPSR_classes.pas',
|
||||
uPSR_comobj in 'uPSR_comobj.pas',
|
||||
uPSR_controls in 'uPSR_controls.pas',
|
||||
uPSR_dateutils in 'uPSR_dateutils.pas',
|
||||
uPSR_DB in 'uPSR_DB.pas',
|
||||
uPSR_dll in 'uPSR_dll.pas',
|
||||
uPSR_extctrls in 'uPSR_extctrls.pas',
|
||||
uPSR_forms in 'uPSR_forms.pas',
|
||||
uPSR_graphics in 'uPSR_graphics.pas',
|
||||
uPSR_menus in 'uPSR_menus.pas',
|
||||
uPSR_std in 'uPSR_std.pas',
|
||||
uPSR_stdctrls in 'uPSR_stdctrls.pas',
|
||||
uPSRuntime in 'uPSRuntime.pas',
|
||||
uPSUtils in 'uPSUtils.pas',
|
||||
uPSC_buttons in 'uPSC_buttons.pas',
|
||||
uPSC_classes in 'uPSC_classes.pas',
|
||||
uPSC_comobj in 'uPSC_comobj.pas',
|
||||
uPSC_controls in 'uPSC_controls.pas',
|
||||
uPSC_dateutils in 'uPSC_dateutils.pas',
|
||||
uPSC_DB in 'uPSC_DB.pas',
|
||||
uPSC_dll in 'uPSC_dll.pas',
|
||||
PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
|
||||
|
||||
end.
|
||||
205
Pascal Script for Delphi/Source/PascalScript_Core_D17.dproj
Normal file
205
Pascal Script for Delphi/Source/PascalScript_Core_D17.dproj
Normal file
@@ -0,0 +1,205 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{EA463298-00FA-42B3-87EB-DD289B924EA0}</ProjectGuid>
|
||||
<MainSource>PascalScript_Core_D17.dpk</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<ProjectVersion>14.2</ProjectVersion>
|
||||
<FrameworkType>VCL</FrameworkType>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
<AppType>Package</AppType>
|
||||
<TargetedPlatforms>3</TargetedPlatforms>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
|
||||
<Base_Win64>true</Base_Win64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
|
||||
<Cfg_2_Win64>true</Cfg_2_Win64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_UsePackage>rtl;dbrtl;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<VerInfo_Build>673</VerInfo_Build>
|
||||
<VerInfo_Keys>CompanyName=RemObjects Software;FileDescription=;FileVersion=3.0.29.673;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=Pascal Script;ProductVersion=3.0.0.0;Comments=;CompileDate=Friday, March 21, 2008 1:24 PM</VerInfo_Keys>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<VerInfo_MajorVer>3</VerInfo_MajorVer>
|
||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;Winapi;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Release>29</VerInfo_Release>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<GenPackage>true</GenPackage>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
<DCC_Description>RemObjects Pascal Script - Core Package</DCC_Description>
|
||||
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
|
||||
<DCC_S>false</DCC_S>
|
||||
<GenDll>true</GenDll>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_K>false</DCC_K>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||
<DCC_BplOutput>..\Dcu\D17\win64</DCC_BplOutput>
|
||||
<DCC_UnitSearchPath>..\Dcu\D17\win64;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_DcpOutput>..\Dcu\D17\win64</DCC_DcpOutput>
|
||||
<DCC_DcuOutput>..\Dcu\D17\win64</DCC_DcuOutput>
|
||||
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
|
||||
<DCC_UsePackage>vcl;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_Namespace>System.Win;$(DCC_Namespace)</DCC_Namespace>
|
||||
<DCC_BplOutput>..\Dcu\D17\win32</DCC_BplOutput>
|
||||
<DCC_UnitSearchPath>..\Dcu\D17\win32;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_DcpOutput>..\Dcu\D17\win32</DCC_DcpOutput>
|
||||
<DCC_DcuOutput>..\Dcu\D17\win32</DCC_DcuOutput>
|
||||
<DCC_UsePackage>vcl;PascalScript_Core_D17;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DebugInformation>false</DCC_DebugInformation>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
|
||||
<DCC_RemoteDebug>true</DCC_RemoteDebug>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="rtl.dcp"/>
|
||||
<DCCReference Include="vcl.dcp"/>
|
||||
<DCCReference Include="dbrtl.dcp"/>
|
||||
<DCCReference Include="uPSC_extctrls.pas"/>
|
||||
<DCCReference Include="uPSC_forms.pas"/>
|
||||
<DCCReference Include="uPSC_graphics.pas"/>
|
||||
<DCCReference Include="uPSC_menus.pas"/>
|
||||
<DCCReference Include="uPSC_std.pas"/>
|
||||
<DCCReference Include="uPSC_stdctrls.pas"/>
|
||||
<DCCReference Include="uPSCompiler.pas"/>
|
||||
<DCCReference Include="uPSComponent.pas"/>
|
||||
<DCCReference Include="uPSComponent_COM.pas"/>
|
||||
<DCCReference Include="uPSComponent_Controls.pas"/>
|
||||
<DCCReference Include="uPSComponent_DB.pas"/>
|
||||
<DCCReference Include="uPSComponent_Default.pas"/>
|
||||
<DCCReference Include="uPSComponent_Forms.pas"/>
|
||||
<DCCReference Include="uPSComponent_StdCtrls.pas"/>
|
||||
<DCCReference Include="uPSDebugger.pas"/>
|
||||
<DCCReference Include="uPSDisassembly.pas"/>
|
||||
<DCCReference Include="uPSPreProcessor.pas"/>
|
||||
<DCCReference Include="uPSR_buttons.pas"/>
|
||||
<DCCReference Include="uPSR_classes.pas"/>
|
||||
<DCCReference Include="uPSR_comobj.pas"/>
|
||||
<DCCReference Include="uPSR_controls.pas"/>
|
||||
<DCCReference Include="uPSR_dateutils.pas"/>
|
||||
<DCCReference Include="uPSR_DB.pas"/>
|
||||
<DCCReference Include="uPSR_dll.pas"/>
|
||||
<DCCReference Include="uPSR_extctrls.pas"/>
|
||||
<DCCReference Include="uPSR_forms.pas"/>
|
||||
<DCCReference Include="uPSR_graphics.pas"/>
|
||||
<DCCReference Include="uPSR_menus.pas"/>
|
||||
<DCCReference Include="uPSR_std.pas"/>
|
||||
<DCCReference Include="uPSR_stdctrls.pas"/>
|
||||
<DCCReference Include="uPSRuntime.pas"/>
|
||||
<DCCReference Include="uPSUtils.pas"/>
|
||||
<DCCReference Include="uPSC_buttons.pas"/>
|
||||
<DCCReference Include="uPSC_classes.pas"/>
|
||||
<DCCReference Include="uPSC_comobj.pas"/>
|
||||
<DCCReference Include="uPSC_controls.pas"/>
|
||||
<DCCReference Include="uPSC_dateutils.pas"/>
|
||||
<DCCReference Include="uPSC_DB.pas"/>
|
||||
<DCCReference Include="uPSC_dll.pas"/>
|
||||
<DCCReference Include="PascalScript_Core_Reg.pas"/>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">PascalScript_Core_D17.dpk</Source>
|
||||
</Source>
|
||||
<Parameters/>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">29</VersionInfo>
|
||||
<VersionInfo Name="Build">673</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.29.673</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"/>
|
||||
<VersionInfoKeys Name="CompileDate">Friday, March 21, 2008 1:24 PM</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k160.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp160.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<Platforms>
|
||||
<Platform value="Win64">True</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
</Platforms>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
|
||||
</Project>
|
||||
79
Pascal Script for Delphi/Source/PascalScript_Core_D18.dpk
Normal file
79
Pascal Script for Delphi/Source/PascalScript_Core_D18.dpk
Normal file
@@ -0,0 +1,79 @@
|
||||
package PascalScript_Core_D18;
|
||||
|
||||
{$R *.res}
|
||||
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION OFF}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DEFINE DEBUG}
|
||||
{$ENDIF IMPLICITBUILDING}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
uPSC_extctrls in 'uPSC_extctrls.pas',
|
||||
uPSC_forms in 'uPSC_forms.pas',
|
||||
uPSC_graphics in 'uPSC_graphics.pas',
|
||||
uPSC_menus in 'uPSC_menus.pas',
|
||||
uPSC_std in 'uPSC_std.pas',
|
||||
uPSC_stdctrls in 'uPSC_stdctrls.pas',
|
||||
uPSCompiler in 'uPSCompiler.pas',
|
||||
uPSComponent in 'uPSComponent.pas',
|
||||
uPSComponent_COM in 'uPSComponent_COM.pas',
|
||||
uPSComponent_Controls in 'uPSComponent_Controls.pas',
|
||||
uPSComponent_DB in 'uPSComponent_DB.pas',
|
||||
uPSComponent_Default in 'uPSComponent_Default.pas',
|
||||
uPSComponent_Forms in 'uPSComponent_Forms.pas',
|
||||
uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
|
||||
uPSDebugger in 'uPSDebugger.pas',
|
||||
uPSDisassembly in 'uPSDisassembly.pas',
|
||||
uPSPreProcessor in 'uPSPreProcessor.pas',
|
||||
uPSR_buttons in 'uPSR_buttons.pas',
|
||||
uPSR_classes in 'uPSR_classes.pas',
|
||||
uPSR_comobj in 'uPSR_comobj.pas',
|
||||
uPSR_controls in 'uPSR_controls.pas',
|
||||
uPSR_dateutils in 'uPSR_dateutils.pas',
|
||||
uPSR_DB in 'uPSR_DB.pas',
|
||||
uPSR_dll in 'uPSR_dll.pas',
|
||||
uPSR_extctrls in 'uPSR_extctrls.pas',
|
||||
uPSR_forms in 'uPSR_forms.pas',
|
||||
uPSR_graphics in 'uPSR_graphics.pas',
|
||||
uPSR_menus in 'uPSR_menus.pas',
|
||||
uPSR_std in 'uPSR_std.pas',
|
||||
uPSR_stdctrls in 'uPSR_stdctrls.pas',
|
||||
uPSRuntime in 'uPSRuntime.pas',
|
||||
uPSUtils in 'uPSUtils.pas',
|
||||
uPSC_buttons in 'uPSC_buttons.pas',
|
||||
uPSC_classes in 'uPSC_classes.pas',
|
||||
uPSC_comobj in 'uPSC_comobj.pas',
|
||||
uPSC_controls in 'uPSC_controls.pas',
|
||||
uPSC_dateutils in 'uPSC_dateutils.pas',
|
||||
uPSC_DB in 'uPSC_DB.pas',
|
||||
uPSC_dll in 'uPSC_dll.pas',
|
||||
PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
|
||||
|
||||
end.
|
||||
205
Pascal Script for Delphi/Source/PascalScript_Core_D18.dproj
Normal file
205
Pascal Script for Delphi/Source/PascalScript_Core_D18.dproj
Normal file
@@ -0,0 +1,205 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{EA463298-00FA-42B3-87EB-DD289B924EA0}</ProjectGuid>
|
||||
<MainSource>PascalScript_Core_D18.dpk</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<ProjectVersion>14.2</ProjectVersion>
|
||||
<FrameworkType>VCL</FrameworkType>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
<AppType>Package</AppType>
|
||||
<TargetedPlatforms>3</TargetedPlatforms>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
|
||||
<Base_Win64>true</Base_Win64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
|
||||
<Cfg_2_Win64>true</Cfg_2_Win64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_UsePackage>rtl;dbrtl;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<VerInfo_Build>673</VerInfo_Build>
|
||||
<VerInfo_Keys>CompanyName=RemObjects Software;FileDescription=;FileVersion=3.0.29.673;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=Pascal Script;ProductVersion=3.0.0.0;Comments=;CompileDate=Friday, March 21, 2008 1:24 PM</VerInfo_Keys>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<VerInfo_MajorVer>3</VerInfo_MajorVer>
|
||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;Winapi;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Release>29</VerInfo_Release>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<GenPackage>true</GenPackage>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
<DCC_Description>RemObjects Pascal Script - Core Package</DCC_Description>
|
||||
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
|
||||
<DCC_S>false</DCC_S>
|
||||
<GenDll>true</GenDll>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_K>false</DCC_K>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||
<DCC_BplOutput>..\Dcu\D18\win64</DCC_BplOutput>
|
||||
<DCC_UnitSearchPath>..\Dcu\D18\win64;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_DcpOutput>..\Dcu\D18\win64</DCC_DcpOutput>
|
||||
<DCC_DcuOutput>..\Dcu\D18\win64</DCC_DcuOutput>
|
||||
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
|
||||
<DCC_UsePackage>vcl;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_Namespace>System.Win;$(DCC_Namespace)</DCC_Namespace>
|
||||
<DCC_BplOutput>..\Dcu\D18\win32</DCC_BplOutput>
|
||||
<DCC_UnitSearchPath>..\Dcu\D18\win32;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_DcpOutput>..\Dcu\D18\win32</DCC_DcpOutput>
|
||||
<DCC_DcuOutput>..\Dcu\D18\win32</DCC_DcuOutput>
|
||||
<DCC_UsePackage>vcl;PascalScript_Core_D18;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DebugInformation>false</DCC_DebugInformation>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
|
||||
<DCC_RemoteDebug>true</DCC_RemoteDebug>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="rtl.dcp"/>
|
||||
<DCCReference Include="vcl.dcp"/>
|
||||
<DCCReference Include="dbrtl.dcp"/>
|
||||
<DCCReference Include="uPSC_extctrls.pas"/>
|
||||
<DCCReference Include="uPSC_forms.pas"/>
|
||||
<DCCReference Include="uPSC_graphics.pas"/>
|
||||
<DCCReference Include="uPSC_menus.pas"/>
|
||||
<DCCReference Include="uPSC_std.pas"/>
|
||||
<DCCReference Include="uPSC_stdctrls.pas"/>
|
||||
<DCCReference Include="uPSCompiler.pas"/>
|
||||
<DCCReference Include="uPSComponent.pas"/>
|
||||
<DCCReference Include="uPSComponent_COM.pas"/>
|
||||
<DCCReference Include="uPSComponent_Controls.pas"/>
|
||||
<DCCReference Include="uPSComponent_DB.pas"/>
|
||||
<DCCReference Include="uPSComponent_Default.pas"/>
|
||||
<DCCReference Include="uPSComponent_Forms.pas"/>
|
||||
<DCCReference Include="uPSComponent_StdCtrls.pas"/>
|
||||
<DCCReference Include="uPSDebugger.pas"/>
|
||||
<DCCReference Include="uPSDisassembly.pas"/>
|
||||
<DCCReference Include="uPSPreProcessor.pas"/>
|
||||
<DCCReference Include="uPSR_buttons.pas"/>
|
||||
<DCCReference Include="uPSR_classes.pas"/>
|
||||
<DCCReference Include="uPSR_comobj.pas"/>
|
||||
<DCCReference Include="uPSR_controls.pas"/>
|
||||
<DCCReference Include="uPSR_dateutils.pas"/>
|
||||
<DCCReference Include="uPSR_DB.pas"/>
|
||||
<DCCReference Include="uPSR_dll.pas"/>
|
||||
<DCCReference Include="uPSR_extctrls.pas"/>
|
||||
<DCCReference Include="uPSR_forms.pas"/>
|
||||
<DCCReference Include="uPSR_graphics.pas"/>
|
||||
<DCCReference Include="uPSR_menus.pas"/>
|
||||
<DCCReference Include="uPSR_std.pas"/>
|
||||
<DCCReference Include="uPSR_stdctrls.pas"/>
|
||||
<DCCReference Include="uPSRuntime.pas"/>
|
||||
<DCCReference Include="uPSUtils.pas"/>
|
||||
<DCCReference Include="uPSC_buttons.pas"/>
|
||||
<DCCReference Include="uPSC_classes.pas"/>
|
||||
<DCCReference Include="uPSC_comobj.pas"/>
|
||||
<DCCReference Include="uPSC_controls.pas"/>
|
||||
<DCCReference Include="uPSC_dateutils.pas"/>
|
||||
<DCCReference Include="uPSC_DB.pas"/>
|
||||
<DCCReference Include="uPSC_dll.pas"/>
|
||||
<DCCReference Include="PascalScript_Core_Reg.pas"/>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">PascalScript_Core_D18.dpk</Source>
|
||||
</Source>
|
||||
<Parameters/>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">29</VersionInfo>
|
||||
<VersionInfo Name="Build">673</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.29.673</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"/>
|
||||
<VersionInfoKeys Name="CompileDate">Friday, March 21, 2008 1:24 PM</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k160.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp160.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<Platforms>
|
||||
<Platform value="Win64">True</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
</Platforms>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
|
||||
</Project>
|
||||
79
Pascal Script for Delphi/Source/PascalScript_Core_D19.dpk
Normal file
79
Pascal Script for Delphi/Source/PascalScript_Core_D19.dpk
Normal file
@@ -0,0 +1,79 @@
|
||||
package PascalScript_Core_D19;
|
||||
|
||||
{$R *.res}
|
||||
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION OFF}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DEFINE DEBUG}
|
||||
{$ENDIF IMPLICITBUILDING}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
uPSC_extctrls in 'uPSC_extctrls.pas',
|
||||
uPSC_forms in 'uPSC_forms.pas',
|
||||
uPSC_graphics in 'uPSC_graphics.pas',
|
||||
uPSC_menus in 'uPSC_menus.pas',
|
||||
uPSC_std in 'uPSC_std.pas',
|
||||
uPSC_stdctrls in 'uPSC_stdctrls.pas',
|
||||
uPSCompiler in 'uPSCompiler.pas',
|
||||
uPSComponent in 'uPSComponent.pas',
|
||||
uPSComponent_COM in 'uPSComponent_COM.pas',
|
||||
uPSComponent_Controls in 'uPSComponent_Controls.pas',
|
||||
uPSComponent_DB in 'uPSComponent_DB.pas',
|
||||
uPSComponent_Default in 'uPSComponent_Default.pas',
|
||||
uPSComponent_Forms in 'uPSComponent_Forms.pas',
|
||||
uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
|
||||
uPSDebugger in 'uPSDebugger.pas',
|
||||
uPSDisassembly in 'uPSDisassembly.pas',
|
||||
uPSPreProcessor in 'uPSPreProcessor.pas',
|
||||
uPSR_buttons in 'uPSR_buttons.pas',
|
||||
uPSR_classes in 'uPSR_classes.pas',
|
||||
uPSR_comobj in 'uPSR_comobj.pas',
|
||||
uPSR_controls in 'uPSR_controls.pas',
|
||||
uPSR_dateutils in 'uPSR_dateutils.pas',
|
||||
uPSR_DB in 'uPSR_DB.pas',
|
||||
uPSR_dll in 'uPSR_dll.pas',
|
||||
uPSR_extctrls in 'uPSR_extctrls.pas',
|
||||
uPSR_forms in 'uPSR_forms.pas',
|
||||
uPSR_graphics in 'uPSR_graphics.pas',
|
||||
uPSR_menus in 'uPSR_menus.pas',
|
||||
uPSR_std in 'uPSR_std.pas',
|
||||
uPSR_stdctrls in 'uPSR_stdctrls.pas',
|
||||
uPSRuntime in 'uPSRuntime.pas',
|
||||
uPSUtils in 'uPSUtils.pas',
|
||||
uPSC_buttons in 'uPSC_buttons.pas',
|
||||
uPSC_classes in 'uPSC_classes.pas',
|
||||
uPSC_comobj in 'uPSC_comobj.pas',
|
||||
uPSC_controls in 'uPSC_controls.pas',
|
||||
uPSC_dateutils in 'uPSC_dateutils.pas',
|
||||
uPSC_DB in 'uPSC_DB.pas',
|
||||
uPSC_dll in 'uPSC_dll.pas',
|
||||
PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
|
||||
|
||||
end.
|
||||
205
Pascal Script for Delphi/Source/PascalScript_Core_D19.dproj
Normal file
205
Pascal Script for Delphi/Source/PascalScript_Core_D19.dproj
Normal file
@@ -0,0 +1,205 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{EA463298-00FA-42B3-87EB-DD289B924EA0}</ProjectGuid>
|
||||
<MainSource>PascalScript_Core_D19.dpk</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<ProjectVersion>14.2</ProjectVersion>
|
||||
<FrameworkType>VCL</FrameworkType>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
<AppType>Package</AppType>
|
||||
<TargetedPlatforms>3</TargetedPlatforms>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
|
||||
<Base_Win64>true</Base_Win64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
|
||||
<Cfg_2_Win64>true</Cfg_2_Win64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_UsePackage>rtl;dbrtl;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<VerInfo_Build>673</VerInfo_Build>
|
||||
<VerInfo_Keys>CompanyName=RemObjects Software;FileDescription=;FileVersion=3.0.29.673;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=Pascal Script;ProductVersion=3.0.0.0;Comments=;CompileDate=Friday, March 21, 2008 1:24 PM</VerInfo_Keys>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<VerInfo_MajorVer>3</VerInfo_MajorVer>
|
||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;Winapi;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Release>29</VerInfo_Release>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<GenPackage>true</GenPackage>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
<DCC_Description>RemObjects Pascal Script - Core Package</DCC_Description>
|
||||
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
|
||||
<DCC_S>false</DCC_S>
|
||||
<GenDll>true</GenDll>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_K>false</DCC_K>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||
<DCC_BplOutput>..\Dcu\D19\win64</DCC_BplOutput>
|
||||
<DCC_UnitSearchPath>..\Dcu\D19\win64;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_DcpOutput>..\Dcu\D19\win64</DCC_DcpOutput>
|
||||
<DCC_DcuOutput>..\Dcu\D19\win64</DCC_DcuOutput>
|
||||
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
|
||||
<DCC_UsePackage>vcl;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_Namespace>System.Win;$(DCC_Namespace)</DCC_Namespace>
|
||||
<DCC_BplOutput>..\Dcu\D19\win32</DCC_BplOutput>
|
||||
<DCC_UnitSearchPath>..\Dcu\D19\win32;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_DcpOutput>..\Dcu\D19\win32</DCC_DcpOutput>
|
||||
<DCC_DcuOutput>..\Dcu\D19\win32</DCC_DcuOutput>
|
||||
<DCC_UsePackage>vcl;PascalScript_Core_D19;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DebugInformation>false</DCC_DebugInformation>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
|
||||
<DCC_RemoteDebug>true</DCC_RemoteDebug>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="rtl.dcp"/>
|
||||
<DCCReference Include="vcl.dcp"/>
|
||||
<DCCReference Include="dbrtl.dcp"/>
|
||||
<DCCReference Include="uPSC_extctrls.pas"/>
|
||||
<DCCReference Include="uPSC_forms.pas"/>
|
||||
<DCCReference Include="uPSC_graphics.pas"/>
|
||||
<DCCReference Include="uPSC_menus.pas"/>
|
||||
<DCCReference Include="uPSC_std.pas"/>
|
||||
<DCCReference Include="uPSC_stdctrls.pas"/>
|
||||
<DCCReference Include="uPSCompiler.pas"/>
|
||||
<DCCReference Include="uPSComponent.pas"/>
|
||||
<DCCReference Include="uPSComponent_COM.pas"/>
|
||||
<DCCReference Include="uPSComponent_Controls.pas"/>
|
||||
<DCCReference Include="uPSComponent_DB.pas"/>
|
||||
<DCCReference Include="uPSComponent_Default.pas"/>
|
||||
<DCCReference Include="uPSComponent_Forms.pas"/>
|
||||
<DCCReference Include="uPSComponent_StdCtrls.pas"/>
|
||||
<DCCReference Include="uPSDebugger.pas"/>
|
||||
<DCCReference Include="uPSDisassembly.pas"/>
|
||||
<DCCReference Include="uPSPreProcessor.pas"/>
|
||||
<DCCReference Include="uPSR_buttons.pas"/>
|
||||
<DCCReference Include="uPSR_classes.pas"/>
|
||||
<DCCReference Include="uPSR_comobj.pas"/>
|
||||
<DCCReference Include="uPSR_controls.pas"/>
|
||||
<DCCReference Include="uPSR_dateutils.pas"/>
|
||||
<DCCReference Include="uPSR_DB.pas"/>
|
||||
<DCCReference Include="uPSR_dll.pas"/>
|
||||
<DCCReference Include="uPSR_extctrls.pas"/>
|
||||
<DCCReference Include="uPSR_forms.pas"/>
|
||||
<DCCReference Include="uPSR_graphics.pas"/>
|
||||
<DCCReference Include="uPSR_menus.pas"/>
|
||||
<DCCReference Include="uPSR_std.pas"/>
|
||||
<DCCReference Include="uPSR_stdctrls.pas"/>
|
||||
<DCCReference Include="uPSRuntime.pas"/>
|
||||
<DCCReference Include="uPSUtils.pas"/>
|
||||
<DCCReference Include="uPSC_buttons.pas"/>
|
||||
<DCCReference Include="uPSC_classes.pas"/>
|
||||
<DCCReference Include="uPSC_comobj.pas"/>
|
||||
<DCCReference Include="uPSC_controls.pas"/>
|
||||
<DCCReference Include="uPSC_dateutils.pas"/>
|
||||
<DCCReference Include="uPSC_DB.pas"/>
|
||||
<DCCReference Include="uPSC_dll.pas"/>
|
||||
<DCCReference Include="PascalScript_Core_Reg.pas"/>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">PascalScript_Core_D19.dpk</Source>
|
||||
</Source>
|
||||
<Parameters/>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">29</VersionInfo>
|
||||
<VersionInfo Name="Build">673</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.29.673</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"/>
|
||||
<VersionInfoKeys Name="CompileDate">Friday, March 21, 2008 1:24 PM</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k160.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp160.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<Platforms>
|
||||
<Platform value="Win64">True</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
</Platforms>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
|
||||
</Project>
|
||||
115
Pascal Script for Delphi/Source/PascalScript_Core_D3.dof
Normal file
115
Pascal Script for Delphi/Source/PascalScript_Core_D3.dof
Normal file
@@ -0,0 +1,115 @@
|
||||
[FileVersion]
|
||||
Version=3.0
|
||||
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=1
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=0
|
||||
SymbolLibrary=0
|
||||
SymbolPlatform=0
|
||||
UnitLibrary=0
|
||||
UnitPlatform=0
|
||||
UnitDeprecated=0
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=RemObjects Pascal Script - Core Package
|
||||
|
||||
[Directories]
|
||||
OutputDir=s:\exe
|
||||
UnitOutputDir=..\Dcu\D3
|
||||
PackageDLLOutputDir=..\Dcu\D3
|
||||
PackageDCPOutputDir=..\Dcu\D3
|
||||
SearchPath=
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
|
||||
[Version Info Keys]
|
||||
CompanyName=RemObjects Software
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
ProductName=Pascal Script
|
||||
ProductVersion=3.0.0.0
|
||||
FileDescription=
|
||||
FileVersion=3.0.2.34
|
||||
OriginalFilename=
|
||||
|
||||
76
Pascal Script for Delphi/Source/PascalScript_Core_D3.dpk
Normal file
76
Pascal Script for Delphi/Source/PascalScript_Core_D3.dpk
Normal file
@@ -0,0 +1,76 @@
|
||||
package PascalScript_Core_D3;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
uPSC_extctrls in 'uPSC_extctrls.pas',
|
||||
uPSC_forms in 'uPSC_forms.pas',
|
||||
uPSC_graphics in 'uPSC_graphics.pas',
|
||||
uPSC_menus in 'uPSC_menus.pas',
|
||||
uPSC_std in 'uPSC_std.pas',
|
||||
uPSC_stdctrls in 'uPSC_stdctrls.pas',
|
||||
uPSCompiler in 'uPSCompiler.pas',
|
||||
uPSComponent in 'uPSComponent.pas',
|
||||
uPSComponent_COM in 'uPSComponent_COM.pas',
|
||||
uPSComponent_Controls in 'uPSComponent_Controls.pas',
|
||||
uPSComponent_DB in 'uPSComponent_DB.pas',
|
||||
uPSComponent_Default in 'uPSComponent_Default.pas',
|
||||
uPSComponent_Forms in 'uPSComponent_Forms.pas',
|
||||
uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
|
||||
uPSDebugger in 'uPSDebugger.pas',
|
||||
uPSDisassembly in 'uPSDisassembly.pas',
|
||||
uPSPreProcessor in 'uPSPreProcessor.pas',
|
||||
uPSR_buttons in 'uPSR_buttons.pas',
|
||||
uPSR_classes in 'uPSR_classes.pas',
|
||||
uPSR_comobj in 'uPSR_comobj.pas',
|
||||
uPSR_controls in 'uPSR_controls.pas',
|
||||
uPSR_dateutils in 'uPSR_dateutils.pas',
|
||||
uPSR_DB in 'uPSR_DB.pas',
|
||||
uPSR_dll in 'uPSR_dll.pas',
|
||||
uPSR_extctrls in 'uPSR_extctrls.pas',
|
||||
uPSR_forms in 'uPSR_forms.pas',
|
||||
uPSR_graphics in 'uPSR_graphics.pas',
|
||||
uPSR_menus in 'uPSR_menus.pas',
|
||||
uPSR_std in 'uPSR_std.pas',
|
||||
uPSR_stdctrls in 'uPSR_stdctrls.pas',
|
||||
uPSRuntime in 'uPSRuntime.pas',
|
||||
uPSUtils in 'uPSUtils.pas',
|
||||
uPSC_buttons in 'uPSC_buttons.pas',
|
||||
uPSC_classes in 'uPSC_classes.pas',
|
||||
uPSC_comobj in 'uPSC_comobj.pas',
|
||||
uPSC_controls in 'uPSC_controls.pas',
|
||||
uPSC_dateutils in 'uPSC_dateutils.pas',
|
||||
uPSC_DB in 'uPSC_DB.pas',
|
||||
uPSC_dll in 'uPSC_dll.pas',
|
||||
PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
|
||||
|
||||
end.
|
||||
114
Pascal Script for Delphi/Source/PascalScript_Core_D4.dof
Normal file
114
Pascal Script for Delphi/Source/PascalScript_Core_D4.dof
Normal file
@@ -0,0 +1,114 @@
|
||||
[FileVersion]
|
||||
Version=4.0
|
||||
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=1
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=0
|
||||
SymbolLibrary=0
|
||||
SymbolPlatform=0
|
||||
UnitLibrary=0
|
||||
UnitPlatform=0
|
||||
UnitDeprecated=0
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=RemObjects Pascal Script - Core Package
|
||||
|
||||
[Directories]
|
||||
UnitOutputDir=..\Dcu\D4
|
||||
PackageDLLOutputDir=..\Dcu\D4
|
||||
PackageDCPOutputDir=..\Dcu\D4
|
||||
SearchPath=
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
|
||||
[Version Info Keys]
|
||||
CompanyName=RemObjects Software
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
ProductName=Pascal Script
|
||||
ProductVersion=3.0.0.0
|
||||
FileDescription=
|
||||
FileVersion=3.0.2.34
|
||||
OriginalFilename=
|
||||
|
||||
76
Pascal Script for Delphi/Source/PascalScript_Core_D4.dpk
Normal file
76
Pascal Script for Delphi/Source/PascalScript_Core_D4.dpk
Normal file
@@ -0,0 +1,76 @@
|
||||
package PascalScript_Core_D4
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
uPSC_extctrls in 'uPSC_extctrls.pas',
|
||||
uPSC_forms in 'uPSC_forms.pas',
|
||||
uPSC_graphics in 'uPSC_graphics.pas',
|
||||
uPSC_menus in 'uPSC_menus.pas',
|
||||
uPSC_std in 'uPSC_std.pas',
|
||||
uPSC_stdctrls in 'uPSC_stdctrls.pas',
|
||||
uPSCompiler in 'uPSCompiler.pas',
|
||||
uPSComponent in 'uPSComponent.pas',
|
||||
uPSComponent_COM in 'uPSComponent_COM.pas',
|
||||
uPSComponent_Controls in 'uPSComponent_Controls.pas',
|
||||
uPSComponent_DB in 'uPSComponent_DB.pas',
|
||||
uPSComponent_Default in 'uPSComponent_Default.pas',
|
||||
uPSComponent_Forms in 'uPSComponent_Forms.pas',
|
||||
uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
|
||||
uPSDebugger in 'uPSDebugger.pas',
|
||||
uPSDisassembly in 'uPSDisassembly.pas',
|
||||
uPSPreProcessor in 'uPSPreProcessor.pas',
|
||||
uPSR_buttons in 'uPSR_buttons.pas',
|
||||
uPSR_classes in 'uPSR_classes.pas',
|
||||
uPSR_comobj in 'uPSR_comobj.pas',
|
||||
uPSR_controls in 'uPSR_controls.pas',
|
||||
uPSR_dateutils in 'uPSR_dateutils.pas',
|
||||
uPSR_DB in 'uPSR_DB.pas',
|
||||
uPSR_dll in 'uPSR_dll.pas',
|
||||
uPSR_extctrls in 'uPSR_extctrls.pas',
|
||||
uPSR_forms in 'uPSR_forms.pas',
|
||||
uPSR_graphics in 'uPSR_graphics.pas',
|
||||
uPSR_menus in 'uPSR_menus.pas',
|
||||
uPSR_std in 'uPSR_std.pas',
|
||||
uPSR_stdctrls in 'uPSR_stdctrls.pas',
|
||||
uPSRuntime in 'uPSRuntime.pas',
|
||||
uPSUtils in 'uPSUtils.pas',
|
||||
uPSC_buttons in 'uPSC_buttons.pas',
|
||||
uPSC_classes in 'uPSC_classes.pas',
|
||||
uPSC_comobj in 'uPSC_comobj.pas',
|
||||
uPSC_controls in 'uPSC_controls.pas',
|
||||
uPSC_dateutils in 'uPSC_dateutils.pas',
|
||||
uPSC_DB in 'uPSC_DB.pas',
|
||||
uPSC_dll in 'uPSC_dll.pas',
|
||||
PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
|
||||
|
||||
end.
|
||||
114
Pascal Script for Delphi/Source/PascalScript_Core_D5.dof
Normal file
114
Pascal Script for Delphi/Source/PascalScript_Core_D5.dof
Normal file
@@ -0,0 +1,114 @@
|
||||
[FileVersion]
|
||||
Version=5.0
|
||||
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=1
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=0
|
||||
SymbolLibrary=0
|
||||
SymbolPlatform=0
|
||||
UnitLibrary=0
|
||||
UnitPlatform=0
|
||||
UnitDeprecated=0
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=RemObjects Pascal Script - Core Package
|
||||
|
||||
[Directories]
|
||||
UnitOutputDir=..\Dcu\D5
|
||||
PackageDLLOutputDir=..\Dcu\D5
|
||||
PackageDCPOutputDir=..\Dcu\D5
|
||||
SearchPath=
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
|
||||
[Version Info Keys]
|
||||
CompanyName=RemObjects Software
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
ProductName=Pascal Script
|
||||
ProductVersion=3.0.0.0
|
||||
FileDescription=
|
||||
FileVersion=3.0.2.34
|
||||
OriginalFilename=
|
||||
|
||||
75
Pascal Script for Delphi/Source/PascalScript_Core_D5.dpk
Normal file
75
Pascal Script for Delphi/Source/PascalScript_Core_D5.dpk
Normal file
@@ -0,0 +1,75 @@
|
||||
package PascalScript_Core_D5;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN ON}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
vcl50,
|
||||
vcldb50;
|
||||
|
||||
contains
|
||||
uPSC_extctrls in 'uPSC_extctrls.pas',
|
||||
uPSC_forms in 'uPSC_forms.pas',
|
||||
uPSC_graphics in 'uPSC_graphics.pas',
|
||||
uPSC_menus in 'uPSC_menus.pas',
|
||||
uPSC_std in 'uPSC_std.pas',
|
||||
uPSC_stdctrls in 'uPSC_stdctrls.pas',
|
||||
uPSCompiler in 'uPSCompiler.pas',
|
||||
uPSComponent in 'uPSComponent.pas',
|
||||
uPSComponent_COM in 'uPSComponent_COM.pas',
|
||||
uPSComponent_Controls in 'uPSComponent_Controls.pas',
|
||||
uPSComponent_DB in 'uPSComponent_DB.pas',
|
||||
uPSComponent_Default in 'uPSComponent_Default.pas',
|
||||
uPSComponent_Forms in 'uPSComponent_Forms.pas',
|
||||
uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
|
||||
uPSDebugger in 'uPSDebugger.pas',
|
||||
uPSDisassembly in 'uPSDisassembly.pas',
|
||||
uPSPreProcessor in 'uPSPreProcessor.pas',
|
||||
uPSR_buttons in 'uPSR_buttons.pas',
|
||||
uPSR_classes in 'uPSR_classes.pas',
|
||||
uPSR_comobj in 'uPSR_comobj.pas',
|
||||
uPSR_controls in 'uPSR_controls.pas',
|
||||
uPSR_dateutils in 'uPSR_dateutils.pas',
|
||||
uPSR_DB in 'uPSR_DB.pas',
|
||||
uPSR_dll in 'uPSR_dll.pas',
|
||||
uPSR_extctrls in 'uPSR_extctrls.pas',
|
||||
uPSR_forms in 'uPSR_forms.pas',
|
||||
uPSR_graphics in 'uPSR_graphics.pas',
|
||||
uPSR_menus in 'uPSR_menus.pas',
|
||||
uPSR_std in 'uPSR_std.pas',
|
||||
uPSR_stdctrls in 'uPSR_stdctrls.pas',
|
||||
uPSRuntime in 'uPSRuntime.pas',
|
||||
uPSUtils in 'uPSUtils.pas',
|
||||
uPSC_buttons in 'uPSC_buttons.pas',
|
||||
uPSC_classes in 'uPSC_classes.pas',
|
||||
uPSC_comobj in 'uPSC_comobj.pas',
|
||||
uPSC_controls in 'uPSC_controls.pas',
|
||||
uPSC_dateutils in 'uPSC_dateutils.pas',
|
||||
uPSC_DB in 'uPSC_DB.pas',
|
||||
uPSC_dll in 'uPSC_dll.pas',
|
||||
PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
|
||||
|
||||
end.
|
||||
114
Pascal Script for Delphi/Source/PascalScript_Core_D6.dof
Normal file
114
Pascal Script for Delphi/Source/PascalScript_Core_D6.dof
Normal file
@@ -0,0 +1,114 @@
|
||||
[FileVersion]
|
||||
Version=6.0
|
||||
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=1
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=0
|
||||
SymbolLibrary=0
|
||||
SymbolPlatform=0
|
||||
UnitLibrary=0
|
||||
UnitPlatform=0
|
||||
UnitDeprecated=0
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=RemObjects Pascal Script - Core Package
|
||||
|
||||
[Directories]
|
||||
UnitOutputDir=..\Dcu\D6
|
||||
PackageDLLOutputDir=..\Dcu\D6
|
||||
PackageDCPOutputDir=..\Dcu\D6
|
||||
SearchPath=
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
|
||||
[Version Info Keys]
|
||||
CompanyName=RemObjects Software
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
ProductName=Pascal Script
|
||||
ProductVersion=3.0.0.0
|
||||
FileDescription=
|
||||
FileVersion=3.0.2.36
|
||||
OriginalFilename=
|
||||
|
||||
76
Pascal Script for Delphi/Source/PascalScript_Core_D6.dpk
Normal file
76
Pascal Script for Delphi/Source/PascalScript_Core_D6.dpk
Normal file
@@ -0,0 +1,76 @@
|
||||
package PascalScript_Core_D6;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
uPSC_extctrls in 'uPSC_extctrls.pas',
|
||||
uPSC_forms in 'uPSC_forms.pas',
|
||||
uPSC_graphics in 'uPSC_graphics.pas',
|
||||
uPSC_menus in 'uPSC_menus.pas',
|
||||
uPSC_std in 'uPSC_std.pas',
|
||||
uPSC_stdctrls in 'uPSC_stdctrls.pas',
|
||||
uPSCompiler in 'uPSCompiler.pas',
|
||||
uPSComponent in 'uPSComponent.pas',
|
||||
uPSComponent_COM in 'uPSComponent_COM.pas',
|
||||
uPSComponent_Controls in 'uPSComponent_Controls.pas',
|
||||
uPSComponent_DB in 'uPSComponent_DB.pas',
|
||||
uPSComponent_Default in 'uPSComponent_Default.pas',
|
||||
uPSComponent_Forms in 'uPSComponent_Forms.pas',
|
||||
uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
|
||||
uPSDebugger in 'uPSDebugger.pas',
|
||||
uPSDisassembly in 'uPSDisassembly.pas',
|
||||
uPSPreProcessor in 'uPSPreProcessor.pas',
|
||||
uPSR_buttons in 'uPSR_buttons.pas',
|
||||
uPSR_classes in 'uPSR_classes.pas',
|
||||
uPSR_comobj in 'uPSR_comobj.pas',
|
||||
uPSR_controls in 'uPSR_controls.pas',
|
||||
uPSR_dateutils in 'uPSR_dateutils.pas',
|
||||
uPSR_DB in 'uPSR_DB.pas',
|
||||
uPSR_dll in 'uPSR_dll.pas',
|
||||
uPSR_extctrls in 'uPSR_extctrls.pas',
|
||||
uPSR_forms in 'uPSR_forms.pas',
|
||||
uPSR_graphics in 'uPSR_graphics.pas',
|
||||
uPSR_menus in 'uPSR_menus.pas',
|
||||
uPSR_std in 'uPSR_std.pas',
|
||||
uPSR_stdctrls in 'uPSR_stdctrls.pas',
|
||||
uPSRuntime in 'uPSRuntime.pas',
|
||||
uPSUtils in 'uPSUtils.pas',
|
||||
uPSC_buttons in 'uPSC_buttons.pas',
|
||||
uPSC_classes in 'uPSC_classes.pas',
|
||||
uPSC_comobj in 'uPSC_comobj.pas',
|
||||
uPSC_controls in 'uPSC_controls.pas',
|
||||
uPSC_dateutils in 'uPSC_dateutils.pas',
|
||||
uPSC_DB in 'uPSC_DB.pas',
|
||||
uPSC_dll in 'uPSC_dll.pas',
|
||||
PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
|
||||
|
||||
end.
|
||||
117
Pascal Script for Delphi/Source/PascalScript_Core_D7.dof
Normal file
117
Pascal Script for Delphi/Source/PascalScript_Core_D7.dof
Normal file
@@ -0,0 +1,117 @@
|
||||
[FileVersion]
|
||||
Version=7.0
|
||||
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=1
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=0
|
||||
SymbolLibrary=0
|
||||
SymbolPlatform=0
|
||||
UnitLibrary=0
|
||||
UnitPlatform=0
|
||||
UnitDeprecated=0
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=RemObjects Pascal Script - Core Package
|
||||
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=..\Dcu\D7
|
||||
PackageDLLOutputDir=..\Dcu\D7
|
||||
PackageDCPOutputDir=..\Dcu\D7
|
||||
SearchPath=
|
||||
Packages=
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
|
||||
[Version Info Keys]
|
||||
CompanyName=RemObjects Software
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
ProductName=Pascal Script
|
||||
ProductVersion=3.0.0.0
|
||||
FileDescription=
|
||||
FileVersion=3.0.6.442
|
||||
OriginalFilename=
|
||||
CompileDate=Tuesday, March 21, 2006 1:32 PM
|
||||
|
||||
76
Pascal Script for Delphi/Source/PascalScript_Core_D7.dpk
Normal file
76
Pascal Script for Delphi/Source/PascalScript_Core_D7.dpk
Normal file
@@ -0,0 +1,76 @@
|
||||
package PascalScript_Core_D7;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
uPSC_extctrls in 'uPSC_extctrls.pas',
|
||||
uPSC_forms in 'uPSC_forms.pas',
|
||||
uPSC_graphics in 'uPSC_graphics.pas',
|
||||
uPSC_menus in 'uPSC_menus.pas',
|
||||
uPSC_std in 'uPSC_std.pas',
|
||||
uPSC_stdctrls in 'uPSC_stdctrls.pas',
|
||||
uPSCompiler in 'uPSCompiler.pas',
|
||||
uPSComponent in 'uPSComponent.pas',
|
||||
uPSComponent_COM in 'uPSComponent_COM.pas',
|
||||
uPSComponent_Controls in 'uPSComponent_Controls.pas',
|
||||
uPSComponent_DB in 'uPSComponent_DB.pas',
|
||||
uPSComponent_Default in 'uPSComponent_Default.pas',
|
||||
uPSComponent_Forms in 'uPSComponent_Forms.pas',
|
||||
uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
|
||||
uPSDebugger in 'uPSDebugger.pas',
|
||||
uPSDisassembly in 'uPSDisassembly.pas',
|
||||
uPSPreProcessor in 'uPSPreProcessor.pas',
|
||||
uPSR_buttons in 'uPSR_buttons.pas',
|
||||
uPSR_classes in 'uPSR_classes.pas',
|
||||
uPSR_comobj in 'uPSR_comobj.pas',
|
||||
uPSR_controls in 'uPSR_controls.pas',
|
||||
uPSR_dateutils in 'uPSR_dateutils.pas',
|
||||
uPSR_DB in 'uPSR_DB.pas',
|
||||
uPSR_dll in 'uPSR_dll.pas',
|
||||
uPSR_extctrls in 'uPSR_extctrls.pas',
|
||||
uPSR_forms in 'uPSR_forms.pas',
|
||||
uPSR_graphics in 'uPSR_graphics.pas',
|
||||
uPSR_menus in 'uPSR_menus.pas',
|
||||
uPSR_std in 'uPSR_std.pas',
|
||||
uPSR_stdctrls in 'uPSR_stdctrls.pas',
|
||||
uPSRuntime in 'uPSRuntime.pas',
|
||||
uPSUtils in 'uPSUtils.pas',
|
||||
uPSC_buttons in 'uPSC_buttons.pas',
|
||||
uPSC_classes in 'uPSC_classes.pas',
|
||||
uPSC_comobj in 'uPSC_comobj.pas',
|
||||
uPSC_controls in 'uPSC_controls.pas',
|
||||
uPSC_dateutils in 'uPSC_dateutils.pas',
|
||||
uPSC_DB in 'uPSC_DB.pas',
|
||||
uPSC_dll in 'uPSC_dll.pas',
|
||||
PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
|
||||
|
||||
end.
|
||||
172
Pascal Script for Delphi/Source/PascalScript_Core_D9.bdsproj
Normal file
172
Pascal Script for Delphi/Source/PascalScript_Core_D9.bdsproj
Normal file
@@ -0,0 +1,172 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{7803B416-C1B3-4801-BCDB-CB1C64840119}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">PascalScript_Core_D9.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">0</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases"></Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">False</Compiler>
|
||||
<Compiler Name="SymbolLibrary">False</Compiler>
|
||||
<Compiler Name="SymbolPlatform">False</Compiler>
|
||||
<Compiler Name="SymbolExperimental">False</Compiler>
|
||||
<Compiler Name="UnitLibrary">False</Compiler>
|
||||
<Compiler Name="UnitPlatform">False</Compiler>
|
||||
<Compiler Name="UnitDeprecated">False</Compiler>
|
||||
<Compiler Name="UnitExperimental">False</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">RemObjects Pascal Script - Core Package</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir">..\Dcu\D9</Directories>
|
||||
<Directories Name="PackageDLLOutputDir">..\Dcu\D9</Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath">..\Dcu\D9;$(BDS)\lib\Indy9;..\..\RemObjects SDK for Dephi\Dcu\D9</Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="RemoteHost"></Parameters>
|
||||
<Parameters Name="RemotePath"></Parameters>
|
||||
<Parameters Name="RemoteLauncher"></Parameters>
|
||||
<Parameters Name="RemoteCWD"></Parameters>
|
||||
<Parameters Name="RemoteDebug">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName">RemObjects Pascal Script</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
76
Pascal Script for Delphi/Source/PascalScript_Core_D9.dpk
Normal file
76
Pascal Script for Delphi/Source/PascalScript_Core_D9.dpk
Normal file
@@ -0,0 +1,76 @@
|
||||
package PascalScript_Core_D9;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
uPSC_extctrls in 'uPSC_extctrls.pas',
|
||||
uPSC_forms in 'uPSC_forms.pas',
|
||||
uPSC_graphics in 'uPSC_graphics.pas',
|
||||
uPSC_menus in 'uPSC_menus.pas',
|
||||
uPSC_std in 'uPSC_std.pas',
|
||||
uPSC_stdctrls in 'uPSC_stdctrls.pas',
|
||||
uPSCompiler in 'uPSCompiler.pas',
|
||||
uPSComponent in 'uPSComponent.pas',
|
||||
uPSComponent_COM in 'uPSComponent_COM.pas',
|
||||
uPSComponent_Controls in 'uPSComponent_Controls.pas',
|
||||
uPSComponent_DB in 'uPSComponent_DB.pas',
|
||||
uPSComponent_Default in 'uPSComponent_Default.pas',
|
||||
uPSComponent_Forms in 'uPSComponent_Forms.pas',
|
||||
uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
|
||||
uPSDebugger in 'uPSDebugger.pas',
|
||||
uPSDisassembly in 'uPSDisassembly.pas',
|
||||
uPSPreProcessor in 'uPSPreProcessor.pas',
|
||||
uPSR_buttons in 'uPSR_buttons.pas',
|
||||
uPSR_classes in 'uPSR_classes.pas',
|
||||
uPSR_comobj in 'uPSR_comobj.pas',
|
||||
uPSR_controls in 'uPSR_controls.pas',
|
||||
uPSR_dateutils in 'uPSR_dateutils.pas',
|
||||
uPSR_DB in 'uPSR_DB.pas',
|
||||
uPSR_dll in 'uPSR_dll.pas',
|
||||
uPSR_extctrls in 'uPSR_extctrls.pas',
|
||||
uPSR_forms in 'uPSR_forms.pas',
|
||||
uPSR_graphics in 'uPSR_graphics.pas',
|
||||
uPSR_menus in 'uPSR_menus.pas',
|
||||
uPSR_std in 'uPSR_std.pas',
|
||||
uPSR_stdctrls in 'uPSR_stdctrls.pas',
|
||||
uPSRuntime in 'uPSRuntime.pas',
|
||||
uPSUtils in 'uPSUtils.pas',
|
||||
uPSC_buttons in 'uPSC_buttons.pas',
|
||||
uPSC_classes in 'uPSC_classes.pas',
|
||||
uPSC_comobj in 'uPSC_comobj.pas',
|
||||
uPSC_controls in 'uPSC_controls.pas',
|
||||
uPSC_dateutils in 'uPSC_dateutils.pas',
|
||||
uPSC_DB in 'uPSC_DB.pas',
|
||||
uPSC_dll in 'uPSC_dll.pas',
|
||||
PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
|
||||
|
||||
end.
|
||||
76
Pascal Script for Delphi/Source/PascalScript_Core_K3.dpk
Normal file
76
Pascal Script for Delphi/Source/PascalScript_Core_K3.dpk
Normal file
@@ -0,0 +1,76 @@
|
||||
package PascalScript_Core_K3;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
|
||||
{$DESIGNONLY}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
vcl,
|
||||
dbrtl;
|
||||
|
||||
contains
|
||||
uPSC_extctrls in 'uPSC_extctrls.pas',
|
||||
uPSC_forms in 'uPSC_forms.pas',
|
||||
uPSC_graphics in 'uPSC_graphics.pas',
|
||||
uPSC_menus in 'uPSC_menus.pas',
|
||||
uPSC_std in 'uPSC_std.pas',
|
||||
uPSC_stdctrls in 'uPSC_stdctrls.pas',
|
||||
uPSCompiler in 'uPSCompiler.pas',
|
||||
uPSComponent in 'uPSComponent.pas',
|
||||
uPSComponent_COM in 'uPSComponent_COM.pas',
|
||||
uPSComponent_Controls in 'uPSComponent_Controls.pas',
|
||||
uPSComponent_DB in 'uPSComponent_DB.pas',
|
||||
uPSComponent_Default in 'uPSComponent_Default.pas',
|
||||
uPSComponent_Forms in 'uPSComponent_Forms.pas',
|
||||
uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
|
||||
uPSDebugger in 'uPSDebugger.pas',
|
||||
uPSDisassembly in 'uPSDisassembly.pas',
|
||||
uPSPreProcessor in 'uPSPreProcessor.pas',
|
||||
uPSR_buttons in 'uPSR_buttons.pas',
|
||||
uPSR_classes in 'uPSR_classes.pas',
|
||||
uPSR_comobj in 'uPSR_comobj.pas',
|
||||
uPSR_controls in 'uPSR_controls.pas',
|
||||
uPSR_dateutils in 'uPSR_dateutils.pas',
|
||||
uPSR_DB in 'uPSR_DB.pas',
|
||||
uPSR_dll in 'uPSR_dll.pas',
|
||||
uPSR_extctrls in 'uPSR_extctrls.pas',
|
||||
UPSR_forms in 'uPSR_forms.pas',
|
||||
UPSR_graphics in 'uPSR_graphics.pas',
|
||||
uPSR_menus in 'uPSR_menus.pas',
|
||||
uPSR_std in 'uPSR_std.pas',
|
||||
uPSR_stdctrls in 'uPSR_stdctrls.pas',
|
||||
uPSRuntime in 'uPSRuntime.pas',
|
||||
uPSUtils in 'uPSUtils.pas',
|
||||
uPSC_buttons in 'uPSC_buttons.pas',
|
||||
uPSC_classes in 'uPSC_classes.pas',
|
||||
uPSC_comobj in 'uPSC_comobj.pas',
|
||||
uPSC_controls in 'uPSC_controls.pas',
|
||||
uPSC_dateutils in 'uPSC_dateutils.pas',
|
||||
uPSC_DB in 'uPSC_DB.pas',
|
||||
uPSC_dll in 'uPSC_dll.pas',
|
||||
PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';
|
||||
|
||||
end.
|
||||
114
Pascal Script for Delphi/Source/PascalScript_Core_K3.kof
Normal file
114
Pascal Script for Delphi/Source/PascalScript_Core_K3.kof
Normal file
@@ -0,0 +1,114 @@
|
||||
[FileVersion]
|
||||
Version=7.0
|
||||
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=1
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=0
|
||||
SymbolLibrary=0
|
||||
SymbolPlatform=0
|
||||
UnitLibrary=0
|
||||
UnitPlatform=0
|
||||
UnitDeprecated=0
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=RemObjects Pascal Script - Core Package
|
||||
|
||||
[Directories]
|
||||
UnitOutputDir=../Dcu/K3
|
||||
PackageDLLOutputDir=../Dcu/K3
|
||||
PackageDCPOutputDir=../Dcu/K3
|
||||
SearchPath=
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
|
||||
[Version Info Keys]
|
||||
CompanyName=RemObjects Software
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
ProductName=Pascal Script
|
||||
ProductVersion=3.0.0.0
|
||||
FileDescription=
|
||||
FileVersion=3.0.2.34
|
||||
OriginalFilename=
|
||||
|
||||
65
Pascal Script for Delphi/Source/PascalScript_Core_Reg.pas
Normal file
65
Pascal Script for Delphi/Source/PascalScript_Core_Reg.pas
Normal file
@@ -0,0 +1,65 @@
|
||||
unit PascalScript_Core_Reg;
|
||||
|
||||
{----------------------------------------------------------------------------
|
||||
/ RemObjects Pascal Script
|
||||
/
|
||||
/ compiler: Delphi 2 and up, Kylix 3 and up
|
||||
/ platform: Win32, Linux
|
||||
/
|
||||
/ (c)opyright RemObjects Software. all rights reserved.
|
||||
/
|
||||
----------------------------------------------------------------------------}
|
||||
|
||||
{$I PascalScript.inc}
|
||||
|
||||
interface
|
||||
|
||||
{$IFNDEF FPC}
|
||||
{$R PascalScript_Core_Glyphs.res}
|
||||
{$ENDIF}
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Classes,
|
||||
{$IFDEF FPC}
|
||||
LResources,
|
||||
{$ENDIF}
|
||||
uPSComponent,
|
||||
uPSDebugger,
|
||||
uPSComponent_Default,
|
||||
{$IFNDEF FPC}
|
||||
uPSComponent_COM,
|
||||
{$ENDIF}
|
||||
uPSComponent_DB,
|
||||
uPSComponent_Forms,
|
||||
uPSComponent_Controls,
|
||||
uPSComponent_StdCtrls;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('Pascal Script', [TPSScript,
|
||||
TPSScriptDebugger,
|
||||
TPSDllPlugin,
|
||||
TPSImport_Classes,
|
||||
TPSImport_DateUtils,
|
||||
{$IFNDEF FPC}
|
||||
TPSImport_ComObj,
|
||||
{$ENDIF}
|
||||
TPSImport_DB,
|
||||
TPSImport_Forms,
|
||||
TPSImport_Controls,
|
||||
TPSImport_StdCtrls,
|
||||
TPSCustomPlugin]);
|
||||
end;
|
||||
|
||||
|
||||
{$IFDEF FPC}
|
||||
initialization;
|
||||
{$i pascalscript.lrs}
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
end.
|
||||
179
Pascal Script for Delphi/Source/PascalScript_RO_D10.bdsproj
Normal file
179
Pascal Script for Delphi/Source/PascalScript_RO_D10.bdsproj
Normal file
@@ -0,0 +1,179 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{5B47E7C8-6AAF-4215-8EC3-60B739B2B5F3}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">PascalScript_RO_D10.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">1</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases"></Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">False</Compiler>
|
||||
<Compiler Name="SymbolLibrary">False</Compiler>
|
||||
<Compiler Name="SymbolPlatform">False</Compiler>
|
||||
<Compiler Name="SymbolExperimental">False</Compiler>
|
||||
<Compiler Name="UnitLibrary">False</Compiler>
|
||||
<Compiler Name="UnitPlatform">False</Compiler>
|
||||
<Compiler Name="UnitDeprecated">False</Compiler>
|
||||
<Compiler Name="UnitExperimental">False</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||
<Compiler Name="CodePage"></Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">RemObjects Pascal Script - RemObjects SDK 4.0 Integration</Linker>
|
||||
<Linker Name="GenerateHpps">False</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir">..\Dcu\D10</Directories>
|
||||
<Directories Name="PackageDLLOutputDir">..\Dcu\D10</Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath">..\Dcu\D10;$(BDS)\lib\Indy9;..\..\RemObjects SDK for Dephi\Dcu\D10</Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="RemoteHost"></Parameters>
|
||||
<Parameters Name="RemotePath"></Parameters>
|
||||
<Parameters Name="RemoteLauncher"></Parameters>
|
||||
<Parameters Name="RemoteCWD"></Parameters>
|
||||
<Parameters Name="RemoteDebug">False</Parameters>
|
||||
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">38</VersionInfo>
|
||||
<VersionInfo Name="Build">769</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.38.769</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompileDate">Friday, May 15, 2009 1:36 PM</VersionInfoKeys></VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
47
Pascal Script for Delphi/Source/PascalScript_RO_D10.dpk
Normal file
47
Pascal Script for Delphi/Source/PascalScript_RO_D10.dpk
Normal file
@@ -0,0 +1,47 @@
|
||||
package PascalScript_RO_D10;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - RemObjects SDK 4.0 Integration'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
{$IFDEF RemObjects_INDY9}
|
||||
Indy,
|
||||
{$ELSE}
|
||||
IndyCore, IndySystem, IndyProtocols,
|
||||
{$ENDIF}
|
||||
PascalScript_Core_D10,
|
||||
RemObjects_Core_D10,
|
||||
RemObjects_Indy_D10,
|
||||
dbrtl,
|
||||
vcl,
|
||||
vclx;
|
||||
|
||||
contains
|
||||
PascalScript_RO_Reg in 'PascalScript_RO_Reg.pas',
|
||||
uROPSServerLink in 'uROPSServerLink.pas',
|
||||
uROPSImports in 'uROPSImports.pas';
|
||||
|
||||
end.
|
||||
47
Pascal Script for Delphi/Source/PascalScript_RO_D11.dpk
Normal file
47
Pascal Script for Delphi/Source/PascalScript_RO_D11.dpk
Normal file
@@ -0,0 +1,47 @@
|
||||
package PascalScript_RO_D11;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - RemObjects SDK 5.0 Integration'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
{$IFDEF RemObjects_INDY9}
|
||||
Indy,
|
||||
{$ELSE}
|
||||
IndyCore, IndySystem, IndyProtocols,
|
||||
{$ENDIF}
|
||||
PascalScript_Core_D11,
|
||||
RemObjects_Core_D11,
|
||||
RemObjects_Indy_D11,
|
||||
dbrtl,
|
||||
vcl,
|
||||
vclx;
|
||||
|
||||
contains
|
||||
PascalScript_RO_Reg in 'PascalScript_RO_Reg.pas',
|
||||
uROPSServerLink in 'uROPSServerLink.pas',
|
||||
uROPSImports in 'uROPSImports.pas';
|
||||
|
||||
end.
|
||||
81
Pascal Script for Delphi/Source/PascalScript_RO_D11.dproj
Normal file
81
Pascal Script for Delphi/Source/PascalScript_RO_D11.dproj
Normal file
@@ -0,0 +1,81 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{0eefdf9b-7853-40e5-9b29-b631f51beeda}</ProjectGuid>
|
||||
<MainSource>PascalScript_RO_D11.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\Dcu\D11\PascalScript_RO_D11.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DcuOutput>..\Dcu\D9</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>..\Dcu\D9</DCC_ObjOutput>
|
||||
<DCC_HppOutput>..\Dcu\D9</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\Dcu\D9</DCC_BplOutput>
|
||||
<DCC_UnitSearchPath>..\Dcu\D9;$(BDS)\lib\Indy9;..\..\RemObjects SDK for Dephi\Dcu\D9</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\Dcu\D9;$(BDS)\lib\Indy9;..\..\RemObjects SDK for Dephi\Dcu\D9</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\Dcu\D9;$(BDS)\lib\Indy9;..\..\RemObjects SDK for Dephi\Dcu\D9</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\Dcu\D9;$(BDS)\lib\Indy9;..\..\RemObjects SDK for Dephi\Dcu\D9</DCC_IncludePath>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
<DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
|
||||
<DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
|
||||
<DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
|
||||
<DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
|
||||
<DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
|
||||
<DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
|
||||
<DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
|
||||
<DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_DcuOutput>..\Dcu\D11</DCC_DcuOutput>
|
||||
<DCC_ObjOutput>..\Dcu\D11</DCC_ObjOutput>
|
||||
<DCC_HppOutput>..\Dcu\D11</DCC_HppOutput>
|
||||
<DCC_BplOutput>..\Dcu\D11</DCC_BplOutput>
|
||||
<DCC_UnitSearchPath>..\Dcu\D11;..\..\RemObjects SDK for Dephi\Dcu\D11</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>..\Dcu\D11;..\..\RemObjects SDK for Dephi\Dcu\D11</DCC_ResourcePath>
|
||||
<DCC_ObjPath>..\Dcu\D11;..\..\RemObjects SDK for Dephi\Dcu\D11</DCC_ObjPath>
|
||||
<DCC_IncludePath>..\Dcu\D11;..\..\RemObjects SDK for Dephi\Dcu\D11</DCC_IncludePath>
|
||||
<DCC_SYMBOL_DEPRECATED>False</DCC_SYMBOL_DEPRECATED>
|
||||
<DCC_SYMBOL_LIBRARY>False</DCC_SYMBOL_LIBRARY>
|
||||
<DCC_SYMBOL_PLATFORM>False</DCC_SYMBOL_PLATFORM>
|
||||
<DCC_SYMBOL_EXPERIMENTAL>False</DCC_SYMBOL_EXPERIMENTAL>
|
||||
<DCC_UNIT_LIBRARY>False</DCC_UNIT_LIBRARY>
|
||||
<DCC_UNIT_PLATFORM>False</DCC_UNIT_PLATFORM>
|
||||
<DCC_UNIT_DEPRECATED>False</DCC_UNIT_DEPRECATED>
|
||||
<DCC_UNIT_EXPERIMENTAL>False</DCC_UNIT_EXPERIMENTAL>
|
||||
<DCC_DcpOutput>..\Dcu\D11</DCC_DcpOutput>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">RemObjects Pascal Script - RemObjects SDK 5.0 Integration</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">442</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.6.442</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="CompileDate">Tuesday, March 21, 2006 1:32 PM</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">PascalScript_RO_D11.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="PascalScript_RO_D11.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\dbrtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\IndyCore.dcp" />
|
||||
<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\IndySystem.dcp" />
|
||||
<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\PascalScript_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\rtl.dcp" />
|
||||
<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\vcl.dcp" />
|
||||
<DCCReference Include="..\..\..\Stardock\Object Desktop\DeskScapes\vclx.dcp" />
|
||||
<DCCReference Include="PascalScript_RO_Reg.pas" />
|
||||
<DCCReference Include="uROPSImports.pas" />
|
||||
<DCCReference Include="uROPSServerLink.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
47
Pascal Script for Delphi/Source/PascalScript_RO_D12.dpk
Normal file
47
Pascal Script for Delphi/Source/PascalScript_RO_D12.dpk
Normal file
@@ -0,0 +1,47 @@
|
||||
package PascalScript_RO_D12;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - RemObjects SDK 5.0 Integration'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
{$IFDEF RemObjects_INDY9}
|
||||
Indy,
|
||||
{$ELSE}
|
||||
IndyCore, IndySystem, IndyProtocols,
|
||||
{$ENDIF}
|
||||
PascalScript_Core_D12,
|
||||
RemObjects_Core_D12,
|
||||
RemObjects_Indy_D12,
|
||||
dbrtl,
|
||||
vcl,
|
||||
vclx;
|
||||
|
||||
contains
|
||||
PascalScript_RO_Reg in 'PascalScript_RO_Reg.pas',
|
||||
uROPSServerLink in 'uROPSServerLink.pas',
|
||||
uROPSImports in 'uROPSImports.pas';
|
||||
|
||||
end.
|
||||
96
Pascal Script for Delphi/Source/PascalScript_RO_D12.dproj
Normal file
96
Pascal Script for Delphi/Source/PascalScript_RO_D12.dproj
Normal file
@@ -0,0 +1,96 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{0eefdf9b-7853-40e5-9b29-b631f51beeda}</ProjectGuid>
|
||||
<MainSource>PascalScript_RO_D12.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\Dcu\D12\PascalScript_RO_D12.bpl</DCC_DependencyCheckOutputName>
|
||||
<ProjectVersion>11.1</ProjectVersion>
|
||||
<Config Condition="'$(Config)'==''">Base</Config>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Description>RemObjects Pascal Script - RemObjects SDK 5.0 Integration</DCC_Description>
|
||||
<DCC_DependencyCheckOutputName>..\Dcu\D12\PascalScript_RO_D12.bpl</DCC_DependencyCheckOutputName>
|
||||
<DCC_UnitSearchPath>..\Dcu\D12;..\..\RemObjects SDK for Dephi\Dcu\D12;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_BplOutput>..\Dcu\D12</DCC_BplOutput>
|
||||
<DCC_DcuOutput>..\Dcu\D12</DCC_DcuOutput>
|
||||
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
|
||||
<GenDll>true</GenDll>
|
||||
<DCC_DcpOutput>..\Dcu\D12</DCC_DcpOutput>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<DesignOnlyPackage>false</DesignOnlyPackage>
|
||||
<GenPackage>true</GenPackage>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="PascalScript_RO_D12.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="rtl.dcp"/>
|
||||
<DCCReference Include="IndyCore.dcp"/>
|
||||
<DCCReference Include="IndySystem.dcp"/>
|
||||
<DCCReference Include="IndyProtocols.dcp"/>
|
||||
<DCCReference Include="PascalScript_Core_D12.dcp"/>
|
||||
<DCCReference Include="RemObjects_Core_D12.dcp"/>
|
||||
<DCCReference Include="RemObjects_Indy_D12.dcp"/>
|
||||
<DCCReference Include="dbrtl.dcp"/>
|
||||
<DCCReference Include="vcl.dcp"/>
|
||||
<DCCReference Include="vclx.dcp"/>
|
||||
<DCCReference Include="PascalScript_RO_Reg.pas"/>
|
||||
<DCCReference Include="uROPSServerLink.pas"/>
|
||||
<DCCReference Include="uROPSImports.pas"/>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">6</VersionInfo>
|
||||
<VersionInfo Name="Build">442</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.6.442</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompileDate">Tuesday, March 21, 2006 1:32 PM</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Source>
|
||||
<Source Name="MainSource">PascalScript_RO_D12.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
</Project>
|
||||
45
Pascal Script for Delphi/Source/PascalScript_RO_D14.dpk
Normal file
45
Pascal Script for Delphi/Source/PascalScript_RO_D14.dpk
Normal file
@@ -0,0 +1,45 @@
|
||||
package PascalScript_RO_D14;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - RemObjects SDK 5.0 Integration'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
IndyCore,
|
||||
IndySystem,
|
||||
IndyProtocols,
|
||||
PascalScript_Core_D14,
|
||||
RemObjects_Core_D14,
|
||||
RemObjects_Indy_D14,
|
||||
dbrtl,
|
||||
vcl,
|
||||
vclx;
|
||||
|
||||
contains
|
||||
PascalScript_RO_Reg in 'PascalScript_RO_Reg.pas',
|
||||
uROPSServerLink in 'uROPSServerLink.pas',
|
||||
uROPSImports in 'uROPSImports.pas';
|
||||
|
||||
end.
|
||||
101
Pascal Script for Delphi/Source/PascalScript_RO_D14.dproj
Normal file
101
Pascal Script for Delphi/Source/PascalScript_RO_D14.dproj
Normal file
@@ -0,0 +1,101 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{0eefdf9b-7853-40e5-9b29-b631f51beeda}</ProjectGuid>
|
||||
<MainSource>PascalScript_RO_D14.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\Dcu\D12\PascalScript_RO_D12.bpl</DCC_DependencyCheckOutputName>
|
||||
<ProjectVersion>11.1</ProjectVersion>
|
||||
<Config Condition="'$(Config)'==''">Base</Config>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
|
||||
<DCC_Description>RemObjects Pascal Script - RemObjects SDK 5.0 Integration</DCC_Description>
|
||||
<DCC_DependencyCheckOutputName>..\Dcu\D14\PascalScript_RO_D14.bpl</DCC_DependencyCheckOutputName>
|
||||
<DCC_UnitSearchPath>..\Dcu\D14;..\..\RemObjects SDK for Dephi\Dcu\D14;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_BplOutput>..\Dcu\D14</DCC_BplOutput>
|
||||
<DCC_DcuOutput>..\Dcu\D14</DCC_DcuOutput>
|
||||
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
|
||||
<GenDll>true</GenDll>
|
||||
<DCC_DcpOutput>..\Dcu\D14</DCC_DcpOutput>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<DesignOnlyPackage>false</DesignOnlyPackage>
|
||||
<GenPackage>true</GenPackage>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="PascalScript_RO_D14.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="rtl.dcp"/>
|
||||
<DCCReference Include="IndyCore.dcp"/>
|
||||
<DCCReference Include="IndySystem.dcp"/>
|
||||
<DCCReference Include="IndyProtocols.dcp"/>
|
||||
<DCCReference Include="PascalScript_Core_D14.dcp"/>
|
||||
<DCCReference Include="RemObjects_Core_D14.dcp"/>
|
||||
<DCCReference Include="RemObjects_Indy_D1.dcp"/>
|
||||
<DCCReference Include="dbrtl.dcp"/>
|
||||
<DCCReference Include="vcl.dcp"/>
|
||||
<DCCReference Include="vclx.dcp"/>
|
||||
<DCCReference Include="PascalScript_RO_Reg.pas"/>
|
||||
<DCCReference Include="uROPSServerLink.pas"/>
|
||||
<DCCReference Include="uROPSImports.pas"/>
|
||||
<DCCReference Include="RemObjects_Indy_D12.dcp"/>
|
||||
<DCCReference Include="RemObjects_Core_D1.dcp"/>
|
||||
<DCCReference Include="RemObjects_Core_D12.dcp"/>
|
||||
<DCCReference Include="PascalScript_Core_D1.dcp"/>
|
||||
<DCCReference Include="PascalScript_Core_D12.dcp"/>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">6</VersionInfo>
|
||||
<VersionInfo Name="Build">442</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.6.442</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompileDate">Tuesday, March 21, 2006 1:32 PM</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Source>
|
||||
<Source Name="MainSource">PascalScript_RO_D14.dpk</Source>
|
||||
</Source>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
</Project>
|
||||
45
Pascal Script for Delphi/Source/PascalScript_RO_D15.dpk
Normal file
45
Pascal Script for Delphi/Source/PascalScript_RO_D15.dpk
Normal file
@@ -0,0 +1,45 @@
|
||||
package PascalScript_RO_D15;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - RemObjects SDK 5.0 Integration'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
IndyCore,
|
||||
IndySystem,
|
||||
IndyProtocols,
|
||||
PascalScript_Core_D15,
|
||||
RemObjects_Core_D15,
|
||||
RemObjects_Indy_D15,
|
||||
dbrtl,
|
||||
vcl,
|
||||
vclx;
|
||||
|
||||
contains
|
||||
PascalScript_RO_Reg in 'PascalScript_RO_Reg.pas',
|
||||
uROPSServerLink in 'uROPSServerLink.pas',
|
||||
uROPSImports in 'uROPSImports.pas';
|
||||
|
||||
end.
|
||||
131
Pascal Script for Delphi/Source/PascalScript_RO_D15.dproj
Normal file
131
Pascal Script for Delphi/Source/PascalScript_RO_D15.dproj
Normal file
@@ -0,0 +1,131 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{5DF52809-FD88-4459-9EE6-7D9C833B66C6}</ProjectGuid>
|
||||
<MainSource>PascalScript_RO_D15.dpk</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<ProjectVersion>12.1</ProjectVersion>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<DCC_DcuOutput>..\Dcu\D15</DCC_DcuOutput>
|
||||
<GenPackage>true</GenPackage>
|
||||
<DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias>
|
||||
<DCC_BplOutput>..\Dcu\D15</DCC_BplOutput>
|
||||
<DCC_UnitSearchPath>..\Dcu\D15;..\..\RemObjects SDK for Delphi\Dcu\D15;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_Description>RemObjects Pascal Script - RemObjects SDK 5.0 Integration</DCC_Description>
|
||||
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
|
||||
<DCC_S>false</DCC_S>
|
||||
<GenDll>true</GenDll>
|
||||
<DCC_DcpOutput>..\Dcu\D15</DCC_DcpOutput>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_K>false</DCC_K>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DebugInformation>false</DCC_DebugInformation>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="PascalScript_RO_D15.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="rtl.dcp"/>
|
||||
<DCCReference Include="IndyCore.dcp"/>
|
||||
<DCCReference Include="IndySystem.dcp"/>
|
||||
<DCCReference Include="IndyProtocols.dcp"/>
|
||||
<DCCReference Include="PascalScript_Core_D15.dcp"/>
|
||||
<DCCReference Include="RemObjects_Core_D15.dcp"/>
|
||||
<DCCReference Include="RemObjects_Indy_D15.dcp"/>
|
||||
<DCCReference Include="dbrtl.dcp"/>
|
||||
<DCCReference Include="vcl.dcp"/>
|
||||
<DCCReference Include="vclx.dcp"/>
|
||||
<DCCReference Include="PascalScript_RO_Reg.pas"/>
|
||||
<DCCReference Include="uROPSServerLink.pas"/>
|
||||
<DCCReference Include="uROPSImports.pas"/>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">PascalScript_RO_D15.dpk</Source>
|
||||
</Source>
|
||||
<Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">6</VersionInfo>
|
||||
<VersionInfo Name="Build">442</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.6.442</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"/>
|
||||
<VersionInfoKeys Name="CompileDate">Tuesday, March 21, 2006 1:32 PM</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
<Platforms>
|
||||
<Platform value="Win32">True</Platform>
|
||||
</Platforms>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
</Project>
|
||||
48
Pascal Script for Delphi/Source/PascalScript_RO_D16.dpk
Normal file
48
Pascal Script for Delphi/Source/PascalScript_RO_D16.dpk
Normal file
@@ -0,0 +1,48 @@
|
||||
package PascalScript_RO_D16;
|
||||
|
||||
{$R *.res}
|
||||
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION OFF}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DEFINE DEBUG}
|
||||
{$ENDIF IMPLICITBUILDING}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - RemObjects SDK Integration'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
IndyCore,
|
||||
IndySystem,
|
||||
IndyProtocols,
|
||||
PascalScript_Core_D16,
|
||||
RemObjects_Core_D16,
|
||||
RemObjects_Indy_D16,
|
||||
dbrtl,
|
||||
vcl,
|
||||
vclx;
|
||||
|
||||
contains
|
||||
PascalScript_RO_Reg in 'PascalScript_RO_Reg.pas',
|
||||
uROPSServerLink in 'uROPSServerLink.pas',
|
||||
uROPSImports in 'uROPSImports.pas';
|
||||
|
||||
end.
|
||||
176
Pascal Script for Delphi/Source/PascalScript_RO_D16.dproj
Normal file
176
Pascal Script for Delphi/Source/PascalScript_RO_D16.dproj
Normal file
@@ -0,0 +1,176 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{5DF52809-FD88-4459-9EE6-7D9C833B66C6}</ProjectGuid>
|
||||
<MainSource>PascalScript_RO_D16.dpk</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<ProjectVersion>13.4</ProjectVersion>
|
||||
<FrameworkType>none</FrameworkType>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
<AppType>Package</AppType>
|
||||
<TargetedPlatforms>3</TargetedPlatforms>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
|
||||
<Base_Win64>true</Base_Win64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
|
||||
<Cfg_2_Win64>true</Cfg_2_Win64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
|
||||
<Cfg_2_Win32>true</Cfg_2_Win32>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<VerInfo_Keys>CompanyName=RemObjects Software;FileDescription=;FileVersion=3.0.6.442;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=Pascal Script;ProductVersion=3.0.0.0;Comments=;CompileDate=Tuesday, March 21, 2006 1:32 PM</VerInfo_Keys>
|
||||
<VerInfo_MajorVer>3</VerInfo_MajorVer>
|
||||
<VerInfo_Release>6</VerInfo_Release>
|
||||
<VerInfo_Build>442</VerInfo_Build>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<GenPackage>true</GenPackage>
|
||||
<DCC_Description>RemObjects Pascal Script - RemObjects SDK 5.0 Integration</DCC_Description>
|
||||
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
|
||||
<DCC_S>false</DCC_S>
|
||||
<GenDll>true</GenDll>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_K>false</DCC_K>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_UnitSearchPath>..\Dcu\D16\win32;..\..\RemObjects SDK for Delphi\Dcu\D16\win32;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_BplOutput>..\Dcu\D16\win32</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\Dcu\D16\win32</DCC_DcpOutput>
|
||||
<DCC_DcuOutput>..\Dcu\D16\win32</DCC_DcuOutput>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DebugInformation>false</DCC_DebugInformation>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
|
||||
<DCC_RemoteDebug>true</DCC_RemoteDebug>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||
<DCC_Description>RemObjects Pascal Script - RemObjects SDK Integration</DCC_Description>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="rtl.dcp"/>
|
||||
<DCCReference Include="IndyCore.dcp"/>
|
||||
<DCCReference Include="IndySystem.dcp"/>
|
||||
<DCCReference Include="IndyProtocols.dcp"/>
|
||||
<DCCReference Include="PascalScript_Core_D16.dcp"/>
|
||||
<DCCReference Include="RemObjects_Core_D16.dcp"/>
|
||||
<DCCReference Include="RemObjects_Indy_D16.dcp"/>
|
||||
<DCCReference Include="dbrtl.dcp"/>
|
||||
<DCCReference Include="vcl.dcp"/>
|
||||
<DCCReference Include="vclx.dcp"/>
|
||||
<DCCReference Include="PascalScript_RO_Reg.pas"/>
|
||||
<DCCReference Include="uROPSServerLink.pas"/>
|
||||
<DCCReference Include="uROPSImports.pas"/>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">PascalScript_RO_D16.dpk</Source>
|
||||
</Source>
|
||||
<Parameters/>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">6</VersionInfo>
|
||||
<VersionInfo Name="Build">442</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.6.442</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"/>
|
||||
<VersionInfoKeys Name="CompileDate">Tuesday, March 21, 2006 1:32 PM</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k160.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp160.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<Platforms>
|
||||
<Platform value="Win64">True</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
</Platforms>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
|
||||
</Project>
|
||||
48
Pascal Script for Delphi/Source/PascalScript_RO_D17.dpk
Normal file
48
Pascal Script for Delphi/Source/PascalScript_RO_D17.dpk
Normal file
@@ -0,0 +1,48 @@
|
||||
package PascalScript_RO_D17;
|
||||
|
||||
{$R *.res}
|
||||
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION OFF}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DEFINE DEBUG}
|
||||
{$ENDIF IMPLICITBUILDING}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - RemObjects SDK Integration'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
IndyCore,
|
||||
IndySystem,
|
||||
IndyProtocols,
|
||||
PascalScript_Core_D17,
|
||||
RemObjects_Core_D17,
|
||||
RemObjects_Indy_D17,
|
||||
dbrtl,
|
||||
vcl,
|
||||
vclx;
|
||||
|
||||
contains
|
||||
PascalScript_RO_Reg in 'PascalScript_RO_Reg.pas',
|
||||
uROPSServerLink in 'uROPSServerLink.pas',
|
||||
uROPSImports in 'uROPSImports.pas';
|
||||
|
||||
end.
|
||||
172
Pascal Script for Delphi/Source/PascalScript_RO_D17.dproj
Normal file
172
Pascal Script for Delphi/Source/PascalScript_RO_D17.dproj
Normal file
@@ -0,0 +1,172 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{5DF52809-FD88-4459-9EE6-7D9C833B66C6}</ProjectGuid>
|
||||
<MainSource>PascalScript_RO_D17.dpk</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<ProjectVersion>13.4</ProjectVersion>
|
||||
<FrameworkType>none</FrameworkType>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
<AppType>Package</AppType>
|
||||
<TargetedPlatforms>3</TargetedPlatforms>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
|
||||
<Base_Win64>true</Base_Win64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
|
||||
<Cfg_2_Win64>true</Cfg_2_Win64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
|
||||
<Cfg_2_Win32>true</Cfg_2_Win32>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<VerInfo_Keys>CompanyName=RemObjects Software;FileDescription=;FileVersion=3.0.6.442;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=Pascal Script;ProductVersion=3.0.0.0;Comments=;CompileDate=Tuesday, March 21, 2006 1:32 PM</VerInfo_Keys>
|
||||
<VerInfo_MajorVer>3</VerInfo_MajorVer>
|
||||
<VerInfo_Release>6</VerInfo_Release>
|
||||
<VerInfo_Build>442</VerInfo_Build>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<GenPackage>true</GenPackage>
|
||||
<DCC_Description>RemObjects Pascal Script - RemObjects SDK 5.0 Integration</DCC_Description>
|
||||
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
|
||||
<DCC_S>false</DCC_S>
|
||||
<GenDll>true</GenDll>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_K>false</DCC_K>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_UnitSearchPath>..\Dcu\D17\win32;..\..\RemObjects SDK for Delphi\Dcu\D17\win32;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_BplOutput>..\Dcu\D17\win32</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\Dcu\D17\win32</DCC_DcpOutput>
|
||||
<DCC_DcuOutput>..\Dcu\D17\win32</DCC_DcuOutput>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DebugInformation>false</DCC_DebugInformation>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
|
||||
<DCC_RemoteDebug>true</DCC_RemoteDebug>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||
<DCC_Description>RemObjects Pascal Script - RemObjects SDK Integration</DCC_Description>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="rtl.dcp"/>
|
||||
<DCCReference Include="IndyCore.dcp"/>
|
||||
<DCCReference Include="IndySystem.dcp"/>
|
||||
<DCCReference Include="IndyProtocols.dcp"/>
|
||||
<DCCReference Include="PascalScript_Core_D17.dcp"/>
|
||||
<DCCReference Include="RemObjects_Core_D17.dcp"/>
|
||||
<DCCReference Include="RemObjects_Indy_D17.dcp"/>
|
||||
<DCCReference Include="dbrtl.dcp"/>
|
||||
<DCCReference Include="vcl.dcp"/>
|
||||
<DCCReference Include="vclx.dcp"/>
|
||||
<DCCReference Include="PascalScript_RO_Reg.pas"/>
|
||||
<DCCReference Include="uROPSServerLink.pas"/>
|
||||
<DCCReference Include="uROPSImports.pas"/>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">PascalScript_RO_D17.dpk</Source>
|
||||
</Source>
|
||||
<Parameters/>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">6</VersionInfo>
|
||||
<VersionInfo Name="Build">442</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.6.442</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"/>
|
||||
<VersionInfoKeys Name="CompileDate">Tuesday, March 21, 2006 1:32 PM</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
<Platforms>
|
||||
<Platform value="Win64">True</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
</Platforms>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
|
||||
</Project>
|
||||
48
Pascal Script for Delphi/Source/PascalScript_RO_D18.dpk
Normal file
48
Pascal Script for Delphi/Source/PascalScript_RO_D18.dpk
Normal file
@@ -0,0 +1,48 @@
|
||||
package PascalScript_RO_D18;
|
||||
|
||||
{$R *.res}
|
||||
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION OFF}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DEFINE DEBUG}
|
||||
{$ENDIF IMPLICITBUILDING}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - RemObjects SDK Integration'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
IndyCore,
|
||||
IndySystem,
|
||||
IndyProtocols,
|
||||
PascalScript_Core_D18,
|
||||
RemObjects_Core_D18,
|
||||
RemObjects_Indy_D18,
|
||||
dbrtl,
|
||||
vcl,
|
||||
vclx;
|
||||
|
||||
contains
|
||||
PascalScript_RO_Reg in 'PascalScript_RO_Reg.pas',
|
||||
uROPSServerLink in 'uROPSServerLink.pas',
|
||||
uROPSImports in 'uROPSImports.pas';
|
||||
|
||||
end.
|
||||
172
Pascal Script for Delphi/Source/PascalScript_RO_D18.dproj
Normal file
172
Pascal Script for Delphi/Source/PascalScript_RO_D18.dproj
Normal file
@@ -0,0 +1,172 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{5DF52809-FD88-4459-9EE6-7D9C833B66C6}</ProjectGuid>
|
||||
<MainSource>PascalScript_RO_D18.dpk</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<ProjectVersion>13.4</ProjectVersion>
|
||||
<FrameworkType>none</FrameworkType>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
<AppType>Package</AppType>
|
||||
<TargetedPlatforms>3</TargetedPlatforms>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
|
||||
<Base_Win64>true</Base_Win64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
|
||||
<Cfg_2_Win64>true</Cfg_2_Win64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
|
||||
<Cfg_2_Win32>true</Cfg_2_Win32>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<VerInfo_Keys>CompanyName=RemObjects Software;FileDescription=;FileVersion=3.0.6.442;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=Pascal Script;ProductVersion=3.0.0.0;Comments=;CompileDate=Tuesday, March 21, 2006 1:32 PM</VerInfo_Keys>
|
||||
<VerInfo_MajorVer>3</VerInfo_MajorVer>
|
||||
<VerInfo_Release>6</VerInfo_Release>
|
||||
<VerInfo_Build>442</VerInfo_Build>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<GenPackage>true</GenPackage>
|
||||
<DCC_Description>RemObjects Pascal Script - RemObjects SDK 5.0 Integration</DCC_Description>
|
||||
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
|
||||
<DCC_S>false</DCC_S>
|
||||
<GenDll>true</GenDll>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_K>false</DCC_K>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_UnitSearchPath>..\Dcu\D18\win32;..\..\RemObjects SDK for Delphi\Dcu\D18\win32;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_BplOutput>..\Dcu\D18\win32</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\Dcu\D18\win32</DCC_DcpOutput>
|
||||
<DCC_DcuOutput>..\Dcu\D18\win32</DCC_DcuOutput>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DebugInformation>false</DCC_DebugInformation>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
|
||||
<DCC_RemoteDebug>true</DCC_RemoteDebug>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||
<DCC_Description>RemObjects Pascal Script - RemObjects SDK Integration</DCC_Description>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="rtl.dcp"/>
|
||||
<DCCReference Include="IndyCore.dcp"/>
|
||||
<DCCReference Include="IndySystem.dcp"/>
|
||||
<DCCReference Include="IndyProtocols.dcp"/>
|
||||
<DCCReference Include="PascalScript_Core_D18.dcp"/>
|
||||
<DCCReference Include="RemObjects_Core_D18.dcp"/>
|
||||
<DCCReference Include="RemObjects_Indy_D18.dcp"/>
|
||||
<DCCReference Include="dbrtl.dcp"/>
|
||||
<DCCReference Include="vcl.dcp"/>
|
||||
<DCCReference Include="vclx.dcp"/>
|
||||
<DCCReference Include="PascalScript_RO_Reg.pas"/>
|
||||
<DCCReference Include="uROPSServerLink.pas"/>
|
||||
<DCCReference Include="uROPSImports.pas"/>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">PascalScript_RO_D18.dpk</Source>
|
||||
</Source>
|
||||
<Parameters/>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">6</VersionInfo>
|
||||
<VersionInfo Name="Build">442</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.6.442</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"/>
|
||||
<VersionInfoKeys Name="CompileDate">Tuesday, March 21, 2006 1:32 PM</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
<Platforms>
|
||||
<Platform value="Win64">True</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
</Platforms>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
|
||||
</Project>
|
||||
48
Pascal Script for Delphi/Source/PascalScript_RO_D19.dpk
Normal file
48
Pascal Script for Delphi/Source/PascalScript_RO_D19.dpk
Normal file
@@ -0,0 +1,48 @@
|
||||
package PascalScript_RO_D19;
|
||||
|
||||
{$R *.res}
|
||||
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION OFF}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DEFINE DEBUG}
|
||||
{$ENDIF IMPLICITBUILDING}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - RemObjects SDK Integration'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
IndyCore,
|
||||
IndySystem,
|
||||
IndyProtocols,
|
||||
PascalScript_Core_D19,
|
||||
RemObjects_Core_D19,
|
||||
RemObjects_Indy_D19,
|
||||
dbrtl,
|
||||
vcl,
|
||||
vclx;
|
||||
|
||||
contains
|
||||
PascalScript_RO_Reg in 'PascalScript_RO_Reg.pas',
|
||||
uROPSServerLink in 'uROPSServerLink.pas',
|
||||
uROPSImports in 'uROPSImports.pas';
|
||||
|
||||
end.
|
||||
172
Pascal Script for Delphi/Source/PascalScript_RO_D19.dproj
Normal file
172
Pascal Script for Delphi/Source/PascalScript_RO_D19.dproj
Normal file
@@ -0,0 +1,172 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{5DF52809-FD88-4459-9EE6-7D9C833B66C6}</ProjectGuid>
|
||||
<MainSource>PascalScript_RO_D19.dpk</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<ProjectVersion>13.4</ProjectVersion>
|
||||
<FrameworkType>none</FrameworkType>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
<AppType>Package</AppType>
|
||||
<TargetedPlatforms>3</TargetedPlatforms>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
|
||||
<Base_Win64>true</Base_Win64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
|
||||
<Cfg_2_Win64>true</Cfg_2_Win64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
|
||||
<Cfg_2_Win32>true</Cfg_2_Win32>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<VerInfo_Keys>CompanyName=RemObjects Software;FileDescription=;FileVersion=3.0.6.442;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=Pascal Script;ProductVersion=3.0.0.0;Comments=;CompileDate=Tuesday, March 21, 2006 1:32 PM</VerInfo_Keys>
|
||||
<VerInfo_MajorVer>3</VerInfo_MajorVer>
|
||||
<VerInfo_Release>6</VerInfo_Release>
|
||||
<VerInfo_Build>442</VerInfo_Build>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<GenPackage>true</GenPackage>
|
||||
<DCC_Description>RemObjects Pascal Script - RemObjects SDK 5.0 Integration</DCC_Description>
|
||||
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
|
||||
<DCC_S>false</DCC_S>
|
||||
<GenDll>true</GenDll>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_K>false</DCC_K>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_UnitSearchPath>..\Dcu\D19\win32;..\..\RemObjects SDK for Delphi\Dcu\D19\win32;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_BplOutput>..\Dcu\D19\win32</DCC_BplOutput>
|
||||
<DCC_DcpOutput>..\Dcu\D19\win32</DCC_DcpOutput>
|
||||
<DCC_DcuOutput>..\Dcu\D19\win32</DCC_DcuOutput>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DebugInformation>false</DCC_DebugInformation>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
|
||||
<DCC_RemoteDebug>true</DCC_RemoteDebug>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||
<DCC_Description>RemObjects Pascal Script - RemObjects SDK Integration</DCC_Description>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="rtl.dcp"/>
|
||||
<DCCReference Include="IndyCore.dcp"/>
|
||||
<DCCReference Include="IndySystem.dcp"/>
|
||||
<DCCReference Include="IndyProtocols.dcp"/>
|
||||
<DCCReference Include="PascalScript_Core_D19.dcp"/>
|
||||
<DCCReference Include="RemObjects_Core_D19.dcp"/>
|
||||
<DCCReference Include="RemObjects_Indy_D19.dcp"/>
|
||||
<DCCReference Include="dbrtl.dcp"/>
|
||||
<DCCReference Include="vcl.dcp"/>
|
||||
<DCCReference Include="vclx.dcp"/>
|
||||
<DCCReference Include="PascalScript_RO_Reg.pas"/>
|
||||
<DCCReference Include="uROPSServerLink.pas"/>
|
||||
<DCCReference Include="uROPSImports.pas"/>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">PascalScript_RO_D19.dpk</Source>
|
||||
</Source>
|
||||
<Parameters/>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">6</VersionInfo>
|
||||
<VersionInfo Name="Build">442</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.6.442</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"/>
|
||||
<VersionInfoKeys Name="CompileDate">Tuesday, March 21, 2006 1:32 PM</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
<Platforms>
|
||||
<Platform value="Win64">True</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
</Platforms>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
|
||||
</Project>
|
||||
114
Pascal Script for Delphi/Source/PascalScript_RO_D6.dof
Normal file
114
Pascal Script for Delphi/Source/PascalScript_RO_D6.dof
Normal file
@@ -0,0 +1,114 @@
|
||||
[FileVersion]
|
||||
Version=6.0
|
||||
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=1
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=0
|
||||
SymbolLibrary=0
|
||||
SymbolPlatform=0
|
||||
UnitLibrary=0
|
||||
UnitPlatform=0
|
||||
UnitDeprecated=0
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=RemObjects Pascal Script - RemObjects SDK 3.0 Integration
|
||||
|
||||
[Directories]
|
||||
UnitOutputDir=..\Dcu\D6
|
||||
PackageDLLOutputDir=..\Dcu\D6
|
||||
PackageDCPOutputDir=
|
||||
SearchPath=..\Dcu\D6
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
|
||||
[Version Info Keys]
|
||||
CompanyName=RemObjects Software
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
ProductName=Pascal Script
|
||||
ProductVersion=3.0.0.0
|
||||
FileDescription=
|
||||
FileVersion=3.0.2.36
|
||||
OriginalFilename=
|
||||
|
||||
43
Pascal Script for Delphi/Source/PascalScript_RO_D6.dpk
Normal file
43
Pascal Script for Delphi/Source/PascalScript_RO_D6.dpk
Normal file
@@ -0,0 +1,43 @@
|
||||
package PascalScript_RO_D6;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - RemObjects SDK 4.0 Integration'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
indy,
|
||||
PascalScript_Core_D6,
|
||||
RemObjects_Core_D6,
|
||||
RemObjects_Indy_D6,
|
||||
dbrtl,
|
||||
vcl,
|
||||
vclx;
|
||||
|
||||
contains
|
||||
PascalScript_RO_Reg in 'PascalScript_RO_Reg.pas',
|
||||
uROPSServerLink in 'uROPSServerLink.pas',
|
||||
uROPSImports in 'uROPSImports.pas';
|
||||
|
||||
end.
|
||||
117
Pascal Script for Delphi/Source/PascalScript_RO_D7.dof
Normal file
117
Pascal Script for Delphi/Source/PascalScript_RO_D7.dof
Normal file
@@ -0,0 +1,117 @@
|
||||
[FileVersion]
|
||||
Version=7.0
|
||||
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=1
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=0
|
||||
SymbolLibrary=0
|
||||
SymbolPlatform=0
|
||||
UnitLibrary=0
|
||||
UnitPlatform=0
|
||||
UnitDeprecated=0
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=RemObjects Pascal Script - RemObjects SDK 3.0 Integration
|
||||
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=..\Dcu\D7
|
||||
PackageDLLOutputDir=..\Dcu\D7
|
||||
PackageDCPOutputDir=
|
||||
SearchPath=..\Dcu\D7
|
||||
Packages=
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
|
||||
[Version Info Keys]
|
||||
CompanyName=RemObjects Software
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
ProductName=Pascal Script
|
||||
ProductVersion=3.0.0.0
|
||||
FileDescription=
|
||||
FileVersion=3.0.3.53
|
||||
OriginalFilename=
|
||||
Compile Date=Monday, February 28, 2005 3:33 PM
|
||||
|
||||
43
Pascal Script for Delphi/Source/PascalScript_RO_D7.dpk
Normal file
43
Pascal Script for Delphi/Source/PascalScript_RO_D7.dpk
Normal file
@@ -0,0 +1,43 @@
|
||||
package PascalScript_RO_D7;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - RemObjects SDK 4.0 Integration'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
indy,
|
||||
PascalScript_Core_D7,
|
||||
RemObjects_Core_D7,
|
||||
RemObjects_Indy_D7,
|
||||
dbrtl,
|
||||
vcl,
|
||||
vclx;
|
||||
|
||||
contains
|
||||
PascalScript_RO_Reg in 'PascalScript_RO_Reg.pas',
|
||||
uROPSServerLink in 'uROPSServerLink.pas',
|
||||
uROPSImports in 'uROPSImports.pas';
|
||||
|
||||
end.
|
||||
172
Pascal Script for Delphi/Source/PascalScript_RO_D9.bdsproj
Normal file
172
Pascal Script for Delphi/Source/PascalScript_RO_D9.bdsproj
Normal file
@@ -0,0 +1,172 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<PersonalityInfo>
|
||||
<Option>
|
||||
<Option Name="Personality">Delphi.Personality</Option>
|
||||
<Option Name="ProjectType"></Option>
|
||||
<Option Name="Version">1.0</Option>
|
||||
<Option Name="GUID">{5B47E7C8-6AAF-4215-8EC3-60B739B2B5F3}</Option>
|
||||
</Option>
|
||||
</PersonalityInfo>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">PascalScript_RO_D9.dpk</Source>
|
||||
</Source>
|
||||
<FileVersion>
|
||||
<FileVersion Name="Version">7.0</FileVersion>
|
||||
</FileVersion>
|
||||
<Compiler>
|
||||
<Compiler Name="A">8</Compiler>
|
||||
<Compiler Name="B">0</Compiler>
|
||||
<Compiler Name="C">1</Compiler>
|
||||
<Compiler Name="D">1</Compiler>
|
||||
<Compiler Name="E">0</Compiler>
|
||||
<Compiler Name="F">0</Compiler>
|
||||
<Compiler Name="G">1</Compiler>
|
||||
<Compiler Name="H">1</Compiler>
|
||||
<Compiler Name="I">1</Compiler>
|
||||
<Compiler Name="J">0</Compiler>
|
||||
<Compiler Name="K">0</Compiler>
|
||||
<Compiler Name="L">1</Compiler>
|
||||
<Compiler Name="M">0</Compiler>
|
||||
<Compiler Name="N">1</Compiler>
|
||||
<Compiler Name="O">1</Compiler>
|
||||
<Compiler Name="P">1</Compiler>
|
||||
<Compiler Name="Q">0</Compiler>
|
||||
<Compiler Name="R">0</Compiler>
|
||||
<Compiler Name="S">0</Compiler>
|
||||
<Compiler Name="T">0</Compiler>
|
||||
<Compiler Name="U">0</Compiler>
|
||||
<Compiler Name="V">1</Compiler>
|
||||
<Compiler Name="W">1</Compiler>
|
||||
<Compiler Name="X">1</Compiler>
|
||||
<Compiler Name="Y">1</Compiler>
|
||||
<Compiler Name="Z">1</Compiler>
|
||||
<Compiler Name="ShowHints">True</Compiler>
|
||||
<Compiler Name="ShowWarnings">True</Compiler>
|
||||
<Compiler Name="UnitAliases"></Compiler>
|
||||
<Compiler Name="NamespacePrefix"></Compiler>
|
||||
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||
<Compiler Name="DefaultNamespace"></Compiler>
|
||||
<Compiler Name="SymbolDeprecated">False</Compiler>
|
||||
<Compiler Name="SymbolLibrary">False</Compiler>
|
||||
<Compiler Name="SymbolPlatform">False</Compiler>
|
||||
<Compiler Name="SymbolExperimental">False</Compiler>
|
||||
<Compiler Name="UnitLibrary">False</Compiler>
|
||||
<Compiler Name="UnitPlatform">False</Compiler>
|
||||
<Compiler Name="UnitDeprecated">False</Compiler>
|
||||
<Compiler Name="UnitExperimental">False</Compiler>
|
||||
<Compiler Name="HResultCompat">True</Compiler>
|
||||
<Compiler Name="HidingMember">True</Compiler>
|
||||
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||
<Compiler Name="Garbage">True</Compiler>
|
||||
<Compiler Name="BoundsError">True</Compiler>
|
||||
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||
<Compiler Name="ForVariable">True</Compiler>
|
||||
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||
<Compiler Name="FileOpen">True</Compiler>
|
||||
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||
<Compiler Name="InvalidDirective">True</Compiler>
|
||||
<Compiler Name="PackageNoLink">True</Compiler>
|
||||
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||
<Compiler Name="ImplicitImport">True</Compiler>
|
||||
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||
<Compiler Name="NoRetVal">True</Compiler>
|
||||
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||
<Compiler Name="MessageDirective">True</Compiler>
|
||||
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||
<Compiler Name="UnsafeType">False</Compiler>
|
||||
<Compiler Name="UnsafeCode">False</Compiler>
|
||||
<Compiler Name="UnsafeCast">False</Compiler>
|
||||
<Compiler Name="OptionTruncated">True</Compiler>
|
||||
<Compiler Name="WideCharReduced">True</Compiler>
|
||||
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||
</Compiler>
|
||||
<Linker>
|
||||
<Linker Name="MapFile">0</Linker>
|
||||
<Linker Name="OutputObjs">0</Linker>
|
||||
<Linker Name="ConsoleApp">1</Linker>
|
||||
<Linker Name="DebugInfo">False</Linker>
|
||||
<Linker Name="RemoteSymbols">False</Linker>
|
||||
<Linker Name="GenerateDRC">False</Linker>
|
||||
<Linker Name="MinStackSize">16384</Linker>
|
||||
<Linker Name="MaxStackSize">1048576</Linker>
|
||||
<Linker Name="ImageBase">4194304</Linker>
|
||||
<Linker Name="ExeDescription">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Linker>
|
||||
</Linker>
|
||||
<Directories>
|
||||
<Directories Name="OutputDir"></Directories>
|
||||
<Directories Name="UnitOutputDir">..\Dcu\D9</Directories>
|
||||
<Directories Name="PackageDLLOutputDir">..\Dcu\D9</Directories>
|
||||
<Directories Name="PackageDCPOutputDir"></Directories>
|
||||
<Directories Name="SearchPath">..\Dcu\D9;$(BDS)\lib\Indy9;..\..\RemObjects SDK for Dephi\Dcu\D9</Directories>
|
||||
<Directories Name="Packages"></Directories>
|
||||
<Directories Name="Conditionals"></Directories>
|
||||
<Directories Name="DebugSourceDirs"></Directories>
|
||||
<Directories Name="UsePackages">False</Directories>
|
||||
</Directories>
|
||||
<Parameters>
|
||||
<Parameters Name="RunParams"></Parameters>
|
||||
<Parameters Name="HostApplication"></Parameters>
|
||||
<Parameters Name="Launcher"></Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="DebugCWD"></Parameters>
|
||||
<Parameters Name="RemoteHost"></Parameters>
|
||||
<Parameters Name="RemotePath"></Parameters>
|
||||
<Parameters Name="RemoteLauncher"></Parameters>
|
||||
<Parameters Name="RemoteCWD"></Parameters>
|
||||
<Parameters Name="RemoteDebug">False</Parameters>
|
||||
</Parameters>
|
||||
<Language>
|
||||
<Language Name="ActiveLang"></Language>
|
||||
<Language Name="ProjectLang">$00000000</Language>
|
||||
<Language Name="RootDir"></Language>
|
||||
</Language>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">0</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">3</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">3</VersionInfo>
|
||||
<VersionInfo Name="Build">53</VersionInfo>
|
||||
<VersionInfo Name="Debug">0</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">0</VersionInfo>
|
||||
<VersionInfo Name="Special">0</VersionInfo>
|
||||
<VersionInfo Name="Private">0</VersionInfo>
|
||||
<VersionInfo Name="DLL">0</VersionInfo>
|
||||
<VersionInfo Name="Locale">1033</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName">RemObjects Software</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">3.0.3.53</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName">Pascal Script</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompileDate">Monday, February 28, 2005 3:33 PM</VersionInfoKeys></VersionInfoKeys>
|
||||
</Delphi.Personality>
|
||||
</BorlandProject>
|
||||
47
Pascal Script for Delphi/Source/PascalScript_RO_D9.dpk
Normal file
47
Pascal Script for Delphi/Source/PascalScript_RO_D9.dpk
Normal file
@@ -0,0 +1,47 @@
|
||||
package PascalScript_RO_D9;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO ON}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'RemObjects Pascal Script - RemObjects SDK 4.0 Integration'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
|
||||
requires
|
||||
rtl,
|
||||
{$IFDEF RemObjects_INDY9}
|
||||
Indy,
|
||||
{$ELSE}
|
||||
IndyCore, IndySystem, IndyProtocols,
|
||||
{$ENDIF}
|
||||
PascalScript_Core_D9,
|
||||
RemObjects_Core_D9,
|
||||
RemObjects_Indy_D9,
|
||||
dbrtl,
|
||||
vcl,
|
||||
vclx;
|
||||
|
||||
contains
|
||||
PascalScript_RO_Reg in 'PascalScript_RO_Reg.pas',
|
||||
uROPSServerLink in 'uROPSServerLink.pas',
|
||||
uROPSImports in 'uROPSImports.pas';
|
||||
|
||||
end.
|
||||
34
Pascal Script for Delphi/Source/PascalScript_RO_Reg.pas
Normal file
34
Pascal Script for Delphi/Source/PascalScript_RO_Reg.pas
Normal file
@@ -0,0 +1,34 @@
|
||||
unit PascalScript_RO_Reg;
|
||||
|
||||
{----------------------------------------------------------------------------}
|
||||
{ RemObjects Pascal Script
|
||||
{
|
||||
{ compiler: Delphi 2 and up, Kylix 3 and up
|
||||
{ platform: Win32, Linux
|
||||
{
|
||||
{ (c)opyright RemObjects Software. all rights reserved.
|
||||
{
|
||||
{ Using this code requires a valid license of Pascal Script
|
||||
{ which can be obtained at http://www.remobjects.com.
|
||||
{----------------------------------------------------------------------------}
|
||||
|
||||
{$I PascalScript.inc}
|
||||
|
||||
interface
|
||||
|
||||
{$R PascalScript_RO_Glyphs.res}
|
||||
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
Classes,
|
||||
uROPSServerLink;
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterComponents('Pascal Script', [TPSRemObjectsSdkPlugin]);
|
||||
end;
|
||||
|
||||
end.
|
||||
312
Pascal Script for Delphi/Source/arm.inc
Normal file
312
Pascal Script for Delphi/Source/arm.inc
Normal file
@@ -0,0 +1,312 @@
|
||||
{ implementation of the arm procedure call standard for function calls in pascal script
|
||||
Copyright (c) 2008 by Henry Vermaak (henry.vermaak@gmail.com)
|
||||
|
||||
todo: add eabi (define FPC_ABI_EABI) and wince support
|
||||
|
||||
notes:
|
||||
|
||||
most arm cpus don't allow unaligned access. by default (?) the linux kernel
|
||||
is set up to try and correct unaligned access, which can lead to strange behaviour.
|
||||
to turn this off, try (as root):
|
||||
|
||||
echo 4 > /proc/cpu/alignment
|
||||
|
||||
if you have an alignment problem, you will now get a crash with a backtrace like this:
|
||||
(make sure you compile with -O- -gl)
|
||||
|
||||
An unhandled exception occurred at $0006C014 :
|
||||
EBusError : Bus error or misaligned data access
|
||||
$0006C014 PROCESSREPEAT, line 9670 of upscompiler.pas
|
||||
$00068AAC TPSPASCALCOMPILER__PROCESSSUB, line 10459 of upscompiler.pas
|
||||
$0007D0B4 TPSPASCALCOMPILER__COMPILE, line 11704 of upscompiler.pas
|
||||
|
||||
you can fix this by using the "unaligned" keyword around the pointer operation.
|
||||
search for occurances of "unaligned" to see how this is done,
|
||||
(use $ifdef FPC_REQUIRES_PROPER_ALIGNMENT).
|
||||
|
||||
for more information, visit:
|
||||
|
||||
http://www.aleph1.co.uk/oldsite/armlinux/book/afaq.html
|
||||
}
|
||||
|
||||
const
|
||||
rtINT = 0;
|
||||
rtINT64 = 1;
|
||||
rtFLOAT = 2;
|
||||
|
||||
type
|
||||
Trint = array[1..4] of dword;
|
||||
Trfloat = array[1..4] of double;
|
||||
|
||||
{$goto on}
|
||||
{ define labels }
|
||||
label
|
||||
stack_loop,
|
||||
load_regs,
|
||||
asmcall_end,
|
||||
int_result,
|
||||
int64_result,
|
||||
float_result;
|
||||
|
||||
{ call a function from a pointer }
|
||||
{ resulttype: 0 = int, 1 = int64, 2 = float }
|
||||
function armasmcall(rint: Trint; rfloat: Trfloat; proc, stack: pointer; stacksize, resulttype: integer): pointer; assembler; nostackframe;
|
||||
asm
|
||||
mov r12, r13
|
||||
stmfd r13!, {r4, r5, r6, r7, r8, r9, r10, r11, r12, r14, r15}
|
||||
sub r11, r12, #4
|
||||
mov r4, #80 (* space for preserved registers and parameters *)
|
||||
ldr r5, [r11, #4] (* stacksize we need for subroutine *)
|
||||
add r4, r4, r5
|
||||
sub r13, r13, r4 (* create stack space *)
|
||||
|
||||
(* store parameters on stack *)
|
||||
str r0, [r11, #-44] (* rint *)
|
||||
str r1, [r11, #-48] (* rfloat *)
|
||||
str r2, [r11, #-52] (* proc *)
|
||||
str r3, [r11, #-56] (* stack *)
|
||||
ldr r0, [r11, #4]
|
||||
str r0, [r11, #-60] (* stacksize *)
|
||||
ldr r0, [r11, #8]
|
||||
str r0, [r11, #-64] (* resulttype *)
|
||||
|
||||
(* store params for sub-routine that don't fit into r0-r3 at start of stack *)
|
||||
ldr r0, [r11, #-60] (* stacksize *)
|
||||
cmp r0, #0
|
||||
beq load_regs (* skip if no stack *)
|
||||
mov r1, r13 (* this points to the bottom now *)
|
||||
ldr r2, [r11, #-56] (* stack pointer *)
|
||||
stack_loop:
|
||||
ldmia r2!, {r4} (* get stack + update pos *)
|
||||
stmia r1!, {r4} (* store stack + update pos *)
|
||||
subs r0, r0, #4
|
||||
bne stack_loop
|
||||
|
||||
load_regs:
|
||||
(* load general regs *)
|
||||
ldr r4, [r11, #-44] (* rint *)
|
||||
ldr r0, [r4]
|
||||
ldr r1, [r4, #4]
|
||||
ldr r2, [r4, #8]
|
||||
ldr r3, [r4, #12]
|
||||
|
||||
{$ifdef FPUFPA}
|
||||
(* load float regs *)
|
||||
ldr r4, [r11, #-48] (* rfloat *)
|
||||
ldfd f0, [r4]
|
||||
ldfd f1, [r4, #8]
|
||||
ldfd f2, [r4, #16]
|
||||
ldfd f3, [r4, #24]
|
||||
{$endif}
|
||||
|
||||
(* branch to the proc pointer *)
|
||||
ldr r4, [r11, #-52]
|
||||
mov r14, r15
|
||||
mov r15, r4
|
||||
(* blx r4 *)
|
||||
|
||||
ldr r4, [r11, #-64] (* get resulttype *)
|
||||
cmp r4, #1
|
||||
blt int_result
|
||||
beq int64_result
|
||||
bgt float_result
|
||||
|
||||
int_result:
|
||||
str r0, [r11, #-72]
|
||||
b asmcall_end
|
||||
|
||||
int64_result:
|
||||
str r0, [r11, #-72]
|
||||
str r1, [r11, #-68]
|
||||
b asmcall_end
|
||||
|
||||
float_result:
|
||||
{$ifdef FPUFPA}
|
||||
stfd f0, [r11, #-72]
|
||||
{$else}
|
||||
b int64_result
|
||||
{$endif}
|
||||
b asmcall_end
|
||||
|
||||
asmcall_end:
|
||||
sub r0, r11, #72 (* return pointer to result on stack *)
|
||||
|
||||
ldmea r11,{r4,r5,r6,r7,r8,r9,r10,r11,r13,r15}
|
||||
end;
|
||||
|
||||
function TPSExec.InnerfuseCall(_Self, Address: Pointer; CallingConv: TPSCallingConvention; Params: TPSList; res: PPSVariantIFC): Boolean;
|
||||
var
|
||||
rint: Trint; { registers r0 to r3 }
|
||||
rfloat: Trfloat; { registers f0 to f3 }
|
||||
st: packed array of byte; { stack }
|
||||
i, j, rindex, findex, stindex: integer;
|
||||
fvar: PPSVariantIFC;
|
||||
IsConstructor: Boolean;
|
||||
|
||||
{ add a dword to stack }
|
||||
procedure addstackdword(value: dword);
|
||||
begin
|
||||
setlength(st, stindex+4);
|
||||
pdword(@st[stindex])^ := value;
|
||||
inc(stindex, 4);
|
||||
end;
|
||||
|
||||
{ add a float to stack }
|
||||
procedure addstackfloat(value: pointer; size: integer);
|
||||
begin
|
||||
setlength(st, stindex + (size * 4));
|
||||
if size = 1
|
||||
then psingle(@st[stindex])^ := single(value^)
|
||||
else pdouble(@st[stindex])^ := double(value^);
|
||||
inc(stindex, size*4);
|
||||
end;
|
||||
|
||||
{ add to the general registers or overflow to stack }
|
||||
procedure addgen(value: dword);
|
||||
begin
|
||||
if rindex <= 4
|
||||
then begin
|
||||
rint[rindex] := value;
|
||||
inc(rindex);
|
||||
end
|
||||
else begin
|
||||
addstackdword(value);
|
||||
end;
|
||||
end;
|
||||
{ add to the float registers or overflow to stack }
|
||||
{ size = 1 for single, 2 for double }
|
||||
procedure addfloat(value: pointer; size: integer);
|
||||
begin
|
||||
if findex <= 4
|
||||
then begin
|
||||
if size = 1
|
||||
then rfloat[findex] := single(value^)
|
||||
else rfloat[findex] := double(value^);
|
||||
inc(findex);
|
||||
end
|
||||
else begin
|
||||
addstackfloat(value, size);
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
if (Integer(CallingConv) and 64) <> 0 then begin
|
||||
IsConstructor := true;
|
||||
CAllingConv := TPSCallingConvention(Integer(CallingConv) and not 64);
|
||||
end else IsConstructor := false;
|
||||
|
||||
rindex := 1;
|
||||
findex := 1;
|
||||
stindex := 0;
|
||||
setlength(st, stindex);
|
||||
Result := False;
|
||||
|
||||
{ the pointer of the result needs to be passed first in the case of some result types }
|
||||
if assigned(res)
|
||||
then begin
|
||||
case res.atype.basetype of
|
||||
btStaticArray, btRecord: addgen(dword(res.dta));
|
||||
end;
|
||||
end;
|
||||
|
||||
{ process all parameters }
|
||||
for i := 0 to Params.Count-1 do begin
|
||||
if Params[i] = nil
|
||||
then Exit;
|
||||
fvar := Params[i];
|
||||
|
||||
{ cook dynamic arrays - fpc stores size-1 at @array-4 }
|
||||
if (fvar.aType.BaseType = btArray)
|
||||
then dec(pdword(pointer(fvar.dta^)-4)^);
|
||||
|
||||
if fvar.varparam
|
||||
then begin { var param }
|
||||
case fvar.aType.BaseType of
|
||||
{ add var params here }
|
||||
btArray, btVariant, btSet, btStaticArray, btRecord, btInterface, btClass, {$IFNDEF PS_NOWIDESTRING} btUnicodeString, btWideString, btWideChar, {$ENDIF}
|
||||
btU8, btS8, btU16, btS16, btU32, btS32, btSingle, btDouble, btExtended, btString, btPChar, btChar, btCurrency
|
||||
{$IFNDEF PS_NOINT64}, bts64{$ENDIF}: addgen(dword(fvar.dta));
|
||||
else begin
|
||||
writeln(stderr, 'Parameter type not recognised!');
|
||||
Exit;
|
||||
end;
|
||||
end; { case }
|
||||
end else begin { not a var param }
|
||||
case fvar.aType.BaseType of
|
||||
// btArray, btVariant, btSet, btStaticArray, btRecord, btInterface, btClass, {$IFNDEF PS_NOWIDESTRING} btWideString, btWideChar, {$ENDIF}
|
||||
// btU8, btS8, btU16, btS16, btU32, btS32, btSingle, btDouble, btExtended, btString, btPChar, btChar, btCurrency
|
||||
// {$IFNDEF PS_NOINT64}, bts64{$ENDIF}: writeln('normal param');
|
||||
|
||||
{ add normal params here }
|
||||
btString: addgen(dword(pstring(fvar.dta)^));
|
||||
btU8, btS8: addgen(dword(pbyte(fvar.dta)^));
|
||||
btU16, BtS16: addgen(dword(pword(fvar.dta)^));
|
||||
btU32, btS32: addgen(dword(pdword(fvar.dta)^));
|
||||
btSingle: {$ifdef FPUFPA}
|
||||
addfloat(fvar.dta, 1);
|
||||
{$else}
|
||||
addgen(dword(psingle(fvar.dta)^));
|
||||
{$endif}
|
||||
btDouble{, btExtended}: {$ifdef FPUFPA}
|
||||
addfloat(fvar.dta, 2);
|
||||
{$else}
|
||||
begin
|
||||
addgen(lo(qword(pdouble(fvar.dta)^)));
|
||||
addgen(hi(qword(pdouble(fvar.dta)^)));
|
||||
end;
|
||||
{$endif}
|
||||
btPChar: addgen(dword(ppchar(fvar.dta)^));
|
||||
btChar: addgen(dword(pchar(fvar.dta)^));
|
||||
{$IFNDEF PS_NOINT64}bts64:{$ENDIF} begin
|
||||
addgen(dword(pint64(fvar.dta)^ and $ffffffff));
|
||||
addgen(dword(pint64(fvar.dta)^ shr 32));
|
||||
end;
|
||||
btStaticArray: addgen(dword(fvar.dta));
|
||||
btRecord: for j := 0 to (fvar.atype.realsize div 4)-1 do
|
||||
addgen(pdword(fvar.dta + j*4)^);
|
||||
btArray: addstackdword(dword(fvar.dta^)); { this is a bit weird }
|
||||
|
||||
{ btVariant, btSet, btInterface, btClass }
|
||||
|
||||
else begin
|
||||
writeln(stderr, 'Parameter type not implemented!');
|
||||
Exit;
|
||||
end;
|
||||
end; { case }
|
||||
end; { else }
|
||||
end; { for }
|
||||
|
||||
if not assigned(res)
|
||||
then begin
|
||||
armasmcall(rint, rfloat, address, st, stindex, rtINT); { ignore return }
|
||||
end
|
||||
else begin
|
||||
case res.atype.basetype of
|
||||
{ add result types here }
|
||||
btString: pstring(res.dta)^ := pstring(armasmcall(rint, rfloat, address, st, stindex, rtINT))^;
|
||||
btU8, btS8: pbyte(res.dta)^ := byte(pdword(armasmcall(rint, rfloat, address, st, stindex, rtINT))^);
|
||||
btU16, btS16: pword(res.dta)^ := word(pdword(armasmcall(rint, rfloat, address, st, stindex, rtINT))^);
|
||||
btU32, btS32: pdword(res.dta)^ := pdword(armasmcall(rint, rfloat, address, st, stindex, rtINT))^;
|
||||
btSingle: psingle(res.dta)^ := pdouble(armasmcall(rint, rfloat, address, st, stindex, rtFLOAT))^;
|
||||
btDouble{, btExtended}: pdouble(res.dta)^ := pdouble(armasmcall(rint, rfloat, address, st, stindex, rtFLOAT))^;
|
||||
btPChar: ppchar(res.dta)^ := pchar(pdword(armasmcall(rint, rfloat, address, st, stindex, rtINT))^);
|
||||
btChar: pchar(res.dta)^ := char(pdword(armasmcall(rint, rfloat, address, st, stindex, rtINT))^);
|
||||
btStaticArray, btRecord: armasmcall(rint, rfloat, address, st, stindex, rtINT);
|
||||
btArray: res.dta := armasmcall(rint, rfloat, address, st, stindex, rtINT);
|
||||
|
||||
else begin
|
||||
writeln(stderr, 'Result type not implemented!');
|
||||
exit;
|
||||
end; { else }
|
||||
end; { case }
|
||||
end;
|
||||
|
||||
{ cook dynamic arrays - fpc stores size-1 at @array-4 }
|
||||
for i := 0 to Params.Count-1 do begin
|
||||
fvar := Params[i];
|
||||
if (fvar.aType.BaseType = btArray)
|
||||
then inc(pdword(pointer(fvar.dta^)-4)^);
|
||||
end;
|
||||
|
||||
Result := True;
|
||||
end;
|
||||
779
Pascal Script for Delphi/Source/eDefines.inc
Normal file
779
Pascal Script for Delphi/Source/eDefines.inc
Normal file
@@ -0,0 +1,779 @@
|
||||
{----------------------------------------------------------------------------}
|
||||
{file: eDefines.inc }
|
||||
{type: Delphi include file }
|
||||
{ }
|
||||
{compiler: Borland Pascal 7, }
|
||||
{ Delphi 1-7, 2005-2007 for Win32 }
|
||||
{ Kylix 1-3, }
|
||||
{ C++Builder 1-6, 2006-2007 }
|
||||
{ Free Pascal Compiler 2.x }
|
||||
{ }
|
||||
{platforms: DOS, DPMI, Win16, Win32, Win64, Linux, Mac OS X }
|
||||
{ }
|
||||
{author: mh@elitedev.com }
|
||||
{ }
|
||||
{contents: Defines that can be flexibily used to determine the exact }
|
||||
{ compiler version used. }
|
||||
{ }
|
||||
{(c)opyright elitedevelopments software. all rights reserved. }
|
||||
{ http://www.elitedev.com }
|
||||
{ }
|
||||
{ Third Party component developers are encouraged to use the set of defines }
|
||||
{ established in this file, rather then their own system, for checking their }
|
||||
{ component libraries agains different versions of Delphi and C++Builder. }
|
||||
{ }
|
||||
{ This file may be distributed freely with both free and commercial source }
|
||||
{ libraries, but you are asked to please leave this comment in place, and }
|
||||
{ to return any improvements you make to this file to the maintainer that }
|
||||
{ is noted above. }
|
||||
{----------------------------------------------------------------------------}
|
||||
|
||||
{----------------------------------------------------------------------------}
|
||||
{ Compiler and OS version defines: }
|
||||
{ }
|
||||
{ exact compiler versions: }
|
||||
{ }
|
||||
{ BP7 Borland Pascal 7.0 }
|
||||
{ DELPHI1 Delphi 1.0 (any Delphi) }
|
||||
{ DELPHI2 Delphi 2.0 }
|
||||
{ DELPHI3 Delphi 3.0 }
|
||||
{ DELPHI4 Delphi 4.0 }
|
||||
{ DELPHI5 Delphi 5.0 }
|
||||
{ DELPHI6 Delphi 6.0 }
|
||||
{ DELPHI7 Delphi 7.0 }
|
||||
{ DELPHI9 Delphi 2005 }
|
||||
{ DELPHI2005 Delphi 2005 }
|
||||
{ DELPHI2006 Delphi 2006 }
|
||||
{ DELPHI2007 Delphi 2007 }
|
||||
{ KYLIX1 Kylix 1.0 }
|
||||
{ KYLIX2 Kylix 2.0 }
|
||||
{ KYLIX3 Kylix 3.0 }
|
||||
{ CBUILDER1 C++Builder 1.0 }
|
||||
{ CBUILDER3 C++Builder 3.0 }
|
||||
{ CBUILDER4 C++Builder 4.0 }
|
||||
{ CBUILDER5 C++Builder 5.0 }
|
||||
{ }
|
||||
{ }
|
||||
{ minimum compiler versions: }
|
||||
{ }
|
||||
{ DELPHI1UP Delphi 1.0 and above (any Delphi) }
|
||||
{ DELPHI2UP Delphi 2.0 and above }
|
||||
{ DELPHI3UP Delphi 3.0 and above }
|
||||
{ DELPHI4UP Delphi 4.0 and above }
|
||||
{ DELPHI5UP Delphi 5.0 and above }
|
||||
{ DELPHI6UP Delphi 6.0 and above }
|
||||
{ DELPHI7UP Delphi 7.0 and above }
|
||||
{ DELPHI9UP Delphi 9.0 (2005) and above }
|
||||
{ DELPHI10UP Delphi 10.0 (2006) and above }
|
||||
{ DELPHI11UP Delphi 11.0 (2007) and above }
|
||||
{ DELPHI2005UP Delphi 2005 and above }
|
||||
{ DELPHI2006UP Delphi 2006 and above }
|
||||
{ DELPHI2007UP Delphi 2007 and above }
|
||||
{ KYLIX1UP Kylix 1.0 and above (any Kylix) }
|
||||
{ KYLIX2UP Kylix 2.0 and above (any Kylix) }
|
||||
{ KYLIX3UP Kylix 3.0 and above (any Kylix) }
|
||||
{ CBUILDER1UP C++Builder 1.0 and above or Delphi 2 and above }
|
||||
{ CBUILDER3UP C++Builder 3.0 and above or Delphi 3.0 and above }
|
||||
{ CBUILDER4UP C++Builder 4.0 and above or Delphi 4.0 and above }
|
||||
{ CBUILDER5UP C++Builder 5.0 and above or Delphi 5.0 and above }
|
||||
{ CBUILDER6UP C++Builder 5.0 and above or Delphi 5.0 and above }
|
||||
{ }
|
||||
{ }
|
||||
{ compiler types: }
|
||||
{ }
|
||||
{ BP Borland Pascal (not Delphi or C++Builder) }
|
||||
{ DELPHI any Delphi version (but not C++Builder or Kylix) }
|
||||
{ KYLIX any Kylix version (not Delphi or C++Builder for Windows) }
|
||||
{ CBUILDER any C++Builder for Windows (Pascal) }
|
||||
{ }
|
||||
{ }
|
||||
{ target platforms compiler types: }
|
||||
{ }
|
||||
{ DELPHI_16BIT 16bit Delphi (but not C++Builder!) }
|
||||
{ DELPHI_32BIT 32bit Delphi (but not C++Builder) }
|
||||
{ KYLIX_32BIT 32bit Kylix (but not C++Builder) }
|
||||
{ CBUILDER_32BIT 32bit C++Builer's Pascal (but not Delphi) }
|
||||
{ }
|
||||
{ }
|
||||
{ target cpu types }
|
||||
{ }
|
||||
{ CPU16 16bit Delphi or Borland Pascal }
|
||||
{ CPU32 32bit Delphi or Free Pascal }
|
||||
{ CPU64 64bit Free Pascal }
|
||||
{ }
|
||||
{ target platforms }
|
||||
{ }
|
||||
{ DOS any DOS (plain and DPMI) }
|
||||
{ REALMODE 16bit realmode DOS }
|
||||
{ PROTECTEDMODE 16bit DPMI DOS }
|
||||
{ }
|
||||
{ MSWINDOWS any Windows platform }
|
||||
{ WIN16 16bit Windows }
|
||||
{ WIN32 32bit Windows }
|
||||
{ WIN64 64bit Windows }
|
||||
{ DOTNET .NET }
|
||||
{ }
|
||||
{ LINUX any Linux platform }
|
||||
{ LINUX32 32bit Linux }
|
||||
{ LINUX64 64bit Linux }
|
||||
{ }
|
||||
{ DARWIN Any Mac OS X }
|
||||
{ DARWIN32 32bit Mac OS X }
|
||||
{ DARWIN64 64bit Mac OS X }
|
||||
{----------------------------------------------------------------------------}
|
||||
|
||||
{ defines for Borland Pascal 7.0 }
|
||||
{$IFDEF VER70}
|
||||
{$DEFINE BP}
|
||||
{$DEFINE BP7}
|
||||
{$DEFINE 16BIT}
|
||||
{$DEFINE CPU16}
|
||||
|
||||
{ defines for BP7 DOS real mode }
|
||||
{$IFDEF MSDOS}
|
||||
{$DEFINE DOS}
|
||||
{$DEFINE REALMODE}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for BP7 DOS protected mode }
|
||||
{$IFDEF DPMI}
|
||||
{$DEFINE DOS}
|
||||
{$DEFINE PROTECTEDMODE}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for BP7 Windows }
|
||||
{$IFDEF WINDOWS}
|
||||
{$DEFINE MSWINDOWS}
|
||||
{$DEFINE WIN16}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
{$IFDEF WIN32}
|
||||
{$DEFINE MSWINDOWS}
|
||||
{$ENDIF}
|
||||
{ defines for Delphi 1.0 thru 7.0 }
|
||||
{$IFDEF MSWINDOWS}
|
||||
|
||||
{ defines for Delphi 1.0 }
|
||||
{$IFDEF VER80}
|
||||
{$DEFINE DELPHI}
|
||||
{$DEFINE DELPHI1}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI_16BIT}
|
||||
{$DEFINE WIN16}
|
||||
{$DEFINE 16BIT}
|
||||
{$DEFINE CPU16}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for Delphi 2.0 }
|
||||
{$IFDEF VER90}
|
||||
{$DEFINE DELPHI}
|
||||
{$DEFINE DELPHI2}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for C++Builder 1.0 }
|
||||
{$IFDEF VER93}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$DEFINE CBUILDER}
|
||||
{$DEFINE CBUILDER1}
|
||||
{$DEFINE CBUILDER1UP}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for Delphi 3.0 }
|
||||
{$IFDEF VER100}
|
||||
{$DEFINE DELPHI}
|
||||
{$DEFINE DELPHI3}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$DEFINE DELPHI3UP}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for C++Builder 3.0 }
|
||||
{$IFDEF VER110}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$DEFINE DELPHI3UP}
|
||||
{$DEFINE CBUILDER}
|
||||
{$DEFINE CBUILDER3}
|
||||
{$DEFINE CBUILDER1UP}
|
||||
{$DEFINE CBUILDER3UP}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for Delphi 4.0 }
|
||||
{$IFDEF VER120}
|
||||
{$DEFINE DELPHI}
|
||||
{$DEFINE DELPHI4}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$DEFINE DELPHI3UP}
|
||||
{$DEFINE DELPHI4UP}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for C++Builder 4.0 }
|
||||
{$IFDEF VER125}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$DEFINE DELPHI3UP}
|
||||
{$DEFINE DELPHI4UP}
|
||||
{$DEFINE CBUILDER}
|
||||
{$DEFINE CBUILDER4}
|
||||
{$DEFINE CBUILDER1UP}
|
||||
{$DEFINE CBUILDER3UP}
|
||||
{$DEFINE CBUILDER4UP}
|
||||
{$ENDIF}
|
||||
{ defines for Delphi 5.0 }
|
||||
{$IFDEF VER130}
|
||||
{$DEFINE DELPHI}
|
||||
{$DEFINE DELPHI5}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$DEFINE DELPHI3UP}
|
||||
{$DEFINE DELPHI4UP}
|
||||
{$DEFINE DELPHI5UP}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for C++Builder 5.0 }
|
||||
{$IFDEF VER135}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$DEFINE DELPHI3UP}
|
||||
{$DEFINE DELPHI4UP}
|
||||
{$DEFINE DELPHI5UP}
|
||||
{$DEFINE CBUILDER}
|
||||
{$DEFINE CBUILDER5}
|
||||
{$DEFINE CBUILDER1UP}
|
||||
{$DEFINE CBUILDER3UP}
|
||||
{$DEFINE CBUILDER4UP}
|
||||
{$DEFINE CBUILDER5UP}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for Delphi 6.0 }
|
||||
{$IFDEF VER140}
|
||||
{$DEFINE VER140UP}
|
||||
{$DEFINE DELPHI}
|
||||
{$DEFINE DELPHI6}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$DEFINE DELPHI3UP}
|
||||
{$DEFINE DELPHI4UP}
|
||||
{$DEFINE DELPHI5UP}
|
||||
{$DEFINE DELPHI6UP}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for Delphi 7.0 }
|
||||
{$IFDEF VER150}
|
||||
{$DEFINE VER140UP}
|
||||
{$DEFINE DELPHI}
|
||||
{$DEFINE DELPHI7}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$DEFINE DELPHI3UP}
|
||||
{$DEFINE DELPHI4UP}
|
||||
{$DEFINE DELPHI5UP}
|
||||
{$DEFINE DELPHI6UP}
|
||||
{$DEFINE DELPHI7UP}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for Delphi 2005 }
|
||||
{$IFDEF VER170}
|
||||
{$DEFINE VER140UP}
|
||||
{$DEFINE DELPHI}
|
||||
{$DEFINE DELPHI9}
|
||||
{$DEFINE DELPHI2005}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$DEFINE DELPHI3UP}
|
||||
{$DEFINE DELPHI4UP}
|
||||
{$DEFINE DELPHI5UP}
|
||||
{$DEFINE DELPHI6UP}
|
||||
{$DEFINE DELPHI7UP}
|
||||
{$DEFINE DELPHI9UP}
|
||||
{$DEFINE DELPHI2005UP}
|
||||
{$DEFINE BDS}
|
||||
{$DEFINE BDS3}
|
||||
{$DEFINE BDS3UP}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for Delphi 2006 }
|
||||
{$IFDEF VER180}
|
||||
{$DEFINE VER140UP}
|
||||
{$DEFINE DELPHI}
|
||||
{$DEFINE DELPHI10}
|
||||
{$DEFINE DELPHI10A}
|
||||
{$DEFINE DELPHI2006}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$DEFINE DELPHI3UP}
|
||||
{$DEFINE DELPHI4UP}
|
||||
{$DEFINE DELPHI5UP}
|
||||
{$DEFINE DELPHI6UP}
|
||||
{$DEFINE DELPHI7UP}
|
||||
{$DEFINE DELPHI9UP}
|
||||
{$DEFINE DELPHI10UP}
|
||||
{$DEFINE DELPHI2005UP}
|
||||
{$DEFINE DELPHI2006UP}
|
||||
{$DEFINE BDS}
|
||||
{$DEFINE BDS4}
|
||||
{$DEFINE BDS3UP}
|
||||
{$DEFINE BDS4UP}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for Delphi 2007 }
|
||||
{$IFDEF VER185}
|
||||
{$UNDEF DELPHI10A} // declared in VER180
|
||||
{$UNDEF DELPHI2006} // declared in VER180
|
||||
{$UNDEF BDS4} // declared in VER180
|
||||
|
||||
{$DEFINE DELPHI10B}
|
||||
{$DEFINE DELPHI10BUP}
|
||||
{$DEFINE DELPHI11}
|
||||
{$DEFINE DELPHI11UP}
|
||||
{$DEFINE DELPHI2007}
|
||||
{$DEFINE DELPHI2007UP}
|
||||
{$DEFINE BDS5}
|
||||
{$DEFINE BDS5UP}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for Delphi 2009 }
|
||||
{$IFDEF VER200}
|
||||
{$DEFINE VER140UP}
|
||||
{$DEFINE DELPHI}
|
||||
|
||||
{$DEFINE DELPHI12}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$DEFINE DELPHI3UP}
|
||||
{$DEFINE DELPHI4UP}
|
||||
{$DEFINE DELPHI5UP}
|
||||
{$DEFINE DELPHI6UP}
|
||||
{$DEFINE DELPHI7UP}
|
||||
{$DEFINE DELPHI9UP}
|
||||
{$DEFINE DELPHI10UP}
|
||||
{$DEFINE DELPHI11UP}
|
||||
{$DEFINE DELPHI12UP}
|
||||
|
||||
{$DEFINE DELPHI2009}
|
||||
{$DEFINE DELPHI2005UP}
|
||||
{$DEFINE DELPHI2006UP}
|
||||
{$DEFINE DELPHI2007UP}
|
||||
{$DEFINE DELPHI2009UP}
|
||||
|
||||
{$DEFINE BDS}
|
||||
{$DEFINE BDS6}
|
||||
{$DEFINE BDS3UP}
|
||||
{$DEFINE BDS4UP}
|
||||
{$DEFINE BDS5UP}
|
||||
{$DEFINE BDS6UP}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for Delphi 2010 }
|
||||
{$IFDEF VER210}
|
||||
{$DEFINE VER140UP}
|
||||
{$DEFINE DELPHI}
|
||||
|
||||
{$DEFINE DELPHI14}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$DEFINE DELPHI3UP}
|
||||
{$DEFINE DELPHI4UP}
|
||||
{$DEFINE DELPHI5UP}
|
||||
{$DEFINE DELPHI6UP}
|
||||
{$DEFINE DELPHI7UP}
|
||||
{$DEFINE DELPHI9UP}
|
||||
{$DEFINE DELPHI10UP}
|
||||
{$DEFINE DELPHI11UP}
|
||||
{$DEFINE DELPHI12UP}
|
||||
{$DEFINE DELPHI14UP}
|
||||
|
||||
{$DEFINE DELPHI2010}
|
||||
{$DEFINE DELPHI2005UP}
|
||||
{$DEFINE DELPHI2006UP}
|
||||
{$DEFINE DELPHI2007UP}
|
||||
{$DEFINE DELPHI2009UP}
|
||||
{$DEFINE DELPHI2010UP}
|
||||
|
||||
{$DEFINE BDS}
|
||||
{$DEFINE BDS7}
|
||||
{$DEFINE BDS3UP}
|
||||
{$DEFINE BDS4UP}
|
||||
{$DEFINE BDS5UP}
|
||||
{$DEFINE BDS6UP}
|
||||
{$DEFINE BDS7UP}
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
{$IFDEF WIN32}
|
||||
{$DEFINE MSWINDOWS} //not automatically defined for Delphi 2 thru 5
|
||||
{$DEFINE 32BIT}
|
||||
{$DEFINE CPU32}
|
||||
{$ENDIF}
|
||||
{$ENDIF MSWINDOWS}
|
||||
|
||||
{ defines for Delphi 2011 }
|
||||
{$IFDEF VER220}
|
||||
{$DEFINE VER140UP}
|
||||
{$DEFINE DELPHI}
|
||||
|
||||
{$DEFINE DELPHI15}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$DEFINE DELPHI3UP}
|
||||
{$DEFINE DELPHI4UP}
|
||||
{$DEFINE DELPHI5UP}
|
||||
{$DEFINE DELPHI6UP}
|
||||
{$DEFINE DELPHI7UP}
|
||||
{$DEFINE DELPHI9UP}
|
||||
{$DEFINE DELPHI10UP}
|
||||
{$DEFINE DELPHI11UP}
|
||||
{$DEFINE DELPHI12UP}
|
||||
{$DEFINE DELPHI14UP}
|
||||
{$DEFINE DELPHI15UP}
|
||||
|
||||
{$DEFINE DELPHIXE}
|
||||
{$DEFINE DELPHIXEUP}
|
||||
{$DEFINE DELPHI2011}
|
||||
{$DEFINE DELPHI2005UP}
|
||||
{$DEFINE DELPHI2006UP}
|
||||
{$DEFINE DELPHI2007UP}
|
||||
{$DEFINE DELPHI2009UP}
|
||||
{$DEFINE DELPHI2010UP}
|
||||
{$DEFINE DELPHI2011UP}
|
||||
{$DEFINE BDS}
|
||||
{$DEFINE BDS8}
|
||||
{$DEFINE BDS3UP}
|
||||
{$DEFINE BDS4UP}
|
||||
{$DEFINE BDS5UP}
|
||||
{$DEFINE BDS6UP}
|
||||
{$DEFINE BDS7UP}
|
||||
{$DEFINE BDS8UP}
|
||||
{$DEFINE 32BIT}
|
||||
{$DEFINE CPU32}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for Delphi XE2 }
|
||||
{$IFDEF VER230}
|
||||
{$DEFINE VER140UP}
|
||||
{$DEFINE DELPHI}
|
||||
|
||||
{$DEFINE DELPHI16}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$DEFINE DELPHI3UP}
|
||||
{$DEFINE DELPHI4UP}
|
||||
{$DEFINE DELPHI5UP}
|
||||
{$DEFINE DELPHI6UP}
|
||||
{$DEFINE DELPHI7UP}
|
||||
{$DEFINE DELPHI9UP}
|
||||
{$DEFINE DELPHI10UP}
|
||||
{$DEFINE DELPHI11UP}
|
||||
{$DEFINE DELPHI12UP}
|
||||
{$DEFINE DELPHI14UP}
|
||||
{$DEFINE DELPHI15UP}
|
||||
{$DEFINE DELPHI16UP}
|
||||
|
||||
{$DEFINE DELPHIXE2}
|
||||
{$DEFINE DELPHIXEUP}
|
||||
{$DEFINE DELPHIXE2UP}
|
||||
{$DEFINE DELPHI2012}
|
||||
{$DEFINE DELPHI2005UP}
|
||||
{$DEFINE DELPHI2006UP}
|
||||
{$DEFINE DELPHI2007UP}
|
||||
{$DEFINE DELPHI2009UP}
|
||||
{$DEFINE DELPHI2010UP}
|
||||
{$DEFINE DELPHI2011UP}
|
||||
{$DEFINE DELPHI2012UP}
|
||||
{$DEFINE BDS}
|
||||
{$DEFINE BDS9}
|
||||
{$DEFINE BDS3UP}
|
||||
{$DEFINE BDS4UP}
|
||||
{$DEFINE BDS5UP}
|
||||
{$DEFINE BDS6UP}
|
||||
{$DEFINE BDS7UP}
|
||||
{$DEFINE BDS8UP}
|
||||
{$DEFINE BDS9UP}
|
||||
{$IFDEF CPUX64}
|
||||
{$DEFINE 64BIT}
|
||||
{$DEFINE CPU64}
|
||||
{$ELSE}
|
||||
{$DEFINE 32BIT}
|
||||
{$DEFINE CPU32}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
{ defines for Delphi XE3 }
|
||||
{$IFDEF VER240}
|
||||
{$DEFINE VER140UP}
|
||||
{$DEFINE DELPHI}
|
||||
|
||||
{$DEFINE DELPHI17}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$DEFINE DELPHI3UP}
|
||||
{$DEFINE DELPHI4UP}
|
||||
{$DEFINE DELPHI5UP}
|
||||
{$DEFINE DELPHI6UP}
|
||||
{$DEFINE DELPHI7UP}
|
||||
{$DEFINE DELPHI9UP}
|
||||
{$DEFINE DELPHI10UP}
|
||||
{$DEFINE DELPHI11UP}
|
||||
{$DEFINE DELPHI12UP}
|
||||
{$DEFINE DELPHI14UP}
|
||||
{$DEFINE DELPHI15UP}
|
||||
{$DEFINE DELPHI16UP}
|
||||
{$DEFINE DELPHI17UP}
|
||||
|
||||
{$DEFINE DELPHIXE3}
|
||||
{$DEFINE DELPHIXEUP}
|
||||
{$DEFINE DELPHIXE2UP}
|
||||
{$DEFINE DELPHIXE3UP}
|
||||
{$DEFINE DELPHI2013}
|
||||
{$DEFINE DELPHI2005UP}
|
||||
{$DEFINE DELPHI2006UP}
|
||||
{$DEFINE DELPHI2007UP}
|
||||
{$DEFINE DELPHI2009UP}
|
||||
{$DEFINE DELPHI2010UP}
|
||||
{$DEFINE DELPHI2011UP}
|
||||
{$DEFINE DELPHI2012UP}
|
||||
{$DEFINE DELPHI2013UP}
|
||||
{$DEFINE BDS}
|
||||
{$DEFINE BDS10}
|
||||
{$DEFINE BDS3UP}
|
||||
{$DEFINE BDS4UP}
|
||||
{$DEFINE BDS5UP}
|
||||
{$DEFINE BDS6UP}
|
||||
{$DEFINE BDS7UP}
|
||||
{$DEFINE BDS8UP}
|
||||
{$DEFINE BDS9UP}
|
||||
{$DEFINE BDS10UP}
|
||||
{$IFDEF CPUX64}
|
||||
{$DEFINE 64BIT}
|
||||
{$DEFINE CPU64}
|
||||
{$ELSE}
|
||||
{$DEFINE 32BIT}
|
||||
{$DEFINE CPU32}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for Delphi XE4 }
|
||||
{$IFDEF VER250}
|
||||
{$DEFINE VER140UP}
|
||||
{$DEFINE DELPHI}
|
||||
|
||||
{$DEFINE DELPHI18}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$DEFINE DELPHI3UP}
|
||||
{$DEFINE DELPHI4UP}
|
||||
{$DEFINE DELPHI5UP}
|
||||
{$DEFINE DELPHI6UP}
|
||||
{$DEFINE DELPHI7UP}
|
||||
{$DEFINE DELPHI9UP}
|
||||
{$DEFINE DELPHI10UP}
|
||||
{$DEFINE DELPHI11UP}
|
||||
{$DEFINE DELPHI12UP}
|
||||
{$DEFINE DELPHI14UP}
|
||||
{$DEFINE DELPHI15UP}
|
||||
{$DEFINE DELPHI16UP}
|
||||
{$DEFINE DELPHI17UP}
|
||||
{$DEFINE DELPHI18UP}
|
||||
|
||||
{$DEFINE DELPHIXE4}
|
||||
{$DEFINE DELPHIXEUP}
|
||||
{$DEFINE DELPHIXE2UP}
|
||||
{$DEFINE DELPHIXE3UP}
|
||||
{$DEFINE DELPHIXE4UP}
|
||||
{$DEFINE DELPHI2014}
|
||||
{$DEFINE DELPHI2005UP}
|
||||
{$DEFINE DELPHI2006UP}
|
||||
{$DEFINE DELPHI2007UP}
|
||||
{$DEFINE DELPHI2009UP}
|
||||
{$DEFINE DELPHI2010UP}
|
||||
{$DEFINE DELPHI2011UP}
|
||||
{$DEFINE DELPHI2012UP}
|
||||
{$DEFINE DELPHI2013UP}
|
||||
{$DEFINE DELPHI2014UP}
|
||||
{$DEFINE BDS}
|
||||
{$DEFINE BDS11}
|
||||
{$DEFINE BDS3UP}
|
||||
{$DEFINE BDS4UP}
|
||||
{$DEFINE BDS5UP}
|
||||
{$DEFINE BDS6UP}
|
||||
{$DEFINE BDS7UP}
|
||||
{$DEFINE BDS8UP}
|
||||
{$DEFINE BDS9UP}
|
||||
{$DEFINE BDS10UP}
|
||||
{$DEFINE BDS11UP}
|
||||
{$IFDEF CPUX64}
|
||||
{$DEFINE 64BIT}
|
||||
{$DEFINE CPU64}
|
||||
{$ELSE}
|
||||
{$DEFINE 32BIT}
|
||||
{$DEFINE CPU32}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
{ defines for Delphi XE5 }
|
||||
{$IFDEF VER260}
|
||||
{$DEFINE VER140UP}
|
||||
{$DEFINE DELPHI}
|
||||
|
||||
{$DEFINE DELPHI19}
|
||||
{$DEFINE DELPHI1UP}
|
||||
{$DEFINE DELPHI2UP}
|
||||
{$DEFINE DELPHI3UP}
|
||||
{$DEFINE DELPHI4UP}
|
||||
{$DEFINE DELPHI5UP}
|
||||
{$DEFINE DELPHI6UP}
|
||||
{$DEFINE DELPHI7UP}
|
||||
{$DEFINE DELPHI9UP}
|
||||
{$DEFINE DELPHI10UP}
|
||||
{$DEFINE DELPHI11UP}
|
||||
{$DEFINE DELPHI12UP}
|
||||
{$DEFINE DELPHI14UP}
|
||||
{$DEFINE DELPHI15UP}
|
||||
{$DEFINE DELPHI16UP}
|
||||
{$DEFINE DELPHI17UP}
|
||||
{$DEFINE DELPHI18UP}
|
||||
{$DEFINE DELPHI19UP}
|
||||
|
||||
{$DEFINE DELPHIXE5}
|
||||
{$DEFINE DELPHIXEUP}
|
||||
{$DEFINE DELPHIXE2UP}
|
||||
{$DEFINE DELPHIXE3UP}
|
||||
{$DEFINE DELPHIXE4UP}
|
||||
{$DEFINE DELPHIXE5UP}
|
||||
{$DEFINE DELPHI2005UP}
|
||||
{$DEFINE DELPHI2006UP}
|
||||
{$DEFINE DELPHI2007UP}
|
||||
{$DEFINE DELPHI2009UP}
|
||||
{$DEFINE DELPHI2010UP}
|
||||
{$DEFINE DELPHI2011UP}
|
||||
{$DEFINE DELPHI2012UP}
|
||||
{$DEFINE DELPHI2013UP}
|
||||
{$DEFINE DELPHI2014UP}
|
||||
|
||||
{$DEFINE BDS}
|
||||
{$DEFINE BDS12}
|
||||
{$DEFINE BDS3UP}
|
||||
{$DEFINE BDS4UP}
|
||||
{$DEFINE BDS5UP}
|
||||
{$DEFINE BDS6UP}
|
||||
{$DEFINE BDS7UP}
|
||||
{$DEFINE BDS8UP}
|
||||
{$DEFINE BDS9UP}
|
||||
{$DEFINE BDS10UP}
|
||||
{$DEFINE BDS11UP}
|
||||
{$DEFINE BDS12UP}
|
||||
{$IFDEF CPUX64}
|
||||
{$DEFINE 64BIT}
|
||||
{$DEFINE CPU64}
|
||||
{$ELSE}
|
||||
{$DEFINE 32BIT}
|
||||
{$DEFINE CPU32}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
{ defines for "Delphi for .NET" }
|
||||
{$IFDEF CLR}
|
||||
{$DEFINE DOTNET}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF DELPHI}
|
||||
{$IFDEF DELPHI2UP}
|
||||
{$DEFINE DELPHI_32BIT}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF CBUILDER}
|
||||
{$DEFINE CBUILDER_32BIT}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFNDEF FPC}
|
||||
|
||||
{ Kylix 1.0 thru 3.0 }
|
||||
{$IFDEF LINUX}
|
||||
|
||||
{$DEFINE VER140UP}
|
||||
|
||||
{ Any Kylix }
|
||||
{$DEFINE 32BIT}
|
||||
{$DEFINE LINUX32}
|
||||
{$DEFINE KYLIX_32BIT}
|
||||
{$DEFINE KYLIX}
|
||||
{$DEFINE KYLIX1UP}
|
||||
|
||||
{$IFDEF CONDITIONALEXPRESSIONS}
|
||||
{$IF Declared(CompilerVersion)}
|
||||
|
||||
{ Kylix 2.0 }
|
||||
{$IF Declared(RTLVersion) and (RTLVersion = 14.1)}
|
||||
{$DEFINE KYLIX2}
|
||||
{$DEFINE KYLIX1UP}
|
||||
{$DEFINE KYLIX2UP}
|
||||
{$IFEND}
|
||||
|
||||
{ Kylix 3.0 - Delphi portion }
|
||||
{$IF Declared(RTLVersion) and (RTLVersion = 14.5)}
|
||||
{$DEFINE KYLIX3}
|
||||
{$DEFINE KYLIX1UP}
|
||||
{$DEFINE KYLIX2UP}
|
||||
{$DEFINE KYLIX3UP}
|
||||
{$IFEND}
|
||||
|
||||
{ Kylix 1.0 }
|
||||
{$ELSE}
|
||||
{$DEFINE KYLIX1}
|
||||
{$IFEND}
|
||||
{$ENDIF CONDITIONALEXPRESSIONS}
|
||||
|
||||
{$ENDIF LINUX}
|
||||
{$ENDIF}
|
||||
|
||||
{ CPU }
|
||||
|
||||
{$IFDEF FPC}
|
||||
{$IFDEF MSWINDOWS}
|
||||
{$IFDEF CPU64}
|
||||
{$DEFINE WIN64}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
{$IFDEF LINUX}
|
||||
{$IFDEF CPU32}
|
||||
{$DEFINE LINUX32}
|
||||
{$ENDIF}
|
||||
{$IFDEF CPU64}
|
||||
{$DEFINE LINUX64}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
{$IFDEF DARWIN}
|
||||
{$IFDEF CPU32}
|
||||
{$DEFINE DARWIN32}
|
||||
{$ENDIF}
|
||||
{$IFDEF CPU64}
|
||||
{$DEFINE DARWIN64}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
{$ELSE}
|
||||
{$DEFINE ENDIAN_LITTLE} // To have endianness symbol defined in Delphi too
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF DELPHI}
|
||||
{$DEFINE DELPHI_or_MSWINDOWS}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF MSWINDOWS}
|
||||
{$DEFINE DELPHI_or_MSWINDOWS}
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF MACOS}
|
||||
{$DEFINE DELPHI_OSX}
|
||||
{$IFDEF CPUX64}
|
||||
{$DEFINE DELPHI_OSX64}
|
||||
{$ELSE}
|
||||
{$DEFINE DELPHI_OSX32}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
29
Pascal Script for Delphi/Source/pascalscript.pas
Normal file
29
Pascal Script for Delphi/Source/pascalscript.pas
Normal file
@@ -0,0 +1,29 @@
|
||||
{ This file was automatically created by Lazarus. Do not edit!
|
||||
This source is only used to compile and install the package.
|
||||
}
|
||||
|
||||
unit PascalScript;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uPSRuntime, PascalScript_Core_Reg, uPSC_buttons, uPSC_classes, uPSC_controls,
|
||||
uPSC_dateutils, uPSC_DB, uPSC_dll, uPSC_extctrls, uPSC_forms,
|
||||
uPSC_graphics, uPSC_menus, uPSC_std, uPSC_stdctrls, uPSCompiler,
|
||||
uPSComponent, uPSComponent_Controls, uPSComponent_DB, uPSComponent_Default,
|
||||
uPSComponent_Forms, uPSComponent_StdCtrls, uPSComponentExt, uPSDebugger,
|
||||
uPSDisassembly, uPSPreProcessor, uPSR_buttons, uPSR_classes, uPSR_controls,
|
||||
uPSR_dateutils, uPSR_DB, uPSR_dll, uPSR_extctrls, uPSR_forms,
|
||||
uPSR_graphics, uPSR_menus, uPSR_std, uPSR_stdctrls, uPSUtils,
|
||||
LazarusPackageIntf;
|
||||
|
||||
implementation
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterUnit('PascalScript_Core_Reg', @PascalScript_Core_Reg.Register);
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterPackage('PascalScript', @Register);
|
||||
end.
|
||||
412
Pascal Script for Delphi/Source/powerpc.inc
Normal file
412
Pascal Script for Delphi/Source/powerpc.inc
Normal file
@@ -0,0 +1,412 @@
|
||||
{ implementation of the powerpc osx abi for function calls in pascal script
|
||||
Copyright (c) 2007 by Henry Vermaak (henry.vermaak@gmail.com) }
|
||||
|
||||
{$ifndef darwin}
|
||||
{$fatal This code is Darwin specific at the moment!}
|
||||
{$endif}
|
||||
|
||||
{$ifndef cpu32}
|
||||
{$fatal This code is 32bit specific at the moment!}
|
||||
{$endif}
|
||||
// FPC does not always push a copy of r3 - r10 to the stack (24(r1) - 52(r1)
|
||||
// The API states that the space must be reserved, if the regiser contents are not placed there.
|
||||
{$define NeedRegCopyOnStack}
|
||||
const
|
||||
rtINT = 0;
|
||||
rtINT64 = 1;
|
||||
rtFLOAT = 2;
|
||||
|
||||
type
|
||||
Trint = array[1..8] of dword;
|
||||
Trfloat = array[1..13] of double;
|
||||
|
||||
{$goto on}
|
||||
{ define labels }
|
||||
label
|
||||
rfloat_loop,
|
||||
stack_loop,
|
||||
load_regs,
|
||||
int_result,
|
||||
int64_result,
|
||||
float_result,
|
||||
asmcall_end;
|
||||
|
||||
{ call a function from a pointer }
|
||||
{ resulttype: 0 = int, 1 = int64, 2 = float }
|
||||
function ppcasmcall(rint: Trint; rfloat: Trfloat; proc, stack: pointer; stacksize, resulttype: integer): pointer; assembler; nostackframe;
|
||||
asm
|
||||
mflr r0
|
||||
stw r0, 8(r1)
|
||||
|
||||
{ save non-volatile register/s - make sure the stack size is sufficient! }
|
||||
stw r31, -4(r1) { stacksize }
|
||||
|
||||
stwu r1, -240(r1) { create stack }
|
||||
|
||||
{ get all the params into the stack }
|
||||
stw r3, 48(r1) { rint }
|
||||
stw r4, 52(r1) { rfloat }
|
||||
stw r5, 56(r1) { proc }
|
||||
stw r6, 60(r1) { stack }
|
||||
stw r7, 64(r1) { stacksize }
|
||||
stw r8, 68(r1) { resulttype }
|
||||
{ result is stored in 72(r1) and 76(r1) (if returning int64) }
|
||||
|
||||
{ write rint array into stack }
|
||||
lwz r2, 48(r1) { rint }
|
||||
lfd f0, 0(r2)
|
||||
stfd f0, 80(r1) { rint[1], rint[2] }
|
||||
lfd f0, 8(r2)
|
||||
stfd f0, 88(r1) { rint[3], rint[4] }
|
||||
lfd f0, 16(r2)
|
||||
stfd f0, 96(r1) { rint[5], rint[6] }
|
||||
lfd f0, 24(r2)
|
||||
stfd f0, 104(r1) { rint[7], rint[8] }
|
||||
|
||||
{ write rfloat array into stack }
|
||||
lwz r2, 52(r1) { rfloat }
|
||||
addi r4, r1, 112 { rfloat[1] from here upwards (8 bytes apart) }
|
||||
subi r2, r2, 8 { src }
|
||||
subi r4, r4, 8 { dest }
|
||||
li r3, 13 { counter }
|
||||
|
||||
rfloat_loop:
|
||||
subic. r3, r3, 1 { dec counter }
|
||||
lfdu f0, 8(r2) { load rfloat[x] + update }
|
||||
stfdu f0, 8(r4) { store rfloat[x] + update }
|
||||
bne cr0, rfloat_loop
|
||||
|
||||
{ create new stack }
|
||||
mflr r0
|
||||
stw r0, 8(r1)
|
||||
mr r12, r1 { remember previous stack to fill in regs later }
|
||||
|
||||
lwz r31, 64(r12) { load stacksize into r31 }
|
||||
neg r3, r31 { negate }
|
||||
stwux r1, r1, r3 { create new stack }
|
||||
|
||||
{ build up the stack here }
|
||||
mr r3, r31 { counter }
|
||||
subic. r3, r3, 24 { don't write first 24 }
|
||||
ble cr0, load_regs { don't fill in stack if there is none }
|
||||
|
||||
lwz r2, 60(r12) { pointer to stack }
|
||||
addi r2, r2, 24 { start of params }
|
||||
subi r2, r2, 1 { src }
|
||||
|
||||
addi r4, r1, 24 { start of params }
|
||||
subi r4, r4, 1 { dest }
|
||||
|
||||
stack_loop:
|
||||
subic. r3, r3, 1 { dec counter }
|
||||
lbzu r5, 1(r2) { load stack + update }
|
||||
stbu r5, 1(r4) { store stack + update }
|
||||
bne cr0, stack_loop
|
||||
|
||||
load_regs: { now load the registers from the previous stack in r12 }
|
||||
lwz r3, 80(r12)
|
||||
lwz r4, 84(r12)
|
||||
lwz r5, 88(r12)
|
||||
lwz r6, 92(r12)
|
||||
lwz r7, 96(r12)
|
||||
lwz r8, 100(r12)
|
||||
lwz r9, 104(r12)
|
||||
lwz r10, 108(r12)
|
||||
|
||||
lfd f1, 112(r12)
|
||||
lfd f2, 120(r12)
|
||||
lfd f3, 128(r12)
|
||||
lfd f4, 136(r12)
|
||||
lfd f5, 144(r12)
|
||||
lfd f6, 152(r12)
|
||||
lfd f7, 160(r12)
|
||||
lfd f8, 168(r12)
|
||||
lfd f9, 176(r12)
|
||||
lfd f10, 184(r12)
|
||||
lfd f11, 192(r12)
|
||||
lfd f12, 200(r12)
|
||||
lfd f13, 208(r12)
|
||||
|
||||
{ now call this function }
|
||||
lwz r2, 56(r12) { proc }
|
||||
mtctr r2 { move to ctr }
|
||||
bctrl { branch and link to ctr }
|
||||
|
||||
{ restore stack - use stacksize in r31 }
|
||||
add r1, r1, r31
|
||||
lwz r0, 8(r1)
|
||||
mtlr r0
|
||||
|
||||
{ check resulttype and put appropriate pointer into r3 }
|
||||
lwz r2, 68(r1) { resulttype }
|
||||
cmpwi cr0, r2, 0 { int result? }
|
||||
beq cr0, int_result { branch if equal }
|
||||
|
||||
cmpwi cr0, r2, 1 { single result? }
|
||||
beq cr0, int64_result { branch if equal }
|
||||
|
||||
|
||||
float_result: { the result is a double}
|
||||
stfd f1, 72(r1) { write f1 to result on stack }
|
||||
b asmcall_end
|
||||
|
||||
|
||||
int64_result: { the result is a single }
|
||||
stw r3, 72(r1) { write high dword to result on stack }
|
||||
stw r4, 76(r1) { write low dword to result on stack }
|
||||
b asmcall_end
|
||||
|
||||
|
||||
int_result: { the result is dword }
|
||||
stw r3, 72(r1) { write r3 to result on stack }
|
||||
|
||||
|
||||
asmcall_end: { epilogue }
|
||||
addi r3, r1, 72 { pointer to result on the stack }
|
||||
addi r1, r1, 240 { restore stack }
|
||||
|
||||
{ restore non-volatile register/s }
|
||||
lwz r31, -4(r1)
|
||||
|
||||
lwz r0, 8(r1)
|
||||
mtlr r0
|
||||
blr
|
||||
end;
|
||||
|
||||
function FlipHiLo(v: byte): byte;
|
||||
var
|
||||
i: integer;
|
||||
j, k: byte;
|
||||
begin
|
||||
Result := 0;
|
||||
k := $80;
|
||||
j := $01;
|
||||
for i := 0 to 7 do begin
|
||||
if (v and k) <> 0 then
|
||||
Result := Result or j;
|
||||
k := k div 2;
|
||||
j := j * 2;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TPSExec.InnerfuseCall(_Self, Address: Pointer; CallingConv: TPSCallingConvention; Params: TPSList; res: PPSVariantIFC): Boolean;
|
||||
var
|
||||
rint: Trint; { registers r3 to r10 }
|
||||
rfloat: Trfloat; { registers f1 to f13 }
|
||||
st: packed array of byte; { stack }
|
||||
i, j, n, m, rindex, findex, stindex: integer;
|
||||
fvar: PPSVariantIFC;
|
||||
IsConstructor: Boolean;
|
||||
fSetHelper: dword;
|
||||
fSetP1, fsetP2: PByte;
|
||||
|
||||
{ add a dword to stack }
|
||||
procedure addstackdword(value: dword);
|
||||
begin
|
||||
{$ifndef NeedRegCopyOnStack}
|
||||
if stindex = 0 then begin
|
||||
stindex := 56; // leave empty space for registers on stack
|
||||
end;
|
||||
{$endif}
|
||||
setlength(st, stindex+4);
|
||||
pdword(@st[stindex])^ := value;
|
||||
inc(stindex, 4);
|
||||
end;
|
||||
|
||||
{ add a float to stack }
|
||||
procedure addstackfloat(value: pointer; size: integer);
|
||||
begin
|
||||
{$ifndef NeedRegCopyOnStack}
|
||||
if stindex = 0 then begin
|
||||
stindex := 56; // leave empty space for registers on stack
|
||||
end;
|
||||
{$endif}
|
||||
setlength(st, stindex + (size * 4));
|
||||
if size = 1
|
||||
then psingle(@st[stindex])^ := single(value^)
|
||||
else pdouble(@st[stindex])^ := double(value^);
|
||||
inc(stindex, size*4);
|
||||
end;
|
||||
|
||||
{ add to the general registers or overflow to stack }
|
||||
procedure addgen(value: dword);
|
||||
begin
|
||||
if rindex <= 8
|
||||
then begin
|
||||
rint[rindex] := value;
|
||||
inc(rindex);
|
||||
{$ifdef NeedRegCopyOnStack}
|
||||
addstackdword(value);
|
||||
{$endif}
|
||||
end
|
||||
else begin
|
||||
addstackdword(value);
|
||||
end;
|
||||
end;
|
||||
{ add to the float registers or overflow to stack }
|
||||
{ size = 1 for single, 2 for double }
|
||||
procedure addfloat(value: pointer; size: integer);
|
||||
begin
|
||||
if findex <= 13
|
||||
then begin
|
||||
if size = 1
|
||||
then rfloat[findex] := single(value^)
|
||||
else rfloat[findex] := double(value^);
|
||||
inc(findex);
|
||||
inc(rindex, size);
|
||||
{$ifdef NeedRegCopyOnStack}
|
||||
addstackfloat(value, size);
|
||||
{$endif}
|
||||
end
|
||||
else begin
|
||||
addstackfloat(value, size);
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
if (Integer(CallingConv) and 64) <> 0 then begin
|
||||
IsConstructor := true;
|
||||
CAllingConv := TPSCallingConvention(Integer(CallingConv) and not 64);
|
||||
end else IsConstructor := false;
|
||||
|
||||
rindex := 1;
|
||||
findex := 1;
|
||||
{$ifdef NeedRegCopyOnStack}
|
||||
stindex := 24;
|
||||
{$else}
|
||||
stindex := 0; // do not create a stack, if only registers are used
|
||||
{$endif}
|
||||
setlength(st, stindex);
|
||||
Result := False;
|
||||
|
||||
if assigned(_Self) then begin
|
||||
addgen(dword(_Self));
|
||||
end;
|
||||
|
||||
{ the pointer of the result needs to be passed first in the case of some result types }
|
||||
if assigned(res)
|
||||
then begin
|
||||
case res.atype.basetype of
|
||||
btStaticArray, btRecord, btString: addgen(dword(res.dta));
|
||||
end;
|
||||
end;
|
||||
|
||||
{ process all parameters }
|
||||
for i := 0 to Params.Count-1 do begin
|
||||
if Params[i] = nil
|
||||
then Exit;
|
||||
fvar := Params[i];
|
||||
|
||||
{ cook dynamic arrays - fpc stores size-1 at @array-4 }
|
||||
if (fvar.aType.BaseType = btArray)
|
||||
then dec(pdword(pointer(fvar.dta^)-4)^);
|
||||
|
||||
if fvar.varparam
|
||||
then begin { var param }
|
||||
case fvar.aType.BaseType of
|
||||
{ add var params here }
|
||||
btArray, btVariant, btSet, btStaticArray, btRecord, btInterface, btClass, {$IFNDEF PS_NOWIDESTRING} btWideString, btWideChar, {$ENDIF}
|
||||
btU8, btS8, btU16, btS16, btU32, btS32, btSingle, btDouble, btExtended, btString, btPChar, btChar, btCurrency
|
||||
{$IFNDEF PS_NOINT64}, bts64{$ENDIF}: addgen(dword(fvar.dta)); { TODO: test all }
|
||||
else begin
|
||||
writeln(stderr, 'Parameter type not recognised!');
|
||||
Exit;
|
||||
end;
|
||||
end; { case }
|
||||
end else begin { not a var param }
|
||||
case fvar.aType.BaseType of
|
||||
// btArray, btVariant, btSet, btStaticArray, btRecord, btInterface, btClass, {$IFNDEF PS_NOWIDESTRING} btWideString, btWideChar, {$ENDIF}
|
||||
// btU8, btS8, btU16, btS16, btU32, btS32, btSingle, btDouble, btExtended, btString, btPChar, btChar, btCurrency
|
||||
// {$IFNDEF PS_NOINT64}, bts64{$ENDIF}: writeln('normal param');
|
||||
|
||||
{ add normal params here }
|
||||
btString: addgen(dword(pstring(fvar.dta)^));
|
||||
btU8, btS8: addgen(dword(pbyte(fvar.dta)^));
|
||||
btU16, BtS16: addgen(dword(pword(fvar.dta)^));
|
||||
btU32, btS32: addgen(dword(pdword(fvar.dta)^));
|
||||
btSingle: addfloat(fvar.dta, 1);
|
||||
btDouble, btExtended: addfloat(fvar.dta, 2);
|
||||
btPChar: addgen(dword(ppchar(fvar.dta)^));
|
||||
btChar: addgen(dword(pchar(fvar.dta)^));
|
||||
{$IFNDEF PS_NOINT64}bts64:{$ENDIF} begin
|
||||
addgen(dword(pint64(fvar.dta)^ shr 32));
|
||||
addgen(dword(pint64(fvar.dta)^ and $ffffffff));
|
||||
end;
|
||||
btStaticArray: addgen(dword(fvar.dta));
|
||||
btRecord: for j := 0 to (fvar.atype.realsize div 4)-1 do
|
||||
addgen(pdword(fvar.dta + j*4)^);
|
||||
btArray: addgen(dword(fvar.dta^));
|
||||
btSet: begin
|
||||
|
||||
fSetP1 := fvar.dta;
|
||||
fSetP2 := @fSetHelper;
|
||||
fSetHelper := 0;
|
||||
for n := 1 to TPSTypeRec_Set(fvar.aType).aByteSize do
|
||||
begin
|
||||
fSetP2^ := fliphilo(fSetP1^);
|
||||
inc(fSetP1);
|
||||
inc(fSetP2);
|
||||
if n and 3 = 0
|
||||
then begin
|
||||
addgen(fSetHelper);
|
||||
fSetP2 := @fSetHelper;
|
||||
fSetHelper := 0;
|
||||
end;
|
||||
end;
|
||||
if TPSTypeRec_Set(fvar.aType).aByteSize and 3 <> 0
|
||||
then addgen(fSetHelper);
|
||||
|
||||
end;
|
||||
|
||||
{ TODO add and test }
|
||||
{ btVariant, btSet, btInterface, btClass }
|
||||
|
||||
else begin
|
||||
writeln(stderr, 'Parameter type not implemented!');
|
||||
Exit;
|
||||
end;
|
||||
end; { case }
|
||||
end; { else }
|
||||
end; { for }
|
||||
|
||||
if (stindex mod 16) <> 0 then begin
|
||||
stindex := stindex + 16 - (stindex mod 16);
|
||||
setlength(st, stindex);
|
||||
end;
|
||||
|
||||
if not assigned(res)
|
||||
then begin
|
||||
ppcasmcall(rint, rfloat, address, st, stindex, rtINT); { ignore return }
|
||||
end
|
||||
else begin
|
||||
case res.atype.basetype of
|
||||
{ add result types here }
|
||||
btString: ppcasmcall(rint, rfloat, address, st, stindex, rtINT);
|
||||
btU8, btS8: pbyte(res.dta)^ := byte(pdword(ppcasmcall(rint, rfloat, address, st, stindex, rtINT))^);
|
||||
btU16, btS16: pword(res.dta)^ := word(pdword(ppcasmcall(rint, rfloat, address, st, stindex, rtINT))^);
|
||||
btU32, btS32: pdword(res.dta)^ := pdword(ppcasmcall(rint, rfloat, address, st, stindex, rtINT))^;
|
||||
btSingle: psingle(res.dta)^ := pdouble(ppcasmcall(rint, rfloat, address, st, stindex, rtFLOAT))^;
|
||||
btDouble, btExtended: pdouble(res.dta)^ := pdouble(ppcasmcall(rint, rfloat, address, st, stindex, rtFLOAT))^;
|
||||
btPChar: ppchar(res.dta)^ := pchar(pdword(ppcasmcall(rint, rfloat, address, st, stindex, rtINT))^);
|
||||
btChar: pchar(res.dta)^ := char(pdword(ppcasmcall(rint, rfloat, address, st, stindex, rtINT))^);
|
||||
btStaticArray, btRecord: ppcasmcall(rint, rfloat, address, st, stindex, rtINT);
|
||||
btArray: res.dta := ppcasmcall(rint, rfloat, address, st, stindex, rtINT);
|
||||
|
||||
{ TODO add and test }
|
||||
|
||||
else begin
|
||||
writeln(stderr, 'Result type not implemented!');
|
||||
exit;
|
||||
end; { else }
|
||||
end; { case }
|
||||
end;
|
||||
|
||||
{ cook dynamic arrays - fpc stores size-1 at @array-4 }
|
||||
for i := 0 to Params.Count-1 do begin
|
||||
fvar := Params[i];
|
||||
if (fvar.aType.BaseType = btArray)
|
||||
then inc(pdword(pointer(fvar.dta^)-4)^);
|
||||
end;
|
||||
|
||||
Result := True;
|
||||
end;
|
||||
902
Pascal Script for Delphi/Source/uPSC_DB.pas
Normal file
902
Pascal Script for Delphi/Source/uPSC_DB.pas
Normal file
@@ -0,0 +1,902 @@
|
||||
{ Compiletime DB support }
|
||||
Unit uPSC_DB;
|
||||
{
|
||||
This file has been generated by UnitParser v0.4, written by M. Knight.
|
||||
Source Code from Carlo Kok has been used to implement various sections of
|
||||
UnitParser. Components of ifps3 are used in the construction of UnitParser,
|
||||
code implementing the class wrapper is taken from Carlo Kok''s conv unility
|
||||
|
||||
Licence :
|
||||
This software is provided 'as-is', without any expressed or implied
|
||||
warranty. In no event will the author be held liable for any damages
|
||||
arising from the use of this software.
|
||||
Permission is granted to anyone to use this software for any kind of
|
||||
application, and to alter it and redistribute it freely, subject to
|
||||
the following restrictions:
|
||||
1. The origin of this software must not be misrepresented, you must
|
||||
not claim that you wrote the original software.
|
||||
2. Altered source versions must be plainly marked as such, and must
|
||||
not be misrepresented as being the original software.
|
||||
3. You may not create a library that uses this library as a main part
|
||||
of the program and sell that library.
|
||||
4. You must have a visible line in your programs aboutbox or
|
||||
documentation that it is made using Innerfuse Script and where
|
||||
Innerfuse Pascal Script can be found.
|
||||
5. This notice may not be removed or altered from any source
|
||||
distribution.
|
||||
|
||||
If you have any questions concerning this license write to Carlo Kok:
|
||||
ck@carlo-kok.com or try the newsserver:
|
||||
news://news.carlo-kok.com/
|
||||
}
|
||||
{$I PascalScript.inc}
|
||||
Interface
|
||||
uses
|
||||
uPSCompiler;
|
||||
|
||||
procedure SIRegisterTDATASET(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTPARAMS(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTPARAM(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTGUIDFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTVARIANTFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTREFERENCEFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTDATASETFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTARRAYFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTADTFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTOBJECTFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTGRAPHICFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTMEMOFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTBLOBFIELD(CL: TPSPascalCompiler);
|
||||
{$IFDEF DELPHI6UP}
|
||||
procedure SIRegisterTFMTBCDFIELD(CL: TPSPascalCompiler);
|
||||
{$ENDIF}
|
||||
procedure SIRegisterTBCDFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTVARBYTESFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTBYTESFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTBINARYFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTTIMEFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTDATEFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTDATETIMEFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTBOOLEANFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTCURRENCYFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTFLOATFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTAUTOINCFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTWORDFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTLARGEINTFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTSMALLINTFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTINTEGERFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTNUMERICFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTWIDESTRINGFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTSTRINGFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTFIELD(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTLOOKUPLIST(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTFIELDS(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTFIELDLIST(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTFIELDDEFLIST(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTFLATLIST(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTINDEXDEFS(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTINDEXDEF(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTFIELDDEFS(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTFIELDDEF(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTDEFCOLLECTION(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTNAMEDITEM(CL: TPSPascalCompiler);
|
||||
procedure SIRegister_DB(Cl: TPSPascalCompiler);
|
||||
|
||||
implementation
|
||||
Uses Sysutils;
|
||||
|
||||
Function RegClassS(cl : TPSPascalCompiler;Const InheritsFrom,Classname : String) : TPSCompileTimeClass;
|
||||
begin
|
||||
Result := cl.FindClass(Classname);
|
||||
if Result = nil then
|
||||
Result := cl.AddClassN(cl.FindClass(InheritsFrom),Classname)
|
||||
else
|
||||
Result.ClassInheritsFrom := cl.FindClass(InheritsFrom);
|
||||
end;
|
||||
|
||||
procedure SIRegisterTDATASET(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TCOMPONENT','TDATASET') do
|
||||
begin
|
||||
RegisterMethod('Function ACTIVEBUFFER : PCHAR');
|
||||
RegisterMethod('Procedure APPEND');
|
||||
RegisterMethod('Procedure APPENDRECORD( const VALUES : array of const)');
|
||||
// RegisterMethod('Function BOOKMARKVALID( BOOKMARK : TBOOKMARK) : BOOLEAN');
|
||||
RegisterMethod('Procedure CANCEL');
|
||||
RegisterMethod('Procedure CHECKBROWSEMODE');
|
||||
RegisterMethod('Procedure CLEARFIELDS');
|
||||
RegisterMethod('Procedure CLOSE');
|
||||
RegisterMethod('Function CONTROLSDISABLED : BOOLEAN');
|
||||
// RegisterMethod('Function COMPAREBOOKMARKS( BOOKMARK1, BOOKMARK2 : TBOOKMARK) : INTEGER');
|
||||
RegisterMethod('Function CREATEBLOBSTREAM( FIELD : TFIELD; MODE : TBLOBSTREAMMODE) : TSTREAM');
|
||||
RegisterMethod('Procedure CURSORPOSCHANGED');
|
||||
RegisterMethod('Procedure DELETE');
|
||||
RegisterMethod('Procedure DISABLECONTROLS');
|
||||
RegisterMethod('Procedure EDIT');
|
||||
RegisterMethod('Procedure ENABLECONTROLS');
|
||||
{$IFDEF DELPHI2006UP}
|
||||
{$IFDEF DELPHI2009UP}
|
||||
RegisterMethod('Function FIELDBYNAME( const FIELDNAME : String): TFIELD');
|
||||
RegisterMethod('Function FINDFIELD( const FIELDNAME : String) : TFIELD');
|
||||
{$ELSE}
|
||||
RegisterMethod('Function FIELDBYNAME( const FIELDNAME : WIDESTRING) : TFIELD');
|
||||
RegisterMethod('Function FINDFIELD( const FIELDNAME : WideString) : TFIELD');
|
||||
{$ENDIF}
|
||||
{$ELSE}
|
||||
RegisterMethod('Function FIELDBYNAME( const FIELDNAME : STRING) : TFIELD');
|
||||
RegisterMethod('Function FINDFIELD( const FIELDNAME : STRING) : TFIELD');
|
||||
{$ENDIF}
|
||||
RegisterMethod('Function FINDFIRST : BOOLEAN');
|
||||
RegisterMethod('Function FINDLAST : BOOLEAN');
|
||||
RegisterMethod('Function FINDNEXT : BOOLEAN');
|
||||
RegisterMethod('Function FINDPRIOR : BOOLEAN');
|
||||
RegisterMethod('Procedure FIRST');
|
||||
// RegisterMethod('Procedure FREEBOOKMARK( BOOKMARK : TBOOKMARK)');
|
||||
// RegisterMethod('Function GETBOOKMARK : TBOOKMARK');
|
||||
RegisterMethod('Function GETCURRENTRECORD( BUFFER : PCHAR) : BOOLEAN');
|
||||
// RegisterMethod('Procedure GETDETAILDATASETS( LIST : TLIST)');
|
||||
// RegisterMethod('Procedure GETFIELDLIST( LIST : TLIST; const FIELDNAMES : STRING)');
|
||||
// RegisterMethod('Procedure GETDETAILLINKFIELDS( MASTERFIELDS, DETAILFIELDS : TLIST)');
|
||||
// RegisterMethod('Function GETBLOBFIELDDATA( FIELDNO : INTEGER; var BUFFER : TBLOBBYTEDATA) : INTEGER');
|
||||
RegisterMethod('Procedure GETFIELDNAMES( LIST : TSTRINGS)');
|
||||
// RegisterMethod('Procedure GOTOBOOKMARK( BOOKMARK : TBOOKMARK)');
|
||||
RegisterMethod('Procedure INSERT');
|
||||
RegisterMethod('Procedure INSERTRECORD( const VALUES : array of const)');
|
||||
RegisterMethod('Function ISEMPTY : BOOLEAN');
|
||||
RegisterMethod('Function ISLINKEDTO( DATASOURCE : TDATASOURCE) : BOOLEAN');
|
||||
RegisterMethod('Function ISSEQUENCED : BOOLEAN');
|
||||
RegisterMethod('Procedure LAST');
|
||||
RegisterMethod('Function LOCATE( const KEYFIELDS : String; const KEYVALUES : VARIANT; OPTIONS : TLOCATEOPTIONS) : BOOLEAN');
|
||||
RegisterMethod('Function LOOKUP( const KEYFIELDS : String; const KEYVALUES : VARIANT; const RESULTFIELDS : String) : VARIANT');
|
||||
RegisterMethod('Function MOVEBY( DISTANCE : INTEGER) : INTEGER');
|
||||
RegisterMethod('Procedure NEXT');
|
||||
RegisterMethod('Procedure OPEN');
|
||||
RegisterMethod('Procedure POST');
|
||||
RegisterMethod('Procedure PRIOR');
|
||||
RegisterMethod('Procedure REFRESH');
|
||||
// RegisterMethod('Procedure RESYNC( MODE : TRESYNCMODE)');
|
||||
RegisterMethod('Procedure SETFIELDS( const VALUES : array of const)');
|
||||
RegisterMethod('Function TRANSLATE( SRC, DEST : PCHAR; TOOEM : BOOLEAN) : INTEGER');
|
||||
RegisterMethod('Procedure UPDATECURSORPOS');
|
||||
RegisterMethod('Procedure UPDATERECORD');
|
||||
RegisterMethod('Function UPDATESTATUS : TUPDATESTATUS');
|
||||
RegisterProperty('AGGFIELDS', 'TFIELDS', iptr);
|
||||
RegisterProperty('BOF', 'BOOLEAN', iptr);
|
||||
// RegisterProperty('BOOKMARK', 'TBOOKMARKSTR', iptrw);
|
||||
RegisterProperty('CANMODIFY', 'BOOLEAN', iptr);
|
||||
RegisterProperty('DATASETFIELD', 'TDATASETFIELD', iptrw);
|
||||
RegisterProperty('DATASOURCE', 'TDATASOURCE', iptr);
|
||||
RegisterProperty('DEFAULTFIELDS', 'BOOLEAN', iptr);
|
||||
RegisterProperty('DESIGNER', 'TDATASETDESIGNER', iptr);
|
||||
RegisterProperty('EOF', 'BOOLEAN', iptr);
|
||||
RegisterProperty('BLOCKREADSIZE', 'INTEGER', iptrw);
|
||||
RegisterProperty('FIELDCOUNT', 'INTEGER', iptr);
|
||||
RegisterProperty('FIELDDEFS', 'TFIELDDEFS', iptrw);
|
||||
RegisterProperty('FIELDDEFLIST', 'TFIELDDEFLIST', iptr);
|
||||
RegisterProperty('FIELDS', 'TFIELDS', iptr);
|
||||
RegisterProperty('FIELDLIST', 'TFIELDLIST', iptr);
|
||||
RegisterProperty('FIELDVALUES', 'VARIANT String', iptrw);
|
||||
RegisterProperty('FOUND', 'BOOLEAN', iptr);
|
||||
{$IFDEF DELPHI6UP}
|
||||
RegisterProperty('ISUNIDIRECTIONAL', 'BOOLEAN', iptr);
|
||||
{$ENDIF}
|
||||
RegisterProperty('MODIFIED', 'BOOLEAN', iptr);
|
||||
RegisterProperty('OBJECTVIEW', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('RECORDCOUNT', 'INTEGER', iptr);
|
||||
RegisterProperty('RECNO', 'INTEGER', iptrw);
|
||||
RegisterProperty('RECORDSIZE', 'WORD', iptr);
|
||||
RegisterProperty('SPARSEARRAYS', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('STATE', 'TDATASETSTATE', iptr);
|
||||
RegisterProperty('FILTER', 'String', iptrw);
|
||||
RegisterProperty('FILTERED', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('FILTEROPTIONS', 'TFILTEROPTIONS', iptrw);
|
||||
RegisterProperty('ACTIVE', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('AUTOCALCFIELDS', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('BEFOREOPEN', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('AFTEROPEN', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('BEFORECLOSE', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('AFTERCLOSE', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('BEFOREINSERT', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('AFTERINSERT', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('BEFOREEDIT', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('AFTEREDIT', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('BEFOREPOST', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('AFTERPOST', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('BEFORECANCEL', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('AFTERCANCEL', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('BEFOREDELETE', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('AFTERDELETE', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('BEFORESCROLL', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('AFTERSCROLL', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('BEFOREREFRESH', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('AFTERREFRESH', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONCALCFIELDS', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONDELETEERROR', 'TDATASETERROREVENT', iptrw);
|
||||
RegisterProperty('ONEDITERROR', 'TDATASETERROREVENT', iptrw);
|
||||
RegisterProperty('ONFILTERRECORD', 'TFILTERRECORDEVENT', iptrw);
|
||||
RegisterProperty('ONNEWRECORD', 'TDATASETNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONPOSTERROR', 'TDATASETERROREVENT', iptrw);
|
||||
SetDefaultPropery('FieldValues');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTPARAMS(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TCOLLECTION','TPARAMS') do
|
||||
begin
|
||||
RegisterMethod('Procedure ASSIGNVALUES( VALUE : TPARAMS)');
|
||||
RegisterMethod('Procedure ADDPARAM( VALUE : TPARAM)');
|
||||
RegisterMethod('Procedure REMOVEPARAM( VALUE : TPARAM)');
|
||||
RegisterMethod('Function CREATEPARAM( FLDTYPE : TFIELDTYPE; const PARAMNAME : String; PARAMTYPE : TPARAMTYPE) : TPARAM');
|
||||
// RegisterMethod('Procedure GETPARAMLIST( LIST : TLIST; const PARAMNAMES : STRING)');
|
||||
RegisterMethod('Function ISEQUAL( VALUE : TPARAMS) : BOOLEAN');
|
||||
RegisterMethod('Function PARSESQL( SQL : String; DOCREATE : BOOLEAN) : String');
|
||||
RegisterMethod('Function PARAMBYNAME( const VALUE : String) : TPARAM');
|
||||
RegisterMethod('Function FINDPARAM( const VALUE : String) : TPARAM');
|
||||
RegisterProperty('ITEMS', 'TPARAM INTEGER', iptrw);
|
||||
RegisterProperty('PARAMVALUES', 'VARIANT String', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTPARAM(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TCOLLECTIONITEM','TPARAM') do
|
||||
begin
|
||||
RegisterMethod('Procedure ASSIGNFIELD( FIELD : TFIELD)');
|
||||
RegisterMethod('Procedure ASSIGNFIELDVALUE( FIELD : TFIELD; const VALUE : VARIANT)');
|
||||
RegisterMethod('Procedure CLEAR');
|
||||
// RegisterMethod('Procedure GETDATA( BUFFER : POINTER)');
|
||||
RegisterMethod('Function GETDATASIZE : INTEGER');
|
||||
RegisterMethod('Procedure LOADFROMFILE( const FILENAME : String; BLOBTYPE : TBLOBTYPE)');
|
||||
RegisterMethod('Procedure LOADFROMSTREAM( STREAM : TSTREAM; BLOBTYPE : TBLOBTYPE)');
|
||||
// RegisterMethod('Procedure SETBLOBDATA( BUFFER : POINTER; SIZE : INTEGER)');
|
||||
// RegisterMethod('Procedure SETDATA( BUFFER : POINTER)');
|
||||
{$IFDEF DELPHI6UP}
|
||||
RegisterProperty('ASBCD', 'CURRENCY', iptrw);
|
||||
{$ENDIF}
|
||||
{$IFDEF DELPHI6UP}
|
||||
RegisterProperty('ASFMTBCD', 'TBCD', iptrw);
|
||||
{$ENDIF}
|
||||
RegisterProperty('ASBLOB', 'TBLOBDATA', iptrw);
|
||||
RegisterProperty('ASBOOLEAN', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('ASCURRENCY', 'CURRENCY', iptrw);
|
||||
RegisterProperty('ASDATE', 'TDATETIME', iptrw);
|
||||
RegisterProperty('ASDATETIME', 'TDATETIME', iptrw);
|
||||
RegisterProperty('ASFLOAT', 'DOUBLE', iptrw);
|
||||
RegisterProperty('ASINTEGER', 'LONGINT', iptrw);
|
||||
RegisterProperty('ASSMALLINT', 'LONGINT', iptrw);
|
||||
RegisterProperty('ASMEMO', 'String', iptrw);
|
||||
RegisterProperty('ASSTRING', 'String', iptrw);
|
||||
RegisterProperty('ASTIME', 'TDATETIME', iptrw);
|
||||
RegisterProperty('ASWORD', 'LONGINT', iptrw);
|
||||
RegisterProperty('BOUND', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('ISNULL', 'BOOLEAN', iptr);
|
||||
RegisterProperty('NATIVESTR', 'String', iptrw);
|
||||
RegisterProperty('TEXT', 'String', iptrw);
|
||||
RegisterProperty('DATATYPE', 'TFIELDTYPE', iptrw);
|
||||
{$IFDEF DELPHI6UP}
|
||||
RegisterProperty('PRECISION', 'INTEGER', iptrw);
|
||||
RegisterProperty('NUMERICSCALE', 'INTEGER', iptrw);
|
||||
RegisterProperty('SIZE', 'INTEGER', iptrw);
|
||||
{$ENDIF}
|
||||
RegisterProperty('NAME', 'String', iptrw);
|
||||
RegisterProperty('PARAMTYPE', 'TPARAMTYPE', iptrw);
|
||||
RegisterProperty('VALUE', 'VARIANT', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTGUIDFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TFIELD','TGUIDFIELD') do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTVARIANTFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TFIELD','TVARIANTFIELD') do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTREFERENCEFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TDATASETFIELD','TREFERENCEFIELD') do
|
||||
begin
|
||||
RegisterProperty('REFERENCETABLENAME', 'String', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTDATASETFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TOBJECTFIELD','TDATASETFIELD') do
|
||||
begin
|
||||
RegisterProperty('NESTEDDATASET', 'TDATASET', iptr);
|
||||
RegisterProperty('INCLUDEOBJECTFIELD', 'BOOLEAN', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTARRAYFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TOBJECTFIELD','TARRAYFIELD') do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTADTFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TOBJECTFIELD','TADTFIELD') do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTOBJECTFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TFIELD','TOBJECTFIELD') do
|
||||
begin
|
||||
RegisterProperty('FIELDCOUNT', 'INTEGER', iptr);
|
||||
RegisterProperty('FIELDS', 'TFIELDS', iptr);
|
||||
RegisterProperty('FIELDVALUES', 'VARIANT INTEGER', iptrw);
|
||||
RegisterProperty('UNNAMED', 'BOOLEAN', iptr);
|
||||
RegisterProperty('OBJECTTYPE', 'String', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTGRAPHICFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TBLOBFIELD','TGRAPHICFIELD') do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTMEMOFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TBLOBFIELD','TMEMOFIELD') do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTBLOBFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TFIELD','TBLOBFIELD') do
|
||||
begin
|
||||
RegisterMethod('Procedure LOADFROMFILE( const FILENAME : String)');
|
||||
RegisterMethod('Procedure LOADFROMSTREAM( STREAM : TSTREAM)');
|
||||
RegisterMethod('Procedure SAVETOFILE( const FILENAME : String)');
|
||||
RegisterMethod('Procedure SAVETOSTREAM( STREAM : TSTREAM)');
|
||||
RegisterProperty('BLOBSIZE', 'INTEGER', iptr);
|
||||
RegisterProperty('MODIFIED', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('VALUE', 'String', iptrw);
|
||||
RegisterProperty('TRANSLITERATE', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('BLOBTYPE', 'TBLOBTYPE', iptrw);
|
||||
{$IFDEF DELPHI6UP}
|
||||
RegisterProperty('GRAPHICHEADER', 'BOOLEAN', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
{$IFDEF DELPHI6UP}
|
||||
procedure SIRegisterTFMTBCDFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TNUMERICFIELD','TFMTBCDFIELD') do
|
||||
begin
|
||||
RegisterProperty('VALUE', 'TBCD', iptrw);
|
||||
RegisterProperty('CURRENCY', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('MAXVALUE', 'String', iptrw);
|
||||
RegisterProperty('MINVALUE', 'String', iptrw);
|
||||
RegisterProperty('PRECISION', 'INTEGER', iptrw);
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
procedure SIRegisterTBCDFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TNUMERICFIELD','TBCDFIELD') do
|
||||
begin
|
||||
RegisterProperty('VALUE', 'CURRENCY', iptrw);
|
||||
RegisterProperty('CURRENCY', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('MAXVALUE', 'CURRENCY', iptrw);
|
||||
RegisterProperty('MINVALUE', 'CURRENCY', iptrw);
|
||||
RegisterProperty('PRECISION', 'INTEGER', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTVARBYTESFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TBYTESFIELD','TVARBYTESFIELD') do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTBYTESFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TBINARYFIELD','TBYTESFIELD') do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTBINARYFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TFIELD','TBINARYFIELD') do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTTIMEFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TDATETIMEFIELD','TTIMEFIELD') do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTDATEFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TDATETIMEFIELD','TDATEFIELD') do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTDATETIMEFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TFIELD','TDATETIMEFIELD') do
|
||||
begin
|
||||
RegisterProperty('VALUE', 'TDATETIME', iptrw);
|
||||
RegisterProperty('DISPLAYFORMAT', 'String', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTBOOLEANFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TFIELD','TBOOLEANFIELD') do
|
||||
begin
|
||||
RegisterProperty('VALUE', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('DISPLAYVALUES', 'String', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTCURRENCYFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TFLOATFIELD','TCURRENCYFIELD') do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTFLOATFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TNUMERICFIELD','TFLOATFIELD') do
|
||||
begin
|
||||
RegisterProperty('VALUE', 'DOUBLE', iptrw);
|
||||
RegisterProperty('CURRENCY', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('MAXVALUE', 'DOUBLE', iptrw);
|
||||
RegisterProperty('MINVALUE', 'DOUBLE', iptrw);
|
||||
RegisterProperty('PRECISION', 'INTEGER', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTAUTOINCFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TINTEGERFIELD','TAUTOINCFIELD') do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTWORDFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TINTEGERFIELD','TWORDFIELD') do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTLARGEINTFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TNUMERICFIELD','TLARGEINTFIELD') do
|
||||
begin
|
||||
RegisterProperty('ASLARGEINT', 'LARGEINT', iptrw);
|
||||
RegisterProperty('VALUE', 'LARGEINT', iptrw);
|
||||
RegisterProperty('MAXVALUE', 'LARGEINT', iptrw);
|
||||
RegisterProperty('MINVALUE', 'LARGEINT', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTSMALLINTFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TINTEGERFIELD','TSMALLINTFIELD') do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTINTEGERFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TNUMERICFIELD','TINTEGERFIELD') do
|
||||
begin
|
||||
RegisterProperty('VALUE', 'LONGINT', iptrw);
|
||||
RegisterProperty('MAXVALUE', 'LONGINT', iptrw);
|
||||
RegisterProperty('MINVALUE', 'LONGINT', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTNUMERICFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TFIELD','TNUMERICFIELD') do
|
||||
begin
|
||||
RegisterProperty('DISPLAYFORMAT', 'String', iptrw);
|
||||
RegisterProperty('EDITFORMAT', 'String', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTWIDESTRINGFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TSTRINGFIELD','TWIDESTRINGFIELD') do
|
||||
begin
|
||||
RegisterProperty('VALUE', 'WIDESTRING', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTSTRINGFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TFIELD','TSTRINGFIELD') do
|
||||
begin
|
||||
RegisterProperty('VALUE', 'String', iptrw);
|
||||
RegisterProperty('FIXEDCHAR', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('TRANSLITERATE', 'BOOLEAN', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTFIELD(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TCOMPONENT','TFIELD') do
|
||||
begin
|
||||
//RegisterMethod('Procedure ASSIGNVALUE( const VALUE : TVARREC)');
|
||||
RegisterMethod('Procedure CLEAR');
|
||||
RegisterMethod('Procedure FOCUSCONTROL');
|
||||
// RegisterMethod('Function GETDATA( BUFFER : POINTER; NATIVEFORMAT : BOOLEAN) : BOOLEAN');
|
||||
RegisterMethod('Function ISVALIDCHAR( INPUTCHAR : CHAR) : BOOLEAN');
|
||||
RegisterMethod('Procedure REFRESHLOOKUPLIST');
|
||||
// RegisterMethod('Procedure SETDATA( BUFFER : POINTER; NATIVEFORMAT : BOOLEAN)');
|
||||
RegisterMethod('Procedure SETFIELDTYPE( VALUE : TFIELDTYPE)');
|
||||
// RegisterMethod('Procedure VALIDATE( BUFFER : POINTER)');
|
||||
{$IFDEF DELPHI6UP}
|
||||
RegisterProperty('ASBCD', 'TBCD', iptrw);
|
||||
{$ENDIF}
|
||||
RegisterProperty('ASBOOLEAN', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('ASCURRENCY', 'CURRENCY', iptrw);
|
||||
RegisterProperty('ASDATETIME', 'TDATETIME', iptrw);
|
||||
RegisterProperty('ASFLOAT', 'DOUBLE', iptrw);
|
||||
RegisterProperty('ASINTEGER', 'LONGINT', iptrw);
|
||||
RegisterProperty('ASSTRING', 'String', iptrw);
|
||||
RegisterProperty('ASVARIANT', 'VARIANT', iptrw);
|
||||
RegisterProperty('ATTRIBUTESET', 'String', iptrw);
|
||||
RegisterProperty('CALCULATED', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('CANMODIFY', 'BOOLEAN', iptr);
|
||||
RegisterProperty('CURVALUE', 'VARIANT', iptr);
|
||||
RegisterProperty('DATASET', 'TDATASET', iptrw);
|
||||
RegisterProperty('DATASIZE', 'INTEGER', iptr);
|
||||
RegisterProperty('DATATYPE', 'TFIELDTYPE', iptr);
|
||||
RegisterProperty('DISPLAYNAME', 'String', iptr);
|
||||
RegisterProperty('DISPLAYTEXT', 'String', iptr);
|
||||
RegisterProperty('EDITMASK', 'TEDITMASK', iptrw);
|
||||
RegisterProperty('EDITMASKPTR', 'TEDITMASK', iptr);
|
||||
RegisterProperty('EDITMASK', 'String', iptrw);
|
||||
RegisterProperty('EDITMASKPTR', 'String', iptr);
|
||||
RegisterProperty('FIELDNO', 'INTEGER', iptr);
|
||||
RegisterProperty('FULLNAME', 'String', iptr);
|
||||
RegisterProperty('ISINDEXFIELD', 'BOOLEAN', iptr);
|
||||
RegisterProperty('ISNULL', 'BOOLEAN', iptr);
|
||||
RegisterProperty('LOOKUP', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('LOOKUPLIST', 'TLOOKUPLIST', iptr);
|
||||
RegisterProperty('NEWVALUE', 'VARIANT', iptrw);
|
||||
RegisterProperty('OFFSET', 'INTEGER', iptr);
|
||||
RegisterProperty('OLDVALUE', 'VARIANT', iptr);
|
||||
RegisterProperty('PARENTFIELD', 'TOBJECTFIELD', iptrw);
|
||||
RegisterProperty('SIZE', 'INTEGER', iptrw);
|
||||
RegisterProperty('TEXT', 'String', iptrw);
|
||||
RegisterProperty('VALIDCHARS', 'TFIELDCHARS', iptrw);
|
||||
RegisterProperty('VALUE', 'VARIANT', iptrw);
|
||||
RegisterProperty('ALIGNMENT', 'TALIGNMENT', iptrw);
|
||||
RegisterProperty('AUTOGENERATEVALUE', 'TAUTOREFRESHFLAG', iptrw);
|
||||
RegisterProperty('CUSTOMCONSTRAINT', 'String', iptrw);
|
||||
RegisterProperty('CONSTRAINTERRORMESSAGE', 'String', iptrw);
|
||||
RegisterProperty('DEFAULTEXPRESSION', 'String', iptrw);
|
||||
RegisterProperty('DISPLAYLABEL', 'String', iptrw);
|
||||
RegisterProperty('DISPLAYWIDTH', 'INTEGER', iptrw);
|
||||
RegisterProperty('FIELDKIND', 'TFIELDKIND', iptrw);
|
||||
RegisterProperty('FIELDNAME', 'String', iptrw);
|
||||
RegisterProperty('HASCONSTRAINTS', 'BOOLEAN', iptr);
|
||||
RegisterProperty('INDEX', 'INTEGER', iptrw);
|
||||
RegisterProperty('IMPORTEDCONSTRAINT', 'String', iptrw);
|
||||
RegisterProperty('LOOKUPDATASET', 'TDATASET', iptrw);
|
||||
RegisterProperty('LOOKUPKEYFIELDS', 'String', iptrw);
|
||||
RegisterProperty('LOOKUPRESULTFIELD', 'String', iptrw);
|
||||
RegisterProperty('KEYFIELDS', 'String', iptrw);
|
||||
RegisterProperty('LOOKUPCACHE', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('ORIGIN', 'String', iptrw);
|
||||
RegisterProperty('PROVIDERFLAGS', 'TPROVIDERFLAGS', iptrw);
|
||||
RegisterProperty('READONLY', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('REQUIRED', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('VISIBLE', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('ONCHANGE', 'TFIELDNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONGETTEXT', 'TFIELDGETTEXTEVENT', iptrw);
|
||||
RegisterProperty('ONSETTEXT', 'TFIELDSETTEXTEVENT', iptrw);
|
||||
RegisterProperty('ONVALIDATE', 'TFIELDNOTIFYEVENT', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTLOOKUPLIST(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TOBJECT','TLOOKUPLIST') do
|
||||
begin
|
||||
RegisterMethod('Constructor CREATE');
|
||||
RegisterMethod('Procedure ADD( const AKEY, AVALUE : VARIANT)');
|
||||
RegisterMethod('Procedure CLEAR');
|
||||
RegisterMethod('Function VALUEOFKEY( const AKEY : VARIANT) : VARIANT');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTFIELDS(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TOBJECT','TFIELDS') do
|
||||
begin
|
||||
RegisterMethod('Constructor CREATE( ADATASET : TDATASET)');
|
||||
RegisterMethod('Procedure ADD( FIELD : TFIELD)');
|
||||
RegisterMethod('Procedure CHECKFIELDNAME( const FIELDNAME : String)');
|
||||
RegisterMethod('Procedure CHECKFIELDNAMES( const FIELDNAMES : String)');
|
||||
RegisterMethod('Procedure CLEAR');
|
||||
RegisterMethod('Function FINDFIELD( const FIELDNAME : String) : TFIELD');
|
||||
RegisterMethod('Function FIELDBYNAME( const FIELDNAME : String) : TFIELD');
|
||||
RegisterMethod('Function FIELDBYNUMBER( FIELDNO : INTEGER) : TFIELD');
|
||||
RegisterMethod('Procedure GETFIELDNAMES( LIST : TSTRINGS)');
|
||||
RegisterMethod('Function INDEXOF( FIELD : TFIELD) : INTEGER');
|
||||
RegisterMethod('Procedure REMOVE( FIELD : TFIELD)');
|
||||
RegisterProperty('COUNT', 'INTEGER', iptr);
|
||||
RegisterProperty('DATASET', 'TDATASET', iptr);
|
||||
RegisterProperty('FIELDS', 'TFIELD INTEGER', iptrw);
|
||||
SetDefaultPropery('FIELDS');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTFIELDLIST(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TFLATLIST','TFIELDLIST') do
|
||||
begin
|
||||
RegisterMethod('Function FIELDBYNAME( const NAME : String) : TFIELD');
|
||||
RegisterMethod('Function FIND( const NAME : String) : TFIELD');
|
||||
RegisterProperty('FIELDS', 'TFIELD INTEGER', iptr);
|
||||
SetDefaultPropery('FIELDS');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTFIELDDEFLIST(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TFLATLIST','TFIELDDEFLIST') do
|
||||
begin
|
||||
RegisterMethod('Function FIELDBYNAME( const NAME : String) : TFIELDDEF');
|
||||
RegisterMethod('Function FIND( const NAME : String) : TFIELDDEF');
|
||||
RegisterProperty('FIELDDEFS', 'TFIELDDEF INTEGER', iptr);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTFLATLIST(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TSTRINGLIST','TFLATLIST') do
|
||||
begin
|
||||
RegisterMethod('Constructor CREATE( ADATASET : TDATASET)');
|
||||
RegisterMethod('Procedure UPDATE');
|
||||
RegisterProperty('DATASET', 'TDATASET', iptr);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTINDEXDEFS(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TDEFCOLLECTION','TINDEXDEFS') do
|
||||
begin
|
||||
RegisterMethod('Constructor CREATE( ADATASET : TDATASET)');
|
||||
RegisterMethod('Function ADDINDEXDEF : TINDEXDEF');
|
||||
RegisterMethod('Function FIND( const NAME : String) : TINDEXDEF');
|
||||
RegisterMethod('Procedure UPDATE');
|
||||
RegisterMethod('Function FINDINDEXFORFIELDS( const FIELDS : String) : TINDEXDEF');
|
||||
RegisterMethod('Function GETINDEXFORFIELDS( const FIELDS : String; CASEINSENSITIVE : BOOLEAN) : TINDEXDEF');
|
||||
RegisterMethod('Procedure ADD( const NAME, FIELDS : String; OPTIONS : TINDEXOPTIONS)');
|
||||
RegisterProperty('ITEMS', 'TINDEXDEF INTEGER', iptrw);
|
||||
SetDefaultPropery('ITEMS');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTINDEXDEF(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TNAMEDITEM','TINDEXDEF') do
|
||||
begin
|
||||
RegisterMethod('Constructor CREATE( OWNER : TINDEXDEFS; const NAME, FIELDS : String; OPTIONS : TINDEXOPTIONS)');
|
||||
RegisterProperty('FIELDEXPRESSION', 'String', iptr);
|
||||
RegisterProperty('CASEINSFIELDS', 'String', iptrw);
|
||||
RegisterProperty('DESCFIELDS', 'String', iptrw);
|
||||
RegisterProperty('EXPRESSION', 'String', iptrw);
|
||||
RegisterProperty('FIELDS', 'String', iptrw);
|
||||
RegisterProperty('OPTIONS', 'TINDEXOPTIONS', iptrw);
|
||||
RegisterProperty('SOURCE', 'String', iptrw);
|
||||
RegisterProperty('GROUPINGLEVEL', 'INTEGER', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTFIELDDEFS(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TDEFCOLLECTION','TFIELDDEFS') do
|
||||
begin
|
||||
RegisterMethod('Constructor CREATE( AOWNER : TPERSISTENT)');
|
||||
RegisterMethod('Function ADDFIELDDEF : TFIELDDEF');
|
||||
RegisterMethod('Function FIND( const NAME : String) : TFIELDDEF');
|
||||
RegisterMethod('Procedure UPDATE');
|
||||
RegisterMethod('Procedure ADD( const NAME : String; DATATYPE : TFIELDTYPE; SIZE : INTEGER; REQUIRED : BOOLEAN)');
|
||||
RegisterProperty('HIDDENFIELDS', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('ITEMS', 'TFIELDDEF INTEGER', iptrw);
|
||||
RegisterProperty('PARENTDEF', 'TFIELDDEF', iptr);
|
||||
SetDefaultPropery('ITEMS');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTFIELDDEF(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TNAMEDITEM','TFIELDDEF') do
|
||||
begin
|
||||
// RegisterMethod('Constructor CREATE( OWNER : TFIELDDEFS; const NAME : STRING; DATATYPE : TFIELDTYPE; SIZE : INTEGER; REQUIRED : BOOLEAN; FIELDNO : INTEGER)');
|
||||
RegisterMethod('Function ADDCHILD : TFIELDDEF');
|
||||
RegisterMethod('Function CREATEFIELD( OWNER : TCOMPONENT; PARENTFIELD : TOBJECTFIELD; const FIELDNAME : String; CREATECHILDREN : BOOLEAN) : TFIELD');
|
||||
RegisterMethod('Function HASCHILDDEFS : BOOLEAN');
|
||||
RegisterProperty('FIELDCLASS', 'TFIELDCLASS', iptr);
|
||||
RegisterProperty('FIELDNO', 'INTEGER', iptrw);
|
||||
RegisterProperty('INTERNALCALCFIELD', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('PARENTDEF', 'TFIELDDEF', iptr);
|
||||
RegisterProperty('REQUIRED', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('ATTRIBUTES', 'TFIELDATTRIBUTES', iptrw);
|
||||
RegisterProperty('CHILDDEFS', 'TFIELDDEFS', iptrw);
|
||||
RegisterProperty('DATATYPE', 'TFIELDTYPE', iptrw);
|
||||
RegisterProperty('PRECISION', 'INTEGER', iptrw);
|
||||
RegisterProperty('SIZE', 'INTEGER', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTDEFCOLLECTION(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TOWNEDCOLLECTION','TDEFCOLLECTION') do
|
||||
begin
|
||||
// RegisterMethod('Constructor CREATE( ADATASET : TDATASET; AOWNER : TPERSISTENT; ACLASS : TCOLLECTIONITEMCLASS)');
|
||||
RegisterMethod('Function FIND( const ANAME : String) : TNAMEDITEM');
|
||||
RegisterMethod('Procedure GETITEMNAMES( LIST : TSTRINGS)');
|
||||
RegisterMethod('Function INDEXOF( const ANAME : String) : INTEGER');
|
||||
RegisterProperty('DATASET', 'TDATASET', iptr);
|
||||
RegisterProperty('UPDATED', 'BOOLEAN', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTNAMEDITEM(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With RegClassS(cl,'TCOLLECTIONITEM','TNAMEDITEM') do
|
||||
begin
|
||||
RegisterProperty('NAME', 'String', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegister_DB(Cl: TPSPascalCompiler);
|
||||
Begin
|
||||
cl.AddTypeS('TFieldType', '(ftUnknown, ftString, ftSmallint, ftInteger, ftWord, ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime,'+
|
||||
'ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString,'+
|
||||
'ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd)');
|
||||
|
||||
CL.AddTypeS('TDataSetState', '(dsInactive, dsBrowse, dsEdit, dsInsert, dsSetKey, dsCalcFields, dsFilter, dsNewValue, dsOldValue, dsCurValue, dsBlockRead, dsInternalCalc, dsOpening)');
|
||||
|
||||
cl.addTypeS('TLocateOption','(loCaseInsensitive, loPartialKey)');
|
||||
cl.addtypes('TLocateOptions','set of TLocateOption');
|
||||
cl.addtypes('TUpdateStatus','(usUnmodified, usModified, usInserted, usDeleted)');
|
||||
cl.addtypes('TUpdateStatusSet', 'set of TUpdateStatus');
|
||||
|
||||
cl.addTypeS('TPARAMTYPE', 'BYTE');
|
||||
RegClassS(cl,'TComponent','TDATASET');
|
||||
RegClassS(cl,'TComponent','TFIELD');
|
||||
RegClassS(cl,'TComponent','TFIELDDEFS');
|
||||
RegClassS(cl,'TComponent','TINDEXDEFS');
|
||||
RegClassS(cl, 'TComponent', 'TObjectField');
|
||||
RegClassS(cl, 'TComponent', 'TDataLink');
|
||||
RegClassS(cl, 'TComponent', 'TDataSource');
|
||||
RegClassS(cl, 'TComponent', 'TParam');
|
||||
|
||||
SIRegisterTNAMEDITEM(Cl);
|
||||
Cl.addTypeS('TDEFUPDATEMETHOD', 'Procedure');
|
||||
SIRegisterTDEFCOLLECTION(Cl);
|
||||
cl.AddConstantN('FAHIDDENCOL','LONGINT').Value.tu32 := 1;
|
||||
cl.AddConstantN('FAREADONLY','LONGINT').Value.tu32 := 2;
|
||||
cl.AddConstantN('FAREQUIRED','LONGINT').Value.tu32 := 4;
|
||||
cl.AddConstantN('FALINK','LONGINT').Value.tu32 := 8;
|
||||
cl.AddConstantN('FAUNNAMED','LONGINT').Value.tu32 := 16;
|
||||
cl.AddConstantN('FAFIXED','LONGINT').Value.tu32 := 32;
|
||||
cl.addTypeS('TFIELDATTRIBUTES', 'BYTE');
|
||||
SIRegisterTFIELDDEF(Cl);
|
||||
SIRegisterTFIELDDEFS(Cl);
|
||||
cl.AddConstantN('IXPRIMARY','LONGINT').Value.tu32 := 1;
|
||||
cl.AddConstantN('IXUNIQUE','LONGINT').Value.tu32 := 2;
|
||||
cl.AddConstantN('IXDESCENDING','LONGINT').Value.tu32 := 4;
|
||||
cl.AddConstantN('IXCASEINSENSITIVE','LONGINT').Value.tu32 := 8;
|
||||
cl.AddConstantN('IXEXPRESSION','LONGINT').Value.tu32 := 16;
|
||||
cl.AddConstantN('IXNONMAINTAINED','LONGINT').Value.tu32 := 32;
|
||||
cl.addTypeS('TINDEXOPTIONS', 'BYTE');
|
||||
SIRegisterTINDEXDEF(Cl);
|
||||
SIRegisterTINDEXDEFS(Cl);
|
||||
SIRegisterTFLATLIST(Cl);
|
||||
SIRegisterTFIELDDEFLIST(Cl);
|
||||
SIRegisterTFIELDLIST(Cl);
|
||||
cl.AddConstantN('FKDATA','LONGINT').Value.tu32 := 1;
|
||||
cl.AddConstantN('FKCALCULATED','LONGINT').Value.tu32 := 2;
|
||||
cl.AddConstantN('FKLOOKUP','LONGINT').Value.tu32 := 4;
|
||||
cl.AddConstantN('FKINTERNALCALC','LONGINT').Value.tu32 := 8;
|
||||
cl.AddConstantN('FKAGGREGATE','LONGINT').Value.tu32 := 16;
|
||||
cl.addTypeS('TFIELDKINDS', 'BYTE');
|
||||
SIRegisterTFIELDS(Cl);
|
||||
cl.AddConstantN('PFINUPDATE','LONGINT').Value.tu32 := 1;
|
||||
cl.AddConstantN('PFINWHERE','LONGINT').Value.tu32 := 2;
|
||||
cl.AddConstantN('PFINKEY','LONGINT').Value.tu32 := 4;
|
||||
cl.AddConstantN('PFHIDDEN','LONGINT').Value.tu32 :=8;
|
||||
cl.addTypeS('TPROVIDERFLAGS', 'BYTE');
|
||||
cl.addTypeS('TFIELDNOTIFYEVENT', 'Procedure ( SENDER : TFIELD)');
|
||||
cl.addTypeS('TFIELDGETTEXTEVENT', 'Procedure ( SENDER : TFIELD; var TEXT : S'
|
||||
+'TRING; DISPLAYTEXT : BOOLEAN)');
|
||||
cl.addTypeS('TFIELDSETTEXTEVENT', 'Procedure ( SENDER : TFIELD; const TEXT :'
|
||||
+' String)');
|
||||
cl.addTypeS('TAUTOREFRESHFLAG', '( ARNONE, ARAUTOINC, ARDEFAULT )');
|
||||
SIRegisterTLOOKUPLIST(Cl);
|
||||
SIRegisterTFIELD(Cl);
|
||||
SIRegisterTSTRINGFIELD(Cl);
|
||||
SIRegisterTWIDESTRINGFIELD(Cl);
|
||||
SIRegisterTNUMERICFIELD(Cl);
|
||||
SIRegisterTINTEGERFIELD(Cl);
|
||||
SIRegisterTSMALLINTFIELD(Cl);
|
||||
cl.addTypeS('LARGEINT', 'INT64');
|
||||
SIRegisterTLARGEINTFIELD(Cl);
|
||||
SIRegisterTWORDFIELD(Cl);
|
||||
SIRegisterTAUTOINCFIELD(Cl);
|
||||
SIRegisterTFLOATFIELD(Cl);
|
||||
SIRegisterTCURRENCYFIELD(Cl);
|
||||
SIRegisterTBOOLEANFIELD(Cl);
|
||||
SIRegisterTDATETIMEFIELD(Cl);
|
||||
SIRegisterTDATEFIELD(Cl);
|
||||
SIRegisterTTIMEFIELD(Cl);
|
||||
SIRegisterTBINARYFIELD(Cl);
|
||||
SIRegisterTBYTESFIELD(Cl);
|
||||
SIRegisterTVARBYTESFIELD(Cl);
|
||||
SIRegisterTBCDFIELD(Cl);
|
||||
{$IFDEF DELPHI6UP}
|
||||
SIRegisterTFMTBCDFIELD(Cl);
|
||||
{$ENDIF}
|
||||
cl.addTypeS('TBLOBTYPE', 'BYTE');
|
||||
SIRegisterTBLOBFIELD(Cl);
|
||||
SIRegisterTMEMOFIELD(Cl);
|
||||
SIRegisterTGRAPHICFIELD(Cl);
|
||||
SIRegisterTOBJECTFIELD(Cl);
|
||||
SIRegisterTADTFIELD(Cl);
|
||||
SIRegisterTARRAYFIELD(Cl);
|
||||
SIRegisterTDATASETFIELD(Cl);
|
||||
SIRegisterTREFERENCEFIELD(Cl);
|
||||
SIRegisterTVARIANTFIELD(Cl);
|
||||
SIRegisterTGUIDFIELD(Cl);
|
||||
cl.addTypeS('TBLOBDATA', 'STRING');
|
||||
cl.AddConstantN('PTUNKNOWN','LONGINT').Value.tu32 := 1;
|
||||
cl.AddConstantN('PTINPUT','LONGINT').Value.tu32 := 2;
|
||||
cl.AddConstantN('PTOUTPUT','LONGINT').Value.tu32 := 4;
|
||||
cl.AddConstantN('PTINPUTOUTPUT','LONGINT').Value.tu32 := 8;
|
||||
cl.AddConstantN('PTRESULT','LONGINT').Value.tu32 := 16;
|
||||
RegClassS(cl,'TObject','TPARAMS');
|
||||
SIRegisterTPARAM(Cl);
|
||||
SIRegisterTPARAMS(Cl);
|
||||
cl.addTypeS('TDATAACTION', '( DAFAIL, DAABORT, DARETRY )');
|
||||
cl.addTypeS('TBLOBSTREAMMODE', '( BMREAD, BMWRITE, BMREADWRITE )');
|
||||
cl.addTypeS('TDATAOPERATION', 'Procedure');
|
||||
cl.addTypeS('TDATASETNOTIFYEVENT', 'Procedure ( DATASET : TDATASET)');
|
||||
cl.addTypeS('TDATASETERROREVENT', 'Procedure ( DATASET : TDATASET; E : TObject'
|
||||
+'; var ACTION : TDATAACTION)');
|
||||
cl.addTypeS('TFILTERRECORDEVENT', 'Procedure ( DATASET : TDATASET; var ACCEP'
|
||||
+'T : BOOLEAN)');
|
||||
SIRegisterTDATASET(Cl);
|
||||
end;
|
||||
|
||||
{$IFDEF USEIMPORTER}
|
||||
initialization
|
||||
CIImporter.AddCallBack(@SIRegister_DB,PT_ClassImport);
|
||||
{$ENDIF}
|
||||
end.
|
||||
87
Pascal Script for Delphi/Source/uPSC_buttons.pas
Normal file
87
Pascal Script for Delphi/Source/uPSC_buttons.pas
Normal file
@@ -0,0 +1,87 @@
|
||||
{ Compiletime Buttons support }
|
||||
unit uPSC_buttons;
|
||||
{$I PascalScript.inc}
|
||||
interface
|
||||
uses
|
||||
uPSCompiler, uPSUtils;
|
||||
|
||||
{
|
||||
Will register files from:
|
||||
Buttons
|
||||
|
||||
Requires
|
||||
STD, classes, controls and graphics and StdCtrls
|
||||
}
|
||||
procedure SIRegister_Buttons_TypesAndConsts(Cl: TPSPascalCompiler);
|
||||
|
||||
procedure SIRegisterTSPEEDBUTTON(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTBITBTN(Cl: TPSPascalCompiler);
|
||||
|
||||
procedure SIRegister_Buttons(Cl: TPSPascalCompiler);
|
||||
|
||||
implementation
|
||||
|
||||
procedure SIRegisterTSPEEDBUTTON(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TGRAPHICCONTROL'), 'TSPEEDBUTTON') do
|
||||
begin
|
||||
RegisterProperty('ALLOWALLUP', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('GROUPINDEX', 'INTEGER', iptrw);
|
||||
RegisterProperty('DOWN', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('CAPTION', 'String', iptrw);
|
||||
RegisterProperty('FONT', 'TFont', iptrw);
|
||||
RegisterProperty('GLYPH', 'TBITMAP', iptrw);
|
||||
RegisterProperty('LAYOUT', 'TBUTTONLAYOUT', iptrw);
|
||||
RegisterProperty('MARGIN', 'INTEGER', iptrw);
|
||||
RegisterProperty('NUMGLYPHS', 'BYTE', iptrw);
|
||||
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
RegisterProperty('SPACING', 'INTEGER', iptrw);
|
||||
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTBITBTN(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TBUTTON'), 'TBITBTN') do
|
||||
begin
|
||||
RegisterProperty('GLYPH', 'TBITMAP', iptrw);
|
||||
RegisterProperty('KIND', 'TBITBTNKIND', iptrw);
|
||||
RegisterProperty('LAYOUT', 'TBUTTONLAYOUT', iptrw);
|
||||
RegisterProperty('MARGIN', 'INTEGER', iptrw);
|
||||
RegisterProperty('NUMGLYPHS', 'BYTE', iptrw);
|
||||
RegisterProperty('STYLE', 'TBUTTONSTYLE', iptrw);
|
||||
RegisterProperty('SPACING', 'INTEGER', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
procedure SIRegister_Buttons_TypesAndConsts(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
Cl.AddTypeS('TButtonLayout', '(blGlyphLeft, blGlyphRight, blGlyphTop, blGlyphBottom)');
|
||||
Cl.AddTypeS('TButtonState', '(bsUp, bsDisabled, bsDown, bsExclusive)');
|
||||
Cl.AddTypeS('TButtonStyle', '(bsAutoDetect, bsWin31, bsNew)');
|
||||
Cl.AddTypeS('TBitBtnKind', '(bkCustom, bkOK, bkCancel, bkHelp, bkYes, bkNo, bkClose, bkAbort, bkRetry, bkIgnore, bkAll)');
|
||||
|
||||
end;
|
||||
|
||||
procedure SIRegister_Buttons(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
SIRegister_Buttons_TypesAndConsts(cl);
|
||||
SIRegisterTSPEEDBUTTON(cl);
|
||||
SIRegisterTBITBTN(cl);
|
||||
end;
|
||||
|
||||
// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
|
||||
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
||||
|
||||
328
Pascal Script for Delphi/Source/uPSC_classes.pas
Normal file
328
Pascal Script for Delphi/Source/uPSC_classes.pas
Normal file
@@ -0,0 +1,328 @@
|
||||
{ Compiletime Classes support }
|
||||
unit uPSC_classes;
|
||||
|
||||
{$I PascalScript.inc}
|
||||
interface
|
||||
uses
|
||||
uPSCompiler, uPSUtils;
|
||||
|
||||
{
|
||||
Will register files from:
|
||||
Classes (exception TPersistent and TComponent)
|
||||
|
||||
Register STD first
|
||||
|
||||
}
|
||||
|
||||
procedure SIRegister_Classes_TypesAndConsts(Cl: TPSPascalCompiler);
|
||||
|
||||
procedure SIRegisterTStrings(cl: TPSPascalCompiler; Streams: Boolean);
|
||||
procedure SIRegisterTStringList(cl: TPSPascalCompiler);
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
procedure SIRegisterTBITS(Cl: TPSPascalCompiler);
|
||||
{$ENDIF}
|
||||
procedure SIRegisterTSTREAM(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTHANDLESTREAM(Cl: TPSPascalCompiler);
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
procedure SIRegisterTMEMORYSTREAM(Cl: TPSPascalCompiler);
|
||||
{$ENDIF}
|
||||
procedure SIRegisterTFILESTREAM(Cl: TPSPascalCompiler);
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
procedure SIRegisterTCUSTOMMEMORYSTREAM(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTRESOURCESTREAM(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTPARSER(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTCOLLECTIONITEM(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTCOLLECTION(CL: TPSPascalCompiler);
|
||||
{$IFDEF DELPHI3UP}
|
||||
procedure SIRegisterTOWNEDCOLLECTION(CL: TPSPascalCompiler);
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
procedure SIRegister_Classes(Cl: TPSPascalCompiler; Streams: Boolean{$IFDEF D4PLUS}=True{$ENDIF});
|
||||
|
||||
implementation
|
||||
|
||||
procedure SIRegisterTStrings(cl: TPSPascalCompiler; Streams: Boolean); // requires TPersistent
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TPersistent'), 'TStrings') do
|
||||
begin
|
||||
IsAbstract := True;
|
||||
{$IFDEF DELPHI2005UP}
|
||||
RegisterMethod('constructor Create;');
|
||||
{$ENDIF}
|
||||
RegisterMethod('function Add(S: string): Integer;');
|
||||
RegisterMethod('procedure Append(S: string);');
|
||||
RegisterMethod('procedure AddStrings(Strings: TStrings);');
|
||||
RegisterMethod('procedure Clear;');
|
||||
RegisterMethod('procedure Delete(Index: Integer);');
|
||||
RegisterMethod('function IndexOf(const S: string): Integer; ');
|
||||
RegisterMethod('procedure Insert(Index: Integer; S: string); ');
|
||||
RegisterProperty('Count', 'Integer', iptR);
|
||||
RegisterProperty('Text', 'String', iptrw);
|
||||
RegisterProperty('CommaText', 'String', iptrw);
|
||||
if Streams then
|
||||
begin
|
||||
RegisterMethod('procedure LoadFromFile(FileName: string); ');
|
||||
RegisterMethod('procedure SaveToFile(FileName: string); ');
|
||||
end;
|
||||
RegisterProperty('Strings', 'String Integer', iptRW);
|
||||
SetDefaultPropery('Strings');
|
||||
RegisterProperty('Objects', 'TObject Integer', iptRW);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterMethod('procedure BeginUpdate;');
|
||||
RegisterMethod('procedure EndUpdate;');
|
||||
RegisterMethod('function Equals(Strings: TStrings): Boolean;');
|
||||
RegisterMethod('procedure Exchange(Index1, Index2: Integer);');
|
||||
RegisterMethod('function IndexOfName(Name: string): Integer;');
|
||||
if Streams then
|
||||
RegisterMethod('procedure LoadFromStream(Stream: TStream); ');
|
||||
RegisterMethod('procedure Move(CurIndex, NewIndex: Integer); ');
|
||||
if Streams then
|
||||
RegisterMethod('procedure SaveToStream(Stream: TStream); ');
|
||||
RegisterMethod('procedure SetText(Text: PChar); ');
|
||||
RegisterProperty('Names', 'String Integer', iptr);
|
||||
RegisterProperty('Values', 'String String', iptRW);
|
||||
RegisterMethod('function AddObject(S:String;AObject:TObject):integer');
|
||||
RegisterMethod('function GetText:PChar');
|
||||
RegisterMethod('function IndexofObject(AObject:tObject):Integer');
|
||||
RegisterMethod('procedure InsertObject(Index:Integer;S:String;AObject:TObject)');
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTSTRINGLIST(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TStrings'), 'TStringList') do
|
||||
begin
|
||||
{$IFDEF DELPHI2005UP}
|
||||
RegisterMethod('constructor Create;');
|
||||
{$ENDIF}
|
||||
RegisterMethod('function Find(S:String;var Index:Integer):Boolean');
|
||||
RegisterMethod('procedure Sort');
|
||||
RegisterProperty('Duplicates', 'TDuplicates', iptrw);
|
||||
RegisterProperty('Sorted', 'Boolean', iptrw);
|
||||
RegisterProperty('OnChange', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('OnChanging', 'TNotifyEvent', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
procedure SIRegisterTBITS(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TObject'), 'TBits') do
|
||||
begin
|
||||
RegisterMethod('function OpenBit:Integer');
|
||||
RegisterProperty('Bits', 'Boolean Integer', iptrw);
|
||||
RegisterProperty('Size', 'Integer', iptrw);
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
procedure SIRegisterTSTREAM(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TOBJECT'), 'TStream') do
|
||||
begin
|
||||
IsAbstract := True;
|
||||
RegisterMethod('function Read(Buffer:String;Count:LongInt):LongInt');
|
||||
RegisterMethod('function Write(Buffer:String;Count:LongInt):LongInt');
|
||||
RegisterMethod('function Seek(Offset:LongInt;Origin:Word):LongInt');
|
||||
RegisterMethod('procedure ReadBuffer(Buffer:String;Count:LongInt)');
|
||||
RegisterMethod('procedure WriteBuffer(Buffer:String;Count:LongInt)');
|
||||
{$IFDEF DELPHI4UP}
|
||||
{$IFNDEF PS_NOINT64}
|
||||
RegisterMethod('function CopyFrom(Source:TStream;Count:Int64):LongInt');
|
||||
{$ENDIF}
|
||||
{$ELSE}
|
||||
RegisterMethod('function CopyFrom(Source:TStream;Count:Integer):LongInt');
|
||||
{$ENDIF}
|
||||
RegisterProperty('Position', 'LongInt', iptrw);
|
||||
RegisterProperty('Size', 'LongInt', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTHANDLESTREAM(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TSTREAM'), 'THandleStream') do
|
||||
begin
|
||||
RegisterMethod('constructor Create(AHandle:Integer)');
|
||||
RegisterProperty('Handle', 'Integer', iptr);
|
||||
end;
|
||||
end;
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
procedure SIRegisterTMEMORYSTREAM(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TCUSTOMMEMORYSTREAM'), 'TMemoryStream') do
|
||||
begin
|
||||
RegisterMethod('procedure Clear');
|
||||
RegisterMethod('procedure LoadFromStream(Stream:TStream)');
|
||||
RegisterMethod('procedure LoadFromFile(FileName:String)');
|
||||
RegisterMethod('procedure SetSize(NewSize:LongInt)');
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
procedure SIRegisterTFILESTREAM(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('THandleStream'), 'TFileStream') do
|
||||
begin
|
||||
RegisterMethod('constructor Create(FileName:String;Mode:Word)');
|
||||
end;
|
||||
end;
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
procedure SIRegisterTCUSTOMMEMORYSTREAM(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TSTREAM'), 'TCustomMemoryStream') do
|
||||
begin
|
||||
IsAbstract := True;
|
||||
RegisterMethod('procedure SaveToStream(Stream:TStream)');
|
||||
RegisterMethod('procedure SaveToFile(FileName:String)');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTRESOURCESTREAM(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TCUSTOMMEMORYSTREAM'), 'TResourceStream') do
|
||||
begin
|
||||
RegisterMethod('constructor Create(Instance:THandle;ResName:String;ResType:PChar)');
|
||||
RegisterMethod('constructor CreateFromId(Instance:THandle;ResId:Integer;ResType:PChar)');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTPARSER(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TOBJECT'), 'TParser') do
|
||||
begin
|
||||
RegisterMethod('constructor Create(Stream:TStream)');
|
||||
RegisterMethod('procedure CheckToken(t:char)');
|
||||
RegisterMethod('procedure CheckTokenSymbol(s:string)');
|
||||
RegisterMethod('procedure Error(Ident:Integer)');
|
||||
RegisterMethod('procedure ErrorStr(Message:String)');
|
||||
RegisterMethod('procedure HexToBinary(Stream:TStream)');
|
||||
RegisterMethod('function NextToken:Char');
|
||||
RegisterMethod('function SourcePos:LongInt');
|
||||
RegisterMethod('function TokenComponentIdent:String');
|
||||
RegisterMethod('function TokenFloat:Extended');
|
||||
RegisterMethod('function TokenInt:LongInt');
|
||||
RegisterMethod('function TokenString:String');
|
||||
RegisterMethod('function TokenSymbolIs(S:String):Boolean');
|
||||
RegisterProperty('SourceLine', 'Integer', iptr);
|
||||
RegisterProperty('Token', 'Char', iptr);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTCOLLECTIONITEM(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
if cl.FindClass('TCOLLECTION') = nil then cl.AddClassN(cl.FindClass('TPERSISTENT'), 'TCollection');
|
||||
With cl.AddClassN(cl.FindClass('TPERSISTENT'),'TCollectionItem') do
|
||||
begin
|
||||
RegisterMethod('Constructor Create( Collection : TCollection)');
|
||||
RegisterProperty('Collection', 'TCollection', iptrw);
|
||||
{$IFDEF DELPHI3UP} RegisterProperty('Id', 'Integer', iptr); {$ENDIF}
|
||||
RegisterProperty('Index', 'Integer', iptrw);
|
||||
{$IFDEF DELPHI3UP} RegisterProperty('DisplayName', 'String', iptrw); {$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTCOLLECTION(CL: TPSPascalCompiler);
|
||||
var
|
||||
cr: TPSCompileTimeClass;
|
||||
Begin
|
||||
cr := CL.FindClass('TCOLLECTION');
|
||||
if cr = nil then cr := cl.AddClassN(cl.FindClass('TPERSISTENT'), 'TCollection');
|
||||
With cr do
|
||||
begin
|
||||
// RegisterMethod('constructor Create( ItemClass : TCollectionItemClass)');
|
||||
{$IFDEF DELPHI3UP} RegisterMethod('function Owner : TPersistent'); {$ENDIF}
|
||||
RegisterMethod('function Add : TCollectionItem');
|
||||
RegisterMethod('procedure BeginUpdate');
|
||||
RegisterMethod('procedure Clear');
|
||||
{$IFDEF DELPHI5UP} RegisterMethod('procedure Delete( Index : Integer)'); {$ENDIF}
|
||||
RegisterMethod('procedure EndUpdate');
|
||||
{$IFDEF DELPHI3UP} RegisterMethod('function FindItemId( Id : Integer) : TCollectionItem'); {$ENDIF}
|
||||
{$IFDEF DELPHI3UP} RegisterMethod('function Insert( Index : Integer) : TCollectionItem'); {$ENDIF}
|
||||
RegisterProperty('Count', 'Integer', iptr);
|
||||
{$IFDEF DELPHI3UP} RegisterProperty('ItemClass', 'TCollectionItemClass', iptr); {$ENDIF}
|
||||
RegisterProperty('Items', 'TCollectionItem Integer', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
{$IFDEF DELPHI3UP}
|
||||
procedure SIRegisterTOWNEDCOLLECTION(CL: TPSPascalCompiler);
|
||||
Begin
|
||||
With Cl.AddClassN(cl.FindClass('TCOLLECTION'),'TOwnedCollection') do
|
||||
begin
|
||||
// RegisterMethod('Constructor CREATE( AOWNER : TPERSISTENT; ITEMCLASS : TCOLLECTIONITEMCLASS)');
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
procedure SIRegister_Classes_TypesAndConsts(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
cl.AddConstantN('soFromBeginning', 'Longint').Value.ts32 := 0;
|
||||
cl.AddConstantN('soFromCurrent', 'Longint').Value.ts32 := 1;
|
||||
cl.AddConstantN('soFromEnd', 'Longint').Value.ts32 := 2;
|
||||
cl.AddConstantN('toEOF', 'Char').SetString(#0);
|
||||
cl.AddConstantN('toSymbol', 'Char').SetString(#1);
|
||||
cl.AddConstantN('toString', 'Char').SetString(#2);
|
||||
cl.AddConstantN('toInteger', 'Char').SetString(#3);
|
||||
cl.AddConstantN('toFloat', 'Char').SetString(#4);
|
||||
cl.AddConstantN('fmCreate', 'Longint').Value.ts32 := $FFFF;
|
||||
cl.AddConstantN('fmOpenRead', 'Longint').Value.ts32 := 0;
|
||||
cl.AddConstantN('fmOpenWrite', 'Longint').Value.ts32 := 1;
|
||||
cl.AddConstantN('fmOpenReadWrite', 'Longint').Value.ts32 := 2;
|
||||
cl.AddConstantN('fmShareCompat', 'Longint').Value.ts32 := 0;
|
||||
cl.AddConstantN('fmShareExclusive', 'Longint').Value.ts32 := $10;
|
||||
cl.AddConstantN('fmShareDenyWrite', 'Longint').Value.ts32 := $20;
|
||||
cl.AddConstantN('fmShareDenyRead', 'Longint').Value.ts32 := $30;
|
||||
cl.AddConstantN('fmShareDenyNone', 'Longint').Value.ts32 := $40;
|
||||
cl.AddConstantN('SecsPerDay', 'Longint').Value.ts32 := 86400;
|
||||
cl.AddConstantN('MSecPerDay', 'Longint').Value.ts32 := 86400000;
|
||||
cl.AddConstantN('DateDelta', 'Longint').Value.ts32 := 693594;
|
||||
cl.AddTypeS('TAlignment', '(taLeftJustify, taRightJustify, taCenter)');
|
||||
cl.AddTypeS('THelpEvent', 'function (Command: Word; Data: Longint; var CallHelp: Boolean): Boolean');
|
||||
cl.AddTypeS('TGetStrProc', 'procedure(const S: string)');
|
||||
cl.AddTypeS('TDuplicates', '(dupIgnore, dupAccept, dupError)');
|
||||
cl.AddTypeS('TOperation', '(opInsert, opRemove)');
|
||||
cl.AddTypeS('THANDLE', 'Longint');
|
||||
|
||||
cl.AddTypeS('TNotifyEvent', 'procedure (Sender: TObject)');
|
||||
end;
|
||||
|
||||
procedure SIRegister_Classes(Cl: TPSPascalCompiler; Streams: Boolean);
|
||||
begin
|
||||
SIRegister_Classes_TypesAndConsts(Cl);
|
||||
if Streams then
|
||||
SIRegisterTSTREAM(Cl);
|
||||
SIRegisterTStrings(cl, Streams);
|
||||
SIRegisterTStringList(cl);
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
SIRegisterTBITS(cl);
|
||||
{$ENDIF}
|
||||
if Streams then
|
||||
begin
|
||||
SIRegisterTHANDLESTREAM(Cl);
|
||||
SIRegisterTFILESTREAM(Cl);
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
SIRegisterTCUSTOMMEMORYSTREAM(Cl);
|
||||
SIRegisterTMEMORYSTREAM(Cl);
|
||||
SIRegisterTRESOURCESTREAM(Cl);
|
||||
{$ENDIF}
|
||||
end;
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
SIRegisterTPARSER(Cl);
|
||||
SIRegisterTCOLLECTIONITEM(Cl);
|
||||
SIRegisterTCOLLECTION(Cl);
|
||||
{$IFDEF DELPHI3UP}
|
||||
SIRegisterTOWNEDCOLLECTION(Cl);
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
|
||||
|
||||
|
||||
end.
|
||||
39
Pascal Script for Delphi/Source/uPSC_comobj.pas
Normal file
39
Pascal Script for Delphi/Source/uPSC_comobj.pas
Normal file
@@ -0,0 +1,39 @@
|
||||
{ compiletime ComObj support }
|
||||
unit uPSC_comobj;
|
||||
|
||||
{$I PascalScript.inc}
|
||||
interface
|
||||
uses
|
||||
uPSCompiler, uPSUtils;
|
||||
|
||||
{
|
||||
|
||||
Will register:
|
||||
|
||||
function CreateOleObject(const ClassName: String): IDispatch;
|
||||
function GetActiveOleObject(const ClassName: String): IDispatch;
|
||||
|
||||
}
|
||||
|
||||
procedure SIRegister_ComObj(cl: TPSPascalCompiler);
|
||||
|
||||
implementation
|
||||
|
||||
procedure SIRegister_ComObj(cl: TPSPascalCompiler);
|
||||
begin
|
||||
cl.AddTypeS('HResult', 'LongInt');
|
||||
cl.AddTypeS('TGUID', 'record D1: LongWord; D2: Word; D3: Word; D4: array[0..7] of Byte; end;');
|
||||
cl.AddTypeS('TCLSID', 'TGUID');
|
||||
cl.AddTypeS('TIID', 'TGUID');
|
||||
cl.AddDelphiFunction('procedure OleCheck(Result: HResult);');
|
||||
{$IFNDEF PS_NOINTERFACES}
|
||||
{$IFDEF DELPHI3UP}
|
||||
cl.AddDelphiFunction('function StringToGUID(const S: string): TGUID;');
|
||||
cl.AddDelphiFunction('function CreateComObject(const ClassID: TGUID): IUnknown;');
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
cl.AddDelphiFunction('function CreateOleObject(const ClassName: String): IDispatch;');
|
||||
cl.AddDelphiFunction('function GetActiveOleObject(const ClassName: String): IDispatch;');
|
||||
end;
|
||||
|
||||
end.
|
||||
236
Pascal Script for Delphi/Source/uPSC_controls.pas
Normal file
236
Pascal Script for Delphi/Source/uPSC_controls.pas
Normal file
@@ -0,0 +1,236 @@
|
||||
{ Compiletime Controls support }
|
||||
unit uPSC_controls;
|
||||
{$I PascalScript.inc}
|
||||
interface
|
||||
uses
|
||||
uPSCompiler, uPSUtils;
|
||||
|
||||
{
|
||||
Will register files from:
|
||||
Controls
|
||||
|
||||
Register the STD, Classes (at least the types&consts) and Graphics libraries first
|
||||
|
||||
}
|
||||
|
||||
procedure SIRegister_Controls_TypesAndConsts(Cl: TPSPascalCompiler);
|
||||
|
||||
procedure SIRegisterTControl(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTWinControl(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTGraphicControl(cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTCustomControl(cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTDragObject(cl: TPSPascalCompiler);
|
||||
|
||||
procedure SIRegister_Controls(Cl: TPSPascalCompiler);
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
procedure SIRegisterTControl(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TComponent'), 'TCONTROL') do
|
||||
begin
|
||||
RegisterMethod('constructor Create(AOwner: TComponent);');
|
||||
RegisterMethod('procedure BringToFront;');
|
||||
RegisterMethod('procedure Hide;');
|
||||
RegisterMethod('procedure Invalidate;virtual;');
|
||||
RegisterMethod('procedure refresh;');
|
||||
RegisterMethod('procedure Repaint;virtual;');
|
||||
RegisterMethod('procedure SendToBack;');
|
||||
RegisterMethod('procedure Show;');
|
||||
RegisterMethod('procedure Update;virtual;');
|
||||
RegisterMethod('procedure SetBounds(x,y,w,h: Integer);virtual;');
|
||||
RegisterProperty('Left', 'Integer', iptRW);
|
||||
RegisterProperty('Top', 'Integer', iptRW);
|
||||
RegisterProperty('Width', 'Integer', iptRW);
|
||||
RegisterProperty('Height', 'Integer', iptRW);
|
||||
RegisterProperty('Hint', 'String', iptRW);
|
||||
RegisterProperty('Align', 'TAlign', iptRW);
|
||||
RegisterProperty('ClientHeight', 'Longint', iptRW);
|
||||
RegisterProperty('ClientWidth', 'Longint', iptRW);
|
||||
RegisterProperty('ShowHint', 'Boolean', iptRW);
|
||||
RegisterProperty('Visible', 'Boolean', iptRW);
|
||||
RegisterProperty('ENABLED', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('CURSOR', 'TCURSOR', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterMethod('function Dragging: Boolean;');
|
||||
RegisterMethod('function HasParent: Boolean');
|
||||
RegisterMethod('procedure BEGINDRAG(IMMEDIATE:BOOLEAN)');
|
||||
RegisterMethod('function CLIENTTOSCREEN(POINT:TPOINT):TPOINT');
|
||||
RegisterMethod('procedure ENDDRAG(DROP:BOOLEAN)');
|
||||
{$IFNDEF CLX}
|
||||
RegisterMethod('function GETTEXTBUF(BUFFER:PCHAR;BUFSIZE:INTEGER):INTEGER');
|
||||
RegisterMethod('function GETTEXTLEN:INTEGER');
|
||||
RegisterMethod('procedure SETTEXTBUF(BUFFER:PCHAR)');
|
||||
RegisterMethod('function PERFORM(MSG:CARDINAL;WPARAM,LPARAM:LONGINT):LONGINT');
|
||||
{$ENDIF}
|
||||
RegisterMethod('function SCREENTOCLIENT(POINT:TPOINT):TPOINT');
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTWinControl(Cl: TPSPascalCompiler); // requires TControl
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TControl'), 'TWINCONTROL') do
|
||||
begin
|
||||
|
||||
with Cl.FindClass('TControl') do
|
||||
begin
|
||||
RegisterProperty('Parent', 'TWinControl', iptRW);
|
||||
end;
|
||||
|
||||
{$IFNDEF CLX}
|
||||
RegisterProperty('Handle', 'Longint', iptR);
|
||||
{$ENDIF}
|
||||
RegisterProperty('Showing', 'Boolean', iptR);
|
||||
RegisterProperty('TabOrder', 'Integer', iptRW);
|
||||
RegisterProperty('TabStop', 'Boolean', iptRW);
|
||||
RegisterMethod('function CANFOCUS:BOOLEAN');
|
||||
RegisterMethod('function FOCUSED:BOOLEAN');
|
||||
RegisterProperty('CONTROLS', 'TCONTROL INTEGER', iptr);
|
||||
RegisterProperty('CONTROLCOUNT', 'INTEGER', iptr);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterMethod('function HandleAllocated: Boolean;');
|
||||
RegisterMethod('procedure HandleNeeded;');
|
||||
RegisterMethod('procedure EnableAlign;');
|
||||
RegisterMethod('procedure RemoveControl(AControl: TControl);');
|
||||
RegisterMethod('procedure InsertControl(AControl: TControl);');
|
||||
RegisterMethod('procedure Realign;');
|
||||
RegisterMethod('procedure ScaleBy(M, D: Integer);');
|
||||
RegisterMethod('procedure ScrollBy(DeltaX, DeltaY: Integer);');
|
||||
RegisterMethod('procedure SetFocus; virtual;');
|
||||
{$IFNDEF CLX}
|
||||
RegisterMethod('procedure PAINTTO(DC:Longint;X,Y:INTEGER)');
|
||||
{$ENDIF}
|
||||
|
||||
RegisterMethod('function CONTAINSCONTROL(CONTROL:TCONTROL):BOOLEAN');
|
||||
RegisterMethod('procedure DISABLEALIGN');
|
||||
RegisterMethod('procedure UPDATECONTROLSTATE');
|
||||
|
||||
RegisterProperty('BRUSH', 'TBRUSH', iptr);
|
||||
RegisterProperty('HELPCONTEXT', 'LONGINT', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
procedure SIRegisterTGraphicControl(cl: TPSPascalCompiler); // requires TControl
|
||||
begin
|
||||
Cl.AddClassN(cl.FindClass('TControl'), 'TGRAPHICCONTROL');
|
||||
end;
|
||||
|
||||
procedure SIRegisterTCustomControl(cl: TPSPascalCompiler); // requires TWinControl
|
||||
begin
|
||||
Cl.AddClassN(cl.FindClass('TWinControl'), 'TCUSTOMCONTROL');
|
||||
end;
|
||||
|
||||
procedure SIRegister_Controls_TypesAndConsts(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
{$IFNDEF FPC}
|
||||
Cl.addTypeS('TEShiftState','(ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble)');
|
||||
{$ELSE}
|
||||
Cl.addTypeS('TEShiftState','(ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble,' +
|
||||
'ssMeta, ssSuper, ssHyper, ssAltGr, ssCaps, ssNum,ssScroll,ssTriple,ssQuad)');
|
||||
{$ENDIF}
|
||||
Cl.addTypeS('TShiftState','set of TEShiftState');
|
||||
cl.AddTypeS('TMouseButton', '(mbLeft, mbRight, mbMiddle)');
|
||||
cl.AddTypeS('TDragMode', '(dmManual, dmAutomatic)');
|
||||
cl.AddTypeS('TDragState', '(dsDragEnter, dsDragLeave, dsDragMove)');
|
||||
cl.AddTypeS('TDragKind', '(dkDrag, dkDock)');
|
||||
cl.AddTypeS('TMouseEvent', 'procedure (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);');
|
||||
cl.AddTypeS('TMouseMoveEvent', 'procedure(Sender: TObject; Shift: TShiftState; X, Y: Integer);');
|
||||
cl.AddTypeS('TKeyEvent', 'procedure (Sender: TObject; var Key: Word; Shift: TShiftState);');
|
||||
cl.AddTypeS('TKeyPressEvent', 'procedure(Sender: TObject; var Key: Char);');
|
||||
cl.AddTypeS('TDragOverEvent', 'procedure(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean)');
|
||||
cl.AddTypeS('TDragDropEvent', 'procedure(Sender, Source: TObject;X, Y: Integer)');
|
||||
cl.AddTypeS('HWND', 'Longint');
|
||||
|
||||
cl.AddTypeS('TEndDragEvent', 'procedure(Sender, Target: TObject; X, Y: Integer)');
|
||||
|
||||
cl.addTypeS('TAlign', '(alNone, alTop, alBottom, alLeft, alRight, alClient)');
|
||||
|
||||
cl.addTypeS('TAnchorKind', '(akTop, akLeft, akRight, akBottom)');
|
||||
cl.addTypeS('TAnchors','set of TAnchorKind');
|
||||
cl.AddTypeS('TModalResult', 'Integer');
|
||||
cl.AddTypeS('TCursor', 'Integer');
|
||||
cl.AddTypeS('TPoint', 'record x,y: Longint; end;');
|
||||
|
||||
cl.AddConstantN('mrNone', 'Integer').Value.ts32 := 0;
|
||||
cl.AddConstantN('mrOk', 'Integer').Value.ts32 := 1;
|
||||
cl.AddConstantN('mrCancel', 'Integer').Value.ts32 := 2;
|
||||
cl.AddConstantN('mrAbort', 'Integer').Value.ts32 := 3;
|
||||
cl.AddConstantN('mrRetry', 'Integer').Value.ts32 := 4;
|
||||
cl.AddConstantN('mrIgnore', 'Integer').Value.ts32 := 5;
|
||||
cl.AddConstantN('mrYes', 'Integer').Value.ts32 := 6;
|
||||
cl.AddConstantN('mrNo', 'Integer').Value.ts32 := 7;
|
||||
cl.AddConstantN('mrAll', 'Integer').Value.ts32 := 8;
|
||||
cl.AddConstantN('mrNoToAll', 'Integer').Value.ts32 := 9;
|
||||
cl.AddConstantN('mrYesToAll', 'Integer').Value.ts32 := 10;
|
||||
cl.AddConstantN('crDefault', 'Integer').Value.ts32 := 0;
|
||||
cl.AddConstantN('crNone', 'Integer').Value.ts32 := -1;
|
||||
cl.AddConstantN('crArrow', 'Integer').Value.ts32 := -2;
|
||||
cl.AddConstantN('crCross', 'Integer').Value.ts32 := -3;
|
||||
cl.AddConstantN('crIBeam', 'Integer').Value.ts32 := -4;
|
||||
cl.AddConstantN('crSizeNESW', 'Integer').Value.ts32 := -6;
|
||||
cl.AddConstantN('crSizeNS', 'Integer').Value.ts32 := -7;
|
||||
cl.AddConstantN('crSizeNWSE', 'Integer').Value.ts32 := -8;
|
||||
cl.AddConstantN('crSizeWE', 'Integer').Value.ts32 := -9;
|
||||
cl.AddConstantN('crUpArrow', 'Integer').Value.ts32 := -10;
|
||||
cl.AddConstantN('crHourGlass', 'Integer').Value.ts32 := -11;
|
||||
cl.AddConstantN('crDrag', 'Integer').Value.ts32 := -12;
|
||||
cl.AddConstantN('crNoDrop', 'Integer').Value.ts32 := -13;
|
||||
cl.AddConstantN('crHSplit', 'Integer').Value.ts32 := -14;
|
||||
cl.AddConstantN('crVSplit', 'Integer').Value.ts32 := -15;
|
||||
cl.AddConstantN('crMultiDrag', 'Integer').Value.ts32 := -16;
|
||||
cl.AddConstantN('crSQLWait', 'Integer').Value.ts32 := -17;
|
||||
cl.AddConstantN('crNo', 'Integer').Value.ts32 := -18;
|
||||
cl.AddConstantN('crAppStart', 'Integer').Value.ts32 := -19;
|
||||
cl.AddConstantN('crHelp', 'Integer').Value.ts32 := -20;
|
||||
{$IFDEF DELPHI3UP}
|
||||
cl.AddConstantN('crHandPoint', 'Integer').Value.ts32 := -21;
|
||||
{$ENDIF}
|
||||
{$IFDEF DELPHI4UP}
|
||||
cl.AddConstantN('crSizeAll', 'Integer').Value.ts32 := -22;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
procedure SIRegisterTDragObject(cl: TPSPascalCompiler);
|
||||
begin
|
||||
with CL.AddClassN(CL.FindClass('TObject'),'TDragObject') do
|
||||
begin
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
{$IFDEF DELPHI4UP}
|
||||
RegisterMethod('Procedure Assign( Source : TDragObject)');
|
||||
{$ENDIF}
|
||||
{$IFNDEF FPC}
|
||||
RegisterMethod('Function GetName : String');
|
||||
RegisterMethod('Function Instance : Longint');
|
||||
{$ENDIF}
|
||||
RegisterMethod('Procedure HideDragImage');
|
||||
RegisterMethod('Procedure ShowDragImage');
|
||||
{$IFDEF DELPHI4UP}
|
||||
RegisterProperty('Cancelling', 'Boolean', iptrw);
|
||||
RegisterProperty('DragHandle', 'Longint', iptrw);
|
||||
RegisterProperty('DragPos', 'TPoint', iptrw);
|
||||
RegisterProperty('DragTargetPos', 'TPoint', iptrw);
|
||||
RegisterProperty('MouseDeltaX', 'Double', iptr);
|
||||
RegisterProperty('MouseDeltaY', 'Double', iptr);
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
end;
|
||||
Cl.AddTypeS('TStartDragEvent', 'procedure (Sender: TObject; var DragObject: TDragObject)');
|
||||
end;
|
||||
|
||||
procedure SIRegister_Controls(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
SIRegister_Controls_TypesAndConsts(cl);
|
||||
SIRegisterTDragObject(cl);
|
||||
SIRegisterTControl(Cl);
|
||||
SIRegisterTWinControl(Cl);
|
||||
SIRegisterTGraphicControl(cl);
|
||||
SIRegisterTCustomControl(cl);
|
||||
end;
|
||||
|
||||
// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
|
||||
|
||||
end.
|
||||
34
Pascal Script for Delphi/Source/uPSC_dateutils.pas
Normal file
34
Pascal Script for Delphi/Source/uPSC_dateutils.pas
Normal file
@@ -0,0 +1,34 @@
|
||||
{ Compile time Date Time library }
|
||||
unit uPSC_dateutils;
|
||||
|
||||
interface
|
||||
uses
|
||||
SysUtils, uPSCompiler, uPSUtils;
|
||||
|
||||
|
||||
procedure RegisterDateTimeLibrary_C(S: TPSPascalCompiler);
|
||||
|
||||
implementation
|
||||
|
||||
procedure RegisterDatetimeLibrary_C(S: TPSPascalCompiler);
|
||||
begin
|
||||
s.AddType('TDateTime', btDouble).ExportName := True;
|
||||
s.AddDelphiFunction('function EncodeDate(Year, Month, Day: Word): TDateTime;');
|
||||
s.AddDelphiFunction('function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;');
|
||||
s.AddDelphiFunction('function TryEncodeDate(Year, Month, Day: Word; var Date: TDateTime): Boolean;');
|
||||
s.AddDelphiFunction('function TryEncodeTime(Hour, Min, Sec, MSec: Word; var Time: TDateTime): Boolean;');
|
||||
s.AddDelphiFunction('procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word);');
|
||||
s.AddDelphiFunction('procedure DecodeTime(const DateTime: TDateTime; var Hour, Min, Sec, MSec: Word);');
|
||||
s.AddDelphiFunction('function DayOfWeek(const DateTime: TDateTime): Word;');
|
||||
s.AddDelphiFunction('function Date: TDateTime;');
|
||||
s.AddDelphiFunction('function Time: TDateTime;');
|
||||
s.AddDelphiFunction('function Now: TDateTime;');
|
||||
s.AddDelphiFunction('function DateTimeToUnix(D: TDateTime): Int64;');
|
||||
s.AddDelphiFunction('function UnixToDateTime(U: Int64): TDateTime;');
|
||||
|
||||
s.AddDelphiFunction('function DateToStr(D: TDateTime): String;');
|
||||
s.AddDelphiFunction('function StrToDate(const s: String): TDateTime;');
|
||||
s.AddDelphiFunction('function FormatDateTime(const fmt: String; D: TDateTime): String;');
|
||||
end;
|
||||
|
||||
end.
|
||||
158
Pascal Script for Delphi/Source/uPSC_dll.pas
Normal file
158
Pascal Script for Delphi/Source/uPSC_dll.pas
Normal file
@@ -0,0 +1,158 @@
|
||||
{ Compiletime DLL importing support }
|
||||
unit uPSC_dll;
|
||||
|
||||
{$I PascalScript.inc}
|
||||
interface
|
||||
{
|
||||
|
||||
Function FindWindow(c1, c2: PChar): Cardinal; external 'FindWindow@user32.dll stdcall';
|
||||
|
||||
}
|
||||
uses
|
||||
uPSCompiler, uPSUtils;
|
||||
|
||||
|
||||
{$IFDEF DELPHI3UP }
|
||||
resourceString
|
||||
{$ELSE }
|
||||
const
|
||||
{$ENDIF }
|
||||
|
||||
RPS_Invalid_External = 'Invalid External';
|
||||
RPS_InvalidCallingConvention = 'Invalid Calling Convention';
|
||||
|
||||
|
||||
|
||||
function DllExternalProc(Sender: TPSPascalCompiler; Decl: TPSParametersDecl; const OriginalName, FExternal: tbtstring): TPSRegProc;
|
||||
type
|
||||
|
||||
TDllCallingConvention = (clRegister
|
||||
, clPascal
|
||||
, ClCdecl
|
||||
, ClStdCall
|
||||
);
|
||||
|
||||
var
|
||||
DefaultCC: TDllCallingConvention;
|
||||
|
||||
procedure RegisterDll_Compiletime(cs: TPSPascalCompiler);
|
||||
|
||||
implementation
|
||||
|
||||
function rpos(ch: tbtchar; const s: tbtstring): Longint;
|
||||
var
|
||||
i: Longint;
|
||||
begin
|
||||
for i := length(s) downto 1 do
|
||||
if s[i] = ch then begin Result := i; exit; end;
|
||||
result := 0;
|
||||
end;
|
||||
|
||||
function RemoveQuotes(s: tbtstring): tbtstring;
|
||||
begin
|
||||
result := s;
|
||||
if result = '' then exit;
|
||||
if Result[1] = '"' then delete(result ,1,1);
|
||||
if (Result <> '') and (Result[Length(result)] = '"') then delete(result, length(result), 1);
|
||||
end;
|
||||
|
||||
function DllExternalProc(Sender: TPSPascalCompiler; Decl: TPSParametersDecl; const OriginalName, FExternal: tbtstring): TPSRegProc;
|
||||
var
|
||||
FuncName,
|
||||
Name,
|
||||
FuncCC, s, s2: AnsiString;
|
||||
CC: TDllCallingConvention;
|
||||
DelayLoad, LoadWithAlteredSearchPath: Boolean;
|
||||
|
||||
begin
|
||||
Name := FastUpperCase(OriginalName);
|
||||
DelayLoad := False;
|
||||
LoadWithAlteredSearchPath := false;
|
||||
FuncCC := FExternal;
|
||||
|
||||
if (pos(tbtChar('@'), FuncCC) = 0) then
|
||||
begin
|
||||
Sender.MakeError('', ecCustomError, tbtString(RPS_Invalid_External));
|
||||
Result := nil;
|
||||
exit;
|
||||
end;
|
||||
FuncName := copy(FuncCC, 1, rpos('@', FuncCC)-1)+#0;
|
||||
delete(FuncCc, 1, length(FuncName));
|
||||
if pos(tbtchar(' '), Funccc) <> 0 then
|
||||
begin
|
||||
if FuncCC[1] = '"' then
|
||||
begin
|
||||
Delete(FuncCC, 1, 1);
|
||||
FuncName := RemoveQuotes(copy(FuncCC, 1, pos(tbtchar('"'), FuncCC)-1))+#0+FuncName;
|
||||
Delete(FuncCC,1, pos(tbtchar('"'), FuncCC));
|
||||
if (FuncCC <> '') and( FuncCC[1] = ' ') then delete(FuncCC,1,1);
|
||||
end else
|
||||
begin
|
||||
FuncName := copy(FuncCc, 1, pos(tbtchar(' '),FuncCC)-1)+#0+FuncName;
|
||||
Delete(FuncCC, 1, pos(tbtchar(' '), FuncCC));
|
||||
end;
|
||||
if pos(tbtchar(' '), FuncCC) > 0 then
|
||||
begin
|
||||
s := Copy(FuncCC, pos(tbtchar(' '), Funccc)+1, MaxInt);
|
||||
FuncCC := FastUpperCase(Copy(FuncCC, 1, pos(tbtchar(' '), FuncCC)-1));
|
||||
Delete(FuncCC, pos(tbtchar(' '), Funccc), MaxInt);
|
||||
repeat
|
||||
if pos(tbtchar(' '), s) > 0 then begin
|
||||
s2 := Copy(s, 1, pos(tbtchar(' '), s)-1);
|
||||
delete(s, 1, pos(tbtchar(' '), s));
|
||||
end else begin
|
||||
s2 := s;
|
||||
s := '';
|
||||
end;
|
||||
if FastUppercase(s2) = 'DELAYLOAD' then
|
||||
DelayLoad := True
|
||||
{$IFNDEF LINUX}
|
||||
else
|
||||
if FastUppercase(s2) = 'LOADWITHALTEREDSEARCHPATH' then
|
||||
LoadWithAlteredSearchPath := True
|
||||
{$ENDIF}
|
||||
else
|
||||
begin
|
||||
Sender.MakeError('', ecCustomError, 'Invalid External');
|
||||
Result := nil;
|
||||
exit;
|
||||
end;
|
||||
until s = '';
|
||||
|
||||
end else
|
||||
FuncCC := FastUpperCase(FuncCC);
|
||||
if FuncCC = 'STDCALL' then cc := ClStdCall else
|
||||
if FuncCC = 'CDECL' then cc := ClCdecl else
|
||||
if FuncCC = 'REGISTER' then cc := clRegister else
|
||||
if FuncCC = 'PASCAL' then cc := clPascal else
|
||||
begin
|
||||
Sender.MakeError('', ecCustomError, tbtstring(RPS_InvalidCallingConvention));
|
||||
Result := nil;
|
||||
exit;
|
||||
end;
|
||||
end else
|
||||
begin
|
||||
FuncName := RemoveQuotes(FuncCC)+#0+FuncName;
|
||||
FuncCC := '';
|
||||
cc := DefaultCC;
|
||||
end;
|
||||
FuncName := 'dll:'+FuncName+tbtchar(cc)+tbtchar(bytebool(DelayLoad)) +tbtchar(bytebool(LoadWithAlteredSearchPath))+ declToBits(Decl);
|
||||
Result := TPSRegProc.Create;
|
||||
Result.ImportDecl := FuncName;
|
||||
Result.Decl.Assign(Decl);
|
||||
Result.Name := Name;
|
||||
Result.OrgName := OriginalName;
|
||||
Result.ExportName := False;
|
||||
end;
|
||||
|
||||
procedure RegisterDll_Compiletime(cs: TPSPascalCompiler);
|
||||
begin
|
||||
cs.OnExternalProc := DllExternalProc;
|
||||
cs.AddFunction('procedure UnloadDll(s: string)');
|
||||
cs.AddFunction('function DLLGetLastError: Longint');
|
||||
end;
|
||||
|
||||
begin
|
||||
DefaultCc := clRegister;
|
||||
end.
|
||||
|
||||
327
Pascal Script for Delphi/Source/uPSC_extctrls.pas
Normal file
327
Pascal Script for Delphi/Source/uPSC_extctrls.pas
Normal file
@@ -0,0 +1,327 @@
|
||||
{ Compiletime Extctrls support }
|
||||
unit uPSC_extctrls;
|
||||
|
||||
{$I PascalScript.inc}
|
||||
interface
|
||||
uses
|
||||
uPSCompiler, uPSUtils;
|
||||
|
||||
(*
|
||||
Will register files from:
|
||||
ExtCtrls
|
||||
|
||||
Requires:
|
||||
STD, classes, controls, graphics {$IFNDEF PS_MINIVCL}, stdctrls {$ENDIF}
|
||||
*)
|
||||
|
||||
procedure SIRegister_ExtCtrls_TypesAndConsts(cl: TPSPascalCompiler);
|
||||
|
||||
procedure SIRegisterTSHAPE(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTIMAGE(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTPAINTBOX(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTBEVEL(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTTIMER(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTCUSTOMPANEL(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTPANEL(Cl: TPSPascalCompiler);
|
||||
{$IFNDEF CLX}
|
||||
procedure SIRegisterTPAGE(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTNOTEBOOK(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTHEADER(Cl: TPSPascalCompiler);
|
||||
{$ENDIF}
|
||||
procedure SIRegisterTCUSTOMRADIOGROUP(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTRADIOGROUP(Cl: TPSPascalCompiler);
|
||||
|
||||
procedure SIRegister_ExtCtrls(cl: TPSPascalCompiler);
|
||||
|
||||
implementation
|
||||
procedure SIRegisterTSHAPE(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TGRAPHICCONTROL'), 'TSHAPE') do
|
||||
begin
|
||||
RegisterProperty('BRUSH', 'TBRUSH', iptrw);
|
||||
RegisterProperty('PEN', 'TPEN', iptrw);
|
||||
RegisterProperty('SHAPE', 'TSHAPETYPE', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterMethod('procedure STYLECHANGED(SENDER:TOBJECT)');
|
||||
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
|
||||
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
|
||||
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
|
||||
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTIMAGE(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TGRAPHICCONTROL'), 'TIMAGE') do
|
||||
begin
|
||||
RegisterProperty('CANVAS', 'TCANVAS', iptr);
|
||||
RegisterProperty('AUTOSIZE', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('CENTER', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('PICTURE', 'TPICTURE', iptrw);
|
||||
RegisterProperty('STRETCH', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
|
||||
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
|
||||
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
|
||||
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
|
||||
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTPAINTBOX(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TGRAPHICCONTROL'), 'TPAINTBOX') do
|
||||
begin
|
||||
RegisterProperty('CANVAS', 'TCanvas', iptr);
|
||||
RegisterProperty('COLOR', 'TColor', iptrw);
|
||||
RegisterProperty('FONT', 'TFont', iptrw);
|
||||
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
|
||||
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONPAINT', 'TNOTIFYEVENT', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
|
||||
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
|
||||
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
|
||||
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
|
||||
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTBEVEL(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TGRAPHICCONTROL'), 'TBEVEL') do
|
||||
begin
|
||||
RegisterProperty('SHAPE', 'TBEVELSHAPE', iptrw);
|
||||
RegisterProperty('STYLE', 'TBEVELSTYLE', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTTIMER(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TCOMPONENT'), 'TTIMER') do
|
||||
begin
|
||||
RegisterProperty('ENABLED', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('INTERVAL', 'CARDINAL', iptrw);
|
||||
RegisterProperty('ONTIMER', 'TNOTIFYEVENT', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTCUSTOMPANEL(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
Cl.AddClassN(cl.FindClass('TCUSTOMCONTROL'), 'TCUSTOMPANEL');
|
||||
end;
|
||||
|
||||
procedure SIRegisterTPANEL(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TCUSTOMPANEL'), 'TPANEL') do
|
||||
begin
|
||||
RegisterProperty('ALIGNMENT', 'TAlignment', iptrw);
|
||||
RegisterProperty('BEVELINNER', 'TPanelBevel', iptrw);
|
||||
RegisterProperty('BEVELOUTER', 'TPanelBevel', iptrw);
|
||||
RegisterProperty('BEVELWIDTH', 'TBevelWidth', iptrw);
|
||||
RegisterProperty('BORDERWIDTH', 'TBorderWidth', iptrw);
|
||||
RegisterProperty('BORDERSTYLE', 'TBorderStyle', iptrw);
|
||||
RegisterProperty('CAPTION', 'String', iptrw);
|
||||
RegisterProperty('COLOR', 'TColor', iptrw);
|
||||
RegisterProperty('FONT', 'TFont', iptrw);
|
||||
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
|
||||
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
|
||||
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
|
||||
RegisterProperty('CTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('LOCKED', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
|
||||
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
|
||||
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
|
||||
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONRESIZE', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
{$IFNDEF CLX}
|
||||
procedure SIRegisterTPAGE(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TCUSTOMCONTROL'), 'TPAGE') do
|
||||
begin
|
||||
RegisterProperty('CAPTION', 'String', iptrw);
|
||||
end;
|
||||
end;
|
||||
procedure SIRegisterTNOTEBOOK(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TCUSTOMCONTROL'), 'TNOTEBOOK') do
|
||||
begin
|
||||
RegisterProperty('ACTIVEPAGE', 'String', iptrw);
|
||||
RegisterProperty('COLOR', 'TColor', iptrw);
|
||||
RegisterProperty('FONT', 'TFont', iptrw);
|
||||
RegisterProperty('PAGEINDEX', 'INTEGER', iptrw);
|
||||
RegisterProperty('PAGES', 'TSTRINGS', iptrw);
|
||||
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
|
||||
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONPAGECHANGED', 'TNOTIFYEVENT', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterProperty('CTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
|
||||
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
|
||||
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
|
||||
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
|
||||
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
|
||||
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTHEADER(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TCUSTOMCONTROL'), 'THEADER') do
|
||||
begin
|
||||
RegisterProperty('SECTIONWIDTH', 'INTEGER INTEGER', iptrw);
|
||||
RegisterProperty('ALLOWRESIZE', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('BORDERSTYLE', 'TBORDERSTYLE', iptrw);
|
||||
RegisterProperty('FONT', 'TFont', iptrw);
|
||||
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
|
||||
RegisterProperty('SECTIONS', 'TSTRINGS', iptrw);
|
||||
RegisterProperty('ONSIZING', 'TSECTIONEVENT', iptrw);
|
||||
RegisterProperty('ONSIZED', 'TSECTIONEVENT', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
procedure SIRegisterTCUSTOMRADIOGROUP(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
Cl.AddClassN(cl.FindClass('TCUSTOMGROUPBOX'), 'TCUSTOMRADIOGROUP');
|
||||
end;
|
||||
|
||||
procedure SIRegisterTRADIOGROUP(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TCUSTOMRADIOGROUP'), 'TRADIOGROUP') do
|
||||
begin
|
||||
RegisterProperty('CAPTION', 'String', iptrw);
|
||||
RegisterProperty('COLOR', 'TColor', iptrw);
|
||||
RegisterProperty('COLUMNS', 'Integer', iptrw);
|
||||
RegisterProperty('FONT', 'TFont', iptrw);
|
||||
RegisterProperty('ITEMINDEX', 'Integer', iptrw);
|
||||
RegisterProperty('ITEMS', 'TStrings', iptrw);
|
||||
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
|
||||
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterProperty('CTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
|
||||
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
|
||||
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
|
||||
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
|
||||
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
|
||||
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
|
||||
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegister_ExtCtrls_TypesAndConsts(cl: TPSPascalCompiler);
|
||||
begin
|
||||
cl.AddTypeS('TShapeType', '(stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle)');
|
||||
cl.AddTypeS('TBevelStyle', '(bsLowered, bsRaised)');
|
||||
cl.AddTypeS('TBevelShape', '(bsBox, bsFrame, bsTopLine, bsBottomLine, bsLeftLine, bsRightLine,bsSpacer)');
|
||||
cl.AddTypeS('TPanelBevel', '(bvNone, bvLowered, bvRaised,bvSpace)');
|
||||
cl.AddTypeS('TBevelWidth', 'Longint');
|
||||
cl.AddTypeS('TBorderWidth', 'Longint');
|
||||
cl.AddTypeS('TSectionEvent', 'procedure(Sender: TObject; ASection, AWidth: Integer)');
|
||||
end;
|
||||
|
||||
procedure SIRegister_ExtCtrls(cl: TPSPascalCompiler);
|
||||
begin
|
||||
SIRegister_ExtCtrls_TypesAndConsts(cl);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
SIRegisterTSHAPE(Cl);
|
||||
SIRegisterTIMAGE(Cl);
|
||||
SIRegisterTPAINTBOX(Cl);
|
||||
{$ENDIF}
|
||||
SIRegisterTBEVEL(Cl);
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
SIRegisterTTIMER(Cl);
|
||||
{$ENDIF}
|
||||
SIRegisterTCUSTOMPANEL(Cl);
|
||||
SIRegisterTPANEL(Cl);
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
{$IFNDEF CLX}
|
||||
SIRegisterTPAGE(Cl);
|
||||
SIRegisterTNOTEBOOK(Cl);
|
||||
SIRegisterTHEADER(Cl);
|
||||
{$ENDIF}
|
||||
SIRegisterTCUSTOMRADIOGROUP(Cl);
|
||||
SIRegisterTRADIOGROUP(Cl);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
271
Pascal Script for Delphi/Source/uPSC_forms.pas
Normal file
271
Pascal Script for Delphi/Source/uPSC_forms.pas
Normal file
@@ -0,0 +1,271 @@
|
||||
{ Compiletime Forms support }
|
||||
unit uPSC_forms;
|
||||
{$I PascalScript.inc}
|
||||
|
||||
interface
|
||||
uses
|
||||
uPSCompiler, uPSUtils;
|
||||
|
||||
procedure SIRegister_Forms_TypesAndConsts(Cl: TPSPascalCompiler);
|
||||
|
||||
|
||||
procedure SIRegisterTCONTROLSCROLLBAR(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTSCROLLINGWINCONTROL(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTSCROLLBOX(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTFORM(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTAPPLICATION(Cl: TPSPascalCompiler);
|
||||
|
||||
procedure SIRegister_Forms(Cl: TPSPascalCompiler);
|
||||
|
||||
implementation
|
||||
|
||||
procedure SIRegisterTCONTROLSCROLLBAR(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TPERSISTENT'), 'TCONTROLSCROLLBAR') do
|
||||
begin
|
||||
RegisterProperty('KIND', 'TSCROLLBARKIND', iptr);
|
||||
RegisterProperty('SCROLLPOS', 'INTEGER', iptr);
|
||||
RegisterProperty('MARGIN', 'WORD', iptrw);
|
||||
RegisterProperty('INCREMENT', 'TSCROLLBARINC', iptrw);
|
||||
RegisterProperty('RANGE', 'INTEGER', iptrw);
|
||||
RegisterProperty('POSITION', 'INTEGER', iptrw);
|
||||
RegisterProperty('TRACKING', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('VISIBLE', 'BOOLEAN', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTSCROLLINGWINCONTROL(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TWINCONTROL'), 'TSCROLLINGWINCONTROL') do
|
||||
begin
|
||||
RegisterMethod('procedure SCROLLINVIEW(ACONTROL:TCONTROL)');
|
||||
RegisterProperty('HORZSCROLLBAR', 'TCONTROLSCROLLBAR', iptrw);
|
||||
RegisterProperty('VERTSCROLLBAR', 'TCONTROLSCROLLBAR', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTSCROLLBOX(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TSCROLLINGWINCONTROL'), 'TSCROLLBOX') do
|
||||
begin
|
||||
RegisterProperty('BORDERSTYLE', 'TBORDERSTYLE', iptrw);
|
||||
RegisterProperty('COLOR', 'TCOLOR', iptrw);
|
||||
RegisterProperty('FONT', 'TFONT', iptrw);
|
||||
RegisterProperty('AUTOSCROLL', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('PARENTCOLOR', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('PARENTFONT', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('ONCLICK', 'TNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONDBLCLICK', 'TNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONENTER', 'TNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONEXIT', 'TNOTIFYEVENT', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterProperty('ONRESIZE', 'TNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('DRAGCURSOR', 'TCURSOR', iptrw);
|
||||
RegisterProperty('DRAGMODE', 'TDRAGMODE', iptrw);
|
||||
RegisterProperty('PARENTSHOWHINT', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('POPUPMENU', 'TPOPUPMENU', iptrw);
|
||||
RegisterProperty('CTL3D', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('PARENTCTL3D', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('ONDRAGDROP', 'TDRAGDROPEVENT', iptrw);
|
||||
RegisterProperty('ONDRAGOVER', 'TDRAGOVEREVENT', iptrw);
|
||||
RegisterProperty('ONENDDRAG', 'TENDDRAGEVENT', iptrw);
|
||||
RegisterProperty('ONMOUSEDOWN', 'TMOUSEEVENT', iptrw);
|
||||
RegisterProperty('ONMOUSEMOVE', 'TMOUSEMOVEEVENT', iptrw);
|
||||
RegisterProperty('ONMOUSEUP', 'TMOUSEEVENT', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTFORM(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TSCROLLINGWINCONTROL'), 'TFORM') do
|
||||
begin
|
||||
{$IFDEF DELPHI4UP}
|
||||
RegisterMethod('constructor CREATENEW(AOWNER:TCOMPONENT; Dummy: Integer)');
|
||||
{$ELSE}
|
||||
RegisterMethod('constructor CREATENEW(AOWNER:TCOMPONENT)');
|
||||
{$ENDIF}
|
||||
RegisterMethod('procedure CLOSE');
|
||||
RegisterMethod('procedure HIDE');
|
||||
RegisterMethod('procedure SHOW');
|
||||
RegisterMethod('function SHOWMODAL:INTEGER');
|
||||
RegisterMethod('procedure RELEASE');
|
||||
RegisterProperty('ACTIVE', 'BOOLEAN', iptr);
|
||||
RegisterProperty('ACTIVECONTROL', 'TWINCONTROL', iptrw);
|
||||
RegisterProperty('BORDERICONS', 'TBorderIcons', iptrw);
|
||||
RegisterProperty('BORDERSTYLE', 'TFORMBORDERSTYLE', iptrw);
|
||||
RegisterProperty('CAPTION', 'NativeString', iptrw);
|
||||
RegisterProperty('AUTOSCROLL', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('COLOR', 'TCOLOR', iptrw);
|
||||
RegisterProperty('FONT', 'TFONT', iptrw);
|
||||
RegisterProperty('FORMSTYLE', 'TFORMSTYLE', iptrw);
|
||||
RegisterProperty('KEYPREVIEW', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('POSITION', 'TPOSITION', iptrw);
|
||||
RegisterProperty('ONACTIVATE', 'TNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONCLICK', 'TNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONDBLCLICK', 'TNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONCLOSE', 'TCLOSEEVENT', iptrw);
|
||||
RegisterProperty('ONCLOSEQUERY', 'TCLOSEQUERYEVENT', iptrw);
|
||||
RegisterProperty('ONCREATE', 'TNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONDESTROY', 'TNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONDEACTIVATE', 'TNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONHIDE', 'TNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONKEYDOWN', 'TKEYEVENT', iptrw);
|
||||
RegisterProperty('ONKEYPRESS', 'TKEYPRESSEVENT', iptrw);
|
||||
RegisterProperty('ONKEYUP', 'TKEYEVENT', iptrw);
|
||||
RegisterProperty('ONRESIZE', 'TNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONSHOW', 'TNOTIFYEVENT', iptrw);
|
||||
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
{$IFNDEF CLX}
|
||||
RegisterMethod('procedure ARRANGEICONS');
|
||||
// RegisterMethod('function GETFORMIMAGE:TBITMAP');
|
||||
RegisterMethod('procedure PRINT');
|
||||
RegisterMethod('procedure SENDCANCELMODE(SENDER:TCONTROL)');
|
||||
RegisterProperty('ACTIVEOLECONTROL', 'TWINCONTROL', iptrw);
|
||||
RegisterProperty('OLEFORMOBJECT', 'TOLEFORMOBJECT', iptrw);
|
||||
RegisterProperty('CLIENTHANDLE', 'LONGINT', iptr);
|
||||
RegisterProperty('TILEMODE', 'TTILEMODE', iptrw);
|
||||
{$ENDIF}
|
||||
RegisterMethod('procedure CASCADE');
|
||||
RegisterMethod('function CLOSEQUERY:BOOLEAN');
|
||||
RegisterMethod('procedure DEFOCUSCONTROL(CONTROL:TWINCONTROL;REMOVING:BOOLEAN)');
|
||||
RegisterMethod('procedure FOCUSCONTROL(CONTROL:TWINCONTROL)');
|
||||
RegisterMethod('procedure NEXT');
|
||||
RegisterMethod('procedure PREVIOUS');
|
||||
RegisterMethod('function SETFOCUSEDCONTROL(CONTROL:TWINCONTROL):BOOLEAN');
|
||||
RegisterMethod('procedure TILE');
|
||||
RegisterProperty('ACTIVEMDICHILD', 'TFORM', iptr);
|
||||
RegisterProperty('CANVAS', 'TCANVAS', iptr);
|
||||
RegisterProperty('DROPTARGET', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('MODALRESULT', 'Longint', iptrw);
|
||||
RegisterProperty('MDICHILDCOUNT', 'INTEGER', iptr);
|
||||
RegisterProperty('MDICHILDREN', 'TFORM INTEGER', iptr);
|
||||
RegisterProperty('ICON', 'TICON', iptrw);
|
||||
RegisterProperty('MENU', 'TMAINMENU', iptrw);
|
||||
RegisterProperty('OBJECTMENUITEM', 'TMENUITEM', iptrw);
|
||||
RegisterProperty('PIXELSPERINCH', 'INTEGER', iptrw);
|
||||
RegisterProperty('PRINTSCALE', 'TPRINTSCALE', iptrw);
|
||||
RegisterProperty('SCALED', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('WINDOWSTATE', 'TWINDOWSTATE', iptrw);
|
||||
RegisterProperty('WINDOWMENU', 'TMENUITEM', iptrw);
|
||||
RegisterProperty('CTL3D', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('POPUPMENU', 'TPOPUPMENU', iptrw);
|
||||
RegisterProperty('ONDRAGDROP', 'TDRAGDROPEVENT', iptrw);
|
||||
RegisterProperty('ONDRAGOVER', 'TDRAGOVEREVENT', iptrw);
|
||||
RegisterProperty('ONMOUSEDOWN', 'TMOUSEEVENT', iptrw);
|
||||
RegisterProperty('ONMOUSEMOVE', 'TMOUSEMOVEEVENT', iptrw);
|
||||
RegisterProperty('ONMOUSEUP', 'TMOUSEEVENT', iptrw);
|
||||
RegisterProperty('ONPAINT', 'TNOTIFYEVENT', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTAPPLICATION(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TCOMPONENT'), 'TAPPLICATION') do
|
||||
begin
|
||||
RegisterMethod('procedure BRINGTOFRONT');
|
||||
{$IFDEF PS_PANSICHAR}
|
||||
RegisterMethod('function MESSAGEBOX(TEXT,CAPTION:PANSICHAR;FLAGS:WORD):INTEGER');
|
||||
{$ELSE}
|
||||
RegisterMethod('function MESSAGEBOX(TEXT,CAPTION:PCHAR;FLAGS:WORD):INTEGER');
|
||||
{$ENDIF}
|
||||
RegisterMethod('procedure MINIMIZE');
|
||||
RegisterMethod('procedure PROCESSMESSAGES');
|
||||
RegisterMethod('procedure RESTORE');
|
||||
RegisterMethod('procedure TERMINATE');
|
||||
RegisterProperty('ACTIVE', 'BOOLEAN', iptr);
|
||||
RegisterProperty('EXENAME', 'NativeString', iptr);
|
||||
{$IFNDEF CLX}
|
||||
RegisterProperty('HANDLE', 'LONGINT', iptrw);
|
||||
RegisterProperty('UPDATEFORMATSETTINGS', 'BOOLEAN', iptrw);
|
||||
{$ENDIF}
|
||||
RegisterProperty('HINT', 'NativeString', iptrw);
|
||||
RegisterProperty('MAINFORM', 'TFORM', iptr);
|
||||
RegisterProperty('SHOWHINT', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('SHOWMAINFORM', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('TERMINATED', 'BOOLEAN', iptr);
|
||||
RegisterProperty('TITLE', 'NativeString', iptrw);
|
||||
RegisterProperty('ONACTIVATE', 'TNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONDEACTIVATE', 'TNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONIDLE', 'TIDLEEVENT', iptrw);
|
||||
RegisterProperty('ONHINT', 'TNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONMINIMIZE', 'TNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONRESTORE', 'TNOTIFYEVENT', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterMethod('procedure CONTROLDESTROYED(CONTROL:TCONTROL)');
|
||||
RegisterMethod('procedure CANCELHINT');
|
||||
RegisterMethod('procedure HANDLEEXCEPTION(SENDER:TOBJECT)');
|
||||
RegisterMethod('procedure HANDLEMESSAGE');
|
||||
RegisterMethod('procedure HIDEHINT');
|
||||
// RegisterMethod('procedure HINTMOUSEMESSAGE(CONTROL:TCONTROL;var MESSAGE:TMESSAGE)');
|
||||
RegisterMethod('procedure INITIALIZE');
|
||||
RegisterMethod('procedure NORMALIZETOPMOSTS');
|
||||
RegisterMethod('procedure RESTORETOPMOSTS');
|
||||
RegisterMethod('procedure RUN');
|
||||
// RegisterMethod('procedure SHOWEXCEPTION(E:EXCEPTION)');
|
||||
{$IFNDEF CLX}
|
||||
RegisterMethod('function HELPCOMMAND(COMMAND:INTEGER;DATA:LONGINT):BOOLEAN');
|
||||
RegisterMethod('function HELPCONTEXT(CONTEXT:THELPCONTEXT):BOOLEAN');
|
||||
RegisterMethod('function HELPJUMP(JUMPID:NativeString):BOOLEAN');
|
||||
RegisterProperty('DIALOGHANDLE', 'LONGINT', iptrw);
|
||||
RegisterMethod('procedure CREATEHANDLE');
|
||||
// RegisterMethod('procedure HOOKMAINWINDOW(HOOK:TWINDOWHOOK)');
|
||||
// RegisterMethod('procedure UNHOOKMAINWINDOW(HOOK:TWINDOWHOOK)');
|
||||
{$ENDIF}
|
||||
RegisterProperty('HELPFILE', 'NativeString', iptrw);
|
||||
RegisterProperty('HINTCOLOR', 'TCOLOR', iptrw);
|
||||
RegisterProperty('HINTPAUSE', 'INTEGER', iptrw);
|
||||
RegisterProperty('HINTSHORTPAUSE', 'INTEGER', iptrw);
|
||||
RegisterProperty('HINTHIDEPAUSE', 'INTEGER', iptrw);
|
||||
RegisterProperty('ICON', 'TICON', iptrw);
|
||||
RegisterProperty('ONHELP', 'THELPEVENT', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegister_Forms_TypesAndConsts(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
Cl.AddTypeS('TIdleEvent', 'procedure (Sender: TObject; var Done: Boolean)');
|
||||
cl.AddTypeS('TScrollBarKind', '(sbHorizontal, sbVertical)');
|
||||
cl.AddTypeS('TScrollBarInc', 'SmallInt');
|
||||
cl.AddTypeS('TFormBorderStyle', '(bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin)');
|
||||
cl.AddTypeS('TBorderStyle', 'TFormBorderStyle');
|
||||
cl.AddTypeS('TWindowState', '(wsNormal, wsMinimized, wsMaximized)');
|
||||
cl.AddTypeS('TFormStyle', '(fsNormal, fsMDIChild, fsMDIForm, fsStayOnTop)');
|
||||
cl.AddTypeS('TPosition', '(poDesigned, poDefault, poDefaultPosOnly, poDefaultSizeOnly, poScreenCenter, poDesktopCenter, poMainFormCenter, poOwnerFormCenter)');
|
||||
cl.AddTypeS('TPrintScale', '(poNone, poProportional, poPrintToFit)');
|
||||
cl.AddTypeS('TCloseAction', '(caNone, caHide, caFree, caMinimize)');
|
||||
cl.AddTypeS('TCloseEvent' ,'procedure(Sender: TObject; var Action: TCloseAction)');
|
||||
cl.AddTypeS('TCloseQueryEvent' ,'procedure(Sender: TObject; var CanClose: Boolean)');
|
||||
cl.AddTypeS('TBorderIcon' ,'(biSystemMenu, biMinimize, biMaximize, biHelp)');
|
||||
cl.AddTypeS('TBorderIcons', 'set of TBorderIcon');
|
||||
cl.AddTypeS('THELPCONTEXT', 'Longint');
|
||||
end;
|
||||
|
||||
procedure SIRegister_Forms(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
SIRegister_Forms_TypesAndConsts(cl);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
SIRegisterTCONTROLSCROLLBAR(cl);
|
||||
{$ENDIF}
|
||||
SIRegisterTScrollingWinControl(cl);
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
SIRegisterTSCROLLBOX(cl);
|
||||
{$ENDIF}
|
||||
SIRegisterTForm(Cl);
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
SIRegisterTApplication(Cl);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
|
||||
|
||||
|
||||
end.
|
||||
|
||||
285
Pascal Script for Delphi/Source/uPSC_graphics.pas
Normal file
285
Pascal Script for Delphi/Source/uPSC_graphics.pas
Normal file
@@ -0,0 +1,285 @@
|
||||
{ Compiletime Graphics support }
|
||||
unit uPSC_graphics;
|
||||
|
||||
{$I PascalScript.inc}
|
||||
interface
|
||||
uses
|
||||
uPSCompiler, uPSUtils;
|
||||
|
||||
|
||||
|
||||
procedure SIRegister_Graphics_TypesAndConsts(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTGRAPHICSOBJECT(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTFont(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTPEN(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTBRUSH(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTCanvas(cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTGraphic(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTBitmap(CL: TPSPascalCompiler; Streams: Boolean);
|
||||
procedure SIRegisterTPicture(CL: TPSPascalCompiler);
|
||||
|
||||
procedure SIRegister_Graphics(Cl: TPSPascalCompiler; Streams: Boolean);
|
||||
|
||||
implementation
|
||||
{$IFNDEF PS_NOGRAPHCONST}
|
||||
uses
|
||||
{$IFDEF CLX}QGraphics{$ELSE}Graphics{$ENDIF};
|
||||
{$ELSE}
|
||||
{$IFNDEF CLX}
|
||||
{$IFNDEF FPC}
|
||||
uses
|
||||
Windows;
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
procedure SIRegisterTGRAPHICSOBJECT(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TPERSISTENT'), 'TGRAPHICSOBJECT') do
|
||||
begin
|
||||
RegisterProperty('ONCHANGE', 'TNOTIFYEVENT', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTFont(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TGraphicsObject'), 'TFONT') do
|
||||
begin
|
||||
RegisterMethod('constructor Create;');
|
||||
{$IFNDEF CLX}
|
||||
RegisterProperty('Handle', 'Integer', iptRW);
|
||||
{$ENDIF}
|
||||
RegisterProperty('Color', 'TColor', iptRW);
|
||||
RegisterProperty('Height', 'Integer', iptRW);
|
||||
RegisterProperty('Name', 'String', iptRW);
|
||||
RegisterProperty('Pitch', 'Byte', iptRW);
|
||||
RegisterProperty('Size', 'Integer', iptRW);
|
||||
RegisterProperty('PixelsPerInch', 'Integer', iptRW);
|
||||
RegisterProperty('Style', 'TFontStyles', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTCanvas(cl: TPSPascalCompiler); // requires TPersistent
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TPersistent'), 'TCANVAS') do
|
||||
begin
|
||||
RegisterMethod('procedure Arc(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);');
|
||||
RegisterMethod('procedure Chord(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);');
|
||||
RegisterMethod('procedure Draw(X, Y: Integer; Graphic: TGraphic);');
|
||||
RegisterMethod('procedure Ellipse(X1, Y1, X2, Y2: Integer);');
|
||||
RegisterMethod('procedure FillRect(const Rect: TRect);');
|
||||
{$IFNDEF CLX}
|
||||
RegisterMethod('procedure FloodFill(X, Y: Integer; Color: TColor; FillStyle: Byte);');
|
||||
{$ENDIF}
|
||||
RegisterMethod('procedure LineTo(X, Y: Integer);');
|
||||
RegisterMethod('procedure MoveTo(X, Y: Integer);');
|
||||
RegisterMethod('procedure Pie(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);');
|
||||
RegisterMethod('procedure Rectangle(X1, Y1, X2, Y2: Integer);');
|
||||
RegisterMethod('procedure Refresh;');
|
||||
RegisterMethod('procedure RoundRect(X1, Y1, X2, Y2, X3, Y3: Integer);');
|
||||
RegisterMethod('function TextHeight(Text: String): Integer;');
|
||||
RegisterMethod('procedure TextOut(X, Y: Integer; Text: String);');
|
||||
RegisterMethod('function TextWidth(Text: String): Integer;');
|
||||
{$IFNDEF CLX}
|
||||
RegisterProperty('Handle', 'Integer', iptRw);
|
||||
{$ENDIF}
|
||||
RegisterProperty('Pixels', 'Integer Integer Integer', iptRW);
|
||||
RegisterProperty('Brush', 'TBrush', iptR);
|
||||
RegisterProperty('CopyMode', 'Byte', iptRw);
|
||||
RegisterProperty('Font', 'TFont', iptR);
|
||||
RegisterProperty('Pen', 'TPen', iptR);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTPEN(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TGRAPHICSOBJECT'), 'TPEN') do
|
||||
begin
|
||||
RegisterMethod('constructor CREATE');
|
||||
RegisterProperty('COLOR', 'TCOLOR', iptrw);
|
||||
RegisterProperty('MODE', 'TPENMODE', iptrw);
|
||||
RegisterProperty('STYLE', 'TPENSTYLE', iptrw);
|
||||
RegisterProperty('WIDTH', 'INTEGER', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTBRUSH(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TGRAPHICSOBJECT'), 'TBRUSH') do
|
||||
begin
|
||||
RegisterMethod('constructor CREATE');
|
||||
RegisterProperty('COLOR', 'TCOLOR', iptrw);
|
||||
RegisterProperty('STYLE', 'TBRUSHSTYLE', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegister_Graphics_TypesAndConsts(Cl: TPSPascalCompiler);
|
||||
{$IFDEF PS_NOGRAPHCONST}
|
||||
const
|
||||
clSystemColor = {$IFDEF DELPHI7UP} $FF000000 {$ELSE} $80000000 {$ENDIF};
|
||||
{$ENDIF}
|
||||
begin
|
||||
{$IFNDEF PS_NOGRAPHCONST}
|
||||
cl.AddConstantN('clScrollBar', 'Integer').Value.ts32 := clScrollBar;
|
||||
cl.AddConstantN('clBackground', 'Integer').Value.ts32 := clBackground;
|
||||
cl.AddConstantN('clActiveCaption', 'Integer').Value.ts32 := clActiveCaption;
|
||||
cl.AddConstantN('clInactiveCaption', 'Integer').Value.ts32 := clInactiveCaption;
|
||||
cl.AddConstantN('clMenu', 'Integer').Value.ts32 := clMenu;
|
||||
cl.AddConstantN('clWindow', 'Integer').Value.ts32 := clWindow;
|
||||
cl.AddConstantN('clWindowFrame', 'Integer').Value.ts32 := clWindowFrame;
|
||||
cl.AddConstantN('clMenuText', 'Integer').Value.ts32 := clMenuText;
|
||||
cl.AddConstantN('clWindowText', 'Integer').Value.ts32 := clWindowText;
|
||||
cl.AddConstantN('clCaptionText', 'Integer').Value.ts32 := clCaptionText;
|
||||
cl.AddConstantN('clActiveBorder', 'Integer').Value.ts32 := clActiveBorder;
|
||||
cl.AddConstantN('clInactiveBorder', 'Integer').Value.ts32 := clInactiveCaption;
|
||||
cl.AddConstantN('clAppWorkSpace', 'Integer').Value.ts32 := clAppWorkSpace;
|
||||
cl.AddConstantN('clHighlight', 'Integer').Value.ts32 := clHighlight;
|
||||
cl.AddConstantN('clHighlightText', 'Integer').Value.ts32 := clHighlightText;
|
||||
cl.AddConstantN('clBtnFace', 'Integer').Value.ts32 := clBtnFace;
|
||||
cl.AddConstantN('clBtnShadow', 'Integer').Value.ts32 := clBtnShadow;
|
||||
cl.AddConstantN('clGrayText', 'Integer').Value.ts32 := clGrayText;
|
||||
cl.AddConstantN('clBtnText', 'Integer').Value.ts32 := clBtnText;
|
||||
cl.AddConstantN('clInactiveCaptionText', 'Integer').Value.ts32 := clInactiveCaptionText;
|
||||
cl.AddConstantN('clBtnHighlight', 'Integer').Value.ts32 := clBtnHighlight;
|
||||
cl.AddConstantN('cl3DDkShadow', 'Integer').Value.ts32 := cl3DDkShadow;
|
||||
cl.AddConstantN('cl3DLight', 'Integer').Value.ts32 := cl3DLight;
|
||||
cl.AddConstantN('clInfoText', 'Integer').Value.ts32 := clInfoText;
|
||||
cl.AddConstantN('clInfoBk', 'Integer').Value.ts32 := clInfoBk;
|
||||
{$ELSE}
|
||||
{$IFNDEF CLX} // These are VCL-only; CLX uses different constant values
|
||||
cl.AddConstantN('clScrollBar', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_SCROLLBAR);
|
||||
cl.AddConstantN('clBackground', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_BACKGROUND);
|
||||
cl.AddConstantN('clActiveCaption', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_ACTIVECAPTION);
|
||||
cl.AddConstantN('clInactiveCaption', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_INACTIVECAPTION);
|
||||
cl.AddConstantN('clMenu', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_MENU);
|
||||
cl.AddConstantN('clWindow', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_WINDOW);
|
||||
cl.AddConstantN('clWindowFrame', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_WINDOWFRAME);
|
||||
cl.AddConstantN('clMenuText', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_MENUTEXT);
|
||||
cl.AddConstantN('clWindowText', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_WINDOWTEXT);
|
||||
cl.AddConstantN('clCaptionText', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_CAPTIONTEXT);
|
||||
cl.AddConstantN('clActiveBorder', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_ACTIVEBORDER);
|
||||
cl.AddConstantN('clInactiveBorder', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_INACTIVEBORDER);
|
||||
cl.AddConstantN('clAppWorkSpace', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_APPWORKSPACE);
|
||||
cl.AddConstantN('clHighlight', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_HIGHLIGHT);
|
||||
cl.AddConstantN('clHighlightText', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_HIGHLIGHTTEXT);
|
||||
cl.AddConstantN('clBtnFace', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_BTNFACE);
|
||||
cl.AddConstantN('clBtnShadow', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_BTNSHADOW);
|
||||
cl.AddConstantN('clGrayText', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_GRAYTEXT);
|
||||
cl.AddConstantN('clBtnText', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_BTNTEXT);
|
||||
cl.AddConstantN('clInactiveCaptionText', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_INACTIVECAPTIONTEXT);
|
||||
cl.AddConstantN('clBtnHighlight', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_BTNHIGHLIGHT);
|
||||
cl.AddConstantN('cl3DDkShadow', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_3DDKSHADOW);
|
||||
cl.AddConstantN('cl3DLight', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_3DLIGHT);
|
||||
cl.AddConstantN('clInfoText', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_INFOTEXT);
|
||||
cl.AddConstantN('clInfoBk', 'Integer').Value.ts32 := Integer(clSystemColor or COLOR_INFOBK);
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
cl.AddConstantN('clBlack', 'Integer').Value.ts32 := $000000;
|
||||
cl.AddConstantN('clMaroon', 'Integer').Value.ts32 := $000080;
|
||||
cl.AddConstantN('clGreen', 'Integer').Value.ts32 := $008000;
|
||||
cl.AddConstantN('clOlive', 'Integer').Value.ts32 := $008080;
|
||||
cl.AddConstantN('clNavy', 'Integer').Value.ts32 := $800000;
|
||||
cl.AddConstantN('clPurple', 'Integer').Value.ts32 := $800080;
|
||||
cl.AddConstantN('clTeal', 'Integer').Value.ts32 := $808000;
|
||||
cl.AddConstantN('clGray', 'Integer').Value.ts32 := $808080;
|
||||
cl.AddConstantN('clSilver', 'Integer').Value.ts32 := $C0C0C0;
|
||||
cl.AddConstantN('clRed', 'Integer').Value.ts32 := $0000FF;
|
||||
cl.AddConstantN('clLime', 'Integer').Value.ts32 := $00FF00;
|
||||
cl.AddConstantN('clYellow', 'Integer').Value.ts32 := $00FFFF;
|
||||
cl.AddConstantN('clBlue', 'Integer').Value.ts32 := $FF0000;
|
||||
cl.AddConstantN('clFuchsia', 'Integer').Value.ts32 := $FF00FF;
|
||||
cl.AddConstantN('clAqua', 'Integer').Value.ts32 := $FFFF00;
|
||||
cl.AddConstantN('clLtGray', 'Integer').Value.ts32 := $C0C0C0;
|
||||
cl.AddConstantN('clDkGray', 'Integer').Value.ts32 := $808080;
|
||||
cl.AddConstantN('clWhite', 'Integer').Value.ts32 := $FFFFFF;
|
||||
cl.AddConstantN('clNone', 'Integer').Value.ts32 := $1FFFFFFF;
|
||||
cl.AddConstantN('clDefault', 'Integer').Value.ts32 := $20000000;
|
||||
|
||||
Cl.addTypeS('TFONTSTYLE', '(FSBOLD, FSITALIC, FSUNDERLINE, FSSTRIKEOUT)');
|
||||
Cl.addTypeS('TFONTSTYLES', 'set of TFONTSTYLE');
|
||||
|
||||
cl.AddTypeS('TFontPitch', '(fpDefault, fpVariable, fpFixed)');
|
||||
cl.AddTypeS('TPenStyle', '(psSolid, psDash, psDot, psDashDot, psDashDotDot, psClear, psInsideFrame)');
|
||||
cl.AddTypeS('TPenMode', '(pmBlack, pmWhite, pmNop, pmNot, pmCopy, pmNotCopy, pmMergePenNot, pmMaskPenNot, pmMergeNotPen, pmMaskNotPen, pmMerge, pmNotMerge, pmMask, pmNotMask, pmXor, pmNotXor)');
|
||||
cl.AddTypeS('TBrushStyle', '(bsSolid, bsClear, bsHorizontal, bsVertical, bsFDiagonal, bsBDiagonal, bsCross, bsDiagCross)');
|
||||
cl.addTypeS('TColor', 'integer');
|
||||
|
||||
{$IFNDEF CLX}
|
||||
cl.addTypeS('HBITMAP', 'Integer');
|
||||
cl.addTypeS('HPALETTE', 'Integer');
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
procedure SIRegisterTGraphic(CL: TPSPascalCompiler);
|
||||
begin
|
||||
with CL.AddClassN(CL.FindClass('TPersistent'),'TGraphic') do
|
||||
begin
|
||||
RegisterMethod('constructor Create');
|
||||
RegisterMethod('Procedure LoadFromFile( const Filename : String)');
|
||||
RegisterMethod('Procedure SaveToFile( const Filename : String)');
|
||||
RegisterProperty('Empty', 'Boolean', iptr);
|
||||
RegisterProperty('Height', 'Integer', iptrw);
|
||||
RegisterProperty('Modified', 'Boolean', iptrw);
|
||||
RegisterProperty('Width', 'Integer', iptrw);
|
||||
RegisterProperty('OnChange', 'TNotifyEvent', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTBitmap(CL: TPSPascalCompiler; Streams: Boolean);
|
||||
begin
|
||||
with CL.AddClassN(CL.FindClass('TGraphic'),'TBitmap') do
|
||||
begin
|
||||
if Streams then begin
|
||||
RegisterMethod('Procedure LoadFromStream( Stream : TStream)');
|
||||
RegisterMethod('Procedure SaveToStream( Stream : TStream)');
|
||||
end;
|
||||
RegisterProperty('Canvas', 'TCanvas', iptr);
|
||||
{$IFNDEF CLX}
|
||||
RegisterProperty('Handle', 'HBITMAP', iptrw);
|
||||
{$ENDIF}
|
||||
|
||||
{$IFNDEF IFPS_MINIVCL}
|
||||
RegisterMethod('Procedure Dormant');
|
||||
RegisterMethod('Procedure FreeImage');
|
||||
{$IFNDEF CLX}
|
||||
RegisterMethod('Procedure LoadFromClipboardFormat( AFormat : Word; AData : THandle; APalette : HPALETTE)');
|
||||
{$ENDIF}
|
||||
RegisterMethod('Procedure LoadFromResourceName( Instance : THandle; const ResName : String)');
|
||||
RegisterMethod('Procedure LoadFromResourceID( Instance : THandle; ResID : Integer)');
|
||||
{$IFNDEF CLX}
|
||||
RegisterMethod('Function ReleaseHandle : HBITMAP');
|
||||
RegisterMethod('Function ReleasePalette : HPALETTE');
|
||||
RegisterMethod('Procedure SaveToClipboardFormat( var Format : Word; var Data : THandle; var APalette : HPALETTE)');
|
||||
RegisterProperty('Monochrome', 'Boolean', iptrw);
|
||||
RegisterProperty('Palette', 'HPALETTE', iptrw);
|
||||
RegisterProperty('IgnorePalette', 'Boolean', iptrw);
|
||||
{$ENDIF}
|
||||
RegisterProperty('TransparentColor', 'TColor', iptr);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTPicture(CL: TPSPascalCompiler);
|
||||
begin
|
||||
with CL.AddClassN(CL.FindClass('TPersistent'),'TPicture') do
|
||||
begin
|
||||
RegisterProperty('Bitmap','TBitmap',iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegister_Graphics(Cl: TPSPascalCompiler; Streams: Boolean);
|
||||
begin
|
||||
SIRegister_Graphics_TypesAndConsts(Cl);
|
||||
SIRegisterTGRAPHICSOBJECT(Cl);
|
||||
SIRegisterTGraphic(Cl);
|
||||
SIRegisterTFont(Cl);
|
||||
SIRegisterTPEN(cl);
|
||||
SIRegisterTBRUSH(cl);
|
||||
SIRegisterTCanvas(cl);
|
||||
SIRegisterTBitmap(Cl, Streams);
|
||||
SIRegisterTPicture(cl);
|
||||
end;
|
||||
|
||||
// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
|
||||
|
||||
End.
|
||||
214
Pascal Script for Delphi/Source/uPSC_menus.pas
Normal file
214
Pascal Script for Delphi/Source/uPSC_menus.pas
Normal file
@@ -0,0 +1,214 @@
|
||||
{ Menus Import Unit }
|
||||
Unit uPSC_menus;
|
||||
{$I PascalScript.inc}
|
||||
Interface
|
||||
Uses uPSCompiler;
|
||||
|
||||
procedure SIRegisterTMENUITEMSTACK(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTPOPUPLIST(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTPOPUPMENU(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTMAINMENU(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTMENU(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTMENUITEM(CL: TPSPascalCompiler);
|
||||
procedure SIRegister_Menus(Cl: TPSPascalCompiler);
|
||||
|
||||
implementation
|
||||
|
||||
procedure SIRegisterTMENUITEMSTACK(CL: TPSPascalCompiler);
|
||||
begin
|
||||
With cl.AddClassN(Cl.FindClass('TSTACK'),'TMENUITEMSTACK') do
|
||||
begin
|
||||
RegisterMethod('Procedure CLEARITEM( AITEM : TMENUITEM)');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTPOPUPLIST(CL: TPSPascalCompiler);
|
||||
begin
|
||||
With cl.AddClassN(Cl.FindClass('TLIST'),'TPOPUPLIST') do
|
||||
begin
|
||||
RegisterProperty('WINDOW', 'HWND', iptr);
|
||||
RegisterMethod('Procedure ADD( POPUP : TPOPUPMENU)');
|
||||
RegisterMethod('Procedure REMOVE( POPUP : TPOPUPMENU)');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTPOPUPMENU(CL: TPSPascalCompiler);
|
||||
var
|
||||
cc: TPSCompileTimeClass;
|
||||
begin
|
||||
With cl.AddClassN(Cl.FindClass('TMENU'),'TPOPUPMENU') do
|
||||
begin
|
||||
cc := Cl.FindClass('TLabel');
|
||||
if cc <> nil then
|
||||
RegisterProperty('POPUPMENU', 'TPOPUPMENU', iptRW);
|
||||
with Cl.FindClass('TForm') do
|
||||
begin
|
||||
RegisterProperty('POPUPMENU', 'TPOPUPMENU', iptRW);
|
||||
end;
|
||||
RegisterMethod('Constructor CREATE( AOWNER : TCOMPONENT)');
|
||||
RegisterMethod('Procedure POPUP( X, Y : INTEGER)');
|
||||
RegisterProperty('POPUPCOMPONENT', 'TCOMPONENT', iptrw);
|
||||
RegisterProperty('ALIGNMENT', 'TPOPUPALIGNMENT', iptrw);
|
||||
RegisterProperty('AUTOPOPUP', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('HELPCONTEXT', 'THELPCONTEXT', iptrw);
|
||||
RegisterProperty('MENUANIMATION', 'TMENUANIMATION', iptrw);
|
||||
RegisterProperty('TRACKBUTTON', 'TTRACKBUTTON', iptrw);
|
||||
RegisterProperty('ONPOPUP', 'TNOTIFYEVENT', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTMAINMENU(CL: TPSPascalCompiler);
|
||||
begin
|
||||
With cl.AddClassN(Cl.FindClass('TMENU'),'TMAINMENU') do
|
||||
begin
|
||||
RegisterMethod('Procedure MERGE( MENU : TMAINMENU)');
|
||||
RegisterMethod('Procedure UNMERGE( MENU : TMAINMENU)');
|
||||
RegisterMethod('Procedure POPULATEOLE2MENU( SHAREDMENU : HMENU; GROUPS : array of INTEGER; var WIDTHS : array of LONGINT)');
|
||||
RegisterMethod('Procedure GETOLE2ACCELERATORTABLE( var ACCELTABLE : HACCEL; var ACCELCOUNT : INTEGER; GROUPS : array of INTEGER)');
|
||||
RegisterMethod('Procedure SETOLE2MENUHANDLE( HANDLE : HMENU)');
|
||||
RegisterProperty('AUTOMERGE', 'BOOLEAN', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTMENU(CL: TPSPascalCompiler);
|
||||
begin
|
||||
With cl.AddClassN(Cl.FindClass('TCOMPONENT'),'TMENU') do
|
||||
begin
|
||||
RegisterMethod('Constructor CREATE( AOWNER : TCOMPONENT)');
|
||||
RegisterMethod('Function DISPATCHCOMMAND( ACOMMAND : WORD) : BOOLEAN');
|
||||
RegisterMethod('Function DISPATCHPOPUP( AHANDLE : HMENU) : BOOLEAN');
|
||||
RegisterMethod('Function FINDITEM( VALUE : INTEGER; KIND : TFINDITEMKIND) : TMENUITEM');
|
||||
RegisterMethod('Function GETHELPCONTEXT( VALUE : INTEGER; BYCOMMAND : BOOLEAN) : THELPCONTEXT');
|
||||
RegisterProperty('IMAGES', 'TCUSTOMIMAGELIST', iptrw);
|
||||
RegisterMethod('Function ISRIGHTTOLEFT : BOOLEAN');
|
||||
RegisterMethod('Procedure PARENTBIDIMODECHANGED( ACONTROL : TOBJECT)');
|
||||
RegisterMethod('Procedure PROCESSMENUCHAR( var MESSAGE : TWMMENUCHAR)');
|
||||
RegisterProperty('AUTOHOTKEYS', 'TMENUAUTOFLAG', iptrw);
|
||||
RegisterProperty('AUTOLINEREDUCTION', 'TMENUAUTOFLAG', iptrw);
|
||||
RegisterProperty('BIDIMODE', 'TBIDIMODE', iptrw);
|
||||
RegisterProperty('HANDLE', 'HMENU', iptr);
|
||||
RegisterProperty('OWNERDRAW', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('PARENTBIDIMODE', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('WINDOWHANDLE', 'HWND', iptrw);
|
||||
RegisterProperty('ITEMS', 'TMENUITEM', iptr);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTMENUITEM(CL: TPSPascalCompiler);
|
||||
begin
|
||||
With cl.AddClassN(Cl.FindClass('TCOMPONENT'),'TMENUITEM') do
|
||||
begin
|
||||
RegisterMethod('Constructor CREATE( AOWNER : TCOMPONENT)');
|
||||
RegisterMethod('Procedure INITIATEACTION');
|
||||
RegisterMethod('Procedure INSERT( INDEX : INTEGER; ITEM : TMENUITEM)');
|
||||
RegisterMethod('Procedure DELETE( INDEX : INTEGER)');
|
||||
RegisterMethod('Procedure CLEAR');
|
||||
RegisterMethod('Procedure CLICK');
|
||||
RegisterMethod('Function FIND( ACAPTION : String) : TMENUITEM');
|
||||
RegisterMethod('Function INDEXOF( ITEM : TMENUITEM) : INTEGER');
|
||||
RegisterMethod('Function ISLINE : BOOLEAN');
|
||||
RegisterMethod('Function GETIMAGELIST : TCUSTOMIMAGELIST');
|
||||
RegisterMethod('Function GETPARENTCOMPONENT : TCOMPONENT');
|
||||
RegisterMethod('Function GETPARENTMENU : TMENU');
|
||||
RegisterMethod('Function HASPARENT : BOOLEAN');
|
||||
RegisterMethod('Function NEWTOPLINE : INTEGER');
|
||||
RegisterMethod('Function NEWBOTTOMLINE : INTEGER');
|
||||
RegisterMethod('Function INSERTNEWLINEBEFORE( AITEM : TMENUITEM) : INTEGER');
|
||||
RegisterMethod('Function INSERTNEWLINEAFTER( AITEM : TMENUITEM) : INTEGER');
|
||||
RegisterMethod('Procedure ADD( ITEM : TMENUITEM)');
|
||||
RegisterMethod('Procedure REMOVE( ITEM : TMENUITEM)');
|
||||
RegisterMethod('Function RETHINKHOTKEYS : BOOLEAN');
|
||||
RegisterMethod('Function RETHINKLINES : BOOLEAN');
|
||||
RegisterProperty('COMMAND', 'WORD', iptr);
|
||||
RegisterProperty('HANDLE', 'HMENU', iptr);
|
||||
RegisterProperty('COUNT', 'INTEGER', iptr);
|
||||
RegisterProperty('ITEMS', 'TMENUITEM INTEGER', iptr);
|
||||
RegisterProperty('MENUINDEX', 'INTEGER', iptrw);
|
||||
RegisterProperty('PARENT', 'TMENUITEM', iptr);
|
||||
{$IFDEF DELPHI5UP}
|
||||
RegisterProperty('ACTION', 'TBASICACTION', iptrw);
|
||||
{$ENDIF}
|
||||
RegisterProperty('AUTOHOTKEYS', 'TMENUITEMAUTOFLAG', iptrw);
|
||||
RegisterProperty('AUTOLINEREDUCTION', 'TMENUITEMAUTOFLAG', iptrw);
|
||||
RegisterProperty('BITMAP', 'TBITMAP', iptrw);
|
||||
RegisterProperty('CAPTION', 'String', iptrw);
|
||||
RegisterProperty('CHECKED', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('SUBMENUIMAGES', 'TCUSTOMIMAGELIST', iptrw);
|
||||
RegisterProperty('DEFAULT', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('ENABLED', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('GROUPINDEX', 'BYTE', iptrw);
|
||||
RegisterProperty('HELPCONTEXT', 'THELPCONTEXT', iptrw);
|
||||
RegisterProperty('HINT', 'String', iptrw);
|
||||
RegisterProperty('IMAGEINDEX', 'TIMAGEINDEX', iptrw);
|
||||
RegisterProperty('RADIOITEM', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('SHORTCUT', 'TSHORTCUT', iptrw);
|
||||
RegisterProperty('VISIBLE', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('ONCLICK', 'TNOTIFYEVENT', iptrw);
|
||||
{$IFNDEF FPC} RegisterProperty('ONDRAWITEM', 'TMENUDRAWITEMEVENT', iptrw);
|
||||
RegisterProperty('ONADVANCEDDRAWITEM', 'TADVANCEDMENUDRAWITEMEVENT', iptrw);
|
||||
RegisterProperty('ONMEASUREITEM', 'TMENUMEASUREITEMEVENT', iptrw);{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegister_Menus(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
Cl.AddTypeS('HMenu', 'Cardinal');
|
||||
Cl.AddTypeS('HACCEL', 'Cardinal');
|
||||
|
||||
cl.addClassN(cl.FindClass('EXCEPTION'),'EMENUERROR');
|
||||
Cl.addTypeS('TMENUBREAK', '( MBNONE, MBBREAK, MBBARBREAK )');
|
||||
{$IFNDEF FPC}
|
||||
Cl.addTypeS('TMENUDRAWITEMEVENT', 'Procedure ( SENDER : TOBJECT; ACANVAS : TC'
|
||||
+'ANVAS; ARECT : TRECT; SELECTED : BOOLEAN)');
|
||||
Cl.addTypeS('TADVANCEDMENUDRAWITEMEVENT', 'Procedure ( SENDER : TOBJECT; ACAN'
|
||||
+'VAS : TCANVAS; ARECT : TRECT; STATE : TOWNERDRAWSTATE)');
|
||||
Cl.addTypeS('TMENUMEASUREITEMEVENT', 'Procedure ( SENDER : TOBJECT; ACANVAS :'
|
||||
+' TCANVAS; var WIDTH, HEIGHT : INTEGER)');
|
||||
{$ENDIF}
|
||||
Cl.addTypeS('TMENUITEMAUTOFLAG', '( MAAUTOMATIC, MAMANUAL, MAPARENT )');
|
||||
Cl.AddTypeS('TMenuAutoFlag', 'TMENUITEMAUTOFLAG');
|
||||
Cl.addTypeS('TSHORTCUT', 'WORD');
|
||||
cl.addClassN(cl.FindClass('TACTIONLINK'),'TMENUACTIONLINK');
|
||||
SIRegisterTMENUITEM(Cl);
|
||||
Cl.addTypeS('TMENUCHANGEEVENT', 'Procedure ( SENDER : TOBJECT; SOURCE : TMENU'
|
||||
+'ITEM; REBUILD : BOOLEAN)');
|
||||
Cl.addTypeS('TFINDITEMKIND', '( FKCOMMAND, FKHANDLE, FKSHORTCUT )');
|
||||
SIRegisterTMENU(Cl);
|
||||
SIRegisterTMAINMENU(Cl);
|
||||
Cl.addTypeS('TPOPUPALIGNMENT', '( PALEFT, PARIGHT, PACENTER )');
|
||||
Cl.addTypeS('TTRACKBUTTON', '( TBRIGHTBUTTON, TBLEFTBUTTON )');
|
||||
Cl.addTypeS('TMENUANIMATIONS', '( MALEFTTORIGHT, MARIGHTTOLEFT, MATOPTOBOTTOM'
|
||||
+', MABOTTOMTOTOP, MANONE )');
|
||||
Cl.addTypeS('TMENUANIMATION', 'set of TMENUANIMATIONS');
|
||||
SIRegisterTPOPUPMENU(Cl);
|
||||
SIRegisterTPOPUPLIST(Cl);
|
||||
SIRegisterTMENUITEMSTACK(Cl);
|
||||
Cl.addTypeS('TCMENUITEM', 'TMENUITEM');
|
||||
{$IFNDEF FPC}
|
||||
//TODO: it should work,but somehow TShiftState is not defined
|
||||
Cl.AddDelphiFunction('Function SHORTCUT( KEY : WORD; SHIFT : TSHIFTSTATE) : T'
|
||||
+'SHORTCUT');
|
||||
Cl.AddDelphiFunction('Procedure SHORTCUTTOKEY( SHORTCUT : TSHORTCUT; var KEY '
|
||||
+': WORD; var SHIFT : TSHIFTSTATE)');
|
||||
{$ENDIF}
|
||||
Cl.AddDelphiFunction('Function SHORTCUTTOTEXT( SHORTCUT : TSHORTCUT) : String'
|
||||
+'');
|
||||
Cl.AddDelphiFunction('Function TEXTTOSHORTCUT( TEXT : String) : TSHORTCUT');
|
||||
Cl.AddDelphiFunction('Function NEWMENU( OWNER : TCOMPONENT; const ANAME : STR'
|
||||
+'ING; ITEMS : array of TMenuItem) : TMAINMENU');
|
||||
Cl.AddDelphiFunction('Function NEWPOPUPMENU( OWNER : TCOMPONENT; const ANAME '
|
||||
+': String; ALIGNMENT : TPOPUPALIGNMENT; AUTOPOPUP : BOOLEAN; const ITEMS : array of '
|
||||
+'TCMENUITEM) : TPOPUPMENU');
|
||||
Cl.AddDelphiFunction('Function NEWSUBMENU( const ACAPTION : String; HCTX : WO'
|
||||
+'RD; const ANAME : String; ITEMS : array of TMenuItem; AENABLED : BOOLEAN) : TMENUITEM');
|
||||
Cl.AddDelphiFunction('Function NEWITEM( const ACAPTION : String; ASHORTCUT : '
|
||||
+'TSHORTCUT; ACHECKED, AENABLED : BOOLEAN; AONCLICK : TNOTIFYEVENT; HCTX : W'
|
||||
+'ORD; const ANAME : String) : TMENUITEM');
|
||||
Cl.AddDelphiFunction('Function NEWLINE : TMENUITEM');
|
||||
{$IFNDEF FPC}
|
||||
Cl.AddDelphiFunction('Procedure DRAWMENUITEM( MENUITEM : TMENUITEM; ACANVAS :'
|
||||
+' TCANVAS; ARECT : TRECT; STATE : TOWNERDRAWSTATE)');
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
end.
|
||||
87
Pascal Script for Delphi/Source/uPSC_std.pas
Normal file
87
Pascal Script for Delphi/Source/uPSC_std.pas
Normal file
@@ -0,0 +1,87 @@
|
||||
{ Compiletime TObject, TPersistent and TComponent definitions }
|
||||
unit uPSC_std;
|
||||
{$I PascalScript.inc}
|
||||
interface
|
||||
uses
|
||||
uPSCompiler, uPSUtils;
|
||||
|
||||
{
|
||||
Will register files from:
|
||||
System
|
||||
Classes (Only TComponent and TPersistent)
|
||||
|
||||
}
|
||||
|
||||
procedure SIRegister_Std_TypesAndConsts(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTObject(CL: TPSPascalCompiler);
|
||||
procedure SIRegisterTPersistent(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTComponent(Cl: TPSPascalCompiler);
|
||||
|
||||
procedure SIRegister_Std(Cl: TPSPascalCompiler);
|
||||
|
||||
implementation
|
||||
|
||||
procedure SIRegisterTObject(CL: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(nil, 'TObject') do
|
||||
begin
|
||||
RegisterMethod('constructor Create');
|
||||
RegisterMethod('procedure Free');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTPersistent(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TObject'), 'TPersistent') do
|
||||
begin
|
||||
RegisterMethod('procedure Assign(Source: TPersistent)');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure SIRegisterTComponent(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TPersistent'), 'TComponent') do
|
||||
begin
|
||||
RegisterMethod('function FindComponent(AName: String): TComponent;');
|
||||
RegisterMethod('constructor Create(AOwner: TComponent); virtual;');
|
||||
|
||||
RegisterProperty('Owner', 'TComponent', iptRW);
|
||||
RegisterMethod('procedure DestroyComponents');
|
||||
RegisterMethod('procedure Destroying');
|
||||
RegisterMethod('procedure FreeNotification(AComponent:TComponent)');
|
||||
RegisterMethod('procedure InsertComponent(AComponent:TComponent)');
|
||||
RegisterMethod('procedure RemoveComponent(AComponent:TComponent)');
|
||||
RegisterProperty('Components', 'TComponent Integer', iptr);
|
||||
RegisterProperty('ComponentCount', 'Integer', iptr);
|
||||
RegisterProperty('ComponentIndex', 'Integer', iptrw);
|
||||
RegisterProperty('ComponentState', 'Byte', iptr);
|
||||
RegisterProperty('Designinfo', 'LongInt', iptrw);
|
||||
RegisterProperty('Name', 'String', iptrw);
|
||||
RegisterProperty('Tag', 'LongInt', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
procedure SIRegister_Std_TypesAndConsts(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
Cl.AddTypeS('TComponentStateE', '(csLoading, csReading, csWriting, csDestroying, csDesigning, csAncestor, csUpdating, csFixups, csFreeNotification, csInline, csDesignInstance)');
|
||||
cl.AddTypeS('TComponentState', 'set of TComponentStateE');
|
||||
Cl.AddTypeS('TRect', 'record Left, Top, Right, Bottom: Integer; end;');
|
||||
end;
|
||||
|
||||
procedure SIRegister_Std(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
SIRegister_Std_TypesAndConsts(Cl);
|
||||
SIRegisterTObject(CL);
|
||||
SIRegisterTPersistent(Cl);
|
||||
SIRegisterTComponent(Cl);
|
||||
end;
|
||||
|
||||
// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
|
||||
|
||||
|
||||
End.
|
||||
|
||||
|
||||
633
Pascal Script for Delphi/Source/uPSC_stdctrls.pas
Normal file
633
Pascal Script for Delphi/Source/uPSC_stdctrls.pas
Normal file
@@ -0,0 +1,633 @@
|
||||
{ Compiletime STDCtrls support }
|
||||
unit uPSC_stdctrls;
|
||||
|
||||
{$I PascalScript.inc}
|
||||
interface
|
||||
uses
|
||||
uPSCompiler, uPSUtils;
|
||||
|
||||
{
|
||||
Will register files from:
|
||||
stdctrls
|
||||
|
||||
Requires:
|
||||
STD, classes, controls and graphics
|
||||
}
|
||||
|
||||
procedure SIRegister_StdCtrls_TypesAndConsts(cl: TPSPascalCompiler);
|
||||
|
||||
|
||||
|
||||
procedure SIRegisterTCUSTOMGROUPBOX(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTGROUPBOX(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTCUSTOMLABEL(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTLABEL(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTCUSTOMEDIT(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTEDIT(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTCUSTOMMEMO(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTMEMO(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTCUSTOMCOMBOBOX(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTCOMBOBOX(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTBUTTONCONTROL(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTBUTTON(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTCUSTOMCHECKBOX(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTCHECKBOX(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTRADIOBUTTON(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTCUSTOMLISTBOX(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTLISTBOX(Cl: TPSPascalCompiler);
|
||||
procedure SIRegisterTSCROLLBAR(Cl: TPSPascalCompiler);
|
||||
|
||||
procedure SIRegister_StdCtrls(cl: TPSPascalCompiler);
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
procedure SIRegisterTCUSTOMGROUPBOX(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
Cl.AddClassN(cl.FindClass('TCUSTOMCONTROL'), 'TCUSTOMGROUPBOX');
|
||||
end;
|
||||
|
||||
|
||||
procedure SIRegisterTGROUPBOX(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TCUSTOMGROUPBOX'), 'TGROUPBOX') do
|
||||
begin
|
||||
RegisterProperty('CAPTION', 'String', iptrw);
|
||||
RegisterProperty('COLOR', 'TColor', iptrw);
|
||||
RegisterProperty('FONT', 'TFont', iptrw);
|
||||
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
|
||||
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterProperty('CTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
|
||||
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
|
||||
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
|
||||
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
|
||||
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
|
||||
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
procedure SIRegisterTCUSTOMLABEL(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TGRAPHICCONTROL'), 'TCUSTOMLABEL') do
|
||||
begin
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
{$IFNDEF CLX}
|
||||
RegisterProperty('CANVAS', 'TCANVAS', iptr);
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure SIRegisterTLABEL(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TCUSTOMLABEL'), 'TLABEL') do
|
||||
begin
|
||||
RegisterProperty('ALIGNMENT', 'TAlignment', iptrw);
|
||||
RegisterProperty('AUTOSIZE', 'Boolean', iptrw);
|
||||
RegisterProperty('CAPTION', 'String', iptrw);
|
||||
RegisterProperty('COLOR', 'TColor', iptrw);
|
||||
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
|
||||
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
|
||||
RegisterProperty('FOCUSCONTROL', 'TWinControl', iptrw);
|
||||
RegisterProperty('FONT', 'TFont', iptrw);
|
||||
RegisterProperty('LAYOUT', 'TTextLayout', iptrw);
|
||||
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
RegisterProperty('SHOWACCELCHAR', 'Boolean', iptrw);
|
||||
RegisterProperty('TRANSPARENT', 'Boolean', iptrw);
|
||||
RegisterProperty('WORDWRAP', 'Boolean', iptrw);
|
||||
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
|
||||
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
|
||||
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
procedure SIRegisterTCUSTOMEDIT(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TWINCONTROL'), 'TCUSTOMEDIT') do
|
||||
begin
|
||||
RegisterMethod('procedure CLEAR');
|
||||
RegisterMethod('procedure CLEARSELECTION');
|
||||
RegisterMethod('procedure SELECTALL');
|
||||
RegisterProperty('MODIFIED', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('SELLENGTH', 'INTEGER', iptrw);
|
||||
RegisterProperty('SELSTART', 'INTEGER', iptrw);
|
||||
RegisterProperty('SELTEXT', 'String', iptrw);
|
||||
RegisterProperty('TEXT', 'String', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterMethod('procedure COPYTOCLIPBOARD');
|
||||
RegisterMethod('procedure CUTTOCLIPBOARD');
|
||||
RegisterMethod('procedure PASTEFROMCLIPBOARD');
|
||||
RegisterMethod('function GETSELTEXTBUF(BUFFER:PCHAR;BUFSIZE:INTEGER):INTEGER');
|
||||
RegisterMethod('procedure SETSELTEXTBUF(BUFFER:PCHAR)');
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
procedure SIRegisterTEDIT(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TCUSTOMEDIT'), 'TEDIT') do
|
||||
begin
|
||||
RegisterProperty('AUTOSELECT', 'Boolean', iptrw);
|
||||
RegisterProperty('AUTOSIZE', 'Boolean', iptrw);
|
||||
RegisterProperty('BORDERSTYLE', 'TBorderStyle', iptrw);
|
||||
RegisterProperty('CHARCASE', 'TEditCharCase', iptrw);
|
||||
RegisterProperty('COLOR', 'TColor', iptrw);
|
||||
RegisterProperty('FONT', 'TFont', iptrw);
|
||||
RegisterProperty('HIDESELECTION', 'Boolean', iptrw);
|
||||
RegisterProperty('MAXLENGTH', 'Integer', iptrw);
|
||||
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
|
||||
RegisterProperty('PASSWORDCHAR', 'Char', iptrw);
|
||||
RegisterProperty('READONLY', 'Boolean', iptrw);
|
||||
RegisterProperty('TEXT', 'String', iptrw);
|
||||
RegisterProperty('ONCHANGE', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
|
||||
RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
|
||||
RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterProperty('CTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
|
||||
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
|
||||
RegisterProperty('OEMCONVERT', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
|
||||
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
|
||||
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
|
||||
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
procedure SIRegisterTCUSTOMMEMO(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TCUSTOMEDIT'), 'TCUSTOMMEMO') do
|
||||
begin
|
||||
{$IFNDEF CLX}
|
||||
RegisterProperty('LINES', 'TSTRINGS', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure SIRegisterTMEMO(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TCUSTOMMEMO'), 'TMEMO') do
|
||||
begin
|
||||
{$IFDEF CLX}
|
||||
RegisterProperty('LINES', 'TSTRINGS', iptrw);
|
||||
{$ENDIF}
|
||||
RegisterProperty('ALIGNMENT', 'TAlignment', iptrw);
|
||||
RegisterProperty('BORDERSTYLE', 'TBorderStyle', iptrw);
|
||||
RegisterProperty('COLOR', 'TColor', iptrw);
|
||||
RegisterProperty('FONT', 'TFont', iptrw);
|
||||
RegisterProperty('HIDESELECTION', 'Boolean', iptrw);
|
||||
RegisterProperty('MAXLENGTH', 'Integer', iptrw);
|
||||
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
|
||||
RegisterProperty('READONLY', 'Boolean', iptrw);
|
||||
RegisterProperty('SCROLLBARS', 'TScrollStyle', iptrw);
|
||||
RegisterProperty('WANTRETURNS', 'Boolean', iptrw);
|
||||
RegisterProperty('WANTTABS', 'Boolean', iptrw);
|
||||
RegisterProperty('WORDWRAP', 'Boolean', iptrw);
|
||||
RegisterProperty('ONCHANGE', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
|
||||
RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
|
||||
RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterProperty('CTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
|
||||
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
|
||||
RegisterProperty('OEMCONVERT', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
|
||||
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
|
||||
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
|
||||
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
procedure SIRegisterTCUSTOMCOMBOBOX(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TWINCONTROL'), 'TCUSTOMCOMBOBOX') do
|
||||
begin
|
||||
RegisterProperty('DROPPEDDOWN', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('ITEMS', 'TSTRINGS', iptrw);
|
||||
RegisterProperty('ITEMINDEX', 'INTEGER', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterMethod('procedure CLEAR');
|
||||
RegisterMethod('procedure SELECTALL');
|
||||
RegisterProperty('CANVAS', 'TCANVAS', iptr);
|
||||
RegisterProperty('SELLENGTH', 'INTEGER', iptrw);
|
||||
RegisterProperty('SELSTART', 'INTEGER', iptrw);
|
||||
RegisterProperty('SELTEXT', 'String', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure SIRegisterTCOMBOBOX(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TCUSTOMCOMBOBOX'), 'TCOMBOBOX') do
|
||||
begin
|
||||
RegisterProperty('STYLE', 'TComboBoxStyle', iptrw);
|
||||
RegisterProperty('COLOR', 'TColor', iptrw);
|
||||
RegisterProperty('DROPDOWNCOUNT', 'Integer', iptrw);
|
||||
RegisterProperty('FONT', 'TFont', iptrw);
|
||||
RegisterProperty('MAXLENGTH', 'Integer', iptrw);
|
||||
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
|
||||
RegisterProperty('SORTED', 'Boolean', iptrw);
|
||||
RegisterProperty('TEXT', 'String', iptrw);
|
||||
RegisterProperty('ONCHANGE', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONDROPDOWN', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
|
||||
RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
|
||||
RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterProperty('CTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
|
||||
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
|
||||
RegisterProperty('ITEMHEIGHT', 'Integer', iptrw);
|
||||
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
|
||||
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
|
||||
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
|
||||
RegisterProperty('ONDRAWITEM', 'TDrawItemEvent', iptrw);
|
||||
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
|
||||
RegisterProperty('ONMEASUREITEM', 'TMeasureItemEvent', iptrw);
|
||||
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
procedure SIRegisterTBUTTONCONTROL(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TWINCONTROL'), 'TBUTTONCONTROL') do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
procedure SIRegisterTBUTTON(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TBUTTONCONTROL'), 'TBUTTON') do
|
||||
begin
|
||||
RegisterProperty('CANCEL', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('CAPTION', 'String', iptrw);
|
||||
RegisterProperty('DEFAULT', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('FONT', 'TFont', iptrw);
|
||||
RegisterProperty('MODALRESULT', 'LONGINT', iptrw);
|
||||
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
|
||||
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
|
||||
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
|
||||
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
|
||||
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
|
||||
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
|
||||
RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
|
||||
RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
|
||||
RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
procedure SIRegisterTCUSTOMCHECKBOX(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TBUTTONCONTROL'), 'TCUSTOMCHECKBOX') do
|
||||
begin
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
procedure SIRegisterTCHECKBOX(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TCUSTOMCHECKBOX'), 'TCHECKBOX') do
|
||||
begin
|
||||
RegisterProperty('ALIGNMENT', 'TAlignment', iptrw);
|
||||
RegisterProperty('ALLOWGRAYED', 'Boolean', iptrw);
|
||||
RegisterProperty('CAPTION', 'String', iptrw);
|
||||
RegisterProperty('CHECKED', 'Boolean', iptrw);
|
||||
RegisterProperty('COLOR', 'TColor', iptrw);
|
||||
RegisterProperty('FONT', 'TFont', iptrw);
|
||||
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
|
||||
RegisterProperty('STATE', 'TCheckBoxState', iptrw);
|
||||
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterProperty('CTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
|
||||
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
|
||||
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
|
||||
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
|
||||
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
|
||||
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
|
||||
RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
|
||||
RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
|
||||
RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
procedure SIRegisterTRADIOBUTTON(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TBUTTONCONTROL'), 'TRADIOBUTTON') do
|
||||
begin
|
||||
RegisterProperty('ALIGNMENT', 'TALIGNMENT', iptrw);
|
||||
RegisterProperty('CAPTION', 'String', iptrw);
|
||||
RegisterProperty('CHECKED', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('COLOR', 'TColor', iptrw);
|
||||
RegisterProperty('FONT', 'TFont', iptrw);
|
||||
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
|
||||
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterProperty('CTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
|
||||
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
|
||||
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
|
||||
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
|
||||
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
|
||||
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
|
||||
RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
|
||||
RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
|
||||
RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
procedure SIRegisterTCUSTOMLISTBOX(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TWINCONTROL'), 'TCUSTOMLISTBOX') do
|
||||
begin
|
||||
RegisterProperty('ITEMS', 'TSTRINGS', iptrw);
|
||||
RegisterProperty('ITEMINDEX', 'INTEGER', iptrw);
|
||||
RegisterProperty('SELCOUNT', 'INTEGER', iptr);
|
||||
RegisterProperty('SELECTED', 'BOOLEAN INTEGER', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterMethod('procedure CLEAR');
|
||||
RegisterMethod('function ITEMATPOS(POS:TPOINT;EXISTING:BOOLEAN):INTEGER');
|
||||
RegisterMethod('function ITEMRECT(INDEX:INTEGER):TRECT');
|
||||
RegisterProperty('CANVAS', 'TCANVAS', iptr);
|
||||
RegisterProperty('TOPINDEX', 'INTEGER', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
procedure SIRegisterTLISTBOX(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TCUSTOMLISTBOX'), 'TLISTBOX') do
|
||||
begin
|
||||
RegisterProperty('BORDERSTYLE', 'TBorderStyle', iptrw);
|
||||
RegisterProperty('COLOR', 'TColor', iptrw);
|
||||
RegisterProperty('FONT', 'TFont', iptrw);
|
||||
RegisterProperty('MULTISELECT', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
|
||||
RegisterProperty('SORTED', 'Boolean', iptrw);
|
||||
RegisterProperty('STYLE', 'TListBoxStyle', iptrw);
|
||||
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
|
||||
RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
|
||||
RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterProperty('COLUMNS', 'Integer', iptrw);
|
||||
RegisterProperty('CTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
|
||||
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
|
||||
RegisterProperty('EXTENDEDSELECT', 'Boolean', iptrw);
|
||||
RegisterProperty('INTEGRALHEIGHT', 'Boolean', iptrw);
|
||||
RegisterProperty('ITEMHEIGHT', 'Integer', iptrw);
|
||||
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
|
||||
RegisterProperty('TABWIDTH', 'Integer', iptrw);
|
||||
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
|
||||
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
|
||||
RegisterProperty('ONDRAWITEM', 'TDrawItemEvent', iptrw);
|
||||
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
|
||||
RegisterProperty('ONMEASUREITEM', 'TMeasureItemEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
|
||||
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
|
||||
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
procedure SIRegisterTSCROLLBAR(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TWINCONTROL'), 'TSCROLLBAR') do
|
||||
begin
|
||||
RegisterProperty('KIND', 'TSCROLLBARKIND', iptrw);
|
||||
RegisterProperty('MAX', 'INTEGER', iptrw);
|
||||
RegisterProperty('MIN', 'INTEGER', iptrw);
|
||||
RegisterProperty('POSITION', 'INTEGER', iptrw);
|
||||
RegisterProperty('ONCHANGE', 'TNOTIFYEVENT', iptrw);
|
||||
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterMethod('procedure SETPARAMS(APOSITION,AMIN,AMAX:INTEGER)');
|
||||
RegisterProperty('CTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
|
||||
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
|
||||
RegisterProperty('LARGECHANGE', 'TSCROLLBARINC', iptrw);
|
||||
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
|
||||
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
|
||||
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
|
||||
RegisterProperty('SMALLCHANGE', 'TSCROLLBARINC', iptrw);
|
||||
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
|
||||
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
|
||||
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
|
||||
RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
|
||||
RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
|
||||
RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
|
||||
RegisterProperty('ONSCROLL', 'TSCROLLEVENT', iptrw);
|
||||
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
|
||||
{$ENDIF}
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
procedure SIRegister_StdCtrls_TypesAndConsts(cl: TPSPascalCompiler);
|
||||
begin
|
||||
cl.AddTypeS('TEditCharCase', '(ecNormal, ecUpperCase, ecLowerCase)');
|
||||
cl.AddTypeS('TScrollStyle', '(ssNone, ssHorizontal, ssVertical, ssBoth)');
|
||||
cl.AddTypeS('TComboBoxStyle', '(csDropDown, csSimple, csDropDownList, csOwnerDrawFixed, csOwnerDrawVariable)');
|
||||
cl.AddTypeS('TDrawItemEvent', 'procedure(Control: TWinControl; Index: Integer; Rect: TRect; State: Byte)');
|
||||
cl.AddTypeS('TMeasureItemEvent', 'procedure(Control: TWinControl; Index: Integer; var Height: Integer)');
|
||||
cl.AddTypeS('TCheckBoxState', '(cbUnchecked, cbChecked, cbGrayed)');
|
||||
cl.AddTypeS('TListBoxStyle', '(lbStandard, lbOwnerDrawFixed, lbOwnerDrawVariable)');
|
||||
cl.AddTypeS('TScrollCode', '(scLineUp, scLineDown, scPageUp, scPageDown, scPosition, scTrack, scTop, scBottom, scEndScroll)');
|
||||
cl.AddTypeS('TScrollEvent', 'procedure(Sender: TObject; ScrollCode: TScrollCode;var ScrollPos: Integer)');
|
||||
|
||||
Cl.addTypeS('TEOwnerDrawState', '(odSelected, odGrayed, odDisabled, odChecked,'
|
||||
+' odFocused, odDefault, odHotLight, odInactive, odNoAccel, odNoFocusRect,'
|
||||
+' odReserved1, odReserved2, odComboBoxEdit)');
|
||||
cl.AddTypeS('TTextLayout', '( tlTop, tlCenter, tlBottom )');
|
||||
cl.AddTypeS('TOwnerDrawState', 'set of TEOwnerDrawState');
|
||||
end;
|
||||
|
||||
|
||||
procedure SIRegister_stdctrls(cl: TPSPascalCompiler);
|
||||
begin
|
||||
SIRegister_StdCtrls_TypesAndConsts(cl);
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
SIRegisterTCUSTOMGROUPBOX(Cl);
|
||||
SIRegisterTGROUPBOX(Cl);
|
||||
{$ENDIF}
|
||||
SIRegisterTCUSTOMLABEL(Cl);
|
||||
SIRegisterTLABEL(Cl);
|
||||
SIRegisterTCUSTOMEDIT(Cl);
|
||||
SIRegisterTEDIT(Cl);
|
||||
SIRegisterTCUSTOMMEMO(Cl);
|
||||
SIRegisterTMEMO(Cl);
|
||||
SIRegisterTCUSTOMCOMBOBOX(Cl);
|
||||
SIRegisterTCOMBOBOX(Cl);
|
||||
SIRegisterTBUTTONCONTROL(Cl);
|
||||
SIRegisterTBUTTON(Cl);
|
||||
SIRegisterTCUSTOMCHECKBOX(Cl);
|
||||
SIRegisterTCHECKBOX(Cl);
|
||||
SIRegisterTRADIOBUTTON(Cl);
|
||||
SIRegisterTCUSTOMLISTBOX(Cl);
|
||||
SIRegisterTLISTBOX(Cl);
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
SIRegisterTSCROLLBAR(Cl);
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
// PS_MINIVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
|
||||
|
||||
|
||||
end.
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
15741
Pascal Script for Delphi/Source/uPSCompiler.pas
Normal file
15741
Pascal Script for Delphi/Source/uPSCompiler.pas
Normal file
File diff suppressed because it is too large
Load Diff
1512
Pascal Script for Delphi/Source/uPSComponent.pas
Normal file
1512
Pascal Script for Delphi/Source/uPSComponent.pas
Normal file
File diff suppressed because it is too large
Load Diff
38
Pascal Script for Delphi/Source/uPSComponent_COM.pas
Normal file
38
Pascal Script for Delphi/Source/uPSComponent_COM.pas
Normal file
@@ -0,0 +1,38 @@
|
||||
|
||||
unit uPSComponent_COM;
|
||||
|
||||
interface
|
||||
uses
|
||||
SysUtils, Classes, uPSComponent, uPSCompiler, uPSRuntime;
|
||||
type
|
||||
|
||||
TPSImport_ComObj = class(TPSPlugin)
|
||||
private
|
||||
public
|
||||
procedure CompileImport1(CompExec: TPSScript); override;
|
||||
procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
|
||||
end;
|
||||
|
||||
TIFPS3CE_ComObj = class(TPSImport_ComObj);
|
||||
|
||||
implementation
|
||||
uses
|
||||
uPSC_comobj,
|
||||
uPSR_comobj;
|
||||
|
||||
|
||||
{ TPSImport_ComObj }
|
||||
|
||||
procedure TPSImport_ComObj.CompileImport1(CompExec: TPSScript);
|
||||
begin
|
||||
SIRegister_ComObj(CompExec.Comp);
|
||||
end;
|
||||
|
||||
|
||||
procedure TPSImport_ComObj.ExecImport1(CompExec: TPSScript;
|
||||
const ri: TPSRuntimeClassImporter);
|
||||
begin
|
||||
RIRegister_ComObj(CompExec.Exec);
|
||||
end;
|
||||
|
||||
end.
|
||||
65
Pascal Script for Delphi/Source/uPSComponent_Controls.pas
Normal file
65
Pascal Script for Delphi/Source/uPSComponent_Controls.pas
Normal file
@@ -0,0 +1,65 @@
|
||||
unit uPSComponent_Controls;
|
||||
|
||||
interface
|
||||
uses
|
||||
SysUtils, Classes, uPSComponent, uPSCompiler, uPSRuntime;
|
||||
type
|
||||
|
||||
TPSImport_Controls = class(TPSPlugin)
|
||||
private
|
||||
FEnableStreams: Boolean;
|
||||
FEnableGraphics: Boolean;
|
||||
FEnableControls: Boolean;
|
||||
public
|
||||
procedure CompileImport1(CompExec: TPSScript); override;
|
||||
procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
published
|
||||
|
||||
property EnableStreams: Boolean read FEnableStreams write FEnableStreams;
|
||||
|
||||
property EnableGraphics: Boolean read FEnableGraphics write FEnableGraphics;
|
||||
|
||||
property EnableControls: Boolean read FEnableControls write FEnableControls;
|
||||
end;
|
||||
|
||||
TIFPS3CE_Controls = class(TPSImport_Controls);
|
||||
|
||||
implementation
|
||||
uses
|
||||
uPSC_graphics,
|
||||
uPSC_controls,
|
||||
uPSR_graphics,
|
||||
uPSR_controls;
|
||||
|
||||
|
||||
{ TPSImport_Controls }
|
||||
|
||||
procedure TPSImport_Controls.CompileImport1(CompExec: TPSScript);
|
||||
begin
|
||||
if FEnableGraphics then
|
||||
SIRegister_Graphics(CompExec.Comp, FEnableStreams);
|
||||
if FEnableControls then
|
||||
SIRegister_Controls(CompExec.Comp);
|
||||
end;
|
||||
|
||||
constructor TPSImport_Controls.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
FEnableStreams := True;
|
||||
FEnableGraphics := True;
|
||||
FEnableControls := True;
|
||||
end;
|
||||
|
||||
procedure TPSImport_Controls.ExecImport1(CompExec: TPSScript;
|
||||
const ri: TPSRuntimeClassImporter);
|
||||
begin
|
||||
if FEnableGraphics then
|
||||
RIRegister_Graphics(ri, FEnableStreams);
|
||||
if FEnableControls then
|
||||
RIRegister_Controls(ri);
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user