You can subscribe to this list here.
2002 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(109) |
Jun
(322) |
Jul
(693) |
Aug
(335) |
Sep
(147) |
Oct
(146) |
Nov
(279) |
Dec
(147) |
---|---|---|---|---|---|---|---|---|---|---|---|---|
2003 |
Jan
(362) |
Feb
(637) |
Mar
(407) |
Apr
(115) |
May
(134) |
Jun
(770) |
Jul
(330) |
Aug
(533) |
Sep
(585) |
Oct
(511) |
Nov
(692) |
Dec
(558) |
2004 |
Jan
(1696) |
Feb
(1207) |
Mar
(856) |
Apr
(788) |
May
(789) |
Jun
(416) |
Jul
(277) |
Aug
(353) |
Sep
(418) |
Oct
(176) |
Nov
(199) |
Dec
(528) |
2005 |
Jan
(322) |
Feb
(333) |
Mar
(276) |
Apr
(74) |
May
(272) |
Jun
(48) |
Jul
(64) |
Aug
(192) |
Sep
(174) |
Oct
(150) |
Nov
(95) |
Dec
(56) |
2006 |
Jan
(75) |
Feb
(165) |
Mar
(100) |
Apr
(182) |
May
(55) |
Jun
(135) |
Jul
(92) |
Aug
(67) |
Sep
(28) |
Oct
(46) |
Nov
(64) |
Dec
(49) |
2007 |
Jan
(67) |
Feb
(20) |
Mar
(53) |
Apr
(30) |
May
(28) |
Jun
(98) |
Jul
(27) |
Aug
(67) |
Sep
(29) |
Oct
(28) |
Nov
(42) |
Dec
(57) |
2008 |
Jan
(56) |
Feb
(37) |
Mar
(31) |
Apr
(21) |
May
(12) |
Jun
(12) |
Jul
(24) |
Aug
(32) |
Sep
(43) |
Oct
(79) |
Nov
(56) |
Dec
(53) |
2009 |
Jan
(84) |
Feb
(16) |
Mar
(43) |
Apr
(40) |
May
(22) |
Jun
(31) |
Jul
(61) |
Aug
(73) |
Sep
(39) |
Oct
(64) |
Nov
(19) |
Dec
(26) |
2010 |
Jan
(48) |
Feb
(16) |
Mar
(37) |
Apr
(20) |
May
(27) |
Jun
(33) |
Jul
(6) |
Aug
(6) |
Sep
(20) |
Oct
(37) |
Nov
(62) |
Dec
(11) |
2011 |
Jan
(12) |
Feb
(24) |
Mar
(15) |
Apr
(11) |
May
(14) |
Jun
(42) |
Jul
(14) |
Aug
(8) |
Sep
(27) |
Oct
(15) |
Nov
(47) |
Dec
(1) |
2012 |
Jan
(6) |
Feb
(70) |
Mar
(20) |
Apr
(4) |
May
(14) |
Jun
(73) |
Jul
(13) |
Aug
(19) |
Sep
(43) |
Oct
(17) |
Nov
(12) |
Dec
(3) |
2013 |
Jan
(16) |
Feb
(1) |
Mar
(3) |
Apr
(4) |
May
(23) |
Jun
(2) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
2014 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
|
Nov
|
Dec
|
2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(3) |
Nov
|
Dec
|
From: <ob...@us...> - 2012-09-11 07:37:40
|
Revision: 13434 http://jvcl.svn.sourceforge.net/jvcl/?rev=13434&view=rev Author: obones Date: 2012-09-11 07:37:34 +0000 (Tue, 11 Sep 2012) Log Message: ----------- 3.47 is out Modified Paths: -------------- trunk/jvcl/install/release/announce.txt trunk/jvcl/install/release/announce_fr.txt trunk/jvcl/install/release/want.xml Modified: trunk/jvcl/install/release/announce.txt =================================================================== --- trunk/jvcl/install/release/announce.txt 2012-09-11 07:32:02 UTC (rev 13433) +++ trunk/jvcl/install/release/announce.txt 2012-09-11 07:37:34 UTC (rev 13434) @@ -7,13 +7,13 @@ eLists Delphi (de...@el...) Subject: -ANN: JVCL 3.46 Released! +ANN: JVCL 3.47 Released! Body: -The JVCL Team is proud to announce that the stable release of JVCL 3.46 is available for download. +The JVCL Team is proud to announce that the stable release of JVCL 3.47 is available for download. JVCL is a library of more than 600 visual and non-visual components for Delphi 6, 7, 2006, 2007, 2009, 2010, XE, XE2 and XE3; C++Builder 6, 2006, 2007, 2009, 2010, XE, XE2 and XE3. JVCL is distributed subject to the Mozilla Public License Version 1.1 (http://www.mozilla.org/MPL/MPL-1.1.html) and is completely free for all developers (open source, shareware or commercial) and includes the full source to all components. -This release brings numerous bug fixes and adds support for the latest Delphi and C++ Builder version, XE3. +This release fixes an issue in compiling the installer if no version after XE is installed. This release is available in four different flavors: - Full install + latest JCL @@ -21,7 +21,7 @@ - Source and examples only - Source only -The current version is JVCL 3.46. +The current version is JVCL 3.47. The JVCL Team Modified: trunk/jvcl/install/release/announce_fr.txt =================================================================== --- trunk/jvcl/install/release/announce_fr.txt 2012-09-11 07:32:02 UTC (rev 13433) +++ trunk/jvcl/install/release/announce_fr.txt 2012-09-11 07:37:34 UTC (rev 13434) @@ -4,13 +4,13 @@ Sujet: -ANN: JVCL 3.46 est disponible +ANN: JVCL 3.47 est disponible Corps: -L'\xE9quipe JVCL est fi\xE8re d'annoncer la sortie de la version stable de la biblioth\xE8que de composants JVCL version 3.46. +L'\xE9quipe JVCL est fi\xE8re d'annoncer la sortie de la version stable de la biblioth\xE8que de composants JVCL version 3.47. La JVCL est une biblioth\xE8que comprenant environ 600 composants visuels et non-visuels pour Delphi 6, 7, 2006, 2007, 2009, 2010, XE, XE2 et XE3; C++Builder 6, 2006, 2007, 2009, 2010, XE, XE2 et XE3. La JVCL est distribu\xE9 sous licence Mozilla Public License Version 1.1 (http://www.mozilla.org/MPL/MPL-1.1.html), est enti\xE8rement gratuite pour toute utilisation (open source, shareware ou commerciale) et inclus le code source de tous les composants. -Cette version apporte de nombreux correctifs et le support de la derni\xE8re version de Delphi et C++ Builder, XE3. +Cette version corrige un probl\xE8me de compilation de l'installeur si aucune version sup\xE9rieure \xE0 XE n'est install\xE9e. Cette version est disponible en quatre distributions : - Installation compl\xE8te + derni\xE8re JCL @@ -18,7 +18,7 @@ - Source et exemples - Source uniquement -La version actuelle est JVCL 3.46. +La version actuelle est JVCL 3.47. Modified: trunk/jvcl/install/release/want.xml =================================================================== --- trunk/jvcl/install/release/want.xml 2012-09-11 07:32:02 UTC (rev 13433) +++ trunk/jvcl/install/release/want.xml 2012-09-11 07:37:34 UTC (rev 13434) @@ -3,7 +3,7 @@ <project name="JVCL" default="help"> <property name="version.major" value="3"/> <property name="version.minor" value="4"/> - <property name="version.release" value="6"/> + <property name="version.release" value="7"/> <property name="version.build" value=" "/> <property name="jclversion" value="241-Build4571" /> <property name="version" value="${version.major}.${version.minor}.${version.release}.${version.build}"/> This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2012-09-11 07:32:08
|
Revision: 13433 http://jvcl.svn.sourceforge.net/jvcl/?rev=13433&view=rev Author: obones Date: 2012-09-11 07:32:02 +0000 (Tue, 11 Sep 2012) Log Message: ----------- JVCL version 3.47 Added Paths: ----------- tags/JVCL3_Latest/ This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2012-09-11 07:31:26
|
Revision: 13432 http://jvcl.svn.sourceforge.net/jvcl/?rev=13432&view=rev Author: obones Date: 2012-09-11 07:31:20 +0000 (Tue, 11 Sep 2012) Log Message: ----------- This will be 3.48 Modified Paths: -------------- trunk/jvcl/run/JVCLVer.pas Modified: trunk/jvcl/run/JVCLVer.pas =================================================================== --- trunk/jvcl/run/JVCLVer.pas 2012-09-11 07:30:55 UTC (rev 13431) +++ trunk/jvcl/run/JVCLVer.pas 2012-09-11 07:31:20 UTC (rev 13432) @@ -46,9 +46,9 @@ {$ENDIF UNITVERSIONING} const - sJVCLVersion = '3.47'; + sJVCLVersion = '3.48'; JVCLVersionMajor = 3; // 0=pre-release|beta/1, 2, ...=final - JVCLVersionMinor = 47; // minor release + JVCLVersionMinor = 48; // minor release JVCLVersionRelease = 0; // 0: pre-release|beta/>=1: release JVCLVersionBuild = 0; // build number, days since march 1, 2006 This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2012-09-11 07:31:05
|
Revision: 13431 http://jvcl.svn.sourceforge.net/jvcl/?rev=13431&view=rev Author: obones Date: 2012-09-11 07:30:55 +0000 (Tue, 11 Sep 2012) Log Message: ----------- JVCL version 3.47 is coming Removed Paths: ------------- tags/JVCL_Latest/ This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2012-09-11 07:30:26
|
Revision: 13430 http://jvcl.svn.sourceforge.net/jvcl/?rev=13430&view=rev Author: obones Date: 2012-09-11 07:30:15 +0000 (Tue, 11 Sep 2012) Log Message: ----------- JVCL version 3.47 Added Paths: ----------- tags/JVCL3_47/ This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2012-09-11 07:27:59
|
Revision: 13429 http://jvcl.svn.sourceforge.net/jvcl/?rev=13429&view=rev Author: obones Date: 2012-09-11 07:27:47 +0000 (Tue, 11 Sep 2012) Log Message: ----------- This will be 3.47 Modified Paths: -------------- branches/JVCL3_47_PREPARATION/install/release/announce.txt branches/JVCL3_47_PREPARATION/install/release/announce_fr.txt branches/JVCL3_47_PREPARATION/install/release/want.xml Modified: branches/JVCL3_47_PREPARATION/install/release/announce.txt =================================================================== --- branches/JVCL3_47_PREPARATION/install/release/announce.txt 2012-09-11 07:22:13 UTC (rev 13428) +++ branches/JVCL3_47_PREPARATION/install/release/announce.txt 2012-09-11 07:27:47 UTC (rev 13429) @@ -7,13 +7,13 @@ eLists Delphi (de...@el...) Subject: -ANN: JVCL 3.46 Released! +ANN: JVCL 3.47 Released! Body: -The JVCL Team is proud to announce that the stable release of JVCL 3.46 is available for download. +The JVCL Team is proud to announce that the stable release of JVCL 3.47 is available for download. JVCL is a library of more than 600 visual and non-visual components for Delphi 6, 7, 2006, 2007, 2009, 2010, XE, XE2 and XE3; C++Builder 6, 2006, 2007, 2009, 2010, XE, XE2 and XE3. JVCL is distributed subject to the Mozilla Public License Version 1.1 (http://www.mozilla.org/MPL/MPL-1.1.html) and is completely free for all developers (open source, shareware or commercial) and includes the full source to all components. -This release brings numerous bug fixes and adds support for the latest Delphi and C++ Builder version, XE3. +This release fixes an issue in compiling the installer if no version after XE is installed. This release is available in four different flavors: - Full install + latest JCL @@ -21,7 +21,7 @@ - Source and examples only - Source only -The current version is JVCL 3.46. +The current version is JVCL 3.47. The JVCL Team Modified: branches/JVCL3_47_PREPARATION/install/release/announce_fr.txt =================================================================== --- branches/JVCL3_47_PREPARATION/install/release/announce_fr.txt 2012-09-11 07:22:13 UTC (rev 13428) +++ branches/JVCL3_47_PREPARATION/install/release/announce_fr.txt 2012-09-11 07:27:47 UTC (rev 13429) @@ -4,13 +4,13 @@ Sujet: -ANN: JVCL 3.46 est disponible +ANN: JVCL 3.47 est disponible Corps: -L'\xE9quipe JVCL est fi\xE8re d'annoncer la sortie de la version stable de la biblioth\xE8que de composants JVCL version 3.46. +L'\xE9quipe JVCL est fi\xE8re d'annoncer la sortie de la version stable de la biblioth\xE8que de composants JVCL version 3.47. La JVCL est une biblioth\xE8que comprenant environ 600 composants visuels et non-visuels pour Delphi 6, 7, 2006, 2007, 2009, 2010, XE, XE2 et XE3; C++Builder 6, 2006, 2007, 2009, 2010, XE, XE2 et XE3. La JVCL est distribu\xE9 sous licence Mozilla Public License Version 1.1 (http://www.mozilla.org/MPL/MPL-1.1.html), est enti\xE8rement gratuite pour toute utilisation (open source, shareware ou commerciale) et inclus le code source de tous les composants. -Cette version apporte de nombreux correctifs et le support de la derni\xE8re version de Delphi et C++ Builder, XE3. +Cette version corrige un probl\xE8me de compilation de l'installeur si aucune version sup\xE9rieure \xE0 XE n'est install\xE9e. Cette version est disponible en quatre distributions : - Installation compl\xE8te + derni\xE8re JCL @@ -18,7 +18,7 @@ - Source et exemples - Source uniquement -La version actuelle est JVCL 3.46. +La version actuelle est JVCL 3.47. Modified: branches/JVCL3_47_PREPARATION/install/release/want.xml =================================================================== --- branches/JVCL3_47_PREPARATION/install/release/want.xml 2012-09-11 07:22:13 UTC (rev 13428) +++ branches/JVCL3_47_PREPARATION/install/release/want.xml 2012-09-11 07:27:47 UTC (rev 13429) @@ -3,7 +3,7 @@ <project name="JVCL" default="help"> <property name="version.major" value="3"/> <property name="version.minor" value="4"/> - <property name="version.release" value="6"/> + <property name="version.release" value="7"/> <property name="version.build" value=" "/> <property name="jclversion" value="241-Build4571" /> <property name="version" value="${version.major}.${version.minor}.${version.release}.${version.build}"/> This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2012-09-11 07:22:23
|
Revision: 13428 http://jvcl.svn.sourceforge.net/jvcl/?rev=13428&view=rev Author: obones Date: 2012-09-11 07:22:13 +0000 (Tue, 11 Sep 2012) Log Message: ----------- TortoiseSVN auto commit: changed externals to fixed revision. Property Changed: ---------------- branches/JVCL3_47_PREPARATION/common/ Property changes on: branches/JVCL3_47_PREPARATION/common ___________________________________________________________________ Modified: svn:externals - jedi https://projectjedi.svn.sourceforge.net:443/svnroot/projectjedi/trunk/shared/include + -r 161 https://projectjedi.svn.sourceforge.net/svnroot/projectjedi/trunk/shared/include@161 jedi This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2012-09-11 07:22:11
|
Revision: 13427 http://jvcl.svn.sourceforge.net/jvcl/?rev=13427&view=rev Author: obones Date: 2012-09-11 07:22:01 +0000 (Tue, 11 Sep 2012) Log Message: ----------- 3.47 needs to be out Added Paths: ----------- branches/JVCL3_47_PREPARATION/ This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2012-09-10 18:16:07
|
Revision: 13426 http://jvcl.svn.sourceforge.net/jvcl/?rev=13426&view=rev Author: ahuser Date: 2012-09-10 18:16:01 +0000 (Mon, 10 Sep 2012) Log Message: ----------- Fixed installer for non unit-scope versions Modified Paths: -------------- trunk/jvcl/devtools/PackagesGenerator/GenerateDefines.pas Modified: trunk/jvcl/devtools/PackagesGenerator/GenerateDefines.pas =================================================================== --- trunk/jvcl/devtools/PackagesGenerator/GenerateDefines.pas 2012-09-10 12:37:12 UTC (rev 13425) +++ trunk/jvcl/devtools/PackagesGenerator/GenerateDefines.pas 2012-09-10 18:16:01 UTC (rev 13426) @@ -43,7 +43,7 @@ uses {$IFDEF HAS_UNIT_TYPES} - System.Types, + Types, {$ENDIF HAS_UNIT_TYPES} SysUtils, JclStrings; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ou...@us...> - 2012-09-10 12:37:23
|
Revision: 13425 http://jvcl.svn.sourceforge.net/jvcl/?rev=13425&view=rev Author: outchy Date: 2012-09-10 12:37:12 +0000 (Mon, 10 Sep 2012) Log Message: ----------- tag update to the latest JVCL. Added Paths: ----------- tags/JVCL_Latest/ Removed Paths: ------------- tags/JVCL_Latest/ This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2012-09-10 12:13:00
|
Revision: 13424 http://jvcl.svn.sourceforge.net/jvcl/?rev=13424&view=rev Author: obones Date: 2012-09-10 12:12:49 +0000 (Mon, 10 Sep 2012) Log Message: ----------- JVCL version 3.46 Added Paths: ----------- tags/JVCL3_46/ This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2012-09-10 12:12:01
|
Revision: 13423 http://jvcl.svn.sourceforge.net/jvcl/?rev=13423&view=rev Author: obones Date: 2012-09-10 12:11:51 +0000 (Mon, 10 Sep 2012) Log Message: ----------- 3.46 is out Modified Paths: -------------- trunk/jvcl/install/release/announce.txt trunk/jvcl/install/release/announce_fr.txt trunk/jvcl/install/release/want.xml trunk/jvcl/run/JVCLVer.pas Modified: trunk/jvcl/install/release/announce.txt =================================================================== --- trunk/jvcl/install/release/announce.txt 2012-09-10 11:45:13 UTC (rev 13422) +++ trunk/jvcl/install/release/announce.txt 2012-09-10 12:11:51 UTC (rev 13423) @@ -3,19 +3,17 @@ embarcadero.public.cppbuilder.thirdpartytools jedi.vcl jedi.general -Delphi Magazine (info@TheDelphiMagazine.com) UK-BUG (bu...@ri...) eLists Delphi (de...@el...) -www.devarchive.com (needs username/password) Subject: -ANN: JVCL 3.45 Released! +ANN: JVCL 3.46 Released! Body: -The JVCL Team is proud to announce that the stable release of JVCL 3.45 is available for download. +The JVCL Team is proud to announce that the stable release of JVCL 3.46 is available for download. -JVCL is a library of more than 600 visual and non-visual components for Delphi 6, 7, 2006, 2007, 2009, 2010, XE and XE2; C++Builder 6, 2006, 2007, 2009, 2010, XE and XE2. JVCL is distributed subject to the Mozilla Public License Version 1.1 (http://www.mozilla.org/MPL/MPL-1.1.html) and is completely free for all developers (open source, shareware or commercial) and includes the full source to all components. +JVCL is a library of more than 600 visual and non-visual components for Delphi 6, 7, 2006, 2007, 2009, 2010, XE, XE2 and XE3; C++Builder 6, 2006, 2007, 2009, 2010, XE, XE2 and XE3. JVCL is distributed subject to the Mozilla Public License Version 1.1 (http://www.mozilla.org/MPL/MPL-1.1.html) and is completely free for all developers (open source, shareware or commercial) and includes the full source to all components. -This release brings numerous bug fixes and adds support for the latest Delphi and C++ Builder version, XE2. +This release brings numerous bug fixes and adds support for the latest Delphi and C++ Builder version, XE3. This release is available in four different flavors: - Full install + latest JCL @@ -23,7 +21,7 @@ - Source and examples only - Source only -The current version is JVCL 3.45. +The current version is JVCL 3.46. The JVCL Team Modified: trunk/jvcl/install/release/announce_fr.txt =================================================================== --- trunk/jvcl/install/release/announce_fr.txt 2012-09-10 11:45:13 UTC (rev 13422) +++ trunk/jvcl/install/release/announce_fr.txt 2012-09-10 12:11:51 UTC (rev 13423) @@ -1,17 +1,16 @@ To: news://amis.grizzlydev.com/nzn.fr.delphi -news://news.delphinaute.be/delphi Developpez.com (de...@re...) Sujet: -ANN: JVCL 3.45 est disponible +ANN: JVCL 3.46 est disponible Corps: -L'\xE9quipe JVCL est fi\xE8re d'annoncer la sortie de la version stable de la biblioth\xE8que de composants JVCL version 3.45. +L'\xE9quipe JVCL est fi\xE8re d'annoncer la sortie de la version stable de la biblioth\xE8que de composants JVCL version 3.46. -La JVCL est une biblioth\xE8que comprenant environ 600 composants visuels et non-visuels pour Delphi 6, 7, 2006, 2007, 2009, 2010, XE et XE2; C++Builder 6, 2006, 2007, 2009, 2010, XE et XE2. La JVCL est distribu\xE9 sous licence Mozilla Public License Version 1.1 (http://www.mozilla.org/MPL/MPL-1.1.html), est enti\xE8rement gratuite pour toute utilisation (open source, shareware ou commerciale) et inclus le code source de tous les composants. +La JVCL est une biblioth\xE8que comprenant environ 600 composants visuels et non-visuels pour Delphi 6, 7, 2006, 2007, 2009, 2010, XE, XE2 et XE3; C++Builder 6, 2006, 2007, 2009, 2010, XE, XE2 et XE3. La JVCL est distribu\xE9 sous licence Mozilla Public License Version 1.1 (http://www.mozilla.org/MPL/MPL-1.1.html), est enti\xE8rement gratuite pour toute utilisation (open source, shareware ou commerciale) et inclus le code source de tous les composants. -Cette version apporte de nombreux correctifs et le support de la derni\xE8re version de Delphi et C++ Builder, XE2. +Cette version apporte de nombreux correctifs et le support de la derni\xE8re version de Delphi et C++ Builder, XE3. Cette version est disponible en quatre distributions : - Installation compl\xE8te + derni\xE8re JCL @@ -19,7 +18,7 @@ - Source et exemples - Source uniquement -La version actuelle est JVCL 3.45. +La version actuelle est JVCL 3.46. Modified: trunk/jvcl/install/release/want.xml =================================================================== --- trunk/jvcl/install/release/want.xml 2012-09-10 11:45:13 UTC (rev 13422) +++ trunk/jvcl/install/release/want.xml 2012-09-10 12:11:51 UTC (rev 13423) @@ -3,9 +3,9 @@ <project name="JVCL" default="help"> <property name="version.major" value="3"/> <property name="version.minor" value="4"/> - <property name="version.release" value="0"/> + <property name="version.release" value="6"/> <property name="version.build" value=" "/> - <property name="jclversion" value="221-Build3845" /> + <property name="jclversion" value="241-Build4571" /> <property name="version" value="${version.major}.${version.minor}.${version.release}.${version.build}"/> <property name="shortversion" value="${version.major}${version.minor}${version.release}${version.build}"/> <!-- JVCL releases --> Modified: trunk/jvcl/run/JVCLVer.pas =================================================================== --- trunk/jvcl/run/JVCLVer.pas 2012-09-10 11:45:13 UTC (rev 13422) +++ trunk/jvcl/run/JVCLVer.pas 2012-09-10 12:11:51 UTC (rev 13423) @@ -46,9 +46,9 @@ {$ENDIF UNITVERSIONING} const - sJVCLVersion = '3.45'; + sJVCLVersion = '3.47'; JVCLVersionMajor = 3; // 0=pre-release|beta/1, 2, ...=final - JVCLVersionMinor = 45; // minor release + JVCLVersionMinor = 47; // minor release JVCLVersionRelease = 0; // 0: pre-release|beta/>=1: release JVCLVersionBuild = 0; // build number, days since march 1, 2006 This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2012-09-10 11:45:23
|
Revision: 13422 http://jvcl.svn.sourceforge.net/jvcl/?rev=13422&view=rev Author: obones Date: 2012-09-10 11:45:13 +0000 (Mon, 10 Sep 2012) Log Message: ----------- This will be 3.46 Modified Paths: -------------- branches/JVCL3_46_PREPARATION/install/release/announce.txt branches/JVCL3_46_PREPARATION/install/release/announce_fr.txt branches/JVCL3_46_PREPARATION/install/release/want.xml branches/JVCL3_46_PREPARATION/run/JVCLVer.pas Modified: branches/JVCL3_46_PREPARATION/install/release/announce.txt =================================================================== --- branches/JVCL3_46_PREPARATION/install/release/announce.txt 2012-09-10 11:35:51 UTC (rev 13421) +++ branches/JVCL3_46_PREPARATION/install/release/announce.txt 2012-09-10 11:45:13 UTC (rev 13422) @@ -9,13 +9,13 @@ www.devarchive.com (needs username/password) Subject: -ANN: JVCL 3.45 Released! +ANN: JVCL 3.46 Released! Body: -The JVCL Team is proud to announce that the stable release of JVCL 3.45 is available for download. +The JVCL Team is proud to announce that the stable release of JVCL 3.46 is available for download. -JVCL is a library of more than 600 visual and non-visual components for Delphi 6, 7, 2006, 2007, 2009, 2010, XE and XE2; C++Builder 6, 2006, 2007, 2009, 2010, XE and XE2. JVCL is distributed subject to the Mozilla Public License Version 1.1 (http://www.mozilla.org/MPL/MPL-1.1.html) and is completely free for all developers (open source, shareware or commercial) and includes the full source to all components. +JVCL is a library of more than 600 visual and non-visual components for Delphi 6, 7, 2006, 2007, 2009, 2010, XE, XE2 and XE3; C++Builder 6, 2006, 2007, 2009, 2010, XE, XE2 and XE3. JVCL is distributed subject to the Mozilla Public License Version 1.1 (http://www.mozilla.org/MPL/MPL-1.1.html) and is completely free for all developers (open source, shareware or commercial) and includes the full source to all components. -This release brings numerous bug fixes and adds support for the latest Delphi and C++ Builder version, XE2. +This release brings numerous bug fixes and adds support for the latest Delphi and C++ Builder version, XE3. This release is available in four different flavors: - Full install + latest JCL @@ -23,7 +23,7 @@ - Source and examples only - Source only -The current version is JVCL 3.45. +The current version is JVCL 3.46. The JVCL Team Modified: branches/JVCL3_46_PREPARATION/install/release/announce_fr.txt =================================================================== --- branches/JVCL3_46_PREPARATION/install/release/announce_fr.txt 2012-09-10 11:35:51 UTC (rev 13421) +++ branches/JVCL3_46_PREPARATION/install/release/announce_fr.txt 2012-09-10 11:45:13 UTC (rev 13422) @@ -5,13 +5,13 @@ Sujet: -ANN: JVCL 3.45 est disponible +ANN: JVCL 3.46 est disponible Corps: -L'\xE9quipe JVCL est fi\xE8re d'annoncer la sortie de la version stable de la biblioth\xE8que de composants JVCL version 3.45. +L'\xE9quipe JVCL est fi\xE8re d'annoncer la sortie de la version stable de la biblioth\xE8que de composants JVCL version 3.46. -La JVCL est une biblioth\xE8que comprenant environ 600 composants visuels et non-visuels pour Delphi 6, 7, 2006, 2007, 2009, 2010, XE et XE2; C++Builder 6, 2006, 2007, 2009, 2010, XE et XE2. La JVCL est distribu\xE9 sous licence Mozilla Public License Version 1.1 (http://www.mozilla.org/MPL/MPL-1.1.html), est enti\xE8rement gratuite pour toute utilisation (open source, shareware ou commerciale) et inclus le code source de tous les composants. +La JVCL est une biblioth\xE8que comprenant environ 600 composants visuels et non-visuels pour Delphi 6, 7, 2006, 2007, 2009, 2010, XE, XE2 et XE3; C++Builder 6, 2006, 2007, 2009, 2010, XE, XE2 et XE3. La JVCL est distribu\xE9 sous licence Mozilla Public License Version 1.1 (http://www.mozilla.org/MPL/MPL-1.1.html), est enti\xE8rement gratuite pour toute utilisation (open source, shareware ou commerciale) et inclus le code source de tous les composants. -Cette version apporte de nombreux correctifs et le support de la derni\xE8re version de Delphi et C++ Builder, XE2. +Cette version apporte de nombreux correctifs et le support de la derni\xE8re version de Delphi et C++ Builder, XE3. Cette version est disponible en quatre distributions : - Installation compl\xE8te + derni\xE8re JCL @@ -19,7 +19,7 @@ - Source et exemples - Source uniquement -La version actuelle est JVCL 3.45. +La version actuelle est JVCL 3.46. Modified: branches/JVCL3_46_PREPARATION/install/release/want.xml =================================================================== --- branches/JVCL3_46_PREPARATION/install/release/want.xml 2012-09-10 11:35:51 UTC (rev 13421) +++ branches/JVCL3_46_PREPARATION/install/release/want.xml 2012-09-10 11:45:13 UTC (rev 13422) @@ -3,9 +3,9 @@ <project name="JVCL" default="help"> <property name="version.major" value="3"/> <property name="version.minor" value="4"/> - <property name="version.release" value="0"/> + <property name="version.release" value="6"/> <property name="version.build" value=" "/> - <property name="jclversion" value="221-Build3845" /> + <property name="jclversion" value="241-Build4571" /> <property name="version" value="${version.major}.${version.minor}.${version.release}.${version.build}"/> <property name="shortversion" value="${version.major}${version.minor}${version.release}${version.build}"/> <!-- JVCL releases --> Modified: branches/JVCL3_46_PREPARATION/run/JVCLVer.pas =================================================================== --- branches/JVCL3_46_PREPARATION/run/JVCLVer.pas 2012-09-10 11:35:51 UTC (rev 13421) +++ branches/JVCL3_46_PREPARATION/run/JVCLVer.pas 2012-09-10 11:45:13 UTC (rev 13422) @@ -46,9 +46,9 @@ {$ENDIF UNITVERSIONING} const - sJVCLVersion = '3.45'; + sJVCLVersion = '3.46'; JVCLVersionMajor = 3; // 0=pre-release|beta/1, 2, ...=final - JVCLVersionMinor = 45; // minor release + JVCLVersionMinor = 46; // minor release JVCLVersionRelease = 0; // 0: pre-release|beta/>=1: release JVCLVersionBuild = 0; // build number, days since march 1, 2006 This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2012-09-10 11:36:02
|
Revision: 13421 http://jvcl.svn.sourceforge.net/jvcl/?rev=13421&view=rev Author: obones Date: 2012-09-10 11:35:51 +0000 (Mon, 10 Sep 2012) Log Message: ----------- TortoiseSVN auto commit: changed externals to fixed revision. Property Changed: ---------------- branches/JVCL3_46_PREPARATION/common/ Property changes on: branches/JVCL3_46_PREPARATION/common ___________________________________________________________________ Modified: svn:externals - jedi https://projectjedi.svn.sourceforge.net:443/svnroot/projectjedi/trunk/shared/include + -r 161 https://projectjedi.svn.sourceforge.net/svnroot/projectjedi/trunk/shared/include@161 jedi This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2012-09-10 11:35:41
|
Revision: 13420 http://jvcl.svn.sourceforge.net/jvcl/?rev=13420&view=rev Author: obones Date: 2012-09-10 11:35:31 +0000 (Mon, 10 Sep 2012) Log Message: ----------- Preparation for 3.46 Added Paths: ----------- branches/JVCL3_46_PREPARATION/ This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2012-09-10 11:07:52
|
Revision: 13419 http://jvcl.svn.sourceforge.net/jvcl/?rev=13419&view=rev Author: obones Date: 2012-09-10 11:07:42 +0000 (Mon, 10 Sep 2012) Log Message: ----------- Compatibility with earlier versions as well as XE3 Modified Paths: -------------- trunk/jvcl/run/JvCsvData.pas Modified: trunk/jvcl/run/JvCsvData.pas =================================================================== --- trunk/jvcl/run/JvCsvData.pas 2012-09-10 10:26:01 UTC (rev 13418) +++ trunk/jvcl/run/JvCsvData.pas 2012-09-10 11:07:42 UTC (rev 13419) @@ -2416,7 +2416,7 @@ RowPtr: PCsvRow; NewVal: string; CP, PhysicalLocation: Integer; - PDestination: TJvRecordBuffer; + PDestination: PJvMemBuffer; CsvColumnData: PCsvColumn; DT: TDateTime; ATimeStamp: TTimeStamp; @@ -2449,7 +2449,7 @@ Exit; Inc(PDestination, GetCalcDataOffset(RowPtr) + Field.Offset); - PDestination[0] := Ord(Buffer <> nil); + PDestination[0] := {$IFNDEF RTL200_UP}AnsiChar{$ENDIF RTL200_UP}(Ord(Buffer <> nil)); if AnsiChar(PDestination[0]) <> #0 then Move({$IFDEF RTL240_UP}PByte(@Buffer[0]){$ELSE}Buffer{$ENDIF RTL240_UP}^, PDestination[1], Field.DataSize); @@ -2702,7 +2702,7 @@ function TJvCustomCsvDataSet.GetFieldData(Field: TField; Buffer: TJvValueBuffer): Boolean; var RowPtr: PCsvRow; - PSource: TJvRecordBuffer; + PSource: PJvMemBuffer; UserString, TempString: string; AnsiStr: AnsiString; PhysicalLocation: Integer; @@ -3898,7 +3898,7 @@ function TJvCustomCsvDataSet.GetRecNo: Integer; {RecNo := FRecordPos+1} var - BufPtr: PByte; + BufPtr: PJvMemBuffer; begin CheckActive; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2012-09-10 10:26:12
|
Revision: 13418 http://jvcl.svn.sourceforge.net/jvcl/?rev=13418&view=rev Author: obones Date: 2012-09-10 10:26:01 +0000 (Mon, 10 Sep 2012) Log Message: ----------- Compatibility with earlier versions as well as XE3 Modified Paths: -------------- trunk/jvcl/run/JvCsvData.pas Modified: trunk/jvcl/run/JvCsvData.pas =================================================================== --- trunk/jvcl/run/JvCsvData.pas 2012-09-10 10:23:45 UTC (rev 13417) +++ trunk/jvcl/run/JvCsvData.pas 2012-09-10 10:26:01 UTC (rev 13418) @@ -347,7 +347,7 @@ constructor Create; procedure AddRow(Item: PCsvRow); - function AllocRecordBuffer: PJvRecordBuffer; { was PChar, now in tiburon it is PByte } + function AllocRecordBuffer: PJvMemBuffer; { was PChar, now in tiburon it is PByte } procedure InsertRow(const Position: Integer; Item: PCsvRow); procedure AddRowStr(const Item: string); // convert string->TJvCsvRow @@ -574,23 +574,23 @@ procedure SetCsvFieldDef(const Value: string); { Mandatory VCL TDataSet Overrides - Pure Virtual Methods of Base Class } - function AllocRecordBuffer: PJvRecordBuffer; override; - procedure FreeRecordBuffer(var Buffer: PJvRecordBuffer); override; - procedure InternalInitRecord(Buffer: PJvRecordBuffer); override; - function GetRecord(Buffer: PJvRecordBuffer; GetMode: TGetMode; + function AllocRecordBuffer: PJvMemBuffer; override; + procedure FreeRecordBuffer(var Buffer: PJvMemBuffer); override; + procedure InternalInitRecord(Buffer: PJvMemBuffer); override; + function GetRecord(Buffer: PJvMemBuffer; GetMode: TGetMode; DoCheck: Boolean): TGetResult; override; function GetRecordSize: Word; override; procedure SetFieldData(Field: TField; Buffer: TJvValueBuffer); override; - procedure ClearCalcFields(Buffer: PJvRecordBuffer); override; + procedure ClearCalcFields(Buffer: PJvMemBuffer); override; // Bookmark methods: - procedure GetBookmarkData(Buffer: PJvRecordBuffer; Data: TJvBookmark); override; - function GetBookmarkFlag(Buffer: PJvRecordBuffer): TBookmarkFlag; override; + procedure GetBookmarkData(Buffer: PJvMemBuffer; Data: TJvBookmark); override; + function GetBookmarkFlag(Buffer: PJvMemBuffer): TBookmarkFlag; override; procedure InternalGotoBookmark(Bookmark: TJvBookmark); override; - procedure InternalSetToRecord(Buffer: PJvRecordBuffer); override; // on Insertion??? - procedure SetBookmarkFlag(Buffer: PJvRecordBuffer; Value: TBookmarkFlag); override; - procedure SetBookmarkData(Buffer: PJvRecordBuffer; Data: TJvBookmark); override; + procedure InternalSetToRecord(Buffer: PJvMemBuffer); override; // on Insertion??? + procedure SetBookmarkFlag(Buffer: PJvMemBuffer; Value: TBookmarkFlag); override; + procedure SetBookmarkData(Buffer: PJvMemBuffer; Data: TJvBookmark); override; // Navigational methods: procedure InternalFirst; override; @@ -1833,7 +1833,7 @@ end; { You shouldn't create a "TJvCsvRow-memory-buffer-record-aggregate" anywhere else than here. } -function TJvCustomCsvDataSet.AllocRecordBuffer: PJvRecordBuffer; +function TJvCustomCsvDataSet.AllocRecordBuffer: PJvMemBuffer; begin Assert(Assigned(FData)); Result := FData.AllocRecordBuffer; @@ -1841,7 +1841,7 @@ { calc fields support } -procedure TJvCustomCsvDataSet.ClearCalcFields(Buffer: PJvRecordBuffer); +procedure TJvCustomCsvDataSet.ClearCalcFields(Buffer: PJvMemBuffer); begin // Assumes that our buffer is a TJvCsvRow followed by // a dynamically resized buffer used for calculated field @@ -1901,7 +1901,7 @@ Result := FData.FEnquoteBackslash; end; -procedure TJvCustomCsvDataSet.FreeRecordBuffer(var Buffer: PJvRecordBuffer); +procedure TJvCustomCsvDataSet.FreeRecordBuffer(var Buffer: PJvMemBuffer); begin if Buffer <> nil then FreeMem(Buffer); @@ -1909,7 +1909,7 @@ { called after the record is allocated } -procedure TJvCustomCsvDataSet.InternalInitRecord(Buffer: PJvRecordBuffer); +procedure TJvCustomCsvDataSet.InternalInitRecord(Buffer: PJvMemBuffer); var RowPtr: PCsvRow; begin @@ -2237,7 +2237,7 @@ end; end; -function TJvCustomCsvDataSet.GetRecord(Buffer: PJvRecordBuffer; GetMode: TGetMode; +function TJvCustomCsvDataSet.GetRecord(Buffer: PJvMemBuffer; GetMode: TGetMode; DoCheck: Boolean): TGetResult; var RowPtr: PCsvRow; @@ -3040,12 +3040,12 @@ Result := False; end; -procedure TJvCustomCsvDataSet.GetBookmarkData(Buffer: PJvRecordBuffer; Data: TJvBookmark); +procedure TJvCustomCsvDataSet.GetBookmarkData(Buffer: PJvMemBuffer; Data: TJvBookmark); begin PInteger(Data)^ := PCsvRow(Buffer)^.Bookmark.Data; end; -function TJvCustomCsvDataSet.GetBookmarkFlag(Buffer: PJvRecordBuffer): TBookmarkFlag; +function TJvCustomCsvDataSet.GetBookmarkFlag(Buffer: PJvMemBuffer): TBookmarkFlag; begin Result := PCsvRow(Buffer)^.Bookmark.Flag; end; @@ -3073,7 +3073,7 @@ Result := Bookmark_Gtr; end; -procedure TJvCustomCsvDataSet.SetBookmarkFlag(Buffer: PJvRecordBuffer; Value: TBookmarkFlag); +procedure TJvCustomCsvDataSet.SetBookmarkFlag(Buffer: PJvMemBuffer; Value: TBookmarkFlag); begin PCsvRow(Buffer)^.Bookmark.Flag := Value; end; @@ -3084,7 +3084,7 @@ FRecordPos := PInteger(Bookmark)^; end; -procedure TJvCustomCsvDataSet.InternalSetToRecord(Buffer: PJvRecordBuffer); +procedure TJvCustomCsvDataSet.InternalSetToRecord(Buffer: PJvMemBuffer); begin FRecordPos := PCsvRow(Buffer)^.Bookmark.Data; // Look up index from the record. // Resync([]); @@ -3098,7 +3098,7 @@ FData.BackslashCrLf := Value; end; -procedure TJvCustomCsvDataSet.SetBookmarkData(Buffer: PJvRecordBuffer; Data: TJvBookmark); +procedure TJvCustomCsvDataSet.SetBookmarkData(Buffer: PJvMemBuffer; Data: TJvBookmark); begin PCsvRow(Buffer)^.Bookmark.Data := PInteger(Data)^; end; @@ -4303,7 +4303,7 @@ AddRow(PNewItem); end; -function TJvCsvRows.AllocRecordBuffer: PJvRecordBuffer; +function TJvCsvRows.AllocRecordBuffer: PJvMemBuffer; begin Assert(FTextBufferSize >= JvCsv_MINLINELENGTH); Result := AllocMem(GetRowAllocSize); {was SizeOf(TJvCsvRow)} This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2012-09-10 10:23:54
|
Revision: 13417 http://jvcl.svn.sourceforge.net/jvcl/?rev=13417&view=rev Author: obones Date: 2012-09-10 10:23:45 +0000 (Mon, 10 Sep 2012) Log Message: ----------- Compatibility with earlier versions as well as XE3 Modified Paths: -------------- trunk/jvcl/run/JvCsvData.pas Modified: trunk/jvcl/run/JvCsvData.pas =================================================================== --- trunk/jvcl/run/JvCsvData.pas 2012-09-10 10:09:31 UTC (rev 13416) +++ trunk/jvcl/run/JvCsvData.pas 2012-09-10 10:23:45 UTC (rev 13417) @@ -207,16 +207,18 @@ EJvCsvKeyError = class(EDatabaseError); // Key Uniqueness or Key Problem - {$IFDEF COMPILER12_UP} - TJvRecordBuffer = TRecordBuffer; // Delphi 2009 - {$ELSE} - TJvRecordBuffer = PAnsiChar; - {$ENDIF COMPILER12_UP} - {$IFDEF RTL240_UP} + PJvMemBuffer = PByte; + TJvRecordBuffer = TRecordBuffer; TJvValueBuffer = TValueBuffer; TJvBookmark = TBookmark; {$ELSE} + {$IFDEF UNICODE} + PJvMemBuffer = PByte; + {$ELSE} + PJvMemBuffer = PAnsiChar; + {$ENDIF UNICODE} + TJvRecordBuffer = Pointer; TJvValueBuffer = Pointer; TJvBookmark = Pointer; {$ENDIF RTL240_UP} @@ -345,7 +347,7 @@ constructor Create; procedure AddRow(Item: PCsvRow); - function AllocRecordBuffer: TJvRecordBuffer; { was PChar, now in tiburon it is PByte } + function AllocRecordBuffer: PJvRecordBuffer; { was PChar, now in tiburon it is PByte } procedure InsertRow(const Position: Integer; Item: PCsvRow); procedure AddRowStr(const Item: string); // convert string->TJvCsvRow @@ -572,23 +574,23 @@ procedure SetCsvFieldDef(const Value: string); { Mandatory VCL TDataSet Overrides - Pure Virtual Methods of Base Class } - function AllocRecordBuffer: TJvRecordBuffer; override; - procedure FreeRecordBuffer(var Buffer: TJvRecordBuffer); override; - procedure InternalInitRecord(Buffer: TJvRecordBuffer); override; - function GetRecord(Buffer: TJvRecordBuffer; GetMode: TGetMode; + function AllocRecordBuffer: PJvRecordBuffer; override; + procedure FreeRecordBuffer(var Buffer: PJvRecordBuffer); override; + procedure InternalInitRecord(Buffer: PJvRecordBuffer); override; + function GetRecord(Buffer: PJvRecordBuffer; GetMode: TGetMode; DoCheck: Boolean): TGetResult; override; function GetRecordSize: Word; override; procedure SetFieldData(Field: TField; Buffer: TJvValueBuffer); override; - procedure ClearCalcFields(Buffer: TJvRecordBuffer); override; + procedure ClearCalcFields(Buffer: PJvRecordBuffer); override; // Bookmark methods: - procedure GetBookmarkData(Buffer: TJvRecordBuffer; Data: TJvBookmark); override; - function GetBookmarkFlag(Buffer: TJvRecordBuffer): TBookmarkFlag; override; + procedure GetBookmarkData(Buffer: PJvRecordBuffer; Data: TJvBookmark); override; + function GetBookmarkFlag(Buffer: PJvRecordBuffer): TBookmarkFlag; override; procedure InternalGotoBookmark(Bookmark: TJvBookmark); override; - procedure InternalSetToRecord(Buffer: TJvRecordBuffer); override; // on Insertion??? - procedure SetBookmarkFlag(Buffer: TJvRecordBuffer; Value: TBookmarkFlag); override; - procedure SetBookmarkData(Buffer: TJvRecordBuffer; Data: TJvBookmark); override; + procedure InternalSetToRecord(Buffer: PJvRecordBuffer); override; // on Insertion??? + procedure SetBookmarkFlag(Buffer: PJvRecordBuffer; Value: TBookmarkFlag); override; + procedure SetBookmarkData(Buffer: PJvRecordBuffer; Data: TJvBookmark); override; // Navigational methods: procedure InternalFirst; override; @@ -1831,7 +1833,7 @@ end; { You shouldn't create a "TJvCsvRow-memory-buffer-record-aggregate" anywhere else than here. } -function TJvCustomCsvDataSet.AllocRecordBuffer: TJvRecordBuffer; +function TJvCustomCsvDataSet.AllocRecordBuffer: PJvRecordBuffer; begin Assert(Assigned(FData)); Result := FData.AllocRecordBuffer; @@ -1839,7 +1841,7 @@ { calc fields support } -procedure TJvCustomCsvDataSet.ClearCalcFields(Buffer: TJvRecordBuffer); +procedure TJvCustomCsvDataSet.ClearCalcFields(Buffer: PJvRecordBuffer); begin // Assumes that our buffer is a TJvCsvRow followed by // a dynamically resized buffer used for calculated field @@ -1899,7 +1901,7 @@ Result := FData.FEnquoteBackslash; end; -procedure TJvCustomCsvDataSet.FreeRecordBuffer(var Buffer: TJvRecordBuffer); +procedure TJvCustomCsvDataSet.FreeRecordBuffer(var Buffer: PJvRecordBuffer); begin if Buffer <> nil then FreeMem(Buffer); @@ -1907,7 +1909,7 @@ { called after the record is allocated } -procedure TJvCustomCsvDataSet.InternalInitRecord(Buffer: TJvRecordBuffer); +procedure TJvCustomCsvDataSet.InternalInitRecord(Buffer: PJvRecordBuffer); var RowPtr: PCsvRow; begin @@ -2235,7 +2237,7 @@ end; end; -function TJvCustomCsvDataSet.GetRecord(Buffer: TJvRecordBuffer; GetMode: TGetMode; +function TJvCustomCsvDataSet.GetRecord(Buffer: PJvRecordBuffer; GetMode: TGetMode; DoCheck: Boolean): TGetResult; var RowPtr: PCsvRow; @@ -3038,12 +3040,12 @@ Result := False; end; -procedure TJvCustomCsvDataSet.GetBookmarkData(Buffer: TJvRecordBuffer; Data: TJvBookmark); +procedure TJvCustomCsvDataSet.GetBookmarkData(Buffer: PJvRecordBuffer; Data: TJvBookmark); begin PInteger(Data)^ := PCsvRow(Buffer)^.Bookmark.Data; end; -function TJvCustomCsvDataSet.GetBookmarkFlag(Buffer: TJvRecordBuffer): TBookmarkFlag; +function TJvCustomCsvDataSet.GetBookmarkFlag(Buffer: PJvRecordBuffer): TBookmarkFlag; begin Result := PCsvRow(Buffer)^.Bookmark.Flag; end; @@ -3071,7 +3073,7 @@ Result := Bookmark_Gtr; end; -procedure TJvCustomCsvDataSet.SetBookmarkFlag(Buffer: TJvRecordBuffer; Value: TBookmarkFlag); +procedure TJvCustomCsvDataSet.SetBookmarkFlag(Buffer: PJvRecordBuffer; Value: TBookmarkFlag); begin PCsvRow(Buffer)^.Bookmark.Flag := Value; end; @@ -3082,7 +3084,7 @@ FRecordPos := PInteger(Bookmark)^; end; -procedure TJvCustomCsvDataSet.InternalSetToRecord(Buffer: TJvRecordBuffer); +procedure TJvCustomCsvDataSet.InternalSetToRecord(Buffer: PJvRecordBuffer); begin FRecordPos := PCsvRow(Buffer)^.Bookmark.Data; // Look up index from the record. // Resync([]); @@ -3096,7 +3098,7 @@ FData.BackslashCrLf := Value; end; -procedure TJvCustomCsvDataSet.SetBookmarkData(Buffer: TJvRecordBuffer; Data: TJvBookmark); +procedure TJvCustomCsvDataSet.SetBookmarkData(Buffer: PJvRecordBuffer; Data: TJvBookmark); begin PCsvRow(Buffer)^.Bookmark.Data := PInteger(Data)^; end; @@ -4301,7 +4303,7 @@ AddRow(PNewItem); end; -function TJvCsvRows.AllocRecordBuffer: TJvRecordBuffer; +function TJvCsvRows.AllocRecordBuffer: PJvRecordBuffer; begin Assert(FTextBufferSize >= JvCsv_MINLINELENGTH); Result := AllocMem(GetRowAllocSize); {was SizeOf(TJvCsvRow)} This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2012-09-10 10:09:40
|
Revision: 13416 http://jvcl.svn.sourceforge.net/jvcl/?rev=13416&view=rev Author: obones Date: 2012-09-10 10:09:31 +0000 (Mon, 10 Sep 2012) Log Message: ----------- Compatibility with earlier versions as well as XE3 Modified Paths: -------------- trunk/jvcl/run/JvMemoryDataset.pas Modified: trunk/jvcl/run/JvMemoryDataset.pas =================================================================== --- trunk/jvcl/run/JvMemoryDataset.pas 2012-09-10 09:51:54 UTC (rev 13415) +++ trunk/jvcl/run/JvMemoryDataset.pas 2012-09-10 10:09:31 UTC (rev 13416) @@ -829,7 +829,7 @@ if DataType in ftBlobTypes then Result := Pointer(GetBlobData(Field, Buffer)) else - Result := (PByte(Buffer) + FOffsets[Index]); + Result := (PJvMemBuffer(Buffer) + FOffsets[Index]); end; end; @@ -1029,14 +1029,12 @@ function TJvMemoryData.GetFieldData(Field: TField; Buffer: TJvValueBuffer): Boolean; var RecBuf: PJvMemBuffer; - PByteRecBuf: PByte; Data: PByte; VarData: Variant; begin Result := False; if not GetActiveRecBuf(RecBuf) then Exit; - PByteRecBuf := PByte(@RecBuf[0]); if Field.FieldNo > 0 then begin @@ -1073,8 +1071,8 @@ else if State in [dsBrowse, dsEdit, dsInsert, dsCalcFields] then begin - Inc(PByteRecBuf, FRecordSize + Field.Offset); - Result := Byte(PByteRecBuf[0]) <> 0; + Inc(RecBuf, FRecordSize + Field.Offset); + Result := Byte(RecBuf[0]) <> 0; if Result and (Buffer <> nil) then Move(RecBuf[1], {$IFDEF RTL240_UP}PByte(@Buffer[0]){$ELSE}Buffer{$ENDIF RTL240_UP}^, Field.DataSize); end; @@ -1083,14 +1081,12 @@ procedure TJvMemoryData.SetFieldData(Field: TField; Buffer: TJvValueBuffer); var RecBuf: PJvMemBuffer; - PByteRecBuf: PByte; Data: PByte; VarData: Variant; begin if not (State in dsWriteModes) then Error(SNotEditing); GetActiveRecBuf(RecBuf); - PByteRecBuf := PByte(@RecBuf[0]); if Field.FieldNo > 0 then begin if State in [dsCalcFields, dsFilter] then @@ -1132,10 +1128,10 @@ end else {fkCalculated, fkLookup} begin - Inc(PByteRecBuf, FRecordSize + Field.Offset); - Byte(PByteRecBuf[0]) := Ord(Buffer <> nil); - if Byte(PByteRecBuf[0]) <> 0 then - Move({$IFDEF RTL240_UP}PByte(@Buffer[0]){$ELSE}Buffer{$ENDIF RTL240_UP}^, PByteRecBuf[1], Field.DataSize); + Inc(RecBuf, FRecordSize + Field.Offset); + Byte(RecBuf[0]) := Ord(Buffer <> nil); + if Byte(RecBuf[0]) <> 0 then + Move({$IFDEF RTL240_UP}PByte(@Buffer[0]){$ELSE}Buffer{$ENDIF RTL240_UP}^, RecBuf[1], Field.DataSize); end; if not (State in [dsCalcFields, dsFilter, dsNewValue]) then DataEvent(deFieldChange, NativeInt(Field)); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2012-09-10 09:52:09
|
Revision: 13415 http://jvcl.svn.sourceforge.net/jvcl/?rev=13415&view=rev Author: obones Date: 2012-09-10 09:51:54 +0000 (Mon, 10 Sep 2012) Log Message: ----------- Support for XE3 Modified Paths: -------------- trunk/jvcl/clean.bat trunk/jvcl/common/jvcl.inc trunk/jvcl/design/JvControlsReg.pas trunk/jvcl/design/JvCoreReg.pas trunk/jvcl/design/JvCustomReg.pas trunk/jvcl/design/JvDBReg.pas trunk/jvcl/design/JvDlgsReg.pas trunk/jvcl/design/JvPageListTreeViewReg.pas trunk/jvcl/design/JvPluginWizard.pas trunk/jvcl/design/JvStdCtrlsReg.pas trunk/jvcl/design/JvXPCtrlsReg.pas trunk/jvcl/devtools/PackagesGenerator/GenerateDefines.pas trunk/jvcl/devtools/bin/pgEdit.xml trunk/jvcl/install/JVCLInstall/DelphiData.pas trunk/jvcl/packages/bin/dcc32ex.dpr trunk/jvcl/packages/bin/dcc32ex.exe trunk/jvcl/run/JvActionsEngine.pas trunk/jvcl/run/JvAppStorage.pas trunk/jvcl/run/JvBDEFilter.pas trunk/jvcl/run/JvBDEMemTable.pas trunk/jvcl/run/JvBDEQuery.pas trunk/jvcl/run/JvBalloonHint.pas trunk/jvcl/run/JvBaseEdits.pas trunk/jvcl/run/JvBdeUtils.pas trunk/jvcl/run/JvBitBtn.pas trunk/jvcl/run/JvCaptionButton.pas trunk/jvcl/run/JvComCtrls.pas trunk/jvcl/run/JvCombobox.pas trunk/jvcl/run/JvConsts.pas trunk/jvcl/run/JvCsvData.pas trunk/jvcl/run/JvCtrls.pas trunk/jvcl/run/JvDBActions.pas trunk/jvcl/run/JvDBGrid.pas trunk/jvcl/run/JvDBGridSelectColumnForm.pas trunk/jvcl/run/JvDBLookup.pas trunk/jvcl/run/JvDBLookupTreeView.pas trunk/jvcl/run/JvDBTreeView.pas trunk/jvcl/run/JvDBUtils.pas trunk/jvcl/run/JvDSADialogs.pas trunk/jvcl/run/JvDataProvider.pas trunk/jvcl/run/JvDatePickerEdit.pas trunk/jvcl/run/JvDateTimePicker.pas trunk/jvcl/run/JvDesignImp.pas trunk/jvcl/run/JvDesignSurface.pas trunk/jvcl/run/JvDesktopAlertForm.pas trunk/jvcl/run/JvDockControlForm.pas trunk/jvcl/run/JvDockSupportControl.pas trunk/jvcl/run/JvDockVIDStyle.pas trunk/jvcl/run/JvDockVSNetStyle.pas trunk/jvcl/run/JvDualList.pas trunk/jvcl/run/JvDynControlEngineIntf.pas trunk/jvcl/run/JvDynControlEngineJVCL.pas trunk/jvcl/run/JvDynControlEngineJVCLDB.pas trunk/jvcl/run/JvDynControlEngineVCL.pas trunk/jvcl/run/JvDynControlEngineVCLDB.pas trunk/jvcl/run/JvEdit.pas trunk/jvcl/run/JvEditorCommon.pas trunk/jvcl/run/JvExprParser.pas trunk/jvcl/run/JvGnugettext.pas trunk/jvcl/run/JvID3v2Base.pas trunk/jvcl/run/JvInspExtraEditors.pas trunk/jvcl/run/JvInspector.pas trunk/jvcl/run/JvInterpreter.pas trunk/jvcl/run/JvInterpreter_DBTables.pas trunk/jvcl/run/JvInterpreter_Db.pas trunk/jvcl/run/JvJCLUtils.pas trunk/jvcl/run/JvJVCLUtils.pas trunk/jvcl/run/JvLabel.pas trunk/jvcl/run/JvListBox.pas trunk/jvcl/run/JvListView.pas trunk/jvcl/run/JvLookOut.pas trunk/jvcl/run/JvMaskEdit.pas trunk/jvcl/run/JvMemoryDataset.pas trunk/jvcl/run/JvNavigationPane.pas trunk/jvcl/run/JvOutlookBar.pas trunk/jvcl/run/JvPageListTreeView.pas trunk/jvcl/run/JvPanel.pas trunk/jvcl/run/JvParameterList.pas trunk/jvcl/run/JvParameterListParameter.pas trunk/jvcl/run/JvPrvwDoc.pas trunk/jvcl/run/JvRichEdit.pas trunk/jvcl/run/JvRollOut.pas trunk/jvcl/run/JvSpeedButton.pas trunk/jvcl/run/JvSpeedbar.pas trunk/jvcl/run/JvSpeedbarSetupForm.pas trunk/jvcl/run/JvSpin.pas trunk/jvcl/run/JvStaticText.pas trunk/jvcl/run/JvTabBar.pas trunk/jvcl/run/JvThemes.pas trunk/jvcl/run/JvToolEdit.pas trunk/jvcl/run/JvTranslateString.pas trunk/jvcl/run/JvTranslator.pas trunk/jvcl/run/JvTransparentButton.pas trunk/jvcl/run/JvValidateEdit.pas trunk/jvcl/run/JvXPBar.pas trunk/jvcl/run/JvXPButtons.pas trunk/jvcl/run/JvXPCoreUtils.pas trunk/jvcl/run/JvYearGrid.pas trunk/jvcl/run/JvxCheckListBox.pas Added Paths: ----------- trunk/jvcl/common/jvcld17.inc trunk/jvcl/common/jvcld17_x64.inc trunk/jvcl/include/d17/ trunk/jvcl/lib/d17/ trunk/jvcl/lib/d17/win32/ trunk/jvcl/lib/d17/win32/d17.txt trunk/jvcl/lib/d17/win32/debug/ trunk/jvcl/lib/d17/win32/debug/debug.txt trunk/jvcl/lib/d17/win64/ trunk/jvcl/lib/d17/win64/d17.txt trunk/jvcl/lib/d17/win64/debug/ trunk/jvcl/lib/d17/win64/debug/debug.txt trunk/jvcl/packages/D17 Packages.groupproj trunk/jvcl/packages/D17_x64 Packages.groupproj trunk/jvcl/packages/d17/ trunk/jvcl/packages/d17/JvAppFrm.RES trunk/jvcl/packages/d17/JvAppFrm.dpk trunk/jvcl/packages/d17/JvAppFrm.dproj trunk/jvcl/packages/d17/JvAppFrm.rc trunk/jvcl/packages/d17/JvAppFrmDesign.RES trunk/jvcl/packages/d17/JvAppFrmDesign.dpk trunk/jvcl/packages/d17/JvAppFrmDesign.dproj trunk/jvcl/packages/d17/JvAppFrmDesign.rc trunk/jvcl/packages/d17/JvBDE.RES trunk/jvcl/packages/d17/JvBDE.dpk trunk/jvcl/packages/d17/JvBDE.dproj trunk/jvcl/packages/d17/JvBDE.rc trunk/jvcl/packages/d17/JvBDEDesign.RES trunk/jvcl/packages/d17/JvBDEDesign.dpk trunk/jvcl/packages/d17/JvBDEDesign.dproj trunk/jvcl/packages/d17/JvBDEDesign.rc trunk/jvcl/packages/d17/JvBands.RES trunk/jvcl/packages/d17/JvBands.dpk trunk/jvcl/packages/d17/JvBands.dproj trunk/jvcl/packages/d17/JvBands.rc trunk/jvcl/packages/d17/JvBandsDesign.RES trunk/jvcl/packages/d17/JvBandsDesign.dpk trunk/jvcl/packages/d17/JvBandsDesign.dproj trunk/jvcl/packages/d17/JvBandsDesign.rc trunk/jvcl/packages/d17/JvCmp.RES trunk/jvcl/packages/d17/JvCmp.dpk trunk/jvcl/packages/d17/JvCmp.dproj trunk/jvcl/packages/d17/JvCmp.rc trunk/jvcl/packages/d17/JvCmpDesign.RES trunk/jvcl/packages/d17/JvCmpDesign.dpk trunk/jvcl/packages/d17/JvCmpDesign.dproj trunk/jvcl/packages/d17/JvCmpDesign.rc trunk/jvcl/packages/d17/JvControls.RES trunk/jvcl/packages/d17/JvControls.dpk trunk/jvcl/packages/d17/JvControls.dproj trunk/jvcl/packages/d17/JvControls.rc trunk/jvcl/packages/d17/JvControlsDesign.RES trunk/jvcl/packages/d17/JvControlsDesign.dpk trunk/jvcl/packages/d17/JvControlsDesign.dproj trunk/jvcl/packages/d17/JvControlsDesign.rc trunk/jvcl/packages/d17/JvCore.RES trunk/jvcl/packages/d17/JvCore.dpk trunk/jvcl/packages/d17/JvCore.dproj trunk/jvcl/packages/d17/JvCore.rc trunk/jvcl/packages/d17/JvCoreDesign.RES trunk/jvcl/packages/d17/JvCoreDesign.dpk trunk/jvcl/packages/d17/JvCoreDesign.dproj trunk/jvcl/packages/d17/JvCoreDesign.rc trunk/jvcl/packages/d17/JvCrypt.RES trunk/jvcl/packages/d17/JvCrypt.dpk trunk/jvcl/packages/d17/JvCrypt.dproj trunk/jvcl/packages/d17/JvCrypt.rc trunk/jvcl/packages/d17/JvCryptDesign.RES trunk/jvcl/packages/d17/JvCryptDesign.dpk trunk/jvcl/packages/d17/JvCryptDesign.dproj trunk/jvcl/packages/d17/JvCryptDesign.rc trunk/jvcl/packages/d17/JvCustom.RES trunk/jvcl/packages/d17/JvCustom.dpk trunk/jvcl/packages/d17/JvCustom.dproj trunk/jvcl/packages/d17/JvCustom.rc trunk/jvcl/packages/d17/JvCustomDesign.RES trunk/jvcl/packages/d17/JvCustomDesign.dpk trunk/jvcl/packages/d17/JvCustomDesign.dproj trunk/jvcl/packages/d17/JvCustomDesign.rc trunk/jvcl/packages/d17/JvDB.RES trunk/jvcl/packages/d17/JvDB.dpk trunk/jvcl/packages/d17/JvDB.dproj trunk/jvcl/packages/d17/JvDB.rc trunk/jvcl/packages/d17/JvDBDesign.RES trunk/jvcl/packages/d17/JvDBDesign.dpk trunk/jvcl/packages/d17/JvDBDesign.dproj trunk/jvcl/packages/d17/JvDBDesign.rc trunk/jvcl/packages/d17/JvDlgs.RES trunk/jvcl/packages/d17/JvDlgs.dpk trunk/jvcl/packages/d17/JvDlgs.dproj trunk/jvcl/packages/d17/JvDlgs.rc trunk/jvcl/packages/d17/JvDlgsDesign.RES trunk/jvcl/packages/d17/JvDlgsDesign.dpk trunk/jvcl/packages/d17/JvDlgsDesign.dproj trunk/jvcl/packages/d17/JvDlgsDesign.rc trunk/jvcl/packages/d17/JvDocking.RES trunk/jvcl/packages/d17/JvDocking.dpk trunk/jvcl/packages/d17/JvDocking.dproj trunk/jvcl/packages/d17/JvDocking.rc trunk/jvcl/packages/d17/JvDockingDesign.RES trunk/jvcl/packages/d17/JvDockingDesign.dpk trunk/jvcl/packages/d17/JvDockingDesign.dproj trunk/jvcl/packages/d17/JvDockingDesign.rc trunk/jvcl/packages/d17/JvDotNetCtrls.RES trunk/jvcl/packages/d17/JvDotNetCtrls.dpk trunk/jvcl/packages/d17/JvDotNetCtrls.dproj trunk/jvcl/packages/d17/JvDotNetCtrls.rc trunk/jvcl/packages/d17/JvDotNetCtrlsDesign.RES trunk/jvcl/packages/d17/JvDotNetCtrlsDesign.dpk trunk/jvcl/packages/d17/JvDotNetCtrlsDesign.dproj trunk/jvcl/packages/d17/JvDotNetCtrlsDesign.rc trunk/jvcl/packages/d17/JvGlobus.RES trunk/jvcl/packages/d17/JvGlobus.dpk trunk/jvcl/packages/d17/JvGlobus.dproj trunk/jvcl/packages/d17/JvGlobus.rc trunk/jvcl/packages/d17/JvGlobusDesign.RES trunk/jvcl/packages/d17/JvGlobusDesign.dpk trunk/jvcl/packages/d17/JvGlobusDesign.dproj trunk/jvcl/packages/d17/JvGlobusDesign.rc trunk/jvcl/packages/d17/JvHMI.RES trunk/jvcl/packages/d17/JvHMI.dpk trunk/jvcl/packages/d17/JvHMI.dproj trunk/jvcl/packages/d17/JvHMI.rc trunk/jvcl/packages/d17/JvHMIDesign.RES trunk/jvcl/packages/d17/JvHMIDesign.dpk trunk/jvcl/packages/d17/JvHMIDesign.dproj trunk/jvcl/packages/d17/JvHMIDesign.rc trunk/jvcl/packages/d17/JvJans.RES trunk/jvcl/packages/d17/JvJans.dpk trunk/jvcl/packages/d17/JvJans.dproj trunk/jvcl/packages/d17/JvJans.rc trunk/jvcl/packages/d17/JvJansDesign.RES trunk/jvcl/packages/d17/JvJansDesign.dpk trunk/jvcl/packages/d17/JvJansDesign.dproj trunk/jvcl/packages/d17/JvJansDesign.rc trunk/jvcl/packages/d17/JvMM.RES trunk/jvcl/packages/d17/JvMM.dpk trunk/jvcl/packages/d17/JvMM.dproj trunk/jvcl/packages/d17/JvMM.rc trunk/jvcl/packages/d17/JvMMDesign.RES trunk/jvcl/packages/d17/JvMMDesign.dpk trunk/jvcl/packages/d17/JvMMDesign.dproj trunk/jvcl/packages/d17/JvMMDesign.rc trunk/jvcl/packages/d17/JvManagedThreads.RES trunk/jvcl/packages/d17/JvManagedThreads.dpk trunk/jvcl/packages/d17/JvManagedThreads.dproj trunk/jvcl/packages/d17/JvManagedThreads.rc trunk/jvcl/packages/d17/JvManagedThreadsDesign.RES trunk/jvcl/packages/d17/JvManagedThreadsDesign.dpk trunk/jvcl/packages/d17/JvManagedThreadsDesign.dproj trunk/jvcl/packages/d17/JvManagedThreadsDesign.rc trunk/jvcl/packages/d17/JvNet.RES trunk/jvcl/packages/d17/JvNet.dpk trunk/jvcl/packages/d17/JvNet.dproj trunk/jvcl/packages/d17/JvNet.rc trunk/jvcl/packages/d17/JvNetDesign.RES trunk/jvcl/packages/d17/JvNetDesign.dpk trunk/jvcl/packages/d17/JvNetDesign.dproj trunk/jvcl/packages/d17/JvNetDesign.rc trunk/jvcl/packages/d17/JvPageComps.RES trunk/jvcl/packages/d17/JvPageComps.dpk trunk/jvcl/packages/d17/JvPageComps.dproj trunk/jvcl/packages/d17/JvPageComps.rc trunk/jvcl/packages/d17/JvPageCompsDesign.RES trunk/jvcl/packages/d17/JvPageCompsDesign.dpk trunk/jvcl/packages/d17/JvPageCompsDesign.dproj trunk/jvcl/packages/d17/JvPageCompsDesign.rc trunk/jvcl/packages/d17/JvPascalInterpreter.RES trunk/jvcl/packages/d17/JvPascalInterpreter.dpk trunk/jvcl/packages/d17/JvPascalInterpreter.dproj trunk/jvcl/packages/d17/JvPascalInterpreter.rc trunk/jvcl/packages/d17/JvPascalInterpreterDesign.RES trunk/jvcl/packages/d17/JvPascalInterpreterDesign.dpk trunk/jvcl/packages/d17/JvPascalInterpreterDesign.dproj trunk/jvcl/packages/d17/JvPascalInterpreterDesign.rc trunk/jvcl/packages/d17/JvPluginSystem.RES trunk/jvcl/packages/d17/JvPluginSystem.dpk trunk/jvcl/packages/d17/JvPluginSystem.dproj trunk/jvcl/packages/d17/JvPluginSystem.rc trunk/jvcl/packages/d17/JvPluginSystemDesign.RES trunk/jvcl/packages/d17/JvPluginSystemDesign.dpk trunk/jvcl/packages/d17/JvPluginSystemDesign.dproj trunk/jvcl/packages/d17/JvPluginSystemDesign.rc trunk/jvcl/packages/d17/JvPrintPreview.RES trunk/jvcl/packages/d17/JvPrintPreview.dpk trunk/jvcl/packages/d17/JvPrintPreview.dproj trunk/jvcl/packages/d17/JvPrintPreview.rc trunk/jvcl/packages/d17/JvPrintPreviewDesign.RES trunk/jvcl/packages/d17/JvPrintPreviewDesign.dpk trunk/jvcl/packages/d17/JvPrintPreviewDesign.dproj trunk/jvcl/packages/d17/JvPrintPreviewDesign.rc trunk/jvcl/packages/d17/JvRuntimeDesign.RES trunk/jvcl/packages/d17/JvRuntimeDesign.dpk trunk/jvcl/packages/d17/JvRuntimeDesign.dproj trunk/jvcl/packages/d17/JvRuntimeDesign.rc trunk/jvcl/packages/d17/JvRuntimeDesignDesign.RES trunk/jvcl/packages/d17/JvRuntimeDesignDesign.dpk trunk/jvcl/packages/d17/JvRuntimeDesignDesign.dproj trunk/jvcl/packages/d17/JvRuntimeDesignDesign.rc trunk/jvcl/packages/d17/JvStdCtrls.RES trunk/jvcl/packages/d17/JvStdCtrls.dpk trunk/jvcl/packages/d17/JvStdCtrls.dproj trunk/jvcl/packages/d17/JvStdCtrls.rc trunk/jvcl/packages/d17/JvStdCtrlsDesign.RES trunk/jvcl/packages/d17/JvStdCtrlsDesign.dpk trunk/jvcl/packages/d17/JvStdCtrlsDesign.dproj trunk/jvcl/packages/d17/JvStdCtrlsDesign.rc trunk/jvcl/packages/d17/JvSystem.RES trunk/jvcl/packages/d17/JvSystem.dpk trunk/jvcl/packages/d17/JvSystem.dproj trunk/jvcl/packages/d17/JvSystem.rc trunk/jvcl/packages/d17/JvSystemDesign.RES trunk/jvcl/packages/d17/JvSystemDesign.dpk trunk/jvcl/packages/d17/JvSystemDesign.dproj trunk/jvcl/packages/d17/JvSystemDesign.rc trunk/jvcl/packages/d17/JvTimeFramework.RES trunk/jvcl/packages/d17/JvTimeFramework.dpk trunk/jvcl/packages/d17/JvTimeFramework.dproj trunk/jvcl/packages/d17/JvTimeFramework.rc trunk/jvcl/packages/d17/JvTimeFrameworkDesign.RES trunk/jvcl/packages/d17/JvTimeFrameworkDesign.dpk trunk/jvcl/packages/d17/JvTimeFrameworkDesign.dproj trunk/jvcl/packages/d17/JvTimeFrameworkDesign.rc trunk/jvcl/packages/d17/JvWizards.RES trunk/jvcl/packages/d17/JvWizards.dpk trunk/jvcl/packages/d17/JvWizards.dproj trunk/jvcl/packages/d17/JvWizards.rc trunk/jvcl/packages/d17/JvWizardsDesign.RES trunk/jvcl/packages/d17/JvWizardsDesign.dpk trunk/jvcl/packages/d17/JvWizardsDesign.dproj trunk/jvcl/packages/d17/JvWizardsDesign.rc trunk/jvcl/packages/d17/JvXPCtrls.RES trunk/jvcl/packages/d17/JvXPCtrls.dpk trunk/jvcl/packages/d17/JvXPCtrls.dproj trunk/jvcl/packages/d17/JvXPCtrls.rc trunk/jvcl/packages/d17/JvXPCtrlsDesign.RES trunk/jvcl/packages/d17/JvXPCtrlsDesign.dpk trunk/jvcl/packages/d17/JvXPCtrlsDesign.dproj trunk/jvcl/packages/d17/JvXPCtrlsDesign.rc trunk/jvcl/packages/d17/d17.txt trunk/jvcl/packages/d17/template.dpk trunk/jvcl/packages/d17/template.dproj trunk/jvcl/packages/d17/template.rc trunk/jvcl/packages/d17_x64/ trunk/jvcl/packages/d17_x64/JvAppFrm.RES trunk/jvcl/packages/d17_x64/JvAppFrm.dpk trunk/jvcl/packages/d17_x64/JvAppFrm.dproj trunk/jvcl/packages/d17_x64/JvAppFrm.rc trunk/jvcl/packages/d17_x64/JvBands.RES trunk/jvcl/packages/d17_x64/JvBands.dpk trunk/jvcl/packages/d17_x64/JvBands.dproj trunk/jvcl/packages/d17_x64/JvBands.rc trunk/jvcl/packages/d17_x64/JvCmp.RES trunk/jvcl/packages/d17_x64/JvCmp.dpk trunk/jvcl/packages/d17_x64/JvCmp.dproj trunk/jvcl/packages/d17_x64/JvCmp.rc trunk/jvcl/packages/d17_x64/JvControls.RES trunk/jvcl/packages/d17_x64/JvControls.dpk trunk/jvcl/packages/d17_x64/JvControls.dproj trunk/jvcl/packages/d17_x64/JvControls.rc trunk/jvcl/packages/d17_x64/JvCore.RES trunk/jvcl/packages/d17_x64/JvCore.dpk trunk/jvcl/packages/d17_x64/JvCore.dproj trunk/jvcl/packages/d17_x64/JvCore.rc trunk/jvcl/packages/d17_x64/JvCrypt.RES trunk/jvcl/packages/d17_x64/JvCrypt.dpk trunk/jvcl/packages/d17_x64/JvCrypt.dproj trunk/jvcl/packages/d17_x64/JvCrypt.rc trunk/jvcl/packages/d17_x64/JvCustom.RES trunk/jvcl/packages/d17_x64/JvCustom.dpk trunk/jvcl/packages/d17_x64/JvCustom.dproj trunk/jvcl/packages/d17_x64/JvCustom.rc trunk/jvcl/packages/d17_x64/JvDB.RES trunk/jvcl/packages/d17_x64/JvDB.dpk trunk/jvcl/packages/d17_x64/JvDB.dproj trunk/jvcl/packages/d17_x64/JvDB.rc trunk/jvcl/packages/d17_x64/JvDlgs.RES trunk/jvcl/packages/d17_x64/JvDlgs.dpk trunk/jvcl/packages/d17_x64/JvDlgs.dproj trunk/jvcl/packages/d17_x64/JvDlgs.rc trunk/jvcl/packages/d17_x64/JvDocking.RES trunk/jvcl/packages/d17_x64/JvDocking.dpk trunk/jvcl/packages/d17_x64/JvDocking.dproj trunk/jvcl/packages/d17_x64/JvDocking.rc trunk/jvcl/packages/d17_x64/JvDotNetCtrls.RES trunk/jvcl/packages/d17_x64/JvDotNetCtrls.dpk trunk/jvcl/packages/d17_x64/JvDotNetCtrls.dproj trunk/jvcl/packages/d17_x64/JvDotNetCtrls.rc trunk/jvcl/packages/d17_x64/JvGlobus.RES trunk/jvcl/packages/d17_x64/JvGlobus.dpk trunk/jvcl/packages/d17_x64/JvGlobus.dproj trunk/jvcl/packages/d17_x64/JvGlobus.rc trunk/jvcl/packages/d17_x64/JvHMI.RES trunk/jvcl/packages/d17_x64/JvHMI.dpk trunk/jvcl/packages/d17_x64/JvHMI.dproj trunk/jvcl/packages/d17_x64/JvHMI.rc trunk/jvcl/packages/d17_x64/JvJans.RES trunk/jvcl/packages/d17_x64/JvJans.dpk trunk/jvcl/packages/d17_x64/JvJans.dproj trunk/jvcl/packages/d17_x64/JvJans.rc trunk/jvcl/packages/d17_x64/JvMM.RES trunk/jvcl/packages/d17_x64/JvMM.dpk trunk/jvcl/packages/d17_x64/JvMM.dproj trunk/jvcl/packages/d17_x64/JvMM.rc trunk/jvcl/packages/d17_x64/JvManagedThreads.RES trunk/jvcl/packages/d17_x64/JvManagedThreads.dpk trunk/jvcl/packages/d17_x64/JvManagedThreads.dproj trunk/jvcl/packages/d17_x64/JvManagedThreads.rc trunk/jvcl/packages/d17_x64/JvNet.RES trunk/jvcl/packages/d17_x64/JvNet.dpk trunk/jvcl/packages/d17_x64/JvNet.dproj trunk/jvcl/packages/d17_x64/JvNet.rc trunk/jvcl/packages/d17_x64/JvPageComps.RES trunk/jvcl/packages/d17_x64/JvPageComps.dpk trunk/jvcl/packages/d17_x64/JvPageComps.dproj trunk/jvcl/packages/d17_x64/JvPageComps.rc trunk/jvcl/packages/d17_x64/JvPascalInterpreter.RES trunk/jvcl/packages/d17_x64/JvPascalInterpreter.dpk trunk/jvcl/packages/d17_x64/JvPascalInterpreter.dproj trunk/jvcl/packages/d17_x64/JvPascalInterpreter.rc trunk/jvcl/packages/d17_x64/JvPluginSystem.RES trunk/jvcl/packages/d17_x64/JvPluginSystem.dpk trunk/jvcl/packages/d17_x64/JvPluginSystem.dproj trunk/jvcl/packages/d17_x64/JvPluginSystem.rc trunk/jvcl/packages/d17_x64/JvPrintPreview.RES trunk/jvcl/packages/d17_x64/JvPrintPreview.dpk trunk/jvcl/packages/d17_x64/JvPrintPreview.dproj trunk/jvcl/packages/d17_x64/JvPrintPreview.rc trunk/jvcl/packages/d17_x64/JvRuntimeDesign.RES trunk/jvcl/packages/d17_x64/JvRuntimeDesign.dpk trunk/jvcl/packages/d17_x64/JvRuntimeDesign.dproj trunk/jvcl/packages/d17_x64/JvRuntimeDesign.rc trunk/jvcl/packages/d17_x64/JvStdCtrls.RES trunk/jvcl/packages/d17_x64/JvStdCtrls.dpk trunk/jvcl/packages/d17_x64/JvStdCtrls.dproj trunk/jvcl/packages/d17_x64/JvStdCtrls.rc trunk/jvcl/packages/d17_x64/JvSystem.RES trunk/jvcl/packages/d17_x64/JvSystem.dpk trunk/jvcl/packages/d17_x64/JvSystem.dproj trunk/jvcl/packages/d17_x64/JvSystem.rc trunk/jvcl/packages/d17_x64/JvTimeFramework.RES trunk/jvcl/packages/d17_x64/JvTimeFramework.dpk trunk/jvcl/packages/d17_x64/JvTimeFramework.dproj trunk/jvcl/packages/d17_x64/JvTimeFramework.rc trunk/jvcl/packages/d17_x64/JvWizards.RES trunk/jvcl/packages/d17_x64/JvWizards.dpk trunk/jvcl/packages/d17_x64/JvWizards.dproj trunk/jvcl/packages/d17_x64/JvWizards.rc trunk/jvcl/packages/d17_x64/JvXPCtrls.RES trunk/jvcl/packages/d17_x64/JvXPCtrls.dpk trunk/jvcl/packages/d17_x64/JvXPCtrls.dproj trunk/jvcl/packages/d17_x64/JvXPCtrls.rc trunk/jvcl/packages/d17_x64/d17.txt trunk/jvcl/packages/d17_x64/template.dpk trunk/jvcl/packages/d17_x64/template.dproj trunk/jvcl/packages/d17_x64/template.rc Modified: trunk/jvcl/clean.bat =================================================================== --- trunk/jvcl/clean.bat 2012-09-09 12:00:18 UTC (rev 13414) +++ trunk/jvcl/clean.bat 2012-09-10 09:51:54 UTC (rev 13415) @@ -48,6 +48,12 @@ del /S lib\d16\win64\*.dcp lib\d16\win64\*.bpl lib\d16\win64\*.dfm lib\d16\win64\*.obj lib\d16\win64\*.bpi lib\d16\win64\*.lib >NUL del /S lib\d16\win64\debug\*.dcp lib\d16\win64\debug\*.bpl lib\d16\win64\debug\*.dfm lib\d16\win64\debug\*.obj lib\d16\win64\debug\*.bpi lib\d16\win64\debug\*.lib >NUL +del /S lib\d17\win32\*.dcp lib\d17\win32\*.bpl lib\d17\win32\*.dfm lib\d17\win32\*.obj lib\d17\win32\*.bpi lib\d17\win32\*.lib >NUL +del /S lib\d17\win32\debug\*.dcp lib\d17\win32\debug\*.bpl lib\d17\win32\debug\*.dfm lib\d17\win32\debug\*.obj lib\d17\win32\debug\*.bpi lib\d17\win32\debug\*.lib >NUL + +del /S lib\d17\win64\*.dcp lib\d17\win64\*.bpl lib\d17\win64\*.dfm lib\d17\win64\*.obj lib\d17\win64\*.bpi lib\d17\win64\*.lib >NUL +del /S lib\d17\win64\debug\*.dcp lib\d17\win64\debug\*.bpl lib\d17\win64\debug\*.dfm lib\d17\win64\debug\*.obj lib\d17\win64\debug\*.bpi lib\d17\win64\debug\*.lib >NUL + del /S run\*.hpp >NUL del /S design\*.hpp >NUL del /S common\*.hpp >NUL Modified: trunk/jvcl/common/jvcl.inc =================================================================== --- trunk/jvcl/common/jvcl.inc 2012-09-09 12:00:18 UTC (rev 13414) +++ trunk/jvcl/common/jvcl.inc 2012-09-10 09:51:54 UTC (rev 13415) @@ -104,6 +104,16 @@ {$DEFINE JVCL_CONFIGURED} {$ENDIF DELPHI16} {-----------------------------------------------------------------------------} +{$IFDEF DELPHI17} + {$IFDEF CPUX86} + {$I jvcld17.inc} + {$ENDIF CPUX86} + {$IFDEF CPUX64} + {$I jvcld17_x64.inc} + {$ENDIF CPUX64} + {$DEFINE JVCL_CONFIGURED} +{$ENDIF DELPHI17} +{-----------------------------------------------------------------------------} { C++Builder } {-----------------------------------------------------------------------------} {$IFDEF BCB6} @@ -145,6 +155,16 @@ {$ENDIF CPUX64} {$DEFINE JVCL_CONFIGURED} {$ENDIF BCB16} +{-----------------------------------------------------------------------------} +{$IFDEF BCB17} + {$IFDEF CPUX86} + {$I jvcld17win32.inc} // same include file for BDS based C++ + {$ENDIF CPUX86} + {$IFDEF CPUX64} + //there is no 64-bit C++Builder yet + {$ENDIF CPUX64} + {$DEFINE JVCL_CONFIGURED} +{$ENDIF BCB17} {$ENDIF DEFAULT_JVCL_INC} {-----------------------------------------------------------------------------} Added: trunk/jvcl/common/jvcld17.inc =================================================================== --- trunk/jvcl/common/jvcld17.inc (rev 0) +++ trunk/jvcl/common/jvcld17.inc 2012-09-10 09:51:54 UTC (rev 13415) @@ -0,0 +1,152 @@ +{----------------------------------------------------------------------------- +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 +http://www.mozilla.org/MPL/MPL-1.1.html + +Software distributed under the License is distributed on an "AS IS" basis, +WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for +the specific language governing rights and limitations under the License. + +The Original Code is: JVCL.INC, released on 2004-12-22. + +Last Modified: 2004-12-22 + +You may retrieve the latest version of this file at the Project JEDI's JVCL home page, +located at http://jvcl.delphi-jedi.org + +Known Issues: +-----------------------------------------------------------------------------} + +{------------------------------------------------------------------------------} +{ This file contains the default JVCL configuration. } +{------------------------------------------------------------------------------} + +{%hidden%} +{ Enable this define if you are using the Delphi 6, 7 or 2005 Personal Edition. } +{.$DEFINE DelphiPersonalEdition} + +{%hidden%} +{ The installer enables this define if you compile JVCL for Delphi and C++ Builder. It disables + the class constructor/destructor support that is not supported by C++Builder. } +{$DEFINE JVCL_GENERATE_CPP_PACKAGE_FILES} + +{ Enable this define if you have the dxgettext (http://dxgettext.sourceforge.net) +translation tool installed and want to use it with the JVCL. } +{.$DEFINE USE_DXGETTEXT} + +{ Enable this define if you use/have QuickReport } +{.$DEFINE JVCL_UseQuickReport} + +{ Enable this define if you have QReport 4 installed. This will require qr4rund7 instead +of qrpt. NB! JVCL_UseQuickReport must also be defined} +{.$DEFINE QREPORT4} + +{ Enable this define if you have installed the Internet Components with the Delphi installer } +{.$DEFINE INTERNET_COMPONENTS} + +{ Activate this define if you have Mike Lischke's Theme Manager +(http://www.lischke-online.de) installed and available and +you are using D6/BCB6 or below. The ThemeManager package must +be compiled as "never-build package". } +{.$DEFINE JVCLThemesEnabled} + +{ Activates MIDAS components (DBRemoteLogin). +NOTE: if you activate this, you must also manually add JvDlgsXXX.dcp to +the requires node of JvDBXXX.bpk !!! } +{.$DEFINE Jv_MIDAS} + +{ This define enables GIF image support. Deactivate this define +if you are using another GIF image support library. } +{$DEFINE USE_JV_GIF} + +{ Activate this define if you do not want to use TGauge Borland sample +component in TDBProgress component and FileUtil routines. In this case +TProgressBar component will be used. } +{$DEFINE USE_PROGRESSBAR} + +{ This define controls whether FourDigitYear variable is used to control +date format in TDateEdit, TDBDateEdit components. When this define is not +active the ShortDateFormat variable is used instead. } +{$DEFINE USE_FOUR_DIGIT_YEAR} + +{ This define controls whether a popup calendar is used as default +instead of a modal dialog in TDateEdit, TDBDateEdit components. } +{$DEFINE DEFAULT_POPUP_CALENDAR} + +{ This define controls whether JvInterpreter handles +OLE automation calls (for VCL only). } +{$DEFINE JvInterpreter_OLEAUTO} + +{ Used by JvTimeFrameWork, see JvTFDays.pas for more info on time blocks. } +{$DEFINE Jv_TIMEBLOCKS} + +{ This activates the unit versioning system where each JVCL unit gets a record that defines +which revision, date and filename the unit has. } +{.$DEFINE UNITVERSIONING} + +// ********************************************************************* +// Start Definition of Third Party Components +// ********************************************************************* + +{ Activates SM-Export Wrapper Components (in DBActions) +For further informations have a look at http://www.scalabium.com +ATTENTION : +BEFORE YOU ACTIVATE THIS OPTION YOU MUST CHANGE THE +SMEXPORT PACKAGE FROM AUTOMATIC COMPILE NO MANUAL COMPILE } +{.$DEFINE USE_3RDPARTY_SMEXPORT} + +{ Activates SM-Import Wrapper Components (in DBActions) +For further informations have a look at http://www.scalabium.com +ATTENTION : +BEFORE YOU ACTIVATE THIS OPTION YOU MUST CHANGE THE +SMIMPORT PACKAGE FROM AUTOMATIC COMPILE NO MANUAL COMPILE } +{.$DEFINE USE_3RDPARTY_SMIMPORT} + +{ Activates Support for the DevExpress cxEditor-Controls +For further informations have a look at http://www.devexpress.com } +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXEDITOR} + +{ Activates Support for the DevExpress cxGrid-Controls +For further informations have a look at http://www.devexpress.com } +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXGRID} + +{ Activates Support for the DevExpress cxVerticalGrid-Controls +For further informations have a look at http://www.devexpress.com } +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID} + +{ Activates Support for the DevExpress cxPivotGrid-Controls +For further informations have a look at http://www.devexpress.com } +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID} + +{ Activates Support for the DevExpress cxTreeList-Controls +For further informations have a look at http://www.devexpress.com } +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXTREELIST} + +{ Activates the Internet Direct (Indy)-Components +For further informations have a look at http://www.indyproject.org } +{.$DEFINE USE_3RDPARTY_INDY} + +{ Activates the Internet Direct (Indy)-Components version 10. +You MUST also activate $DEFINE USE_3RDPARTY_INDY for the compilation to work +For further informations have a look at http://www.indyproject.org } +{.$DEFINE USE_3RDPARTY_INDY10} + +{ Activates Support for the ICS-Components (Internet component suite +For further informations have a look at http://www.overbyte.be/ +ATTENTION : +BEFORE YOU ACTIVATE THIS OPTION YOU MUST CHANGE THE +ICS* PACKAGE FROM AUTOMATIC COMPILE TO MANUAL COMPILE } +{.$DEFINE USE_3RDPARTY_ICS} + +{ Activates Support for Direct Oracle Access Components +For further informations have a look at http://www.allroundautomations.com } +{.$DEFINE USE_3RDPARTY_DOA} + +{ Activates Support for the CoreLabs VCL Oracle Data Access Components +For further informations have a look at http://www.crlab.com } +{.$DEFINE USE_3RDPARTY_CORELAB_ODAC} + +{ Activates Support for the DevArt VCL Universal Data Access Components +For further informations have a look at http://www.devart.com } +{.$DEFINE USE_3RDPARTY_DEVART_UNIDAC} Added: trunk/jvcl/common/jvcld17_x64.inc =================================================================== --- trunk/jvcl/common/jvcld17_x64.inc (rev 0) +++ trunk/jvcl/common/jvcld17_x64.inc 2012-09-10 09:51:54 UTC (rev 13415) @@ -0,0 +1,152 @@ +{----------------------------------------------------------------------------- +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 +http://www.mozilla.org/MPL/MPL-1.1.html + +Software distributed under the License is distributed on an "AS IS" basis, +WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for +the specific language governing rights and limitations under the License. + +The Original Code is: JVCL.INC, released on 2004-12-22. + +Last Modified: 2004-12-22 + +You may retrieve the latest version of this file at the Project JEDI's JVCL home page, +located at http://jvcl.delphi-jedi.org + +Known Issues: +-----------------------------------------------------------------------------} + +{------------------------------------------------------------------------------} +{ This file contains the default JVCL configuration. } +{------------------------------------------------------------------------------} + +{%hidden%} +{ Enable this define if you are using the Delphi 6, 7 or 2005 Personal Edition. } +{.$DEFINE DelphiPersonalEdition} + +{%hidden%} +{ The installer enables this define if you compile JVCL for Delphi and C++ Builder. It disables + the class constructor/destructor support that is not supported by C++Builder. } +{$DEFINE JVCL_GENERATE_CPP_PACKAGE_FILES} + +{ Enable this define if you have the dxgettext (http://dxgettext.sourceforge.net) +translation tool installed and want to use it with the JVCL. } +{.$DEFINE USE_DXGETTEXT} + +{ Enable this define if you use/have QuickReport } +{.$DEFINE JVCL_UseQuickReport} + +{ Enable this define if you have QReport 4 installed. This will require qr4rund7 instead +of qrpt. NB! JVCL_UseQuickReport must also be defined} +{.$DEFINE QREPORT4} + +{ Enable this define if you have installed the Internet Components with the Delphi installer } +{.$DEFINE INTERNET_COMPONENTS} + +{ Activate this define if you have Mike Lischke's Theme Manager +(http://www.lischke-online.de) installed and available and +you are using D6/BCB6 or below. The ThemeManager package must +be compiled as "never-build package". } +{.$DEFINE JVCLThemesEnabled} + +{ Activates MIDAS components (DBRemoteLogin). +NOTE: if you activate this, you must also manually add JvDlgsXXX.dcp to +the requires node of JvDBXXX.bpk !!! } +{.$DEFINE Jv_MIDAS} + +{ This define enables GIF image support. Deactivate this define +if you are using another GIF image support library. } +{$DEFINE USE_JV_GIF} + +{ Activate this define if you do not want to use TGauge Borland sample +component in TDBProgress component and FileUtil routines. In this case +TProgressBar component will be used. } +{$DEFINE USE_PROGRESSBAR} + +{ This define controls whether FourDigitYear variable is used to control +date format in TDateEdit, TDBDateEdit components. When this define is not +active the ShortDateFormat variable is used instead. } +{$DEFINE USE_FOUR_DIGIT_YEAR} + +{ This define controls whether a popup calendar is used as default +instead of a modal dialog in TDateEdit, TDBDateEdit components. } +{$DEFINE DEFAULT_POPUP_CALENDAR} + +{ This define controls whether JvInterpreter handles +OLE automation calls (for VCL only). } +{$DEFINE JvInterpreter_OLEAUTO} + +{ Used by JvTimeFrameWork, see JvTFDays.pas for more info on time blocks. } +{$DEFINE Jv_TIMEBLOCKS} + +{ This activates the unit versioning system where each JVCL unit gets a record that defines +which revision, date and filename the unit has. } +{.$DEFINE UNITVERSIONING} + +// ********************************************************************* +// Start Definition of Third Party Components +// ********************************************************************* + +{ Activates SM-Export Wrapper Components (in DBActions) +For further informations have a look at http://www.scalabium.com +ATTENTION : +BEFORE YOU ACTIVATE THIS OPTION YOU MUST CHANGE THE +SMEXPORT PACKAGE FROM AUTOMATIC COMPILE NO MANUAL COMPILE } +{.$DEFINE USE_3RDPARTY_SMEXPORT} + +{ Activates SM-Import Wrapper Components (in DBActions) +For further informations have a look at http://www.scalabium.com +ATTENTION : +BEFORE YOU ACTIVATE THIS OPTION YOU MUST CHANGE THE +SMIMPORT PACKAGE FROM AUTOMATIC COMPILE NO MANUAL COMPILE } +{.$DEFINE USE_3RDPARTY_SMIMPORT} + +{ Activates Support for the DevExpress cxEditor-Controls +For further informations have a look at http://www.devexpress.com } +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXEDITOR} + +{ Activates Support for the DevExpress cxGrid-Controls +For further informations have a look at http://www.devexpress.com } +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXGRID} + +{ Activates Support for the DevExpress cxVerticalGrid-Controls +For further informations have a look at http://www.devexpress.com } +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID} + +{ Activates Support for the DevExpress cxPivotGrid-Controls +For further informations have a look at http://www.devexpress.com } +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID} + +{ Activates Support for the DevExpress cxTreeList-Controls +For further informations have a look at http://www.devexpress.com } +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXTREELIST} + +{ Activates the Internet Direct (Indy)-Components +For further informations have a look at http://www.indyproject.org } +{.$DEFINE USE_3RDPARTY_INDY} + +{ Activates the Internet Direct (Indy)-Components version 10. +You MUST also activate $DEFINE USE_3RDPARTY_INDY for the compilation to work +For further informations have a look at http://www.indyproject.org } +{.$DEFINE USE_3RDPARTY_INDY10} + +{ Activates Support for the ICS-Components (Internet component suite +For further informations have a look at http://www.overbyte.be/ +ATTENTION : +BEFORE YOU ACTIVATE THIS OPTION YOU MUST CHANGE THE +ICS* PACKAGE FROM AUTOMATIC COMPILE TO MANUAL COMPILE } +{.$DEFINE USE_3RDPARTY_ICS} + +{ Activates Support for Direct Oracle Access Components +For further informations have a look at http://www.allroundautomations.com } +{.$DEFINE USE_3RDPARTY_DOA} + +{ Activates Support for the CoreLabs VCL Oracle Data Access Components +For further informations have a look at http://www.crlab.com } +{.$DEFINE USE_3RDPARTY_CORELAB_ODAC} + +{ Activates Support for the DevArt VCL Universal Data Access Components +For further informations have a look at http://www.devart.com } +{.$DEFINE USE_3RDPARTY_DEVART_UNIDAC} Modified: trunk/jvcl/design/JvControlsReg.pas =================================================================== --- trunk/jvcl/design/JvControlsReg.pas 2012-09-09 12:00:18 UTC (rev 13414) +++ trunk/jvcl/design/JvControlsReg.pas 2012-09-10 09:51:54 UTC (rev 13415) @@ -34,8 +34,14 @@ implementation uses + {$IFDEF HAS_UNIT_SYSTEM_ACTIONS} + System.Actions, + {$ENDIF HAS_UNIT_SYSTEM_ACTIONS} Classes, Controls, ImgList, ActnList, + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.UITypes, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} DesignEditors, DesignIntf, JvDsgnConsts, JvDsgnIntf, JvCaptionButton, JvDriveCtrls, JvRegistryTreeView, JvPlaylist, Modified: trunk/jvcl/design/JvCoreReg.pas =================================================================== --- trunk/jvcl/design/JvCoreReg.pas 2012-09-09 12:00:18 UTC (rev 13414) +++ trunk/jvcl/design/JvCoreReg.pas 2012-09-10 09:51:54 UTC (rev 13415) @@ -36,6 +36,9 @@ implementation uses + {$IFDEF HAS_UNIT_SYSTEM_ACTIONS} + System.Actions, + {$ENDIF HAS_UNIT_SYSTEM_ACTIONS} Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ActnList, ImgList, ToolsAPI, Modified: trunk/jvcl/design/JvCustomReg.pas =================================================================== --- trunk/jvcl/design/JvCustomReg.pas 2012-09-09 12:00:18 UTC (rev 13414) +++ trunk/jvcl/design/JvCustomReg.pas 2012-09-10 09:51:54 UTC (rev 13415) @@ -41,6 +41,9 @@ ExptIntf, {$ENDIF !COMPILER7_UP} ToolsAPI, + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.UITypes, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} JclSchedule, JvDsgnConsts, JvTrayIcon, JvThumbImage, JvThumbnails, JvThumbViews, JvBalloonHint, Modified: trunk/jvcl/design/JvDBReg.pas =================================================================== --- trunk/jvcl/design/JvDBReg.pas 2012-09-09 12:00:18 UTC (rev 13414) +++ trunk/jvcl/design/JvDBReg.pas 2012-09-10 09:51:54 UTC (rev 13415) @@ -34,6 +34,9 @@ implementation uses + {$IFDEF HAS_UNIT_SYSTEM_ACTIONS} + System.Actions, + {$ENDIF HAS_UNIT_SYSTEM_ACTIONS} Classes, ComCtrls, ActnList, DesignEditors, DesignIntf, JvDsgnConsts, Modified: trunk/jvcl/design/JvDlgsReg.pas =================================================================== --- trunk/jvcl/design/JvDlgsReg.pas 2012-09-09 12:00:18 UTC (rev 13414) +++ trunk/jvcl/design/JvDlgsReg.pas 2012-09-10 09:51:54 UTC (rev 13415) @@ -34,6 +34,9 @@ implementation uses + {$IFDEF HAS_UNIT_SYSTEM_ACTIONS} + System.Actions, + {$ENDIF HAS_UNIT_SYSTEM_ACTIONS} Classes, Dialogs, ActnList, DesignEditors, DesignIntf, JvDsgnConsts, Modified: trunk/jvcl/design/JvPageListTreeViewReg.pas =================================================================== --- trunk/jvcl/design/JvPageListTreeViewReg.pas 2012-09-09 12:00:18 UTC (rev 13414) +++ trunk/jvcl/design/JvPageListTreeViewReg.pas 2012-09-10 09:51:54 UTC (rev 13415) @@ -39,6 +39,9 @@ uses Classes, ImgList, ComCtrls, VCLEditors, DesignEditors, DesignIntf, DesignMenus, + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.UITypes, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} JvDsgnConsts, JvNavigationPane, JvPageList, JvPageListTreeView, JvPageListEditors, JvNavPaneEditors, JvTreeItemsEditorForm, JvPageLinkEditorForm, JvPageListEditorForm; Modified: trunk/jvcl/design/JvPluginWizard.pas =================================================================== --- trunk/jvcl/design/JvPluginWizard.pas 2012-09-09 12:00:18 UTC (rev 13414) +++ trunk/jvcl/design/JvPluginWizard.pas 2012-09-10 09:51:54 UTC (rev 13415) @@ -491,6 +491,7 @@ {$ENDIF BCB} {$IFDEF DELPHI} Repository := Installations.DelphiInstallationFromVersion[ + {$IFDEF DELPHI17} 17 {$ENDIF} {$IFDEF DELPHI16} 16 {$ENDIF} {$IFDEF DELPHI15} 15 {$ENDIF} {$IFDEF DELPHI14} 14 {$ENDIF} @@ -812,6 +813,9 @@ {$IFDEF COMPILER16} Project.AddFile('JvCoreD16R.bpi', False) {$ENDIF COMPILER16} + {$IFDEF COMPILER17} + Project.AddFile('JvCoreD17R.bpi', False) + {$ENDIF COMPILER17} end end else @@ -846,6 +850,9 @@ {$IFDEF COMPILER16} Project.AddFile('JvCoreD16R.dcp', False); {$ENDIF COMPILER16} + {$IFDEF COMPILER17} + Project.AddFile('JvCoreD17R.dcp', False); + {$ENDIF COMPILER17} end end; Modified: trunk/jvcl/design/JvStdCtrlsReg.pas =================================================================== --- trunk/jvcl/design/JvStdCtrlsReg.pas 2012-09-09 12:00:18 UTC (rev 13414) +++ trunk/jvcl/design/JvStdCtrlsReg.pas 2012-09-10 09:51:54 UTC (rev 13415) @@ -37,6 +37,9 @@ Classes, Controls, FiltEdit, ImgList, + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.UITypes, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} DesignEditors, DesignIntf, JvDsgnConsts, JvTypes, JvRichEdit, Modified: trunk/jvcl/design/JvXPCtrlsReg.pas =================================================================== --- trunk/jvcl/design/JvXPCtrlsReg.pas 2012-09-09 12:00:18 UTC (rev 13414) +++ trunk/jvcl/design/JvXPCtrlsReg.pas 2012-09-10 09:51:54 UTC (rev 13415) @@ -38,6 +38,9 @@ uses Classes, ImgList, + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.UITypes, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} DesignIntf, DesignEditors, VCLEditors, JvDsgnConsts, JvXPProgressBar, JvXPCore, JvXPPropertyEditors, JvXPBar, JvXPContainer, Modified: trunk/jvcl/devtools/PackagesGenerator/GenerateDefines.pas =================================================================== --- trunk/jvcl/devtools/PackagesGenerator/GenerateDefines.pas 2012-09-09 12:00:18 UTC (rev 13414) +++ trunk/jvcl/devtools/PackagesGenerator/GenerateDefines.pas 2012-09-10 09:51:54 UTC (rev 13415) @@ -42,6 +42,9 @@ implementation uses + {$IFDEF HAS_UNIT_TYPES} + System.Types, + {$ENDIF HAS_UNIT_TYPES} SysUtils, JclStrings; { TDefine } Modified: trunk/jvcl/devtools/bin/pgEdit.xml =================================================================== --- trunk/jvcl/devtools/bin/pgEdit.xml 2012-09-09 12:00:18 UTC (rev 13414) +++ trunk/jvcl/devtools/bin/pgEdit.xml 2012-09-10 09:51:54 UTC (rev 13415) @@ -72,18 +72,20 @@ <target name="d15"/> <target name="d16"/> <target name="d16_x64"/> + <target name="d17"/> + <target name="d17_x64"/> <target name="help" defines="HELP"/> </targets> <aliases> - <alias name="D" value="d6,d6p,d7,d7p,d9,d9p,d10,d10p,d11,d12,d14,d15,d16,d16_x64"/> - <alias name="C" value="c6,c6p,d10,d10p,d11,d12,d14,d15,d16,d16_x64"/> - <alias name="DB" value="c6,d6,d7,d9,d10,d11,d12,d14,d15,d16,d16_x64"/> - <alias name="DB_win32" value="c6,d6,d7,d9,d10,d11,d12,d14,d15,d16"/> - <alias name="BDE" value="c6,d6,d7,d9,d10,d11,d12,d14,d15,d16"/> - <alias name="allv7up" value="d7,d7p,d9,d9p,d10,d10p,d11,d12,d14,d15,d16,d16_x64"/> - <alias name="allv9up" value="d9,d9p,d10,d10p,d11,d12,d14,d15,d16,d16_x64"/> - <alias name="allv12up" value="d12,d14,d15,d16,d16_x64"/> - <alias name="all_win32" value="c6,c6p,d6,d6p,d7,d7p,d9,d9p,d10,d10p,d11,d12,d14,d15,d16"/> + <alias name="D" value="d6,d6p,d7,d7p,d9,d9p,d10,d10p,d11,d12,d14,d15,d16,d16_x64,d17,d17_x64"/> + <alias name="C" value="c6,c6p,d10,d10p,d11,d12,d14,d15,d16,d16_x64,d17,d17_x64"/> + <alias name="DB" value="c6,d6,d7,d9,d10,d11,d12,d14,d15,d16,d16_x64,d17,d17_x64"/> + <alias name="DB_win32" value="c6,d6,d7,d9,d10,d11,d12,d14,d15,d16,d17"/> + <alias name="BDE" value="c6,d6,d7,d9,d10,d11,d12,d14,d15,d16,d17"/> + <alias name="allv7up" value="d7,d7p,d9,d9p,d10,d10p,d11,d12,d14,d15,d16,d16_x64,d17,d17_x64"/> + <alias name="allv9up" value="d9,d9p,d10,d10p,d11,d12,d14,d15,d16,d16_x64,d17,d17_x64"/> + <alias name="allv12up" value="d12,d14,d15,d16,d16_x64,d17,d17_x64"/> + <alias name="all_win32" value="c6,c6p,d6,d6p,d7,d7p,d9,d9p,d10,d10p,d11,d12,d14,d15,d16,d17"/> </aliases> <ProjectProperties> <ProjectProperty name="VersionMajorNumber" value="3"/> Property changes on: trunk/jvcl/include/d17 ___________________________________________________________________ Added: svn:ignore + *.hpp Modified: trunk/jvcl/install/JVCLInstall/DelphiData.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/DelphiData.pas 2012-09-09 12:00:18 UTC (rev 13414) +++ trunk/jvcl/install/JVCLInstall/DelphiData.pas 2012-09-10 09:51:54 UTC (rev 13415) @@ -35,7 +35,7 @@ Windows, SysUtils, Classes, Contnrs, Registry, PackageInformation; const - BDSVersions: array[1..9] of record + BDSVersions: array[1..10] of record Name: string; VersionStr: string; Version: Integer; @@ -51,7 +51,8 @@ (Name: 'CodeGear RAD Studio'; VersionStr: '2009'; Version: 12; CIV: '120'; Supported: True), (Name: 'Embarcadero RAD Studio'; VersionStr: '2010'; Version: 14; CIV: '140'; Supported: True), (Name: 'Embarcadero RAD Studio'; VersionStr: 'XE'; Version: 15; CIV: '150'; Supported: True), - (Name: 'Embarcadero RAD Studio'; VersionStr: 'XE2'; Version: 16; CIV: '160'; Supported: True) + (Name: 'Embarcadero RAD Studio'; VersionStr: 'XE2'; Version: 16; CIV: '160'; Supported: True), + (Name: 'Embarcadero RAD Studio'; VersionStr: 'XE3'; Version: 17; CIV: '170'; Supported: True) ); type @@ -451,7 +452,7 @@ else Target.Free; - if (SubKey = 'BDS') and (KeyName[1] = '9') then + if (SubKey = 'BDS') and (StrToIntDef(Copy(KeyName, 1, Pos('.', KeyName) - 1), -1) >= 9) then begin Target := TCompileTarget.Create(SubKey, KeyName, HKCUSubKey, ctpWin64); if Target.IsValid then // only valid targets are allowed @@ -475,10 +476,14 @@ function TCompileTargetList.IsBDSSupported(const IDEVersionStr: string): Boolean; var - IDEVersion: Integer; + P, IDEVersion: Integer; begin Result := False; - IDEVersion := StrToInt(IDEVersionStr[1]); + P := Pos('.', IDEVersionStr); + if P > 0 then + IDEVersion := StrToInt(Copy(IDEVersionStr, 1, P - 1)) + else + IDEVersion := StrToInt(IDEVersionStr[1]); if (IDEVersion >= Low(BDSVersions)) and (IDEVersion <= High(BDSVersions)) then Result := BDSVersions[IDEVersion].Supported; end; @@ -1287,7 +1292,7 @@ else Result := SupportedPersonalities * Personalities = Personalities; // there is no C++ Win64 personality yet - if (Personalities = [persBCB]) and IsBDS and (IDEVersion = 9) and (FPlatform = ctpWin64) then + if (Personalities = [persBCB]) and IsBDS and (IDEVersion >= 9) and (FPlatform = ctpWin64) then Result := False; end; Property changes on: trunk/jvcl/lib/d17/win32 ___________________________________________________________________ Added: svn:ignore + *.dcu *.bpi *.dcp *.lib *.dfm Added: trunk/jvcl/lib/d17/win32/d17.txt =================================================================== --- trunk/jvcl/lib/d17/win32/d17.txt (rev 0) +++ trunk/jvcl/lib/d17/win32/d17.txt 2012-09-10 09:51:54 UTC (rev 13415) @@ -0,0 +1 @@ +This directory is intended as a common place for Delphi 17 Win32 DCU files. \ No newline at end of file Added: trunk/jvcl/lib/d17/win32/debug/debug.txt =================================================================== --- trunk/jvcl/lib/d17/win32/debug/debug.txt (rev 0) +++ trunk/jvcl/lib/d17/win32/debug/debug.txt 2012-09-10 09:51:54 UTC (rev 13415) @@ -0,0 +1 @@ +This directory is intended as a common place for Debug DCU files. \ No newline at end of file Property changes on: trunk/jvcl/lib/d17/win64 ___________________________________________________________________ Added: svn:ignore + *.dcu *.dcp *.dfm *.a Added: trunk/jvcl/lib/d17/win64/d17.txt =================================================================== --- trunk/jvcl/lib/d17/win64/d17.txt (rev 0) +++ trunk/jvcl/lib/d17/win64/d17.txt 2012-09-10 09:51:54 UTC (rev 13415) @@ -0,0 +1 @@ +This directory is intended as a common place for Delphi 17 Win64 DCU files. \ No newline at end of file Added: trunk/jvcl/lib/d17/win64/debug/debug.txt =================================================================== --- trunk/jvcl/lib/d17/win64/debug/debug.txt (rev 0) +++ trunk/jvcl/lib/d17/win64/debug/debug.txt 2012-09-10 09:51:54 UTC (rev 13415) @@ -0,0 +1 @@ +This directory is intended as a common place for Debug DCU files. \ No newline at end of file Added: trunk/jvcl/packages/D17 Packages.groupproj =================================================================== --- trunk/jvcl/packages/D17 Packages.groupproj (rev 0) +++ trunk/jvcl/packages/D17 Packages.groupproj 2012-09-10 09:51:54 UTC (rev 13415) @@ -0,0 +1,698 @@ + <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <PropertyGroup> + <ProjectGuid>{f398f145-41ba-4b0b-a9a1-dff93054d01c}</ProjectGuid> + </PropertyGroup> + <ItemGroup> + <Projects Include="D17\JvCore.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvCoreDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvSystem.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvSystemDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvStdCtrls.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvStdCtrlsDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvControls.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvControlsDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvCmp.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvCmpDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvCustom.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvCustomDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvDlgs.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvDlgsDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvCrypt.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvCryptDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvMM.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvMMDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvNet.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvNetDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvAppFrm.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvAppFrmDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvDB.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvDBDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvBDE.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvBDEDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvPascalInterpreter.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvPascalInterpreterDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvBands.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvBandsDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvPluginSystem.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvPluginSystemDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvJans.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvJansDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvGlobus.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvGlobusDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvPrintPreview.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvPrintPreviewDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvPageComps.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvPageCompsDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvWizards.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvWizardsDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvTimeFramework.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvTimeFrameworkDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvHMI.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvHMIDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvManagedThreads.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvManagedThreadsDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvXPCtrls.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvXPCtrlsDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvDocking.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvDockingDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvDotNetCtrls.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvDotNetCtrlsDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvRuntimeDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D17\JvRuntimeDesignDesign.dproj"> + <Dependencies/> + </Projects> + </ItemGroup> + <ProjectExtensions> + <Borland.Personality>Default.Personality.12</Borland.Personality> + <Borland.ProjectType/> + <BorlandProject> + <BorlandProject> + <Default.Personality/> + </BorlandProject> + </BorlandProject> + </ProjectExtensions> + <Target Name="JvCore"> + <MSBuild Projects="D17\JvCore.dproj"/> + </Target> + <Target Name="JvCore:Clean"> + <MSBuild Projects="D17\JvCore.dproj" Targets="Clean"/> + </Target> + <Target Name="JvCore:Make"> + <MSBuild Projects="D17\JvCore.dproj" Targets="Make"/> + </Target> + <Target Name="JvCoreDesign"> + <MSBuild Projects="D17\JvCoreDesign.dproj"/> + </Target> + <Target Name="JvCoreDesign:Clean"> + <MSBuild Projects="D17\JvCoreDesign.dproj" Targets="Clean"/> + </Target> + <Target Name="JvCoreDesign:Make"> + <MSBuild Projects="D17\JvCoreDesign.dproj" Targets="Make"/> + </Target> + <Target Name="JvSystem"> + <MSBuild Projects="D17\JvSystem.dproj"/> + </Target> + <Target Name="JvSystem:Clean"> + <MSBuild Projects="D17\JvSystem.dproj" Targets="Clean"/> + </Target> + <Target Name="JvSystem:Make"> + <MSBuild Projects="D17\JvSystem.dproj" Targets="Make"/> + </Target> + <Target Name="JvSystemDesign"> + <MSBuild Projects="D17\JvSystemDesign.dproj"/> + </Target> + <Target Name="JvSystemDesign:Clean"> + <MSBuild Projects="D17\JvSystemDesign.dproj" Targets="Clean"/> + </Target> + <Target Name="JvSystemDesign:Make"> + <MSBuild Projects="D17\JvSystemDesign.dproj" Targets="Make"/> + </Target> + <Target Name="JvStdCtrls"> + <MSBuild Projects="D17\JvStdCtrls.dproj"/> + </Target> + <Target Name="JvStdCtrls:Clean"> + <MSBuild Projects="D17\JvStdCtrls.dproj" Targets="Clean"/> + </Target> + <Target Name="JvStdCtrls:Make"> + <MSBuild Projects="D17\JvStdCtrls.dproj" Targets="Make"/> + </Target> + <Target Name="JvStdCtrlsDesign"> + <MSBuild Projects="D17\JvStdCtrlsDesign.dproj"/> + </Target> + <Target Name="JvStdCtrlsDesign:Clean"> + <MSBuild Projects="D17\JvStdCtrlsDesign.dproj" Targets="Clean"/> + </Target> + <Target Name="JvStdCtrlsDesign:Make"> + <MSBuild Projects="D17\JvStdCtrlsDesign.dproj" Targets="Make"/> + </Target> + <Target Name="JvControls"> + <MSBuild Projects="D17\JvControls.dproj"/> + </Target> + <Target Name="JvControls:Clean"> + <MSBuild Projects="D17\JvControls.dproj" Targets="Clean"/> + </Target> + <Target Name="JvControls:Make"> + <MSBuild Projects="D17\JvControls.dproj" Targets="Make"/> + </Target> + <Target Name="JvControlsDesign"> + <MSBuild Projects="D17\JvControlsDesign.dproj"/> + </Target> + <Target Name="JvControlsDesign:Clean"> + <MSBuild Projects="D17\JvControlsDesign.dproj" Targets="Clean"/> + </Target> + <Target Name="JvControlsDesign:Make"> + <MSBuild Projects="D17\JvControlsDesign.dproj" Targets="Make"/> + </Target> + <Target Name="JvCmp"> + <MSBuild Projects="D17\JvCmp.dproj"/> + </Target> + <Target Name="JvCmp:Clean"> + <MSBuild Projects="D17\JvCmp.dproj" Targets="Clean"/> + </Target> + <Target Name="JvCmp:Make"> + <MSBuild Projects="D17\JvCmp.dproj" Targets="Make"/> + </Target> + <Target Name="JvCmpDesign"> + <MSBuild Projects="D17\JvCmpDesign.dproj"/> + </Target> + <Target Name="JvCmpDesign:Clean"> + <MSBuild Projects="D17\JvCmpDesign.dproj" Targets="Clean"/> + </Target> + <Target Name="JvCmpDesign:Make"> + <MSBuild Projects="D17\JvCmpDesign.dproj" Targets="Make"/> + </Target> + <Target Name="JvCustom"> + <MSBuild Projects="D17\JvCustom.dproj"/> + </Target> + <Target Name="JvCustom:Clean"> + <MSBuild Projects="D17\JvCustom.dproj" Targets="Clean"/> + </Target> + <Target Name="JvCustom:Make"> + <MSBuild Projects="D17\JvCustom.dproj" Targets="Make"/> + </Target> + <Target Name="JvCustomDesign"> + <MSBuild Projects="D17\JvCustomDesign.dproj"/> + </Target> + <Target Name="JvCustomDesign:Clean"> + <MSBuild Projects="D17\JvCustomDesign.dproj" Targets="Clean"/> + </Target> + <Target Name="JvCustomDesign:Make"> + <MSBuild Projects="D17\JvCustomDesign.dproj" Targets="Make"/> + </Target> + <Target Name="JvDlgs"> + <MSBuild Projects="D17\JvDlgs.dproj"/> + </Target> + <Target Name="JvDlgs:Clean"> + <MSBuild Projects="D17\JvDlgs.dproj" Targets="Clean"/> + </Target> + <Target Name="JvDlgs:Make"> + <MSBuild Projects="D17\JvDlgs.dproj" Targets="Make"/> + </Target> + <Target Name="JvDlgsDesign"> + <MSBuild Projects="D17\JvDlgsDesign.dproj"/> + </Target> + <Target Name="JvDlgsDesign:Clean"> + <MSBuild Projects="D17\JvDlgsDesign.dproj" Targets="Clean"/> + </Target> + <Target Name="JvDlgsDesign:Make"> + <MSBuild Projects="D17\JvDlgsDesign.dproj" Targets="Make"/> + </Target> + <Target Name="JvCrypt"> + <MSBuild Projects="D17\JvCrypt.dproj"/> + </Target> + <Target Name="JvCrypt:Clean"> + <MSBuild Projects="D17\JvCrypt.dproj" Targets="Clean"/> + </Target> + <Target Name="JvCrypt:Make"> + <MSBuild Projects="D17\JvCrypt.dproj" Targets="Make"/> + </Target> + <Target Name="JvCryptDesign"> + <MSBuild Projects="D17\JvCryptDesign.dproj"/> + </Target> + <Target Name="JvCryptDesign:Clean"> + <MSBuild Projects="D17\JvCryptDesign.dproj" Targets="Clean"/> + </Target> + <Target Name="JvCryptDesign:Make"> + <MSBuild Projects="D17\JvCryptDesign.dproj" Targets="Make"/> + </Target> + <Target Name="JvMM"> + <MSBuild Projects="D17\JvMM.dproj"/> + </Target> + <Target Name="JvMM:Clean"> + <MSBuild Projects="D17\JvMM.dproj" Targets="Clean"/> + </Target> + <Target Name="JvMM:Make"> + <MSBuild Projects="D17\JvMM.dproj" Targets="Make"/> + </Target> + <Target Name="JvMMDesign"> + <MSBuild Projects="D17\JvMMDesign.dproj"/> + </Target> + <Target Name="JvMMDesign:Clean"> + <MSBuild Projects="D17\JvMMDesign.dproj" Targets="Clean"/> + </Target> + <Target Name="JvMMDesign:Make"> + <MSBuild Projects="D17\JvMMDesign.dproj" Targets="Make"/> + </Target> + <Target Name="JvNet"> + <MSBuild Projects="D17\JvNet.dproj"/> + </Target> + <Target Name="JvNet:Clean"> + <MSBuild Projects="D17\JvNet.dproj" Targets="Clean"/> + </Target> + <Target Name="JvNet:Make"> + <MSBuild Projects="D17\JvNet.dproj" Targets="Make"/> + </Target> + <Target Name="JvNetDesign"> + <MSBuild Projects="D17\JvNetDesign.dproj"/> + </Target> + <Target Name="JvNetDesign:Clean"> + <MSBuild Projects="D17\JvNetDesign.dproj" Targets="Clean"/> + </Target> + <Target Name="JvNetDesign:Make"> + <MSBuild Projects="D17\JvNetDesign.dproj" Targets="Make"/> + </Target> + <Target Name="JvAppFrm"> + <MSBuild Projects="D17\JvApp... [truncated message content] |
From: <ah...@us...> - 2012-09-09 12:00:24
|
Revision: 13414 http://jvcl.svn.sourceforge.net/jvcl/?rev=13414&view=rev Author: ahuser Date: 2012-09-09 12:00:18 +0000 (Sun, 09 Sep 2012) Log Message: ----------- Fixed broken ParseUrl ("username:password@domain" wasn't parsed correctly) Modified Paths: -------------- trunk/jvcl/run/JvUrlListGrabber.pas Modified: trunk/jvcl/run/JvUrlListGrabber.pas =================================================================== --- trunk/jvcl/run/JvUrlListGrabber.pas 2012-09-08 11:02:21 UTC (rev 13413) +++ trunk/jvcl/run/JvUrlListGrabber.pas 2012-09-09 12:00:18 UTC (rev 13414) @@ -1058,8 +1058,7 @@ Result := ''; end; -class function TJvCustomUrlGrabber.GetFormattedUrl( - const URL: string): string; +class function TJvCustomUrlGrabber.GetFormattedUrl(const URL: string): string; var ProtocolMarker: string; TmpHostName: string; @@ -1081,6 +1080,8 @@ class procedure TJvCustomUrlGrabber.ParseUrl(URL: string; Protocol: string; var Host: string; var FileName: string; var UserName: string; var Password: string; var Port: Cardinal); +var + Ps: Integer; begin // Default return values Host := ''; @@ -1096,30 +1097,34 @@ // Get the filename, if any if Pos('/', URL) <> 0 then begin - Host := Copy(URL, 1, Pos('/', URL) - 1); - FileName := Copy(URL, Pos('/', URL) + 1, Length(URL)); + Ps := Pos('/', URL); + Host := Copy(URL, 1, Ps - 1); + FileName := Copy(URL, Ps + 1, Length(URL)); end else Host := URL; // Get the username password couple - if Pos('@', Host) <> 0 then + Ps := Pos('@', Host); + if Ps <> 0 then begin - UserName := Copy(Host, 1, Pos('@', Host) - 1); - Host := Copy(Host, Pos('@', Host) + 1, Length(Host)); + UserName := Copy(Host, 1, Ps - 1); + Host := Copy(Host, Ps + 1, Length(Host)); // now, figure out if there is a password - if Pos(':', UserName) <> 0 then + Ps := Pos(':', UserName); + if Ps <> 0 then begin - UserName := Copy(UserName, 1, Pos(':', UserName) - 1); - Password := Copy(UserName, Pos(':', UserName) + 1, Length(UserName)); + Password := Copy(UserName, Ps + 1, Length(UserName)); + UserName := Copy(UserName, 1, Ps - 1); end; end; // Get the port - if Pos(':', Host) <> 0 then + Ps := Pos(':', Host); + if Ps <> 0 then begin - Port := StrToIntDef(Copy(Host, Pos(':', Host) + 1, Length(Host)), 0); - Host := Copy(Host, 1, Pos(':', Host) - 1); + Port := StrToIntDef(Copy(Host, Ps + 1, Length(Host)), 0); + Host := Copy(Host, 1, Ps - 1); end; end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2012-09-08 11:02:27
|
Revision: 13413 http://jvcl.svn.sourceforge.net/jvcl/?rev=13413&view=rev Author: ahuser Date: 2012-09-08 11:02:21 +0000 (Sat, 08 Sep 2012) Log Message: ----------- Mantis #5981: Dialogs are embedded instead of staying above the ParentWnd Modified Paths: -------------- trunk/jvcl/run/JvBaseDBDialog.pas trunk/jvcl/run/JvCalc.pas trunk/jvcl/run/JvImageDlg.pas Modified: trunk/jvcl/run/JvBaseDBDialog.pas =================================================================== --- trunk/jvcl/run/JvBaseDBDialog.pas 2012-09-08 10:19:55 UTC (rev 13412) +++ trunk/jvcl/run/JvBaseDBDialog.pas 2012-09-08 11:02:21 UTC (rev 13413) @@ -43,6 +43,7 @@ FDBDialog: TForm; FDynControlEngine: TJvDynControlEngine; FSession: TComponent; + FParentWnd: HWND; function GetDynControlEngine: TJvDynControlEngine; protected function CreateForm: TForm; virtual; @@ -78,12 +79,15 @@ uses SysUtils, Types, + JvJCLUtils, // SetWindowLongPtr for older Delphi versions JvJVCLUtils; function TJvBaseDBDialog.CreateForm: TForm; begin Result := TForm(DynControlEngine.CreateForm('', '')); CreateFormControls(Result); + if FParentWnd <> 0 then + SetWindowLongPtr(Result.Handle, GWL_HWNDPARENT, LONG_PTR(FParentWnd)); end; procedure TJvBaseDBDialog.CreateFormControls(aForm: TForm); @@ -98,11 +102,11 @@ begin if not Assigned(Session) then Abort; + FParentWnd := ParentWnd; FDBDialog := CreateForm; try AfterCreateFormControls(FDBDialog); FDBDialog.ShowModal; - FDBDialog.ParentWindow := ParentWnd; Result := FDBDialog.ModalResult = mrOk; finally FreeAndNil(FDBDialog); Modified: trunk/jvcl/run/JvCalc.pas =================================================================== --- trunk/jvcl/run/JvCalc.pas 2012-09-08 10:19:55 UTC (rev 13412) +++ trunk/jvcl/run/JvCalc.pas 2012-09-08 11:02:21 UTC (rev 13413) @@ -97,6 +97,7 @@ FDisplayPanel: TPanel; FDisplayLabel: TLabel; FPasteItem: TMenuItem; + FParentWnd: HWND; procedure FormKeyPress(Sender: TObject; var Key: Char); procedure PopupMenuPopup(Sender: TObject); procedure CopyItemClick(Sender: TObject); @@ -107,14 +108,15 @@ procedure CancelClick(Sender: TObject); procedure CalcKey(Sender: TObject; var Key: Char); procedure DisplayChange(Sender: TObject); + procedure CreateParams(var Params: TCreateParams); override; public - constructor Create(AOwner: TComponent); override; + constructor Create(AOwner: TComponent); overload; override; + constructor Create(AOwner: TComponent; AParentWnd: HWND); reintroduce; overload; end; -function CreateCalculatorForm(AOwner: TComponent; AHelpContext: THelpContext): TJvCalculatorForm; -function CreatePopupCalculator(AOwner: TComponent ; ABiDiMode: TBiDiMode = bdLeftToRight ): TWinControl; -procedure SetupPopupCalculator(PopupCalc: TWinControl; APrecision: Byte; - ABeepOnError: Boolean); +function CreateCalculatorForm(AOwner: TComponent; AHelpContext: THelpContext; AOwnerWnd: HWND): TJvCalculatorForm; +function CreatePopupCalculator(AOwner: TComponent; ABiDiMode: TBiDiMode = bdLeftToRight): TWinControl; +procedure SetupPopupCalculator(PopupCalc: TWinControl; APrecision: Byte; ABeepOnError: Boolean); {$IFDEF UNITVERSIONING} const @@ -342,9 +344,9 @@ //=== Global procedures ====================================================== -function CreateCalculatorForm(AOwner: TComponent; AHelpContext: THelpContext): TJvCalculatorForm; +function CreateCalculatorForm(AOwner: TComponent; AHelpContext: THelpContext; AOwnerWnd: HWND): TJvCalculatorForm; begin - Result := TJvCalculatorForm.Create(AOwner); + Result := TJvCalculatorForm.Create(AOwner, AOwnerWnd); with Result do try HelpContext := AHelpContext; @@ -363,7 +365,7 @@ end; end; -function CreatePopupCalculator(AOwner: TComponent ; ABiDiMode: TBiDiMode = bdLeftToRight ): TWinControl; +function CreatePopupCalculator(AOwner: TComponent; ABiDiMode: TBiDiMode = bdLeftToRight): TWinControl; begin Result := TJvPopupCalculator.Create(AOwner); // ahuser: reported as a bug (Mantis #2048) @@ -384,14 +386,13 @@ procedure SetupPopupCalculator(PopupCalc: TWinControl; APrecision: Byte; ABeepOnError: Boolean); begin - if (PopupCalc = nil) or not (PopupCalc is TJvPopupCalculator) then - Exit; - if TJvPopupCalculator(PopupCalc).FCalcPanel <> nil then - with TJvPopupCalculator(PopupCalc).FCalcPanel do - begin - FPrecision := Max(2, APrecision); - FBeepOnError := ABeepOnError; - end; + if (PopupCalc <> nil) and (PopupCalc is TJvPopupCalculator) then + if TJvPopupCalculator(PopupCalc).FCalcPanel <> nil then + with TJvPopupCalculator(PopupCalc).FCalcPanel do + begin + FPrecision := Max(2, APrecision); + FBeepOnError := ABeepOnError; + end; end; //=== { TJvCalcButton } ====================================================== @@ -483,14 +484,13 @@ function TJvCalculator.Execute(ParentWnd: HWND): Boolean; begin if csDesigning in ComponentState then - FCalc := CreateCalculatorForm(Application, HelpContext) + FCalc := CreateCalculatorForm(Application, HelpContext, ParentWnd) else - FCalc := CreateCalculatorForm(Self, HelpContext); + FCalc := CreateCalculatorForm(Self, HelpContext, ParentWnd); with FCalc do try Ctl3D := not FFlat; Caption := Self.Title; - ParentWindow := ParentWnd; TJvCalculatorPanel(FCalcPanel).FMemory := Self.FMemory; TJvCalculatorPanel(FCalcPanel).UpdateMemoryLabel; TJvCalculatorPanel(FCalcPanel).FPrecision := Max(2, Self.Precision); @@ -624,6 +624,19 @@ end; end; +constructor TJvCalculatorForm.Create(AOwner: TComponent; AParentWnd: HWND); +begin + FParentWnd := AParentWnd; + Create(AOwner); +end; + +procedure TJvCalculatorForm.CreateParams(var Params: TCreateParams); +begin + inherited CreateParams(Params); + if FParentWnd <> 0 then + Params.WndParent := FParentWnd; +end; + procedure TJvCalculatorForm.CalcKey(Sender: TObject; var Key: Char); begin if (Owner <> nil) and (Owner is TJvCalculator) then Modified: trunk/jvcl/run/JvImageDlg.pas =================================================================== --- trunk/jvcl/run/JvImageDlg.pas 2012-09-08 10:19:55 UTC (rev 13412) +++ trunk/jvcl/run/JvImageDlg.pas 2012-09-08 11:02:21 UTC (rev 13413) @@ -71,6 +71,34 @@ uses JvResources; +type + TJvImageDlgForm = class(TJvForm) + private + FParentWnd: HWND; + protected + procedure CreateParams(var Params: TCreateParams); override; + public + constructor Create(AOwner: TComponent; AParentWnd: HWND); reintroduce; + end; + +//=== { TJvImageDlgForm } ==================================================== + +constructor TJvImageDlgForm.Create(AOwner: TComponent; AParentWnd: HWND); +begin + FParentWnd := AParentWnd; + CreateNew(AOwner, 0); +end; + +procedure TJvImageDlgForm.CreateParams(var Params: TCreateParams); +begin + inherited CreateParams(Params); + if FParentWnd <> 0 then + Params.WndParent := FParentWnd; +end; + + +//=== { TJvImageDialog } ==================================================== + constructor TJvImageDialog.Create(AOwner: TComponent); begin inherited Create(AOwner); @@ -86,13 +114,13 @@ function TJvImageDialog.Execute(ParentWnd: HWND): Boolean; var - Form: TJvForm; + Form: TJvImageDlgForm; Image1: TImage; begin Result := False; if (Picture.Height <> 0) and (Picture.Width <> 0) then begin - Form := TJvForm.CreateNew(Self); + Form := TJvImageDlgForm.Create(Self, ParentWnd); try Form.BorderStyle := bsDialog; Form.BorderIcons := [biSystemMenu]; @@ -105,7 +133,6 @@ Form.Caption := FTitle; Image1.SetBounds(0,0,Picture.Width,Picture.Height); Image1.Anchors := [akTop, akLeft, akRight, akBottom]; - Form.ParentWindow := ParentWnd; Result := Form.ShowModal = mrOk; finally Form.Free; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2012-09-08 10:20:01
|
Revision: 13412 http://jvcl.svn.sourceforge.net/jvcl/?rev=13412&view=rev Author: ahuser Date: 2012-09-08 10:19:55 +0000 (Sat, 08 Sep 2012) Log Message: ----------- Mantis #5981: AboutJVCL property form blocks IDE Modified Paths: -------------- trunk/jvcl/run/JvJVCLAboutForm.dfm trunk/jvcl/run/JvJVCLAboutForm.pas Modified: trunk/jvcl/run/JvJVCLAboutForm.dfm =================================================================== --- trunk/jvcl/run/JvJVCLAboutForm.dfm 2012-09-07 22:31:43 UTC (rev 13411) +++ trunk/jvcl/run/JvJVCLAboutForm.dfm 2012-09-08 10:19:55 UTC (rev 13412) @@ -26,7 +26,6 @@ 0000FF9F0000FF9F0000FF9F0000FF9F0000FF0F0000FE070000FFFF0000} OldCreateOrder = False Position = poScreenCenter - OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 Modified: trunk/jvcl/run/JvJVCLAboutForm.pas =================================================================== --- trunk/jvcl/run/JvJVCLAboutForm.pas 2012-09-07 22:31:43 UTC (rev 13411) +++ trunk/jvcl/run/JvJVCLAboutForm.pas 2012-09-08 10:19:55 UTC (rev 13412) @@ -75,19 +75,21 @@ lblMemory: TLabel; procedure btnOKClick(Sender: TObject); procedure FormShow(Sender: TObject); - procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; - Shift: TShiftState; X, Y: Integer); + procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure btnHelpClick(Sender: TObject); procedure btnOptionsClick(Sender: TObject); - procedure FormDestroy(Sender: TObject); procedure OpenURLClick(Sender: TObject); private FHelpFile: string; FHelpDirectory: string; + FParentWnd: HWND; + protected + procedure CreateParams(var Params: TCreateParams); override; public + constructor Create(AOwner: TComponent; AParentWnd: HWND); reintroduce; overload; procedure LoadOptions; procedure SaveOptions; - class function Execute(ParentWnd: HWND; StoreSettings: Boolean): Boolean; + class function Execute(AParentWnd: HWND; AStoreSettings: Boolean): Boolean; end; {$IFDEF RTL230_UP} @@ -97,7 +99,7 @@ private FStoreSettings: Boolean; public - function Execute(ParentWnd: HWND): Boolean; overload; override; + function Execute(AParentWnd: HWND): Boolean; overload; override; published property StoreSettings: Boolean read FStoreSettings write FStoreSettings default False; end; @@ -184,6 +186,19 @@ end; end; +constructor TJvJVCLAboutForm.Create(AOwner: TComponent; AParentWnd: HWND); +begin + FParentWnd := AParentWnd; + Create(AOwner); +end; + +procedure TJvJVCLAboutForm.CreateParams(var Params: TCreateParams); +begin + inherited CreateParams(Params); + if FParentWnd <> 0 then + Params.WndParent := FParentWnd; +end; + procedure TJvJVCLAboutForm.LoadOptions; var L, T: Integer; @@ -234,33 +249,27 @@ end; end; -procedure TJvJVCLAboutForm.FormDestroy(Sender: TObject); -begin -// SaveOptions; -end; - procedure TJvJVCLAboutForm.btnOKClick(Sender: TObject); begin Close; end; -function TJvJVCLAboutComponent.Execute(ParentWnd: HWND): Boolean; +function TJvJVCLAboutComponent.Execute(AParentWnd: HWND): Boolean; begin - Result := TJvJVCLAboutForm.Execute(ParentWnd, StoreSettings); + Result := TJvJVCLAboutForm.Execute(AParentWnd, StoreSettings); end; -class function TJvJVCLAboutForm.Execute(ParentWnd: HWND; StoreSettings: Boolean): Boolean; +class function TJvJVCLAboutForm.Execute(AParentWnd: HWND; AStoreSettings: Boolean): Boolean; begin - with Self.Create(Application) do + with Self.Create(nil, AParentWnd) do try - if StoreSettings then + if AStoreSettings then LoadOptions; // (rom) used as component outside the IDE the buttons are not useful - btnHelp.Visible := StoreSettings; - btnOptions.Visible := StoreSettings; - ParentWindow := ParentWnd; + btnHelp.Visible := AStoreSettings; + btnOptions.Visible := AStoreSettings; Result := ShowModal = mrOk; - if StoreSettings then + if AStoreSettings then SaveOptions; finally Free; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2012-09-07 22:31:50
|
Revision: 13411 http://jvcl.svn.sourceforge.net/jvcl/?rev=13411&view=rev Author: ahuser Date: 2012-09-07 22:31:43 +0000 (Fri, 07 Sep 2012) Log Message: ----------- Don't install the WH_GETMESSAGE hook into the IDE. It will make the mouse partly unresponsive (especially in the SystemMenu) under XE2 and Win7. Modified Paths: -------------- trunk/jvcl/run/JvBandForms.pas Modified: trunk/jvcl/run/JvBandForms.pas =================================================================== --- trunk/jvcl/run/JvBandForms.pas 2012-09-05 22:07:59 UTC (rev 13410) +++ trunk/jvcl/run/JvBandForms.pas 2012-09-07 22:31:43 UTC (rev 13411) @@ -310,17 +310,24 @@ GlobalBandFormMessageHook: HHook; GlobalBandForms: TList; +procedure InstallHook; forward; +procedure UninstallHook; forward; + //=== { TJvBandForm } ======================================================== procedure TJvBandForm.AfterConstruction; begin inherited AfterConstruction; GlobalBandForms.Add(Self); + if (GlobalBandForms.Count = 1) and not (csDesigning in ComponentState) then + InstallHook; end; procedure TJvBandForm.BeforeDestruction; begin GlobalBandForms.Remove(Self); + if (GlobalBandForms.Count = 0) and not (csDesigning in ComponentState) then + UninstallHook; inherited BeforeDestruction; end; @@ -425,26 +432,27 @@ I: Integer; Msg: PMsg; begin - try - lOk := False; - Msg := PMsg(Pointer(lParam)); - if (((Msg^.message = WM_KEYDOWN) or (Msg^.message = WM_KEYUP)) and - ((Msg^.wParam = VK_BACK))) then - lOk := True - else - if Msg^.message = WM_MOUSEMOVE then //Enable Flat effects! - Application.HandleMessage; - if lOk then - begin - for I := 0 to GlobalBandForms.Count - 1 do - if IsDialogMessage(TJvBandForm(GlobalBandForms.Items[I]).Handle, Msg^) then - begin - Msg^.message := WM_NULL; - Break; - end; + if nCode >= 0 then + try + lOk := False; + Msg := PMsg(Pointer(lParam)); + if (((Msg^.message = WM_KEYDOWN) or (Msg^.message = WM_KEYUP)) and + ((Msg^.wParam = VK_BACK))) then + lOk := True + else + if Msg^.message = WM_MOUSEMOVE then //Enable Flat effects! + Application.HandleMessage; + if lOk then + begin + for I := 0 to GlobalBandForms.Count - 1 do + if IsDialogMessage(TJvBandForm(GlobalBandForms.Items[I]).Handle, Msg^) then + begin + Msg^.message := WM_NULL; + Break; + end; + end; + except end; - except - end; Result := CallNextHookEx(GlobalBandFormMessageHook, nCode, wParam, lParam); end; @@ -487,10 +495,8 @@ RegisterUnitVersion(HInstance, UnitVersioning); {$ENDIF UNITVERSIONING} GlobalBandForms := TList.Create; - InstallHook; finalization - UninstallHook; GlobalBandForms.Free; {$IFDEF UNITVERSIONING} UnregisterUnitVersion(HInstance); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2012-09-05 22:08:06
|
Revision: 13410 http://jvcl.svn.sourceforge.net/jvcl/?rev=13410&view=rev Author: ahuser Date: 2012-09-05 22:07:59 +0000 (Wed, 05 Sep 2012) Log Message: ----------- InnoSetup installer support for XE3 Modified Paths: -------------- trunk/jvcl/install/ISS/CompInstall.dll trunk/jvcl/install/ISS/ComponentInstallerScript.iss trunk/jvcl/install/ISS/IdeComponents.iss trunk/jvcl/install/ISS/Install.iss trunk/jvcl/install/ISS/Settings.iss Modified: trunk/jvcl/install/ISS/CompInstall.dll =================================================================== (Binary files differ) Modified: trunk/jvcl/install/ISS/ComponentInstallerScript.iss =================================================================== --- trunk/jvcl/install/ISS/ComponentInstallerScript.iss 2012-09-04 11:38:24 UTC (rev 13409) +++ trunk/jvcl/install/ISS/ComponentInstallerScript.iss 2012-09-05 22:07:59 UTC (rev 13410) @@ -452,7 +452,7 @@ // Check if there is any Delphi IDE installed Result := False; - for Version := 6 to 15 do + for Version := 6 to 17 do if IsDelphiInstalled(Version) then Result := True; Modified: trunk/jvcl/install/ISS/IdeComponents.iss =================================================================== --- trunk/jvcl/install/ISS/IdeComponents.iss 2012-09-04 11:38:24 UTC (rev 13409) +++ trunk/jvcl/install/ISS/IdeComponents.iss 2012-09-05 22:07:59 UTC (rev 13410) @@ -1,6 +1,6 @@ [Components] ; IDE selection -Name: "IDE"; Description: "Install for Professional/Enterprise/Architect IDE" +Name: "IDE"; Description: "Install for IDE" #ifdef Include_Delphi6 Name: "IDE\Delphi6"; Description: "Install for Delphi 6"; Types: full prefered; Check: IsDelphiInstalled(6) #endif @@ -31,3 +31,6 @@ #ifdef Include_Delphi16 Name: "IDE\Delphi16"; Description: "Install for RAD Studio XE2"; Types: full prefered; Check: IsDelphiInstalled(16) #endif +#ifdef Include_Delphi17 +Name: "IDE\Delphi17"; Description: "Install for RAD Studio XE3"; Types: full prefered; Check: IsDelphiInstalled(17) +#endif Modified: trunk/jvcl/install/ISS/Install.iss =================================================================== --- trunk/jvcl/install/ISS/Install.iss 2012-09-04 11:38:24 UTC (rev 13409) +++ trunk/jvcl/install/ISS/Install.iss 2012-09-05 22:07:59 UTC (rev 13410) @@ -31,6 +31,7 @@ ;--------------------------------------------------- ; Setup the preprocessor defines for the binary files #ifdef Include_SingleIDE + #define JvclLib6 JvclLib #define JvclBpl6 JvclBpl #define JvclLib7 JvclLib @@ -55,6 +56,10 @@ #define JvclLib16 JvclLib #define JvclBpl16 JvclBpl #define JvclHpp16 JvclHpp +#define JvclLib17 JvclLib +#define JvclBpl17 JvclBpl +#define JvclHpp17 JvclHpp + #endif ;--------------------------------------------------- @@ -183,6 +188,10 @@ Name: "{app}\lib\d16\win32\debug" Name: "{app}\lib\d16\win64" Name: "{app}\lib\d16\win64\debug" +Name: "{app}\lib\d17\win32" +Name: "{app}\lib\d17\win32\debug" +Name: "{app}\lib\d17\win64" +Name: "{app}\lib\d17\win64\debug" [Files] Source: {#JvclRoot}\*; DestDir: "{app}"; Flags: ignoreversion @@ -260,14 +269,22 @@ Source: {#JvclHpp15}\*; DestDir: "{app}\include\d15"; Components: "IDE\Delphi15"; Flags: ignoreversion sortfilesbyextension #endif #ifdef Include_Delphi16 -; SolidBreak; lib\Delphi XE +; SolidBreak; lib\Delphi XE2 Source: {#JvclLib16}\*; DestDir: "{app}\lib\d16"; Excludes: ".svn,__history,*.txt"; Components: "IDE\Delphi16"; Flags: ignoreversion recursesubdirs sortfilesbyextension createallsubdirs solidbreak Source: {#JvclBpl16}\*; DestDir: "{code:GetDelphiBplDir|16}"; Components: "IDE\Delphi16"; Flags: ignoreversion sortfilesbyextension Source: {#JvclBpl16}\Win64\*; DestDir: "{code:GetDelphiBplDir|16}\Win64"; Components: "IDE\Delphi16"; Flags: ignoreversion sortfilesbyextension Source: {#JvclHpp16}\*; DestDir: "{app}\include\d16"; Components: "IDE\Delphi16"; Flags: ignoreversion sortfilesbyextension #endif +#ifdef Include_Delphi17 +; SolidBreak; lib\Delphi XE3 +Source: {#JvclLib17}\*; DestDir: "{app}\lib\d17"; Excludes: ".svn,__history,*.txt"; Components: "IDE\Delphi17"; Flags: ignoreversion recursesubdirs sortfilesbyextension createallsubdirs solidbreak +Source: {#JvclBpl17}\*; DestDir: "{code:GetDelphiBplDir|17}"; Components: "IDE\Delphi17"; Flags: ignoreversion sortfilesbyextension +Source: {#JvclBpl17}\Win64\*; DestDir: "{code:GetDelphiBplDir|17}\Win64"; Components: "IDE\Delphi17"; Flags: ignoreversion sortfilesbyextension +Source: {#JvclHpp17}\*; DestDir: "{app}\include\d17"; Components: "IDE\Delphi17"; Flags: ignoreversion sortfilesbyextension #endif +#endif + ; only source code => execute JVCL Installer [Run] Filename: {app}\install.bat; Description: "Execute JVCL Installer"; Flags: postinstall shellexec; Check: IsSourceInstall; @@ -351,9 +368,19 @@ Root: HKCU; Subkey: "{code:GetDelphiRegKey|16}\Jedi\JVCL\IDE"; ValueType: dword; ValueName: "RegisterGlobalDesignEditors"; ValueData: 1; Components: "Options\RegisterGlobalDesignEditors"; Flags: uninsdeletevalue; Root: HKCU; Subkey: "{code:GetDelphiRegKey|16}\Globals"; ValueType: string; ValueName: "ForceEnvOptionsUpdate"; ValueData: "1"; Components: "IDE\Delphi16"; #endif +#ifdef Include_Delphi17 +; Delphi XE3 +Root: HKCU; Subkey: "{code:GetDelphiRegKey|17}\Jedi\JVCL"; ValueType: string; ValueName: "BplDir"; ValueData: {code:GetDelphiBplDir|17}; Components: "IDE\Delphi17"; Flags: uninsdeletevalue; +Root: HKCU; Subkey: "{code:GetDelphiRegKey|17}\Jedi\JVCL"; ValueType: string; ValueName: "DcpDir"; ValueData: {app}\lib\d17; Components: "IDE\Delphi17"; Flags: uninsdeletevalue; +Root: HKCU; Subkey: "{code:GetDelphiRegKey|17}\Jedi\JVCL"; ValueType: string; ValueName: "RootDir"; ValueData: {app}; Components: "IDE\Delphi17"; Flags: uninsdeletevalue; +Root: HKCU; Subkey: "{code:GetDelphiRegKey|17}\Jedi\JVCL"; ValueType: string; ValueName: "Version"; ValueData: {#JvclVersionStr}; Components: "IDE\Delphi17"; Flags: uninsdeletevalue; +Root: HKCU; Subkey: "{code:GetDelphiRegKey|17}\Jedi\JVCL\IDE"; ValueType: dword; ValueName: "RegisterGlobalDesignEditors"; ValueData: 1; Components: "Options\RegisterGlobalDesignEditors"; Flags: uninsdeletevalue; +Root: HKCU; Subkey: "{code:GetDelphiRegKey|17}\Globals"; ValueType: string; ValueName: "ForceEnvOptionsUpdate"; ValueData: "1"; Components: "IDE\Delphi17"; #endif +#endif + [UninstallDelete] Type: files; Name: "{app}\dcu\*" Type: files; Name: "{app}\bin\JVCLInstall.*" @@ -409,7 +436,14 @@ Type: files; Name: "{app}\include\d16\*" Type: files; Name: "{code:GetDelphiBplDir|16}\Jv*.*" Type: files; Name: "{code:GetDelphiBplDir|16}\Win64\Jv*.*" - +; lib\Delphi/C++Builder XE3 +Type: files; Name: "{app}\lib\d17\win32\*" +Type: files; Name: "{app}\lib\d17\win32\debug\*" +Type: files; Name: "{app}\lib\d17\win64\*" +Type: files; Name: "{app}\lib\d17\win64\debug\*" +Type: files; Name: "{app}\include\d17\*" +Type: files; Name: "{code:GetDelphiBplDir|17}\Jv*.*" +Type: files; Name: "{code:GetDelphiBplDir|17}\Win64\Jv*.*" [Icons] Name: "{group}\{cm:ProgramOnTheWeb,{#MyAppName}}"; Filename: "{#MyAppURL}" Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}" @@ -434,7 +468,7 @@ Version: Integer; begin { // Uninstall from all IDEs ? - for Version := 6 to 16 do + for Version := 6 to 17 do UninstallDesignPackagesPrefixed(ikDelphi, Version, 'Jv'); for Version := 6 to 6 do UninstallDesignPackagesPrefixed(ikBCB, Version, 'Jv');} @@ -529,7 +563,7 @@ if Result then begin Result := False; - for Version := 6 to 16 do + for Version := 6 to 17 do begin if IsDelphiJclInstalled(Version) then begin Modified: trunk/jvcl/install/ISS/Settings.iss =================================================================== --- trunk/jvcl/install/ISS/Settings.iss 2012-09-04 11:38:24 UTC (rev 13409) +++ trunk/jvcl/install/ISS/Settings.iss 2012-09-05 22:07:59 UTC (rev 13410) @@ -1,2 +1,2 @@ -#define Include_Delphi16 +#define Include_Delphi17 #define JvclVersionStr "3.45" This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |