Permalink
Browse files

Win64 and new russian tranlsation

  • Loading branch information...
pyscripter
pyscripter committed Dec 20, 2011
1 parent 4ff7e6d commit ad897feb0b6977dbfb48cfd63c4cede9277b1d2d
View

Large diffs are not rendered by default.

Oops, something went wrong.
@@ -1149,7 +1149,7 @@ procedure TJvDockVSNETTabSheetSpTBX.WMEraseBkgnd(var Message: TMessage);
Exit;
end;
- if not DoubleBuffered or (Message.wParam = Message.lParam) then begin
+ if not DoubleBuffered or (Message.wParam = WPARAM(Message.lParam)) then begin
if not (csDestroying in ComponentState) then begin
if Assigned(PageControl) and Visible then begin
ACanvas := TCanvas.Create;
@@ -5,6 +5,7 @@ package PyScripterCustom;
{$R *.res}
{$R 'JvDockVSNetStyleSpTBX.dcr'}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
@@ -26,15 +27,17 @@ package PyScripterCustom;
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
{$DESCRIPTION 'PyScripter Custom Components'}
{$IMPLICITBUILD ON}
requires
vcl,
rtl,
vclx,
- SpTBXLib_d14,
- tb2k_d14,
+ SpTBXLib_d16,
+ tb2k_d16,
vclactnband,
vcldb,
dbrtl,
@@ -4,11 +4,26 @@
<MainSource>PyScripterCustom.dpk</MainSource>
<Config Condition="'$(Config)'==''">Debug</Config>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
- <ProjectVersion>12.0</ProjectVersion>
+ <ProjectVersion>13.4</ProjectVersion>
+ <FrameworkType>VCL</FrameworkType>
+ <Base>True</Base>
+ <Platform Condition="'$(Platform)'==''">Win32</Platform>
+ <TargetedPlatforms>1</TargetedPlatforms>
+ <AppType>Package</AppType>
</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>
@@ -20,11 +35,14 @@
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ <VerInfo_Locale>1032</VerInfo_Locale>
+ <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<DesignOnlyPackage>false</DesignOnlyPackage>
<DCC_DependencyCheckOutputName>C:\Users\Public\Documents\RAD Studio\7.0\Bpl\PyScripterCustom.bpl</DCC_DependencyCheckOutputName>
<DCC_ImageBase>00400000</DCC_ImageBase>
<DCC_MapFile>3</DCC_MapFile>
- <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias)</DCC_UnitAlias>
<DCC_Platform>x86</DCC_Platform>
<DCC_Description>PyScripter Custom Components</DCC_Description>
<GenPackage>true</GenPackage>
@@ -35,6 +53,16 @@
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
</PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win64)'!=''">
+ <Icon_MainIcon>PyScripterCustom_Icon.ico</Icon_MainIcon>
+ </PropertyGroup>
+ <PropertyGroup Condition="'$(Base_Win32)'!=''">
+ <Icon_MainIcon>PyScripterCustom_Icon.ico</Icon_MainIcon>
+ <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+ <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+ <VerInfo_Locale>1033</VerInfo_Locale>
+ <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="'$(Cfg_1)'!=''">
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
@@ -45,15 +73,15 @@
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
</PropertyGroup>
<ItemGroup>
- <DelphiCompile Include="PyScripterCustom.dpk">
+ <DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="JvDockVSNetStyleSpTBX.dcr"/>
<DCCReference Include="vcl.dcp"/>
<DCCReference Include="rtl.dcp"/>
<DCCReference Include="vclx.dcp"/>
- <DCCReference Include="SpTBXLib_d14.dcp"/>
- <DCCReference Include="tb2k_d14.dcp"/>
+ <DCCReference Include="SpTBXLib_d16.dcp"/>
+ <DCCReference Include="tb2k_d16.dcp"/>
<DCCReference Include="vclactnband.dcp"/>
<DCCReference Include="vcldb.dcp"/>
<DCCReference Include="dbrtl.dcp"/>
@@ -62,19 +90,19 @@
<DCCReference Include="JvCore.dcp"/>
<DCCReference Include="Jcl.dcp"/>
<DCCReference Include="JvDockVSNetStyleSpTBX.pas"/>
- <BuildConfiguration Include="Base">
- <Key>Base</Key>
- </BuildConfiguration>
<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')"/>
+ <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>
@@ -116,13 +144,18 @@
<VersionInfoKeys Name="Comments"/>
</VersionInfoKeys>
<Excluded_Packages>
- <Excluded_Packages Name="$(BDS)\bin\bcboffice2k140.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
- <Excluded_Packages Name="$(BDS)\bin\bcbofficexp140.bpl">Embarcadero C++Builder Office XP Servers Package</Excluded_Packages>
- <Excluded_Packages Name="$(BDS)\bin\dcloffice2k140.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
- <Excluded_Packages Name="$(BDS)\bin\dclofficexp140.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+ <Excluded_Packages Name="$(BDSBIN)\bcboffice2k140.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
+ <Excluded_Packages Name="$(BDSBIN)\bcbofficexp140.bpl">Embarcadero C++Builder Office XP Servers Package</Excluded_Packages>
+ <Excluded_Packages Name="$(BDSBIN)\dcloffice2k140.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+ <Excluded_Packages Name="$(BDSBIN)\dclofficexp140.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
+ <Platforms>
+ <Platform value="Win64">False</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>
Binary file not shown.
View
@@ -1,4 +1,4 @@
-{-----------------------------------------------------------------------------
+{-----------------------------------------------------------------------------
The contents of this file are subject to the Mozilla Public License
Version 1.1 (the "License"); you may not use this file except in compliance
with the License. You may obtain a copy of the License at
View
@@ -1,4 +1,4 @@
-{-----------------------------------------------------------------------------
+{-----------------------------------------------------------------------------
The contents of this file are subject to the Mozilla Public License
Version 1.1 (the "License"); you may not use this file except in compliance
with the License. You may obtain a copy of the License at
@@ -645,8 +645,6 @@ function CompareVersionNumbers(AVersion1, AVersion2: string): Integer;
//=== { TJvProgramVersionsStringList } =======================================
-procedure TJvProgramVersionsStringList.Sort;
-
function VersionNumberSortCompare(List: TStringList; Index1, Index2: Integer): Integer;
var
S1, S2: string;
@@ -656,6 +654,8 @@ procedure TJvProgramVersionsStringList.Sort;
Result := CompareVersionNumbers(S1, S2);
end;
+procedure TJvProgramVersionsStringList.Sort;
+
begin
CustomSort(@VersionNumberSortCompare);
end;
Oops, something went wrong.

0 comments on commit ad897fe

Please sign in to comment.