Стартовый пул
This commit is contained in:
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.
|
||||
36
Pascal Script for Delphi/Source/uPSComponent_DB.pas
Normal file
36
Pascal Script for Delphi/Source/uPSComponent_DB.pas
Normal file
@@ -0,0 +1,36 @@
|
||||
unit uPSComponent_DB;
|
||||
|
||||
interface
|
||||
{$I PascalScript.inc}
|
||||
uses
|
||||
SysUtils, Classes, uPSComponent, uPSRuntime, uPSCompiler;
|
||||
type
|
||||
|
||||
TPSImport_DB = class(TPSPlugin)
|
||||
public
|
||||
procedure CompileImport1(CompExec: TPSScript); override;
|
||||
procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
|
||||
public
|
||||
end;
|
||||
|
||||
TIFPS3CE_DB = class(TPSImport_DB);
|
||||
|
||||
implementation
|
||||
uses
|
||||
uPSC_DB,
|
||||
uPSR_DB;
|
||||
|
||||
{ TPSImport_DB }
|
||||
|
||||
procedure TPSImport_DB.CompileImport1(CompExec: TPSScript);
|
||||
begin
|
||||
SIRegister_DB(CompExec.Comp);
|
||||
end;
|
||||
|
||||
procedure TPSImport_DB.ExecImport1(CompExec: TPSScript;
|
||||
const ri: TPSRuntimeClassImporter);
|
||||
begin
|
||||
RIRegister_DB(RI);
|
||||
end;
|
||||
|
||||
end.
|
||||
81
Pascal Script for Delphi/Source/uPSComponent_Default.pas
Normal file
81
Pascal Script for Delphi/Source/uPSComponent_Default.pas
Normal file
@@ -0,0 +1,81 @@
|
||||
unit uPSComponent_Default;
|
||||
{$I PascalScript.inc}
|
||||
interface
|
||||
uses
|
||||
SysUtils, Classes, uPSComponent, uPSCompiler, uPSRuntime;
|
||||
|
||||
type
|
||||
|
||||
TPSImport_DateUtils = class(TPSPlugin)
|
||||
public
|
||||
procedure CompOnUses(CompExec: TPSScript); override;
|
||||
procedure ExecOnUses(CompExec: TPSScript); override;
|
||||
end;
|
||||
|
||||
TPSImport_Classes = class(TPSPlugin)
|
||||
private
|
||||
FEnableStreams: Boolean;
|
||||
FEnableClasses: 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 EnableClasses: Boolean read FEnableClasses write FEnableClasses;
|
||||
end;
|
||||
|
||||
TIFPS3CE_Std = class(TPSImport_Classes);
|
||||
|
||||
TIFPS3CE_DateUtils = class(TPSImport_DateUtils);
|
||||
|
||||
implementation
|
||||
uses
|
||||
uPSC_std,
|
||||
uPSR_std,
|
||||
uPSC_classes,
|
||||
uPSR_classes,
|
||||
uPSC_dateutils,
|
||||
uPSR_dateutils;
|
||||
|
||||
{ TPSImport_Classes }
|
||||
|
||||
procedure TPSImport_Classes.CompileImport1(CompExec: TPSScript);
|
||||
begin
|
||||
SIRegister_Std(CompExec.Comp);
|
||||
if FEnableClasses then
|
||||
SIRegister_Classes(CompExec.Comp, FEnableStreams);
|
||||
end;
|
||||
|
||||
procedure TPSImport_Classes.ExecImport1(CompExec: TPSScript;
|
||||
const ri: TPSRuntimeClassImporter);
|
||||
begin
|
||||
RIRegister_Std(Ri);
|
||||
if FEnableClasses then
|
||||
RIRegister_Classes(ri, FEnableStreams);
|
||||
end;
|
||||
|
||||
constructor TPSImport_Classes.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
FEnableStreams := True;
|
||||
FEnableClasses := True;
|
||||
end;
|
||||
|
||||
{ TPSImport_DateUtils }
|
||||
|
||||
procedure TPSImport_DateUtils.CompOnUses(CompExec: TPSScript);
|
||||
begin
|
||||
RegisterDateTimeLibrary_C(CompExec.Comp);
|
||||
end;
|
||||
|
||||
procedure TPSImport_DateUtils.ExecOnUses(CompExec: TPSScript);
|
||||
begin
|
||||
RegisterDateTimeLibrary_R(CompExec.Exec);
|
||||
end;
|
||||
|
||||
end.
|
||||
65
Pascal Script for Delphi/Source/uPSComponent_Forms.pas
Normal file
65
Pascal Script for Delphi/Source/uPSComponent_Forms.pas
Normal file
@@ -0,0 +1,65 @@
|
||||
|
||||
unit uPSComponent_Forms;
|
||||
|
||||
interface
|
||||
uses
|
||||
SysUtils, Classes, uPSRuntime, uPSCompiler, uPSComponent;
|
||||
type
|
||||
|
||||
TPSImport_Forms = class(TPSPlugin)
|
||||
private
|
||||
FEnableForms: Boolean;
|
||||
FEnableMenus: Boolean;
|
||||
public
|
||||
procedure CompileImport1(CompExec: TPSScript); override;
|
||||
procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
published
|
||||
|
||||
property EnableForms: Boolean read FEnableForms write FEnableForms;
|
||||
|
||||
property EnableMenus: Boolean read FEnableMenus write FEnableMenus;
|
||||
end;
|
||||
|
||||
TIFPS3CE_Forms = class(TPSImport_Forms);
|
||||
|
||||
implementation
|
||||
uses
|
||||
uPSC_forms,
|
||||
uPSC_menus,
|
||||
uPSR_forms,
|
||||
uPSR_menus;
|
||||
|
||||
{ TPSImport_Forms }
|
||||
|
||||
procedure TPSImport_Forms.CompileImport1(CompExec: TPSScript);
|
||||
begin
|
||||
if FEnableForms then
|
||||
SIRegister_Forms(CompExec.comp);
|
||||
if FEnableMenus then
|
||||
SIRegister_Menus(CompExec.comp);
|
||||
end;
|
||||
|
||||
constructor TPSImport_Forms.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(Aowner);
|
||||
FEnableForms := True;
|
||||
FEnableMenus := True;
|
||||
end;
|
||||
|
||||
procedure TPSImport_Forms.ExecImport1(CompExec: TPSScript;
|
||||
const ri: TPSRuntimeClassImporter);
|
||||
begin
|
||||
if FEnableForms then
|
||||
RIRegister_Forms(ri);
|
||||
|
||||
if FEnableMenus then
|
||||
begin
|
||||
RIRegister_Menus(ri);
|
||||
RIRegister_Menus_Routines(compexec.Exec);
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
end.
|
||||
65
Pascal Script for Delphi/Source/uPSComponent_StdCtrls.pas
Normal file
65
Pascal Script for Delphi/Source/uPSComponent_StdCtrls.pas
Normal file
@@ -0,0 +1,65 @@
|
||||
|
||||
unit uPSComponent_StdCtrls;
|
||||
|
||||
interface
|
||||
uses
|
||||
SysUtils, Classes, uPSComponent, uPSCompiler, uPSRuntime;
|
||||
type
|
||||
|
||||
TPSImport_StdCtrls = class(TPSPlugin)
|
||||
private
|
||||
FEnableButtons: Boolean;
|
||||
FEnableExtCtrls: Boolean;
|
||||
public
|
||||
procedure CompileImport1(CompExec: TPSScript); override;
|
||||
procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
published
|
||||
|
||||
property EnableExtCtrls: Boolean read FEnableExtCtrls write FEnableExtCtrls;
|
||||
|
||||
property EnableButtons: Boolean read FEnableButtons write FEnableButtons;
|
||||
end;
|
||||
|
||||
TIFPS3CE_StdCtrls = class(TPSImport_StdCtrls);
|
||||
|
||||
|
||||
implementation
|
||||
uses
|
||||
uPSC_buttons,
|
||||
uPSC_stdctrls,
|
||||
uPSC_extctrls,
|
||||
uPSR_buttons,
|
||||
uPSR_stdctrls,
|
||||
uPSR_extctrls;
|
||||
|
||||
{ TPSImport_StdCtrls }
|
||||
|
||||
procedure TPSImport_StdCtrls.CompileImport1(CompExec: TPSScript);
|
||||
begin
|
||||
SIRegister_stdctrls(CompExec.Comp);
|
||||
if FEnableExtCtrls then
|
||||
SIRegister_ExtCtrls(CompExec.Comp);
|
||||
if FEnableButtons then
|
||||
SIRegister_Buttons(CompExec.Comp);
|
||||
end;
|
||||
|
||||
constructor TPSImport_StdCtrls.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(Aowner);
|
||||
FEnableButtons := True;
|
||||
FEnableExtCtrls := True;
|
||||
end;
|
||||
|
||||
procedure TPSImport_StdCtrls.ExecImport1(CompExec: TPSScript;
|
||||
const ri: TPSRuntimeClassImporter);
|
||||
begin
|
||||
RIRegister_stdctrls(RI);
|
||||
if FEnableExtCtrls then
|
||||
RIRegister_ExtCtrls(RI);
|
||||
if FEnableButtons then
|
||||
RIRegister_Buttons(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