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: <ah...@us...> - 2013-05-13 23:06:46
|
Revision: 13509 http://jvcl.svn.sourceforge.net/jvcl/?rev=13509&view=rev Author: ahuser Date: 2013-05-13 23:06:28 +0000 (Mon, 13 May 2013) Log Message: ----------- XE4 support (some compiler hints remain) Modified Paths: -------------- trunk/jvcl/clean.bat trunk/jvcl/common/jvcl.inc trunk/jvcl/design/JvPluginWizard.pas trunk/jvcl/devtools/bin/pgEdit.xml trunk/jvcl/install/JVCLInstall/DelphiData.pas trunk/jvcl/install/JVCLInstall/Frames/FrmConfigPage.dfm trunk/jvcl/install/JVCLInstall/Frames/FrmConfigPage.pas trunk/jvcl/install/JVCLInstall/Frames/FrmInstall.dfm trunk/jvcl/install/JVCLInstall/Frames/FrmInstall.pas trunk/jvcl/install/JVCLInstall/Frames/FrmPackageSelection.dfm trunk/jvcl/install/JVCLInstall/Frames/FrmPackageSelection.pas trunk/jvcl/install/JVCLInstall/FrmCompileMessages.dfm trunk/jvcl/install/JVCLInstall/FrmCompileMessages.pas trunk/jvcl/install/JVCLInstall/Helpers/HtHint.pas trunk/jvcl/install/JVCLInstall/JVCL3Install.pas trunk/jvcl/install/JVCLInstall/Main.dfm trunk/jvcl/install/JVCLInstall/Main.pas trunk/jvcl/make.proj trunk/jvcl/packages/xml/JvDB-R.xml trunk/jvcl/run/JvAni.pas trunk/jvcl/run/JvBDEFilter.pas trunk/jvcl/run/JvBDELists.pas trunk/jvcl/run/JvBDEMemTable.pas trunk/jvcl/run/JvBDEProgress.pas trunk/jvcl/run/JvBDEQBE.pas trunk/jvcl/run/JvBandForms.pas trunk/jvcl/run/JvBandObject.pas trunk/jvcl/run/JvBaseDBLogonDialog.pas trunk/jvcl/run/JvBdeUtils.pas trunk/jvcl/run/JvCipher.pas trunk/jvcl/run/JvConsts.pas trunk/jvcl/run/JvCsvData.pas trunk/jvcl/run/JvCsvParse.pas trunk/jvcl/run/JvDBUtils.pas trunk/jvcl/run/JvEditor.pas trunk/jvcl/run/JvGnugettext.pas trunk/jvcl/run/JvID3v2Base.pas trunk/jvcl/run/JvInterpreter_Classes.pas trunk/jvcl/run/JvInterpreter_DBTables.pas trunk/jvcl/run/JvInterpreter_Db.pas trunk/jvcl/run/JvInterpreter_SysUtils.pas trunk/jvcl/run/JvListView.pas trunk/jvcl/run/JvMail.pas trunk/jvcl/run/JvMemoryDataset.pas trunk/jvcl/run/JvRichEdit.pas trunk/jvcl/run/JvSegmentedLEDDisplay.pas trunk/jvcl/run/JvToolEdit.pas trunk/jvcl/run/JvWizardRouteMapList.pas Added Paths: ----------- trunk/jvcl/common/jvcld18.inc trunk/jvcl/common/jvcld18_x64.inc trunk/jvcl/include/d18/ trunk/jvcl/lib/d18/ trunk/jvcl/lib/d18/win32/ trunk/jvcl/lib/d18/win32/d18.txt trunk/jvcl/lib/d18/win32/debug/ trunk/jvcl/lib/d18/win32/debug/debug.txt trunk/jvcl/lib/d18/win64/ trunk/jvcl/lib/d18/win64/d18.txt trunk/jvcl/lib/d18/win64/debug/ trunk/jvcl/lib/d18/win64/debug/debug.txt trunk/jvcl/packages/D18 Packages.groupproj trunk/jvcl/packages/D18_x64 Packages.groupproj trunk/jvcl/packages/d18/ trunk/jvcl/packages/d18/JvAppFrm.dpk trunk/jvcl/packages/d18/JvAppFrm.dproj trunk/jvcl/packages/d18/JvAppFrm.rc trunk/jvcl/packages/d18/JvAppFrm.res trunk/jvcl/packages/d18/JvAppFrmDesign.dpk trunk/jvcl/packages/d18/JvAppFrmDesign.dproj trunk/jvcl/packages/d18/JvAppFrmDesign.rc trunk/jvcl/packages/d18/JvAppFrmDesign.res trunk/jvcl/packages/d18/JvBDE.dpk trunk/jvcl/packages/d18/JvBDE.dproj trunk/jvcl/packages/d18/JvBDE.rc trunk/jvcl/packages/d18/JvBDE.res trunk/jvcl/packages/d18/JvBDEDesign.dpk trunk/jvcl/packages/d18/JvBDEDesign.dproj trunk/jvcl/packages/d18/JvBDEDesign.rc trunk/jvcl/packages/d18/JvBDEDesign.res trunk/jvcl/packages/d18/JvBands.dpk trunk/jvcl/packages/d18/JvBands.dproj trunk/jvcl/packages/d18/JvBands.rc trunk/jvcl/packages/d18/JvBands.res trunk/jvcl/packages/d18/JvBandsDesign.dpk trunk/jvcl/packages/d18/JvBandsDesign.dproj trunk/jvcl/packages/d18/JvBandsDesign.rc trunk/jvcl/packages/d18/JvBandsDesign.res trunk/jvcl/packages/d18/JvCmp.dpk trunk/jvcl/packages/d18/JvCmp.dproj trunk/jvcl/packages/d18/JvCmp.rc trunk/jvcl/packages/d18/JvCmp.res trunk/jvcl/packages/d18/JvCmpDesign.dpk trunk/jvcl/packages/d18/JvCmpDesign.dproj trunk/jvcl/packages/d18/JvCmpDesign.rc trunk/jvcl/packages/d18/JvCmpDesign.res trunk/jvcl/packages/d18/JvControls.dpk trunk/jvcl/packages/d18/JvControls.dproj trunk/jvcl/packages/d18/JvControls.rc trunk/jvcl/packages/d18/JvControls.res trunk/jvcl/packages/d18/JvControlsDesign.dpk trunk/jvcl/packages/d18/JvControlsDesign.dproj trunk/jvcl/packages/d18/JvControlsDesign.rc trunk/jvcl/packages/d18/JvControlsDesign.res trunk/jvcl/packages/d18/JvCore.dpk trunk/jvcl/packages/d18/JvCore.dproj trunk/jvcl/packages/d18/JvCore.rc trunk/jvcl/packages/d18/JvCore.res trunk/jvcl/packages/d18/JvCoreDesign.dpk trunk/jvcl/packages/d18/JvCoreDesign.dproj trunk/jvcl/packages/d18/JvCoreDesign.rc trunk/jvcl/packages/d18/JvCoreDesign.res trunk/jvcl/packages/d18/JvCrypt.dpk trunk/jvcl/packages/d18/JvCrypt.dproj trunk/jvcl/packages/d18/JvCrypt.rc trunk/jvcl/packages/d18/JvCrypt.res trunk/jvcl/packages/d18/JvCryptDesign.dpk trunk/jvcl/packages/d18/JvCryptDesign.dproj trunk/jvcl/packages/d18/JvCryptDesign.rc trunk/jvcl/packages/d18/JvCryptDesign.res trunk/jvcl/packages/d18/JvCustom.dpk trunk/jvcl/packages/d18/JvCustom.dproj trunk/jvcl/packages/d18/JvCustom.rc trunk/jvcl/packages/d18/JvCustom.res trunk/jvcl/packages/d18/JvCustomDesign.dpk trunk/jvcl/packages/d18/JvCustomDesign.dproj trunk/jvcl/packages/d18/JvCustomDesign.rc trunk/jvcl/packages/d18/JvCustomDesign.res trunk/jvcl/packages/d18/JvDB.dpk trunk/jvcl/packages/d18/JvDB.dproj trunk/jvcl/packages/d18/JvDB.rc trunk/jvcl/packages/d18/JvDB.res trunk/jvcl/packages/d18/JvDBDesign.dpk trunk/jvcl/packages/d18/JvDBDesign.dproj trunk/jvcl/packages/d18/JvDBDesign.rc trunk/jvcl/packages/d18/JvDBDesign.res trunk/jvcl/packages/d18/JvDlgs.dpk trunk/jvcl/packages/d18/JvDlgs.dproj trunk/jvcl/packages/d18/JvDlgs.rc trunk/jvcl/packages/d18/JvDlgs.res trunk/jvcl/packages/d18/JvDlgsDesign.dpk trunk/jvcl/packages/d18/JvDlgsDesign.dproj trunk/jvcl/packages/d18/JvDlgsDesign.rc trunk/jvcl/packages/d18/JvDlgsDesign.res trunk/jvcl/packages/d18/JvDocking.dpk trunk/jvcl/packages/d18/JvDocking.dproj trunk/jvcl/packages/d18/JvDocking.rc trunk/jvcl/packages/d18/JvDocking.res trunk/jvcl/packages/d18/JvDockingDesign.dpk trunk/jvcl/packages/d18/JvDockingDesign.dproj trunk/jvcl/packages/d18/JvDockingDesign.rc trunk/jvcl/packages/d18/JvDockingDesign.res trunk/jvcl/packages/d18/JvDotNetCtrls.dpk trunk/jvcl/packages/d18/JvDotNetCtrls.dproj trunk/jvcl/packages/d18/JvDotNetCtrls.rc trunk/jvcl/packages/d18/JvDotNetCtrls.res trunk/jvcl/packages/d18/JvDotNetCtrlsDesign.dpk trunk/jvcl/packages/d18/JvDotNetCtrlsDesign.dproj trunk/jvcl/packages/d18/JvDotNetCtrlsDesign.rc trunk/jvcl/packages/d18/JvDotNetCtrlsDesign.res trunk/jvcl/packages/d18/JvGlobus.dpk trunk/jvcl/packages/d18/JvGlobus.dproj trunk/jvcl/packages/d18/JvGlobus.rc trunk/jvcl/packages/d18/JvGlobus.res trunk/jvcl/packages/d18/JvGlobusDesign.dpk trunk/jvcl/packages/d18/JvGlobusDesign.dproj trunk/jvcl/packages/d18/JvGlobusDesign.rc trunk/jvcl/packages/d18/JvGlobusDesign.res trunk/jvcl/packages/d18/JvHMI.dpk trunk/jvcl/packages/d18/JvHMI.dproj trunk/jvcl/packages/d18/JvHMI.rc trunk/jvcl/packages/d18/JvHMI.res trunk/jvcl/packages/d18/JvHMIDesign.dpk trunk/jvcl/packages/d18/JvHMIDesign.dproj trunk/jvcl/packages/d18/JvHMIDesign.rc trunk/jvcl/packages/d18/JvHMIDesign.res trunk/jvcl/packages/d18/JvJans.dpk trunk/jvcl/packages/d18/JvJans.dproj trunk/jvcl/packages/d18/JvJans.rc trunk/jvcl/packages/d18/JvJans.res trunk/jvcl/packages/d18/JvJansDesign.dpk trunk/jvcl/packages/d18/JvJansDesign.dproj trunk/jvcl/packages/d18/JvJansDesign.rc trunk/jvcl/packages/d18/JvJansDesign.res trunk/jvcl/packages/d18/JvMM.dpk trunk/jvcl/packages/d18/JvMM.dproj trunk/jvcl/packages/d18/JvMM.rc trunk/jvcl/packages/d18/JvMM.res trunk/jvcl/packages/d18/JvMMDesign.dpk trunk/jvcl/packages/d18/JvMMDesign.dproj trunk/jvcl/packages/d18/JvMMDesign.rc trunk/jvcl/packages/d18/JvMMDesign.res trunk/jvcl/packages/d18/JvManagedThreads.dpk trunk/jvcl/packages/d18/JvManagedThreads.dproj trunk/jvcl/packages/d18/JvManagedThreads.rc trunk/jvcl/packages/d18/JvManagedThreads.res trunk/jvcl/packages/d18/JvManagedThreadsDesign.dpk trunk/jvcl/packages/d18/JvManagedThreadsDesign.dproj trunk/jvcl/packages/d18/JvManagedThreadsDesign.rc trunk/jvcl/packages/d18/JvManagedThreadsDesign.res trunk/jvcl/packages/d18/JvNet.dpk trunk/jvcl/packages/d18/JvNet.dproj trunk/jvcl/packages/d18/JvNet.rc trunk/jvcl/packages/d18/JvNet.res trunk/jvcl/packages/d18/JvNetDesign.dpk trunk/jvcl/packages/d18/JvNetDesign.dproj trunk/jvcl/packages/d18/JvNetDesign.rc trunk/jvcl/packages/d18/JvNetDesign.res trunk/jvcl/packages/d18/JvPageComps.dpk trunk/jvcl/packages/d18/JvPageComps.dproj trunk/jvcl/packages/d18/JvPageComps.rc trunk/jvcl/packages/d18/JvPageComps.res trunk/jvcl/packages/d18/JvPageCompsDesign.dpk trunk/jvcl/packages/d18/JvPageCompsDesign.dproj trunk/jvcl/packages/d18/JvPageCompsDesign.rc trunk/jvcl/packages/d18/JvPageCompsDesign.res trunk/jvcl/packages/d18/JvPascalInterpreter.dpk trunk/jvcl/packages/d18/JvPascalInterpreter.dproj trunk/jvcl/packages/d18/JvPascalInterpreter.rc trunk/jvcl/packages/d18/JvPascalInterpreter.res trunk/jvcl/packages/d18/JvPascalInterpreterDesign.dpk trunk/jvcl/packages/d18/JvPascalInterpreterDesign.dproj trunk/jvcl/packages/d18/JvPascalInterpreterDesign.rc trunk/jvcl/packages/d18/JvPascalInterpreterDesign.res trunk/jvcl/packages/d18/JvPluginSystem.dpk trunk/jvcl/packages/d18/JvPluginSystem.dproj trunk/jvcl/packages/d18/JvPluginSystem.rc trunk/jvcl/packages/d18/JvPluginSystem.res trunk/jvcl/packages/d18/JvPluginSystemDesign.dpk trunk/jvcl/packages/d18/JvPluginSystemDesign.dproj trunk/jvcl/packages/d18/JvPluginSystemDesign.rc trunk/jvcl/packages/d18/JvPluginSystemDesign.res trunk/jvcl/packages/d18/JvPrintPreview.dpk trunk/jvcl/packages/d18/JvPrintPreview.dproj trunk/jvcl/packages/d18/JvPrintPreview.rc trunk/jvcl/packages/d18/JvPrintPreview.res trunk/jvcl/packages/d18/JvPrintPreviewDesign.dpk trunk/jvcl/packages/d18/JvPrintPreviewDesign.dproj trunk/jvcl/packages/d18/JvPrintPreviewDesign.rc trunk/jvcl/packages/d18/JvPrintPreviewDesign.res trunk/jvcl/packages/d18/JvRuntimeDesign.dpk trunk/jvcl/packages/d18/JvRuntimeDesign.dproj trunk/jvcl/packages/d18/JvRuntimeDesign.rc trunk/jvcl/packages/d18/JvRuntimeDesign.res trunk/jvcl/packages/d18/JvRuntimeDesignDesign.dpk trunk/jvcl/packages/d18/JvRuntimeDesignDesign.dproj trunk/jvcl/packages/d18/JvRuntimeDesignDesign.rc trunk/jvcl/packages/d18/JvRuntimeDesignDesign.res trunk/jvcl/packages/d18/JvStdCtrls.dpk trunk/jvcl/packages/d18/JvStdCtrls.dproj trunk/jvcl/packages/d18/JvStdCtrls.rc trunk/jvcl/packages/d18/JvStdCtrls.res trunk/jvcl/packages/d18/JvStdCtrlsDesign.dpk trunk/jvcl/packages/d18/JvStdCtrlsDesign.dproj trunk/jvcl/packages/d18/JvStdCtrlsDesign.rc trunk/jvcl/packages/d18/JvStdCtrlsDesign.res trunk/jvcl/packages/d18/JvSystem.dpk trunk/jvcl/packages/d18/JvSystem.dproj trunk/jvcl/packages/d18/JvSystem.rc trunk/jvcl/packages/d18/JvSystem.res trunk/jvcl/packages/d18/JvSystemDesign.dpk trunk/jvcl/packages/d18/JvSystemDesign.dproj trunk/jvcl/packages/d18/JvSystemDesign.rc trunk/jvcl/packages/d18/JvSystemDesign.res trunk/jvcl/packages/d18/JvTimeFramework.dpk trunk/jvcl/packages/d18/JvTimeFramework.dproj trunk/jvcl/packages/d18/JvTimeFramework.rc trunk/jvcl/packages/d18/JvTimeFramework.res trunk/jvcl/packages/d18/JvTimeFrameworkDesign.dpk trunk/jvcl/packages/d18/JvTimeFrameworkDesign.dproj trunk/jvcl/packages/d18/JvTimeFrameworkDesign.rc trunk/jvcl/packages/d18/JvTimeFrameworkDesign.res trunk/jvcl/packages/d18/JvWizards.dpk trunk/jvcl/packages/d18/JvWizards.dproj trunk/jvcl/packages/d18/JvWizards.rc trunk/jvcl/packages/d18/JvWizards.res trunk/jvcl/packages/d18/JvWizardsDesign.dpk trunk/jvcl/packages/d18/JvWizardsDesign.dproj trunk/jvcl/packages/d18/JvWizardsDesign.rc trunk/jvcl/packages/d18/JvWizardsDesign.res trunk/jvcl/packages/d18/JvXPCtrls.dpk trunk/jvcl/packages/d18/JvXPCtrls.dproj trunk/jvcl/packages/d18/JvXPCtrls.rc trunk/jvcl/packages/d18/JvXPCtrls.res trunk/jvcl/packages/d18/JvXPCtrlsDesign.dpk trunk/jvcl/packages/d18/JvXPCtrlsDesign.dproj trunk/jvcl/packages/d18/JvXPCtrlsDesign.rc trunk/jvcl/packages/d18/JvXPCtrlsDesign.res trunk/jvcl/packages/d18/d18.txt trunk/jvcl/packages/d18/template.dpk trunk/jvcl/packages/d18/template.dproj trunk/jvcl/packages/d18/template.rc trunk/jvcl/packages/d18_x64/ trunk/jvcl/packages/d18_x64/JvAppFrm.dpk trunk/jvcl/packages/d18_x64/JvAppFrm.dproj trunk/jvcl/packages/d18_x64/JvAppFrm.rc trunk/jvcl/packages/d18_x64/JvAppFrm.res trunk/jvcl/packages/d18_x64/JvBands.dpk trunk/jvcl/packages/d18_x64/JvBands.dproj trunk/jvcl/packages/d18_x64/JvBands.rc trunk/jvcl/packages/d18_x64/JvBands.res trunk/jvcl/packages/d18_x64/JvCmp.dpk trunk/jvcl/packages/d18_x64/JvCmp.dproj trunk/jvcl/packages/d18_x64/JvCmp.rc trunk/jvcl/packages/d18_x64/JvCmp.res trunk/jvcl/packages/d18_x64/JvControls.dpk trunk/jvcl/packages/d18_x64/JvControls.dproj trunk/jvcl/packages/d18_x64/JvControls.rc trunk/jvcl/packages/d18_x64/JvControls.res trunk/jvcl/packages/d18_x64/JvCore.dpk trunk/jvcl/packages/d18_x64/JvCore.dproj trunk/jvcl/packages/d18_x64/JvCore.rc trunk/jvcl/packages/d18_x64/JvCore.res trunk/jvcl/packages/d18_x64/JvCrypt.dpk trunk/jvcl/packages/d18_x64/JvCrypt.dproj trunk/jvcl/packages/d18_x64/JvCrypt.rc trunk/jvcl/packages/d18_x64/JvCrypt.res trunk/jvcl/packages/d18_x64/JvCustom.dpk trunk/jvcl/packages/d18_x64/JvCustom.dproj trunk/jvcl/packages/d18_x64/JvCustom.rc trunk/jvcl/packages/d18_x64/JvCustom.res trunk/jvcl/packages/d18_x64/JvDB.dpk trunk/jvcl/packages/d18_x64/JvDB.dproj trunk/jvcl/packages/d18_x64/JvDB.rc trunk/jvcl/packages/d18_x64/JvDB.res trunk/jvcl/packages/d18_x64/JvDlgs.dpk trunk/jvcl/packages/d18_x64/JvDlgs.dproj trunk/jvcl/packages/d18_x64/JvDlgs.rc trunk/jvcl/packages/d18_x64/JvDlgs.res trunk/jvcl/packages/d18_x64/JvDocking.dpk trunk/jvcl/packages/d18_x64/JvDocking.dproj trunk/jvcl/packages/d18_x64/JvDocking.rc trunk/jvcl/packages/d18_x64/JvDocking.res trunk/jvcl/packages/d18_x64/JvDotNetCtrls.dpk trunk/jvcl/packages/d18_x64/JvDotNetCtrls.dproj trunk/jvcl/packages/d18_x64/JvDotNetCtrls.rc trunk/jvcl/packages/d18_x64/JvDotNetCtrls.res trunk/jvcl/packages/d18_x64/JvGlobus.dpk trunk/jvcl/packages/d18_x64/JvGlobus.dproj trunk/jvcl/packages/d18_x64/JvGlobus.rc trunk/jvcl/packages/d18_x64/JvGlobus.res trunk/jvcl/packages/d18_x64/JvHMI.dpk trunk/jvcl/packages/d18_x64/JvHMI.dproj trunk/jvcl/packages/d18_x64/JvHMI.rc trunk/jvcl/packages/d18_x64/JvHMI.res trunk/jvcl/packages/d18_x64/JvJans.dpk trunk/jvcl/packages/d18_x64/JvJans.dproj trunk/jvcl/packages/d18_x64/JvJans.rc trunk/jvcl/packages/d18_x64/JvJans.res trunk/jvcl/packages/d18_x64/JvMM.dpk trunk/jvcl/packages/d18_x64/JvMM.dproj trunk/jvcl/packages/d18_x64/JvMM.rc trunk/jvcl/packages/d18_x64/JvMM.res trunk/jvcl/packages/d18_x64/JvManagedThreads.dpk trunk/jvcl/packages/d18_x64/JvManagedThreads.dproj trunk/jvcl/packages/d18_x64/JvManagedThreads.rc trunk/jvcl/packages/d18_x64/JvManagedThreads.res trunk/jvcl/packages/d18_x64/JvNet.dpk trunk/jvcl/packages/d18_x64/JvNet.dproj trunk/jvcl/packages/d18_x64/JvNet.rc trunk/jvcl/packages/d18_x64/JvNet.res trunk/jvcl/packages/d18_x64/JvPageComps.dpk trunk/jvcl/packages/d18_x64/JvPageComps.dproj trunk/jvcl/packages/d18_x64/JvPageComps.rc trunk/jvcl/packages/d18_x64/JvPageComps.res trunk/jvcl/packages/d18_x64/JvPascalInterpreter.dpk trunk/jvcl/packages/d18_x64/JvPascalInterpreter.dproj trunk/jvcl/packages/d18_x64/JvPascalInterpreter.rc trunk/jvcl/packages/d18_x64/JvPascalInterpreter.res trunk/jvcl/packages/d18_x64/JvPluginSystem.dpk trunk/jvcl/packages/d18_x64/JvPluginSystem.dproj trunk/jvcl/packages/d18_x64/JvPluginSystem.rc trunk/jvcl/packages/d18_x64/JvPluginSystem.res trunk/jvcl/packages/d18_x64/JvPrintPreview.dpk trunk/jvcl/packages/d18_x64/JvPrintPreview.dproj trunk/jvcl/packages/d18_x64/JvPrintPreview.rc trunk/jvcl/packages/d18_x64/JvPrintPreview.res trunk/jvcl/packages/d18_x64/JvRuntimeDesign.dpk trunk/jvcl/packages/d18_x64/JvRuntimeDesign.dproj trunk/jvcl/packages/d18_x64/JvRuntimeDesign.rc trunk/jvcl/packages/d18_x64/JvRuntimeDesign.res trunk/jvcl/packages/d18_x64/JvStdCtrls.dpk trunk/jvcl/packages/d18_x64/JvStdCtrls.dproj trunk/jvcl/packages/d18_x64/JvStdCtrls.rc trunk/jvcl/packages/d18_x64/JvStdCtrls.res trunk/jvcl/packages/d18_x64/JvSystem.dpk trunk/jvcl/packages/d18_x64/JvSystem.dproj trunk/jvcl/packages/d18_x64/JvSystem.rc trunk/jvcl/packages/d18_x64/JvSystem.res trunk/jvcl/packages/d18_x64/JvTimeFramework.dpk trunk/jvcl/packages/d18_x64/JvTimeFramework.dproj trunk/jvcl/packages/d18_x64/JvTimeFramework.rc trunk/jvcl/packages/d18_x64/JvTimeFramework.res trunk/jvcl/packages/d18_x64/JvWizards.dpk trunk/jvcl/packages/d18_x64/JvWizards.dproj trunk/jvcl/packages/d18_x64/JvWizards.rc trunk/jvcl/packages/d18_x64/JvWizards.res trunk/jvcl/packages/d18_x64/JvXPCtrls.dpk trunk/jvcl/packages/d18_x64/JvXPCtrls.dproj trunk/jvcl/packages/d18_x64/JvXPCtrls.rc trunk/jvcl/packages/d18_x64/JvXPCtrls.res trunk/jvcl/packages/d18_x64/d18.txt trunk/jvcl/packages/d18_x64/template.dpk trunk/jvcl/packages/d18_x64/template.dproj trunk/jvcl/packages/d18_x64/template.rc Property Changed: ---------------- trunk/jvcl/bin/ Property changes on: trunk/jvcl/bin ___________________________________________________________________ Modified: svn:ignore - *.exe *.dll *.tds *.ini *.map + *.exe *.dll *.tds *.ini *.map *.log Modified: trunk/jvcl/clean.bat =================================================================== --- trunk/jvcl/clean.bat 2013-05-13 20:00:36 UTC (rev 13508) +++ trunk/jvcl/clean.bat 2013-05-13 23:06:28 UTC (rev 13509) @@ -54,6 +54,9 @@ 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 lib\d18\win64\*.dcp lib\d18\win64\*.bpl lib\d18\win64\*.dfm lib\d18\win64\*.obj lib\d18\win64\*.bpi lib\d18\win64\*.lib >NUL +del /S lib\d18\win64\debug\*.dcp lib\d18\win64\debug\*.bpl lib\d18\win64\debug\*.dfm lib\d18\win64\debug\*.obj lib\d18\win64\debug\*.bpi lib\d18\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 2013-05-13 20:00:36 UTC (rev 13508) +++ trunk/jvcl/common/jvcl.inc 2013-05-13 23:06:28 UTC (rev 13509) @@ -114,6 +114,16 @@ {$DEFINE JVCL_CONFIGURED} {$ENDIF DELPHI17} {-----------------------------------------------------------------------------} +{$IFDEF DELPHI18} + {$IFDEF CPUX86} + {$I jvcld18.inc} + {$ENDIF CPUX86} + {$IFDEF CPUX64} + {$I jvcld18_x64.inc} + {$ENDIF CPUX64} + {$DEFINE JVCL_CONFIGURED} +{$ENDIF DELPHI18} +{-----------------------------------------------------------------------------} { C++Builder } {-----------------------------------------------------------------------------} {$IFDEF BCB6} @@ -165,6 +175,16 @@ {$ENDIF CPUX64} {$DEFINE JVCL_CONFIGURED} {$ENDIF BCB17} +{-----------------------------------------------------------------------------} +{$IFDEF BCB18} + {$IFDEF CPUX86} + {$I jvcld18win32.inc} // same include file for BDS based C++ + {$ENDIF CPUX86} + {$IFDEF CPUX64} + {$I jvcld18_x64.inc} + {$ENDIF CPUX64} + {$DEFINE JVCL_CONFIGURED} +{$ENDIF BCB18} {$ENDIF DEFAULT_JVCL_INC} {-----------------------------------------------------------------------------} Added: trunk/jvcl/common/jvcld18.inc =================================================================== --- trunk/jvcl/common/jvcld18.inc (rev 0) +++ trunk/jvcl/common/jvcld18.inc 2013-05-13 23:06:28 UTC (rev 13509) @@ -0,0 +1,178 @@ +{----------------------------------------------------------------------------- +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 +You have to choose between shared and non shared packages} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXEDITOR_SHARED} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXEDITOR_NON_SHARED} + +{ Activates Support for the DevExpress cxGrid-Controls +For further informations have a look at http://www.devexpress.com +You have to choose between shared and non shared packages} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXGRID_SHARED} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXGRID_NON_SHARED} + +{ Activates Support for the DevExpress cxVerticalGrid-Controls +For further informations have a look at http://www.devexpress.com +You have to choose between shared and non shared packages} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID_SHARED} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID_NON_SHARED} + +{ Activates Support for the DevExpress cxPivotGrid-Controls +For further informations have a look at http://www.devexpress.com +You have to choose between shared and non shared packages} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_SHARED} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_NON_SHARED} + +{ Activates Support for the DevExpress cxTreeList-Controls +For further informations have a look at http://www.devexpress.com +You have to choose between shared and non shared packages} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXTREELIST_SHARED} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXTREELIST_NON_SHARED} + + +{ 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 DevArt VCL Oracle Data Access Components +For further informations have a look at http://www.devart.com } +{.$DEFINE USE_3RDPARTY_DEVART_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} + + + + +{%missing%} +{ JVCL DEVELOPER INFO: This option is missing, please update the jvclbase.inc file. } +{.$DEFINE USE_3RDPARTY_CORELAB_ODAC} + +{%missing%} +{ JVCL DEVELOPER INFO: This option is missing, please update the jvclbase.inc file. } +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXEDITOR} + +{%missing%} +{ JVCL DEVELOPER INFO: This option is missing, please update the jvclbase.inc file. } +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXGRID} Added: trunk/jvcl/common/jvcld18_x64.inc =================================================================== --- trunk/jvcl/common/jvcld18_x64.inc (rev 0) +++ trunk/jvcl/common/jvcld18_x64.inc 2013-05-13 23:06:28 UTC (rev 13509) @@ -0,0 +1,178 @@ +{----------------------------------------------------------------------------- +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 +You have to choose between shared and non shared packages} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXEDITOR_SHARED} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXEDITOR_NON_SHARED} + +{ Activates Support for the DevExpress cxGrid-Controls +For further informations have a look at http://www.devexpress.com +You have to choose between shared and non shared packages} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXGRID_SHARED} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXGRID_NON_SHARED} + +{ Activates Support for the DevExpress cxVerticalGrid-Controls +For further informations have a look at http://www.devexpress.com +You have to choose between shared and non shared packages} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID_SHARED} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID_NON_SHARED} + +{ Activates Support for the DevExpress cxPivotGrid-Controls +For further informations have a look at http://www.devexpress.com +You have to choose between shared and non shared packages} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_SHARED} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_NON_SHARED} + +{ Activates Support for the DevExpress cxTreeList-Controls +For further informations have a look at http://www.devexpress.com +You have to choose between shared and non shared packages} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXTREELIST_SHARED} +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXTREELIST_NON_SHARED} + + +{ 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 DevArt VCL Oracle Data Access Components +For further informations have a look at http://www.devart.com } +{.$DEFINE USE_3RDPARTY_DEVART_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} + + + + +{%missing%} +{ JVCL DEVELOPER INFO: This option is missing, please update the jvclbase.inc file. } +{.$DEFINE USE_3RDPARTY_CORELAB_ODAC} + +{%missing%} +{ JVCL DEVELOPER INFO: This option is missing, please update the jvclbase.inc file. } +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXEDITOR} + +{%missing%} +{ JVCL DEVELOPER INFO: This option is missing, please update the jvclbase.inc file. } +{.$DEFINE USE_3RDPARTY_DEVEXPRESS_CXGRID} Modified: trunk/jvcl/design/JvPluginWizard.pas =================================================================== --- trunk/jvcl/design/JvPluginWizard.pas 2013-05-13 20:00:36 UTC (rev 13508) +++ trunk/jvcl/design/JvPluginWizard.pas 2013-05-13 23:06:28 UTC (rev 13509) @@ -491,6 +491,7 @@ {$ENDIF BCB} {$IFDEF DELPHI} Repository := Installations.DelphiInstallationFromVersion[ + {$IFDEF DELPHI18} 18 {$ENDIF} {$IFDEF DELPHI17} 17 {$ENDIF} {$IFDEF DELPHI16} 16 {$ENDIF} {$IFDEF DELPHI15} 15 {$ENDIF} Modified: trunk/jvcl/devtools/bin/pgEdit.xml =================================================================== --- trunk/jvcl/devtools/bin/pgEdit.xml 2013-05-13 20:00:36 UTC (rev 13508) +++ trunk/jvcl/devtools/bin/pgEdit.xml 2013-05-13 23:06:28 UTC (rev 13509) @@ -74,20 +74,23 @@ <target name="d16_x64"/> <target name="d17"/> <target name="d17_x64"/> + <target name="d18"/> + <target name="d18_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,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="D" value="d6,d6p,d7,d7p,d9,d9p,d10,d10p,d11,d12,d14,d15,d16,d16_x64,d17,d17_x64,d18,d18_x64"/> + <alias name="C" value="c6,c6p,d10,d10p,d11,d12,d14,d15,d16,d16_x64,d17,d17_x64,d18,d18_x64"/> + <alias name="DB" value="c6,d6,d7,d9,d10,d11,d12,d14,d15,d16,d16_x64,d17,d17_x64,d18,d18_x64"/> + <alias name="DB_win32" value="c6,d6,d7,d9,d10,d11,d12,d14,d15,d16,d17,d18"/> + <alias name="BDE" value="c6,d6,d7,d9,d10,d11,d12,d14,d15,d16,d17,d18"/> <alias name="d16_all" value="d16,d16_x64"/> <alias name="d17_all" value="d17,d17_x64"/> - <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"/> + <alias name="d18_all" value="d18,d18_x64"/> + <alias name="allv7up" value="d7,d7p,d9,d9p,d10,d10p,d11,d12,d14,d15,d16,d16_x64,d17,d17_x64,d18,d18_x64"/> + <alias name="allv9up" value="d9,d9p,d10,d10p,d11,d12,d14,d15,d16,d16_x64,d17,d17_x64,d18,d18_x64"/> + <alias name="allv12up" value="d12,d14,d15,d16,d16_x64,d17,d17_x64,d18,d18_x64"/> + <alias name="all_win32" value="c6,c6p,d6,d6p,d7,d7p,d9,d9p,d10,d10p,d11,d12,d14,d15,d16,d17,d18"/> </aliases> <ProjectProperties> <ProjectProperty name="VersionMajorNumber" value="3"/> Property changes on: trunk/jvcl/include/d18 ___________________________________________________________________ Added: svn:ignore + *.hpp Modified: trunk/jvcl/install/JVCLInstall/DelphiData.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/DelphiData.pas 2013-05-13 20:00:36 UTC (rev 13508) +++ trunk/jvcl/install/JVCLInstall/DelphiData.pas 2013-05-13 23:06:28 UTC (rev 13509) @@ -35,7 +35,7 @@ Windows, SysUtils, Classes, Contnrs, Registry, PackageInformation; const - BDSVersions: array[1..10] of record + BDSVersions: array[1..11] of record Name: string; VersionStr: string; Version: Integer; @@ -52,7 +52,8 @@ (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: 'XE3'; Version: 17; CIV: '170'; Supported: True) + (Name: 'Embarcadero RAD Studio'; VersionStr: 'XE3'; Version: 17; CIV: '170'; Supported: True), + (Name: 'Embarcadero RAD Studio'; VersionStr: 'XE4'; Version: 18; CIV: '180'; Supported: True) ); type Modified: trunk/jvcl/install/JVCLInstall/Frames/FrmConfigPage.dfm =================================================================== --- trunk/jvcl/install/JVCLInstall/Frames/FrmConfigPage.dfm 2013-05-13 20:00:36 UTC (rev 13508) +++ trunk/jvcl/install/JVCLInstall/Frames/FrmConfigPage.dfm 2013-05-13 23:06:28 UTC (rev 13509) @@ -5,6 +5,9 @@ Height = 397 TabOrder = 0 TabStop = True + DesignSize = ( + 518 + 397) object LblBCBGuide: TLabel Left = 279 Top = 379 @@ -213,22 +216,32 @@ TabOrder = 9 TabStop = True Visible = False + ExplicitLeft = 2 + ExplicitTop = 203 + ExplicitWidth = 261 + ExplicitHeight = 49 inherited LblCaption: TLabel Left = 7 Width = 68 Caption = 'BP&L Directory:' + ExplicitLeft = 7 + ExplicitWidth = 68 end inherited Bevel: TBevel Width = 261 Visible = False + ExplicitWidth = 261 end inherited EditDirectory: TEdit Left = 7 Width = 227 OnChange = FrameDirEditBrowseBPLEditDirectoryChange + ExplicitLeft = 7 + ExplicitWidth = 227 end inherited BtnDirBrowse: TButton Left = 234 + ExplicitLeft = 234 end end inline FrameDirEditBrowseHPP: TFrameDirEditBrowse @@ -239,15 +252,22 @@ TabOrder = 10 TabStop = True Visible = False + ExplicitLeft = 2 + ExplicitTop = 258 + ExplicitWidth = 261 + ExplicitHeight = 49 inherited LblCaption: TLabel Left = 7 Width = 70 Caption = '&HPP Directory:' ParentShowHint = False + ExplicitLeft = 7 + ExplicitWidth = 70 end inherited Bevel: TBevel Width = 261 Visible = False + ExplicitWidth = 261 end inherited EditDirectory: TEdit Left = 7 @@ -256,10 +276,13 @@ 'The HPP directory specifies where the generated .hpp files'#13#10'shou' + 'ld go. If this field is empty the generated .hpp files are'#13#10'writ' + 'ten to the directory where the pascal source file is.' + ExplicitLeft = 7 + ExplicitWidth = 227 end inherited BtnDirBrowse: TButton Left = 234 OnClick = FrameDirEditBrowseHPPBtnJCLDirBrowseClick + ExplicitLeft = 234 end end object CheckBoxGenerateMapFiles: TCheckBox Modified: trunk/jvcl/install/JVCLInstall/Frames/FrmConfigPage.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/Frames/FrmConfigPage.pas 2013-05-13 20:00:36 UTC (rev 13508) +++ trunk/jvcl/install/JVCLInstall/Frames/FrmConfigPage.pas 2013-05-13 23:06:28 UTC (rev 13509) @@ -31,6 +31,9 @@ interface uses + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.UITypes, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ShellAPI, CommCtrl, Modified: trunk/jvcl/install/JVCLInstall/Frames/FrmInstall.dfm =================================================================== --- trunk/jvcl/install/JVCLInstall/Frames/FrmInstall.dfm 2013-05-13 20:00:36 UTC (rev 13508) +++ trunk/jvcl/install/JVCLInstall/Frames/FrmInstall.dfm 2013-05-13 23:06:28 UTC (rev 13509) @@ -5,6 +5,9 @@ Height = 397 TabOrder = 0 TabStop = True + DesignSize = ( + 518 + 397) object LblTarget: TLabel Left = 8 Top = 16 Modified: trunk/jvcl/install/JVCLInstall/Frames/FrmInstall.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/Frames/FrmInstall.pas 2013-05-13 20:00:36 UTC (rev 13508) +++ trunk/jvcl/install/JVCLInstall/Frames/FrmInstall.pas 2013-05-13 23:06:28 UTC (rev 13509) @@ -32,7 +32,10 @@ interface uses - Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.UITypes, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} + Windows, Messages, Types, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ShellAPI, {$IFDEF USE_DXGETTEXT} Modified: trunk/jvcl/install/JVCLInstall/Frames/FrmPackageSelection.dfm =================================================================== --- trunk/jvcl/install/JVCLInstall/Frames/FrmPackageSelection.dfm 2013-05-13 20:00:36 UTC (rev 13508) +++ trunk/jvcl/install/JVCLInstall/Frames/FrmPackageSelection.dfm 2013-05-13 23:06:28 UTC (rev 13509) @@ -5,6 +5,9 @@ Height = 397 TabOrder = 0 TabStop = True + DesignSize = ( + 518 + 397) object LblTarget: TLabel Left = 8 Top = 101 @@ -81,7 +84,6 @@ 'ecked/unchecked if necessary.' Style = csDropDownList Anchors = [akTop, akRight] - ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 4 @@ -136,7 +138,7 @@ Left = 480 Top = 128 Bitmap = { - 494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 494C010103000500040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 0000000000003600000028000000400000001000000001002000000000000010 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000084848400000000008484840000000000000000000000 Modified: trunk/jvcl/install/JVCLInstall/Frames/FrmPackageSelection.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/Frames/FrmPackageSelection.pas 2013-05-13 20:00:36 UTC (rev 13508) +++ trunk/jvcl/install/JVCLInstall/Frames/FrmPackageSelection.pas 2013-05-13 23:06:28 UTC (rev 13509) @@ -31,10 +31,10 @@ interface uses - Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, + Windows, Messages, Types, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, CheckLst, ImgList, ExtCtrls, Menus, ActnList, ShellAPI, CommCtrl, - JVCL3Install, JVCLData, PackageInformation, PackageUtils, HtHint; + JVCL3Install, JVCLData, PackageInformation, PackageUtils, HtHint, System.Actions; type TFramePackageSelection = class(TFrame) Modified: trunk/jvcl/install/JVCLInstall/FrmCompileMessages.dfm =================================================================== --- trunk/jvcl/install/JVCLInstall/FrmCompileMessages.dfm 2013-05-13 20:00:36 UTC (rev 13508) +++ trunk/jvcl/install/JVCLInstall/FrmCompileMessages.dfm 2013-05-13 23:06:28 UTC (rev 13509) @@ -1,11 +1,11 @@ object FormCompileMessages: TFormCompileMessages Left = 185 Top = 216 - ClientWidth = 743 - ClientHeight = 118 BorderIcons = [biSystemMenu] BorderStyle = bsSizeToolWin Caption = 'Compiler Messages' + ClientHeight = 118 + ClientWidth = 743 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -20,11 +20,10 @@ object ListBox: TListBox Left = 0 Top = 17 - Width = 742 - Height = 94 + Width = 743 + Height = 101 Style = lbOwnerDrawFixed Align = alClient - ItemHeight = 16 ParentShowHint = False PopupMenu = PopupMenu ShowHint = True @@ -36,11 +35,12 @@ object PanelTop: TPanel Left = 0 Top = 0 - Width = 742 + Width = 743 Height = 17 Align = alTop BevelOuter = bvNone TabOrder = 1 + ExplicitWidth = 742 object LabelHelp: TLabel Left = 3 Top = 2 Modified: trunk/jvcl/install/JVCLInstall/FrmCompileMessages.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/FrmCompileMessages.pas 2013-05-13 20:00:36 UTC (rev 13508) +++ trunk/jvcl/install/JVCLInstall/FrmCompileMessages.pas 2013-05-13 23:06:28 UTC (rev 13509) @@ -32,9 +32,13 @@ interface uses + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.UITypes, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} + Windows, ShellAPI, Types, SysUtils, Classes, Contnrs, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, Menus, JclSysUtils, JVCLData, - Windows, ShellAPI, SysUtils, Classes, Contnrs, Graphics, Controls, Forms, - Dialogs, StdCtrls, ExtCtrls, Menus, FrmCompile; + FrmCompile; type TMsgType = (msgFatal, msgError, msgWarning, msgHint, msgText); Modified: trunk/jvcl/install/JVCLInstall/Helpers/HtHint.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/Helpers/HtHint.pas 2013-05-13 20:00:36 UTC (rev 13508) +++ trunk/jvcl/install/JVCLInstall/Helpers/HtHint.pas 2013-05-13 23:06:28 UTC (rev 13509) @@ -31,6 +31,9 @@ interface uses + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.UITypes, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} Windows, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls, JvConsts; Modified: trunk/jvcl/install/JVCLInstall/JVCL3Install.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/JVCL3Install.pas 2013-05-13 20:00:36 UTC (rev 13508) +++ trunk/jvcl/install/JVCLInstall/JVCL3Install.pas 2013-05-13 23:06:28 UTC (rev 13509) @@ -31,6 +31,9 @@ interface uses + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.UITypes, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} Windows, ShellAPI, SysUtils, Classes, Core, Graphics, Controls, Forms, StdCtrls, Dialogs, DelphiData, JVCLData, Utils, Modified: trunk/jvcl/install/JVCLInstall/Main.dfm =================================================================== --- trunk/jvcl/install/JVCLInstall/Main.dfm 2013-05-13 20:00:36 UTC (rev 13508) +++ trunk/jvcl/install/JVCLInstall/Main.dfm 2013-05-13 23:06:28 UTC (rev 13509) @@ -158,7 +158,7 @@ Left = 624 Top = 8 Bitmap = { - 494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 494C010101000500040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 0000000000003600000028000000400000001000000001002000000000000010 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 @@ -301,7 +301,7 @@ Left = 592 Top = 8 Bitmap = { - 494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 494C010101000500040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 0000000000003600000028000000400000001000000001002000000000000010 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 Modified: trunk/jvcl/install/JVCLInstall/Main.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/Main.pas 2013-05-13 20:00:36 UTC (rev 13508) +++ trunk/jvcl/install/JVCLInstall/Main.pas 2013-05-13 23:06:28 UTC (rev 13509) @@ -36,6 +36,9 @@ interface uses + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.UITypes, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, ImgList, Dialogs, JvExControls, JvComponent, jpeg, ExtCtrls, StdCtrls, JvWizard, JvWizardRouteMapList, Property changes on: trunk/jvcl/lib/d18 ___________________________________________________________________ Added: tsvn:projectlanguage + 1033 Added: bugtraq:url + http://issuetracker.delphi-jedi.org/view.php?id=%BUGID% Added: bugtraq:message + (Mantis #%BUGID%) Added: tsvn:logminsize + 5 Added: bugtraq:logregex + [Mm]antis #?(\d+)(,? ?#?(\d+))+ (\d+) Property changes on: trunk/jvcl/lib/d18/win32 ___________________________________________________________________ Added: svn:ignore + *.dcu *.bpi *.dcp *.lib *.dfm Added: trunk/jvcl/lib/d18/win32/d18.txt =================================================================== --- trunk/jvcl/lib/d18/win32/d18.txt (rev 0) +++ trunk/jvcl/lib/d18/win32/d18.txt 2013-05-13 23:06:28 UTC (rev 13509) @@ -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/d18/win32/debug/debug.txt =================================================================== --- trunk/jvcl/lib/d18/win32/debug/debug.txt (rev 0) +++ trunk/jvcl/lib/d18/win32/debug/debug.txt 2013-05-13 23:06:28 UTC (rev 13509) @@ -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/d18/win64 ___________________________________________________________________ Added: svn:ignore + *.dcu *.dcp *.dfm *.a Added: trunk/jvcl/lib/d18/win64/d18.txt =================================================================== --- trunk/jvcl/lib/d18/win64/d18.txt (rev 0) +++ trunk/jvcl/lib/d18/win64/d18.txt 2013-05-13 23:06:28 UTC (rev 13509) @@ -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/d18/win64/debug/debug.txt =================================================================== --- trunk/jvcl/lib/d18/win64/debug/debug.txt (rev 0) +++ trunk/jvcl/lib/d18/win64/debug/debug.txt 2013-05-13 23:06:28 UTC (rev 13509) @@ -0,0 +1 @@ +This directory is intended as a common place for Debug DCU files. \ No newline at end of file Modified: trunk/jvcl/make.proj =================================================================== --- trunk/jvcl/make.proj 2013-05-13 20:00:36 UTC (rev 13508) +++ trunk/jvcl/make.proj 2013-05-13 23:06:28 UTC (rev 13509) @@ -49,6 +49,7 @@ <EditionDirVersion Condition=" Exists('$(BDS)\bin\dcc150.dll') ">d15</EditionDirVersion> <!-- XE --> <EditionDirVersion Condition=" Exists('$(BDS)\bin\dcc32160.dll') ">d16</EditionDirVersion> <!-- XE2 --> <EditionDirVersion Condition=" Exists('$(BDS)\bin\dcc32170.dll') ">d17</EditionDirVersion> <!-- XE3 --> + <EditionDirVersion Condition=" Exists('$(BDS)\bin\dcc32180.dll') ">d17</EditionDirVersion> <!-- XE4 --> <LibDirVersion>$(EditionDirVersion)\$(Platform)</LibDirVersion> <LibDirVersion Condition=" '$(EditionDirVersion)' == 'd12' or '$(EditionDirVersion)' == 'd14' or '$(EditionDirVersion)' == 'd15' ">$(EditionDirVersion)</LibDirVersion> @@ -204,7 +205,7 @@ <Target Name="CheckEnv"> <Error Condition=" '$(BDS)' == '' " Text="BDS environment variable isn't set. You must execute rsvars.bat before using msbuild." /> - <Error Condition=" '$(LibDirVersion)' == '' " Text="RAD Studio version couldn't be identified. Have you executed rsvars.bat?" /> + <Error Condition=" '$(EditionDirVersion)' == '' " Text="RAD Studio version couldn't be identified. Have you executed rsvars.bat?" /> </Target> <!-- Create output directories --> Added: trunk/jvcl/packages/D18 Packages.groupproj =================================================================== --- trunk/jvcl/packages/D18 Packages.groupproj (rev 0) +++ trunk/jvcl/packages/D18 Packages.groupproj 2013-05-13 23:06:28 UTC (rev 13509) @@ -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="D18\JvCore.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvCoreDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvSystem.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvSystemDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvStdCtrls.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvStdCtrlsDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvControls.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvControlsDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvCmp.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvCmpDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvCustom.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvCustomDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvDlgs.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvDlgsDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvCrypt.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvCryptDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvMM.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvMMDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvNet.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvNetDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvAppFrm.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvAppFrmDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvDB.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvDBDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvBDE.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvBDEDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvPascalInterpreter.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvPascalInterpreterDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvBands.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvBandsDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvPluginSystem.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvPluginSystemDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvJans.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvJansDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvGlobus.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvGlobusDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvPrintPreview.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvPrintPreviewDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvPageComps.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvPageCompsDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvWizards.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvWizardsDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvTimeFramework.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvTimeFrameworkDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvHMI.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvHMIDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvManagedThreads.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvManagedThreadsDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvXPCtrls.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvXPCtrlsDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvDocking.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvDockingDesign.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvDotNetCtrls.dproj"> + <Dependencies/> + </Projects> + <Projects Include="D18\JvDotNetCtrlsDes... [truncated message content] |
From: <ah...@us...> - 2013-05-13 20:00:48
|
Revision: 13508 http://jvcl.svn.sourceforge.net/jvcl/?rev=13508&view=rev Author: ahuser Date: 2013-05-13 20:00:36 +0000 (Mon, 13 May 2013) Log Message: ----------- made "XE" IDE name detection more generic Modified Paths: -------------- trunk/jvcl/packages/bin/dcc32ex.dpr trunk/jvcl/packages/bin/dcc32ex.exe Modified: trunk/jvcl/packages/bin/dcc32ex.dpr =================================================================== --- trunk/jvcl/packages/bin/dcc32ex.dpr 2013-05-07 06:23:30 UTC (rev 13507) +++ trunk/jvcl/packages/bin/dcc32ex.dpr 2013-05-13 20:00:36 UTC (rev 13508) @@ -558,9 +558,9 @@ 6: Result.Name := 'CodeGear RAD Studio 2009'; 7: Result.Name := 'Embarcadero RAD Studio 2010'; 8: Result.Name := 'Embarcadero RAD Studio XE'; - 9: Result.Name := 'Embarcadero RAD Studio XE2'; - 10: Result.Name := 'Embarcadero RAD Studio XE3'; - end; + else + Result.Name := 'Embarcadero RAD Studio XE' + IntToStr(2 + (Result.IDEVersion - 9)); + end; end; if (Result.Typ = ttBDS) and (Result.IDEVersion >= 8) then @@ -1151,7 +1151,6 @@ WriteLn(f, '-LUrtl'); if RuntimePackageVcl then WriteLn(f, '-LUvcl'); - {$MESSAGE HINT '-ns fix for Pulsar Beta 4 is quick and dirty (not sure if this is the best solution)'} if Target.Version >= 16 then WriteLn(f, '-nsSystem;System.Win;WinAPI;Vcl;Vcl.Imaging'); CloseFile(f); @@ -1200,7 +1199,7 @@ begin WriteLn; WriteLn('Additional options (must be specified before any dcc32 parameter):'); - WriteLn(' --delphi-version=d17 Prefer this version, overrides environment variable'); + WriteLn(' --delphi-version=d18 Prefer this version, overrides environment variable'); WriteLn(' --verbose Show warnings and errors during the compiler detection'); WriteLn(' --use-search-paths Use the IDE''s search paths'); WriteLn(' --preserve-config Keep the dcc32.cfg file and create a dcc32_command.cmd'); @@ -1212,8 +1211,8 @@ WriteLn(' --runtime-package-vcl Link the executable against the vcl package'); WriteLn; WriteLn('Environment variables:'); - WriteLn(' DELPHIVERSION = d17 Prefer this Delphi/BCB/BDS version'); - WriteLn(' (d6, d7, c6, d9, d10, d11, d12, d14, d15, d16, d17, ...)'); + WriteLn(' DELPHIVERSION = d18 Prefer this Delphi/BCB/BDS version'); + WriteLn(' (d6, d7, c6, d9, d10, d11, d12, d14, ..., d18, ...)'); end; ExitCode := Status; Modified: trunk/jvcl/packages/bin/dcc32ex.exe =================================================================== (Binary files differ) This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2013-05-07 06:23:39
|
Revision: 13507 http://jvcl.svn.sourceforge.net/jvcl/?rev=13507&view=rev Author: ahuser Date: 2013-05-07 06:23:30 +0000 (Tue, 07 May 2013) Log Message: ----------- Fixed Undo-Objects memory leak Modified Paths: -------------- trunk/jvcl/run/JvEditorCommon.pas Modified: trunk/jvcl/run/JvEditorCommon.pas =================================================================== --- trunk/jvcl/run/JvEditorCommon.pas 2013-04-30 05:30:59 UTC (rev 13506) +++ trunk/jvcl/run/JvEditorCommon.pas 2013-05-07 06:23:30 UTC (rev 13507) @@ -361,6 +361,7 @@ FJvEditor: TJvCustomEditorBase; FPtr: Integer; InUndo: Boolean; + FDiscardList: TObjectList; function LastUndo: TJvUndo; function IsNewGroup(AUndo: TJvUndo): Boolean; function CanRedo: Boolean; @@ -1436,7 +1437,12 @@ procedure TJvUndoBuffer.Add(AUndo: TJvUndo); begin if InUndo then + begin + if FDiscardList = nil then + FDiscardList := TObjectList.Create; + FDiscardList.Add(AUndo); Exit; + end; ClearRedo; inherited Add(AUndo); FPtr := Count - 1; @@ -1527,6 +1533,7 @@ FJvEditor.StatusChanged; end; finally + FreeAndNil(FDiscardList); InUndo := False; end; end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2013-04-30 05:31:07
|
Revision: 13506 http://jvcl.svn.sourceforge.net/jvcl/?rev=13506&view=rev Author: ahuser Date: 2013-04-30 05:30:59 +0000 (Tue, 30 Apr 2013) Log Message: ----------- FListBox accessible through protected property ListBox Modified Paths: -------------- trunk/jvcl/run/JvCombobox.pas Modified: trunk/jvcl/run/JvCombobox.pas =================================================================== --- trunk/jvcl/run/JvCombobox.pas 2013-04-25 11:40:57 UTC (rev 13505) +++ trunk/jvcl/run/JvCombobox.pas 2013-04-30 05:30:59 UTC (rev 13506) @@ -304,6 +304,8 @@ procedure CreatePopup; override; procedure Change; override; function AcceptPopup(var Value: Variant): Boolean; override; + + property ListBox: TJvCheckListBox read FListBox; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2013-04-25 11:41:05
|
Revision: 13505 http://jvcl.svn.sourceforge.net/jvcl/?rev=13505&view=rev Author: ahuser Date: 2013-04-25 11:40:57 +0000 (Thu, 25 Apr 2013) Log Message: ----------- Added missing "public property Header[Index: Integer]: Boolean" Modified Paths: -------------- trunk/jvcl/run/JvCombobox.pas Modified: trunk/jvcl/run/JvCombobox.pas =================================================================== --- trunk/jvcl/run/JvCombobox.pas 2013-04-09 22:23:19 UTC (rev 13504) +++ trunk/jvcl/run/JvCombobox.pas 2013-04-25 11:40:57 UTC (rev 13505) @@ -295,6 +295,8 @@ function GetOrderedTextValue: string; function GetItems: TStrings; function GetCheckedCount: Integer; + function GetHeader(Index: Integer): Boolean; + procedure SetHeader(Index: Integer; const Value: Boolean); protected procedure DoEnter; override; procedure DoExit; override; @@ -315,6 +317,7 @@ property CheckedCount: Integer read GetCheckedCount; property ItemEnabled[Index: Integer]: Boolean read GetItemEnabled write SetItemEnabled; property State[Index: Integer]: TCheckBoxState read GetState write SetState; + property Header[Index: Integer]: Boolean read GetHeader write SetHeader; property Items: TStrings read GetItems write SetItems; property CapSelectAll: string read FCapSelAll write FCapSelAll stored IsStoredCapSelAll; @@ -738,6 +741,11 @@ Result := FListBox.ItemEnabled[Index]; end; +function TJvCustomCheckedComboBox.GetHeader(Index: Integer): Boolean; +begin + Result := FListBox.Header[Index]; +end; + function TJvCustomCheckedComboBox.GetItems: TStrings; begin Result := FListBox.Items; @@ -972,6 +980,11 @@ FDropDownLines := Value; end; +procedure TJvCustomCheckedComboBox.SetHeader(Index: Integer; const Value: Boolean); +begin + FListBox.Header[Index] := Value; +end; + procedure TJvCustomCheckedComboBox.SetItemEnabled(Index: Integer; const Value: Boolean); begin FListBox.ItemEnabled[Index] := Value; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2013-04-09 22:23:26
|
Revision: 13504 http://jvcl.svn.sourceforge.net/jvcl/?rev=13504&view=rev Author: jfudickar Date: 2013-04-09 22:23:19 +0000 (Tue, 09 Apr 2013) Log Message: ----------- TJvCustomPropertyStore.StoreXMLProperties added Modified Paths: -------------- trunk/jvcl/run/JvPropertyStore.pas Modified: trunk/jvcl/run/JvPropertyStore.pas =================================================================== --- trunk/jvcl/run/JvPropertyStore.pas 2013-04-09 22:22:31 UTC (rev 13503) +++ trunk/jvcl/run/JvPropertyStore.pas 2013-04-09 22:23:19 UTC (rev 13504) @@ -87,6 +87,7 @@ function GetPropertyName(Index: Integer): string; //1 Returns the given property as TJvCustomPropertyStore or returns nil function GetPropertyJvCustomPropertyStore(PropName: string): TJvCustomPropertyStore; + procedure StoreXMLProperties; virtual; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; @@ -843,10 +844,10 @@ procedure TJvCustomPropertyStore.StoreProperties; var - SaveProperties: Boolean; Mutex: TJclMutex; procedure ExecuteStoreProperties; + var SaveProperties: Boolean; begin AppStorage.BeginUpdate; try @@ -860,14 +861,12 @@ if StorePropertiesNow then begin if not IgnoreLastLoadTime then - AppStorage.WriteString(AppStorage.ConcatPaths([AppStoragePath, - cLastSaveTime]), DateTimeToStr(Now)); + AppStorage.WriteString(AppStorage.ConcatPaths([AppStoragePath, cLastSaveTime]), DateTimeToStr(Now)); if Assigned(FOnBeforeStoreProperties) then FOnBeforeStoreProperties(Self); - if SaveProperties then - StoreData; - AppStorage.WritePersistent(AppStoragePath, Self, True, - CombinedIgnoreProperties); + StoreData; + StoreXMLProperties; + AppStorage.WritePersistent(AppStoragePath, Self, True, CombinedIgnoreProperties); if Assigned(FOnAfterStoreProperties) then FOnAfterStoreProperties(Self); end; @@ -921,6 +920,10 @@ begin end; +procedure TJvCustomPropertyStore.StoreXMLProperties; +begin +end; + function TJvCustomPropertyStore.StorePropertiesNow: Boolean; begin Result := True; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2013-04-09 22:22:39
|
Revision: 13503 http://jvcl.svn.sourceforge.net/jvcl/?rev=13503&view=rev Author: jfudickar Date: 2013-04-09 22:22:31 +0000 (Tue, 09 Apr 2013) Log Message: ----------- TJvCustomAppStorage.SetXMLProperty and TJvCustomAppXMLStorage.DoSetXMLProperty Added This enables the possibility to save additional xml properties when generating xml files. Modified Paths: -------------- trunk/jvcl/run/JvAppStorage.pas trunk/jvcl/run/JvAppXMLStorage.pas Modified: trunk/jvcl/run/JvAppStorage.pas =================================================================== --- trunk/jvcl/run/JvAppStorage.pas 2013-03-24 21:24:15 UTC (rev 13502) +++ trunk/jvcl/run/JvAppStorage.pas 2013-04-09 22:22:31 UTC (rev 13503) @@ -426,10 +426,14 @@ function GetPhysicalReadOnly: Boolean; virtual; property SubStorages: TJvAppSubStorages read FSubStorages write SetSubStorages; - function DecodeStrToDateTime(Value: string): TDateTime; virtual; + function DecodeStrToDateTime(const Value: string): TDateTime; virtual; function EncodeDateTimeToStr(Value: TDateTime): string; virtual; procedure Loaded; override; procedure DoError(const msg: string); + //1 Sets a xml property for a given path, this is only implemented for XML Appstorage + procedure DoSetXMLProperty(const Path, Name, Value : string); virtual; + //1 Sets a xml property for a given path, this is only implemented for XML Appstorage + procedure SetXMLPropertyInt(const Path, Name, Value : string); virtual; function GetFormatSettings: TFormatSettings; function ReadListItemCount(const Path: string; const ItemName: string = cItem): Integer; virtual; procedure WriteListItemCount(const Path: string; const ItemCount: Integer; const ItemName: string = cItem); virtual; @@ -654,6 +658,8 @@ procedure EnablePropertyValueCrypt; { Disables the Cryption of Property-Values (Only String-Values) } procedure DisablePropertyValueCrypt; + //1 Sets a xml property for a given path, this is only implemented for XML Appstorage + procedure SetXMLProperty(const Path, Name, Value : string); { Returns the current state if Property-Value Cryption is enabled } function IsPropertyValueCryptEnabled: Boolean; function ItemNameIndexPath(const ItemName: string; const Index: Integer): string; virtual; @@ -3170,7 +3176,7 @@ end; end; -function TJvCustomAppStorage.DecodeStrToDateTime(Value: string): TDateTime; +function TJvCustomAppStorage.DecodeStrToDateTime(const Value: string): TDateTime; begin if StorageOptions.UseTranslateStringEngineDateTimeFormats then try @@ -3183,6 +3189,26 @@ Result := StrToDateTime(Value); end; +procedure TJvCustomAppStorage.DoSetXMLProperty(const Path, Name, Value : string); +begin + +end; + +procedure TJvCustomAppStorage.SetXMLProperty(const Path, Name, Value : string); +var + TargetStore: TJvCustomAppStorage; + TargetPath: string; +begin + ResolvePath(Path, TargetStore, TargetPath); + if not TargetStore.ReadOnly then + TargetStore.SetXMLPropertyInt(TargetPath, Name, Value); +end; + +procedure TJvCustomAppStorage.SetXMLPropertyInt(const Path, Name, Value : string); +begin + DoSetXMLProperty(Path, Name, Value); +end; + function TJvCustomAppStorage.EncodeDateTimeToStr(Value: TDateTime): string; begin if StorageOptions.UseTranslateStringEngineDateTimeFormats then Modified: trunk/jvcl/run/JvAppXMLStorage.pas =================================================================== --- trunk/jvcl/run/JvAppXMLStorage.pas 2013-03-24 21:24:15 UTC (rev 13502) +++ trunk/jvcl/run/JvAppXMLStorage.pas 2013-04-09 22:22:31 UTC (rev 13503) @@ -166,6 +166,8 @@ public constructor Create(AOwner: TComponent); override; destructor Destroy; override; + //1 Sets a xml property for a given path + procedure DoSetXMLProperty(const Path, Name, Value : string); override; published property StorageOptions: TJvAppXMLStorageOptions read GetStorageOptions write SetStorageOptions; end; @@ -961,6 +963,18 @@ Result := 'xml'; end; +procedure TJvCustomAppXMLStorage.DoSetXMLProperty(const Path, Name, Value : string); +var + ANode: TJvSimpleXmlElem; +begin + ReloadIfNeeded; + ANode := CreateAndSetNode(Path); + Xml.Options := Xml.Options + [sxoAutoCreate]; + ANode.Properties.ItemNamed[Name].Value := Value; + Xml.Options := Xml.Options - [sxoAutoCreate]; + FlushIfNeeded; +end; + function TJvCustomAppXMLStorage.GetOnDecodeValue: TJvSimpleXMLEncodeEvent; begin Result := FXml.OnDecodeValue; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2013-03-24 21:24:24
|
Revision: 13502 http://jvcl.svn.sourceforge.net/jvcl/?rev=13502&view=rev Author: jfudickar Date: 2013-03-24 21:24:15 +0000 (Sun, 24 Mar 2013) Log Message: ----------- IJvDynControlStringGrid added Modified Paths: -------------- trunk/jvcl/run/JvDynControlEngine.pas trunk/jvcl/run/JvDynControlEngineDevExpCx.pas trunk/jvcl/run/JvDynControlEngineIntf.pas trunk/jvcl/run/JvDynControlEngineJVCL.pas trunk/jvcl/run/JvDynControlEngineVCL.pas Modified: trunk/jvcl/run/JvDynControlEngine.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngine.pas 2013-03-24 21:22:09 UTC (rev 13501) +++ trunk/jvcl/run/JvDynControlEngine.pas 2013-03-24 21:24:15 UTC (rev 13502) @@ -71,6 +71,7 @@ jctTabControl = TJvDynControlType('Tabcontrol'); jctRTTIInspector = TJvDynControlType('RTTIInspector'); jctColorComboBox = TJvDynControlType('ColorComboBox'); + jctStringGrid = TJvDynControlType('StringGrid'); type TControlClass = class of TControl; @@ -132,86 +133,86 @@ private FDistanceBetweenLabelAndControlHorz: Integer; FDistanceBetweenLabelAndControlVert: Integer; - protected public constructor Create; override; - function CreateLabelControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName, ACaption: string; AFocusControl: TWinControl = nil): - TControl; virtual; - function CreateStaticTextControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName, ACaption: string): TWinControl; virtual; - function CreatePanelControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName, ACaption: string; AAlign: TAlign): TWinControl; virtual; - function CreateScrollBoxControl(AOwner: TComponent; AParentControl: TWinControl; + function CreateButton(AOwner: TComponent; AParentControl: TWinControl; + const AButtonName, ACaption, AHint: string; + AOnClick: TNotifyEvent; ADefault: Boolean = False; + ACancel: Boolean = False): TButton; virtual; + function CreateButtonEditControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName: string; AOnButtonClick: TNotifyEvent): TWinControl; virtual; + function CreateCalculateControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string): TWinControl; virtual; - function CreateEditControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName: string): TWinControl; virtual; function CreateCheckboxControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName, ACaption: string): TWinControl; virtual; + function CreateCheckComboBoxControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string; + AItems: TStrings; ADelimiter: string): TWinControl; virtual; + function CreateCheckListBoxControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string; AItems: + TStrings): TWinControl; virtual; + function CreateColorComboboxControl(AOwner: TComponent; AParentControl: + TWinControl; const AControlName: string; ADefaultColor: TColor): + TWinControl; virtual; function CreateComboBoxControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string; AItems: TStrings): TWinControl; virtual; - function CreateGroupBoxControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName, ACaption: string): TWinControl; virtual; - function CreateImageControl(AOwner: TComponent; AParentControl: TWinControl; + function CreateDateControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string): TWinControl; virtual; - function CreateRadioGroupControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName, ACaption: string; AItems: TStrings; - AItemIndex: Integer = 0): TWinControl; virtual; - function CreateMemoControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName: string): TWinControl; virtual; - function CreateRichEditControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName: string): TWinControl; virtual; - function CreateListBoxControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName: string; AItems: TStrings): TWinControl; virtual; - function CreateCheckListBoxControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string; AItems: - TStrings): TWinControl; virtual; function CreateDateTimeControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string): TWinControl; virtual; - function CreateDateControl(AOwner: TComponent; AParentControl: TWinControl; + function CreateDirectoryControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string): TWinControl; virtual; - function CreateTimeControl(AOwner: TComponent; AParentControl: TWinControl; + function CreateEditControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string): TWinControl; virtual; - function CreateCalculateControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName: string): TWinControl; virtual; - function CreateSpinControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName: string): TWinControl; virtual; - function CreateDirectoryControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName: string): TWinControl; virtual; function CreateFileNameControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string): TWinControl; virtual; - function CreateTreeViewControl(AOwner: TComponent; AParentControl: TWinControl; + function CreateForm(const ACaption, AHint: string): TCustomForm; virtual; + function CreateGroupBoxControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName, ACaption: string): TWinControl; virtual; + function CreateImageControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string): TWinControl; virtual; - function CreatePageControlControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName: string; APages : TStrings): TWinControl; virtual; - function CreateTabControlControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName: string; ATabs : TStrings): TWinControl; virtual; - function CreateButton(AOwner: TComponent; AParentControl: TWinControl; - const AButtonName, ACaption, AHint: string; - AOnClick: TNotifyEvent; ADefault: Boolean = False; - ACancel: Boolean = False): TButton; virtual; - function CreateRadioButton(AOwner: TComponent; AParentControl: TWinControl; - const ARadioButtonName, ACaption: string): TWinControl; virtual; - function CreateButtonEditControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName: string; AOnButtonClick: TNotifyEvent): TWinControl; virtual; - function CreateCheckComboBoxControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string; - AItems: TStrings; ADelimiter: string): TWinControl; virtual; - function CreateColorComboboxControl(AOwner: TComponent; AParentControl: - TWinControl; const AControlName: string; ADefaultColor: TColor): - TWinControl; virtual; - function CreateForm(const ACaption, AHint: string): TCustomForm; virtual; - + function CreateLabelControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName, ACaption: string; AFocusControl: TWinControl = nil): + TControl; virtual; function CreateLabelControlPanel(AOwner: TComponent; AParentControl: TWinControl; const AControlName, ACaption: string; AFocusControl: TWinControl; ALabelOnTop: Boolean = True; ALabelDefaultWidth: Integer = 0): TWinControl; virtual; + function CreateListBoxControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName: string; AItems: TStrings): TWinControl; virtual; + function CreateMemoControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName: string): TWinControl; virtual; + function CreatePageControlControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName: string; APages : TStrings): TWinControl; virtual; + function CreatePanelControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName, ACaption: string; AAlign: TAlign): TWinControl; virtual; function CreateProgressbarControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string; AMin: Integer = 0; AMax: Integer = 100; AStep: Integer = 1): TWinControl; virtual; + function CreateRadioButton(AOwner: TComponent; AParentControl: TWinControl; + const ARadioButtonName, ACaption: string): TWinControl; virtual; + function CreateRadioGroupControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName, ACaption: string; AItems: TStrings; + AItemIndex: Integer = 0): TWinControl; virtual; + function CreateRichEditControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName: string): TWinControl; virtual; function CreateRTTIInspectorControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string; AOnDisplayProperty: TJvDynControlInspectorControlOnDisplayPropertyEvent; AOnTranslatePropertyName: TJvDynControlInspectorControlOnTranslatePropertyNameEvent): TWinControl; virtual; + function CreateScrollBoxControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName: string): TWinControl; virtual; + function CreateSpinControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName: string): TWinControl; virtual; + function CreateStaticTextControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName, ACaption: string): TWinControl; virtual; + function CreateStringGridControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string; + AColCount, ARowCount: Integer; AFixedCols: Integer = 1; AFixedRows: Integer = 1): TWinControl; virtual; + function CreateTabControlControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName: string; ATabs : TStrings): TWinControl; virtual; + function CreateTimeControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName: string): TWinControl; virtual; + function CreateTreeViewControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName: string): TWinControl; virtual; published property DistanceBetweenLabelAndControlHorz: Integer read FDistanceBetweenLabelAndControlHorz write FDistanceBetweenLabelAndControlHorz default 4; property DistanceBetweenLabelAndControlVert: Integer read FDistanceBetweenLabelAndControlVert write FDistanceBetweenLabelAndControlVert default 1; @@ -592,58 +593,35 @@ FDistanceBetweenLabelAndControlVert := 1; end; -function TJvDynControlEngine.CreateLabelControl(AOwner: TComponent; - AParentControl: TWinControl; const AControlName, ACaption: string; - AFocusControl: TWinControl = nil): TControl; -var - DynCtrlCaption: IJvDynControlCaption; - DynCtrlLabel: IJvDynControlLabel; +function TJvDynControlEngine.CreateButton(AOwner: TComponent; + AParentControl: TWinControl; const AButtonName, ACaption, AHint: string; + AOnClick: TNotifyEvent; ADefault: Boolean = False; ACancel: Boolean = False): TButton; begin - Result := CreateControl(jctLabel, AOwner, AParentControl, AControlName); - IntfCast(Result, IJvDynControlCaption, DynCtrlCaption); - DynCtrlCaption.ControlSetCaption(ACaption); - IntfCast(Result, IJvDynControlLabel, DynCtrlLabel); - if Assigned(AFocusControl) then - DynCtrlLabel.ControlSetFocusControl(AFocusControl); + Result := TButton(CreateControl(jctButton, AOwner, AParentControl, AButtonName)); + Result.Hint := AHint; + Result.Caption := ACaption; + Result.Default := ADefault; + Result.Cancel := ACancel; + Result.OnClick := AOnClick; + Result.Width := GetControlTextWidth(Result, Result.Font, ACaption+'XXXX'); end; -function TJvDynControlEngine.CreateStaticTextControl(AOwner: TComponent; - AParentControl: TWinControl; const AControlName, ACaption: string): TWinControl; +function TJvDynControlEngine.CreateButtonEditControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName: string; AOnButtonClick: TNotifyEvent): TWinControl; var - DynCtrlCaption: IJvDynControlCaption; + DynCtrlButtonEdit: IJvDynControlButtonEdit; begin - Result := TWinControl(CreateControl(jctStaticText, AOwner, AParentControl, AControlName)); - IntfCast(Result, IJvDynControlCaption, DynCtrlCaption); - DynCtrlCaption.ControlSetCaption(ACaption); + Result := TWinControl(CreateControl(jctButtonEdit, AOwner, AParentControl, AControlName)); + IntfCast(Result, IJvDynControlButtonEdit, DynCtrlButtonEdit); + DynCtrlButtonEdit.ControlSetOnButtonClick(AOnButtonClick); end; -function TJvDynControlEngine.CreatePanelControl(AOwner: TComponent; - AParentControl: TWinControl; const AControlName, ACaption: string; - AAlign: TAlign): TWinControl; -var - DynCtrlCaption: IJvDynControlCaption; -begin - Result := TWinControl(CreateControl(jctPanel, AOwner, AParentControl, AControlName)); - IntfCast(Result, IJvDynControlCaption, DynCtrlCaption); - DynCtrlCaption.ControlSetCaption(ACaption); - Result.Align := AAlign; -end; - -function TJvDynControlEngine.CreateScrollBoxControl(AOwner: TComponent; +function TJvDynControlEngine.CreateCalculateControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string): TWinControl; begin - Result := TWinControl(CreateControl(jctScrollBox, AOwner, AParentControl, AControlName)); + Result := TWinControl(CreateControl(jctCalculateEdit, AOwner, AParentControl, AControlName)); end; -function TJvDynControlEngine.CreateEditControl(AOwner: TComponent; - AParentControl: TWinControl; const AControlName: string): TWinControl; -var - DynCtrlEdit: IJvDynControlEdit; -begin - Result := TWinControl(CreateControl(jctEdit, AOwner, AParentControl, AControlName)); - IntfCast(Result, IJvDynControlEdit, DynCtrlEdit); -end; - function TJvDynControlEngine.CreateCheckboxControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName, ACaption: string): TWinControl; var @@ -657,74 +635,53 @@ Result.Width := GetControlTextWidth(Result, DynCtrlFont.ControlFont, ACaption+'XXXXXX'); end; -function TJvDynControlEngine.CreateComboBoxControl(AOwner: TComponent; - AParentControl: TWinControl; const AControlName: string; AItems: TStrings): TWinControl; +function TJvDynControlEngine.CreateCheckComboBoxControl(AOwner: TComponent; AParentControl: TWinControl; const + AControlName: string; AItems: TStrings; ADelimiter: string): TWinControl; var DynCtrlItems: IJvDynControlItems; + DynControlCheckComboBox: IJvDynControlCheckComboBox; begin - Result := TWinControl(CreateControl(jctComboBox, AOwner, AParentControl, AControlName)); + Result := TWinControl(CreateControl(jctCheckComboBox, AOwner, AParentControl, AControlName)); if Assigned(AItems) then begin IntfCast(Result, IJvDynControlItems, DynCtrlItems); DynCtrlItems.ControlSetItems(AItems); + IntfCast(Result, IJvDynControlCheckComboBox, DynControlCheckComboBox); + DynControlCheckComboBox.Delimiter := ADelimiter; end; end; -function TJvDynControlEngine.CreateGroupBoxControl(AOwner: TComponent; - AParentControl: TWinControl; const AControlName, ACaption: string): TWinControl; +function TJvDynControlEngine.CreateCheckListBoxControl(AOwner: TComponent; AParentControl: TWinControl; const + AControlName: string; AItems: TStrings): TWinControl; var - DynCtrlCaption: IJvDynControlCaption; -begin - Result := TWinControl(CreateControl(jctGroupBox, AOwner, AParentControl, AControlName)); - IntfCast(Result, IJvDynControlCaption, DynCtrlCaption); - DynCtrlCaption.ControlSetCaption(ACaption); -end; - -function TJvDynControlEngine.CreateImageControl(AOwner: TComponent; - AParentControl: TWinControl; const AControlName: string): TWinControl; -begin - Result := TWinControl(CreateControl(jctImage, AOwner, AParentControl, AControlName)); -end; - -function TJvDynControlEngine.CreateRadioGroupControl(AOwner: TComponent; - AParentControl: TWinControl; const AControlName, ACaption: string; - AItems: TStrings; AItemIndex: Integer = 0): TWinControl; -var - DynCtrlCaption: IJvDynControlCaption; DynCtrlItems: IJvDynControlItems; - DynCtrlData: IJvDynControlData; begin - Result := TWinControl(CreateControl(jctRadioGroup, AOwner, AParentControl, AControlName)); - IntfCast(Result, IJvDynControlCaption, DynCtrlCaption); - DynCtrlCaption.ControlSetCaption(ACaption); - IntfCast(Result, IJvDynControlItems, DynCtrlItems); - DynCtrlItems.ControlSetItems(AItems); - IntfCast(Result, IJvDynControlData, DynCtrlData); - DynCtrlData.ControlValue := AItemIndex; + Result := TWinControl(CreateControl(jctCheckListBox, AOwner, AParentControl, AControlName)); + if Assigned(AItems) then + begin + IntfCast(Result, IJvDynControlItems, DynCtrlItems); + DynCtrlItems.ControlSetItems(AItems); + end; end; -function TJvDynControlEngine.CreateMemoControl(AOwner: TComponent; - AParentControl: TWinControl; const AControlName: string): TWinControl; +function TJvDynControlEngine.CreateColorComboboxControl(AOwner: TComponent; + AParentControl: TWinControl; const AControlName: string; ADefaultColor: + TColor): TWinControl; var - DynCtrlData: IJvDynControlData; + DynControlColorComboBoxControl : IJvDynControlColorComboBoxControl; begin - Result := TWinControl(CreateControl(jctMemo, AOwner, AParentControl, AControlName)); - IntfCast(Result, IJvDynControlData, DynCtrlData); - DynCtrlData.ControlValue := ''; + Result := TWinControl(CreateControl(jctColorComboBox, AOwner, AParentControl, AControlName)); + IntfCast(Result, IJvDynControlColorComboBoxControl, DynControlColorComboBoxControl); + DynControlColorComboBoxControl.ControlDefaultColor := ADefaultColor; + DynControlColorComboBoxControl.ControlSelectedColor := ADefaultColor; end; -function TJvDynControlEngine.CreateRichEditControl(AOwner: TComponent; - AParentControl: TWinControl; const AControlName: string): TWinControl; -begin - Result := TWinControl(CreateControl(jctRichEdit, AOwner, AParentControl, AControlName)); -end; - -function TJvDynControlEngine.CreateListBoxControl(AOwner: TComponent; +function TJvDynControlEngine.CreateComboBoxControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string; AItems: TStrings): TWinControl; var DynCtrlItems: IJvDynControlItems; begin - Result := TWinControl(CreateControl(jctListBox, AOwner, AParentControl, AControlName)); + Result := TWinControl(CreateControl(jctComboBox, AOwner, AParentControl, AControlName)); if Assigned(AItems) then begin IntfCast(Result, IJvDynControlItems, DynCtrlItems); @@ -732,166 +689,77 @@ end; end; -function TJvDynControlEngine.CreateCheckListBoxControl(AOwner: TComponent; AParentControl: TWinControl; const - AControlName: string; AItems: TStrings): TWinControl; -var - DynCtrlItems: IJvDynControlItems; -begin - Result := TWinControl(CreateControl(jctCheckListBox, AOwner, AParentControl, AControlName)); - if Assigned(AItems) then - begin - IntfCast(Result, IJvDynControlItems, DynCtrlItems); - DynCtrlItems.ControlSetItems(AItems); - end; -end; - -function TJvDynControlEngine.CreateDateTimeControl(AOwner: TComponent; - AParentControl: TWinControl; const AControlName: string): TWinControl; -begin - Result := TWinControl(CreateControl(jctDateTimeEdit, AOwner, AParentControl, AControlName)); -end; - function TJvDynControlEngine.CreateDateControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string): TWinControl; begin Result := TWinControl(CreateControl(jctDateEdit, AOwner, AParentControl, AControlName)); end; -function TJvDynControlEngine.CreateTimeControl(AOwner: TComponent; +function TJvDynControlEngine.CreateDateTimeControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string): TWinControl; begin - Result := TWinControl(CreateControl(jctTimeEdit, AOwner, AParentControl, AControlName)); + Result := TWinControl(CreateControl(jctDateTimeEdit, AOwner, AParentControl, AControlName)); end; -function TJvDynControlEngine.CreateCalculateControl(AOwner: TComponent; +function TJvDynControlEngine.CreateDirectoryControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string): TWinControl; begin - Result := TWinControl(CreateControl(jctCalculateEdit, AOwner, AParentControl, AControlName)); + Result := TWinControl(CreateControl(jctDirectoryEdit, AOwner, AParentControl, AControlName)); end; -function TJvDynControlEngine.CreateSpinControl(AOwner: TComponent; +function TJvDynControlEngine.CreateEditControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string): TWinControl; +var + DynCtrlEdit: IJvDynControlEdit; begin - Result := TWinControl(CreateControl(jctSpinEdit, AOwner, AParentControl, AControlName)); + Result := TWinControl(CreateControl(jctEdit, AOwner, AParentControl, AControlName)); + IntfCast(Result, IJvDynControlEdit, DynCtrlEdit); end; -function TJvDynControlEngine.CreateDirectoryControl(AOwner: TComponent; - AParentControl: TWinControl; const AControlName: string): TWinControl; -begin - Result := TWinControl(CreateControl(jctDirectoryEdit, AOwner, AParentControl, AControlName)); -end; - function TJvDynControlEngine.CreateFileNameControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string): TWinControl; begin Result := TWinControl(CreateControl(jctFileNameEdit, AOwner, AParentControl, AControlName)); end; -function TJvDynControlEngine.CreateTreeViewControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName: string): TWinControl; +function TJvDynControlEngine.CreateForm(const ACaption, AHint: string): TCustomForm; begin - Result := TWinControl(CreateControl(jctTreeView, AOwner, AParentControl, AControlName)); -end; - -function TJvDynControlEngine.CreatePageControlControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName: string;APages : TStrings): TWinControl; -var - DynTabControl: IJvDynControlTabControl; - i: Integer; -begin - Result := TWinControl(CreateControl(jctPageControl, AOwner, AParentControl, AControlName)); - if Assigned(APages) and (APages.Count > 0) then - begin - IntfCast(Result, IJvDynControlTabControl, DynTabControl); - for i := 0 to APages.Count - 1 do - DynTabControl.ControlCreateTab(APages[i]); - end; -end; - -function TJvDynControlEngine.CreateTabControlControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName: string;ATabs : TStrings): TWinControl; -var - DynTabControl: IJvDynControlTabControl; - i: Integer; -begin - Result := TWinControl(CreateControl(jctTabControl, AOwner, AParentControl, AControlName)); - if Assigned(ATabs) and (ATabs.Count > 0) then - begin - IntfCast(Result, IJvDynControlTabControl, DynTabControl); - for i := 0 to ATabs.Count - 1 do - DynTabControl.ControlCreateTab(ATabs[i]); - end; -end; - - -function TJvDynControlEngine.CreateButton(AOwner: TComponent; - AParentControl: TWinControl; const AButtonName, ACaption, AHint: string; - AOnClick: TNotifyEvent; ADefault: Boolean = False; ACancel: Boolean = False): TButton; -begin - Result := TButton(CreateControl(jctButton, AOwner, AParentControl, AButtonName)); + Result := TCustomForm(CreateControl(jctForm, Application, nil, '')); + Result.Caption := ACaption; Result.Hint := AHint; - Result.Caption := ACaption; - Result.Default := ADefault; - Result.Cancel := ACancel; - Result.OnClick := AOnClick; - Result.Width := GetControlTextWidth(Result, Result.Font, ACaption+'XXXX'); end; -function TJvDynControlEngine.CreateRadioButton(AOwner: TComponent; AParentControl: TWinControl; - const ARadioButtonName, ACaption: string): TWinControl; +function TJvDynControlEngine.CreateGroupBoxControl(AOwner: TComponent; + AParentControl: TWinControl; const AControlName, ACaption: string): TWinControl; var DynCtrlCaption: IJvDynControlCaption; begin - Result := TWinControl(CreateControl(jctRadioButton, AOwner, AParentControl, ARadioButtonName)); + Result := TWinControl(CreateControl(jctGroupBox, AOwner, AParentControl, AControlName)); IntfCast(Result, IJvDynControlCaption, DynCtrlCaption); DynCtrlCaption.ControlSetCaption(ACaption); end; -function TJvDynControlEngine.CreateButtonEditControl(AOwner: TComponent; AParentControl: TWinControl; - const AControlName: string; AOnButtonClick: TNotifyEvent): TWinControl; -var - DynCtrlButtonEdit: IJvDynControlButtonEdit; +function TJvDynControlEngine.CreateImageControl(AOwner: TComponent; + AParentControl: TWinControl; const AControlName: string): TWinControl; begin - Result := TWinControl(CreateControl(jctButtonEdit, AOwner, AParentControl, AControlName)); - IntfCast(Result, IJvDynControlButtonEdit, DynCtrlButtonEdit); - DynCtrlButtonEdit.ControlSetOnButtonClick(AOnButtonClick); + Result := TWinControl(CreateControl(jctImage, AOwner, AParentControl, AControlName)); end; -function TJvDynControlEngine.CreateCheckComboBoxControl(AOwner: TComponent; AParentControl: TWinControl; const - AControlName: string; AItems: TStrings; ADelimiter: string): TWinControl; +function TJvDynControlEngine.CreateLabelControl(AOwner: TComponent; + AParentControl: TWinControl; const AControlName, ACaption: string; + AFocusControl: TWinControl = nil): TControl; var - DynCtrlItems: IJvDynControlItems; - DynControlCheckComboBox: IJvDynControlCheckComboBox; + DynCtrlCaption: IJvDynControlCaption; + DynCtrlLabel: IJvDynControlLabel; begin - Result := TWinControl(CreateControl(jctCheckComboBox, AOwner, AParentControl, AControlName)); - if Assigned(AItems) then - begin - IntfCast(Result, IJvDynControlItems, DynCtrlItems); - DynCtrlItems.ControlSetItems(AItems); - IntfCast(Result, IJvDynControlCheckComboBox, DynControlCheckComboBox); - DynControlCheckComboBox.Delimiter := ADelimiter; - end; + Result := CreateControl(jctLabel, AOwner, AParentControl, AControlName); + IntfCast(Result, IJvDynControlCaption, DynCtrlCaption); + DynCtrlCaption.ControlSetCaption(ACaption); + IntfCast(Result, IJvDynControlLabel, DynCtrlLabel); + if Assigned(AFocusControl) then + DynCtrlLabel.ControlSetFocusControl(AFocusControl); end; -function TJvDynControlEngine.CreateColorComboboxControl(AOwner: TComponent; - AParentControl: TWinControl; const AControlName: string; ADefaultColor: - TColor): TWinControl; -var - DynControlColorComboBoxControl : IJvDynControlColorComboBoxControl; -begin - Result := TWinControl(CreateControl(jctColorComboBox, AOwner, AParentControl, AControlName)); - IntfCast(Result, IJvDynControlColorComboBoxControl, DynControlColorComboBoxControl); - DynControlColorComboBoxControl.ControlDefaultColor := ADefaultColor; - DynControlColorComboBoxControl.ControlSelectedColor := ADefaultColor; -end; - -function TJvDynControlEngine.CreateForm(const ACaption, AHint: string): TCustomForm; -begin - Result := TCustomForm(CreateControl(jctForm, Application, nil, '')); - Result.Caption := ACaption; - Result.Hint := AHint; -end; - function TJvDynControlEngine.CreateLabelControlPanel(AOwner: TComponent; AParentControl: TWinControl; const AControlName, ACaption: string; AFocusControl: TWinControl; ALabelOnTop: Boolean = True; ALabelDefaultWidth: Integer = 0): TWinControl; @@ -933,6 +801,56 @@ Result := Panel; end; +function TJvDynControlEngine.CreateListBoxControl(AOwner: TComponent; + AParentControl: TWinControl; const AControlName: string; AItems: TStrings): TWinControl; +var + DynCtrlItems: IJvDynControlItems; +begin + Result := TWinControl(CreateControl(jctListBox, AOwner, AParentControl, AControlName)); + if Assigned(AItems) then + begin + IntfCast(Result, IJvDynControlItems, DynCtrlItems); + DynCtrlItems.ControlSetItems(AItems); + end; +end; + +function TJvDynControlEngine.CreateMemoControl(AOwner: TComponent; + AParentControl: TWinControl; const AControlName: string): TWinControl; +var + DynCtrlData: IJvDynControlData; +begin + Result := TWinControl(CreateControl(jctMemo, AOwner, AParentControl, AControlName)); + IntfCast(Result, IJvDynControlData, DynCtrlData); + DynCtrlData.ControlValue := ''; +end; + +function TJvDynControlEngine.CreatePageControlControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName: string;APages : TStrings): TWinControl; +var + DynTabControl: IJvDynControlTabControl; + i: Integer; +begin + Result := TWinControl(CreateControl(jctPageControl, AOwner, AParentControl, AControlName)); + if Assigned(APages) and (APages.Count > 0) then + begin + IntfCast(Result, IJvDynControlTabControl, DynTabControl); + for i := 0 to APages.Count - 1 do + DynTabControl.ControlCreateTab(APages[i]); + end; +end; + +function TJvDynControlEngine.CreatePanelControl(AOwner: TComponent; + AParentControl: TWinControl; const AControlName, ACaption: string; + AAlign: TAlign): TWinControl; +var + DynCtrlCaption: IJvDynControlCaption; +begin + Result := TWinControl(CreateControl(jctPanel, AOwner, AParentControl, AControlName)); + IntfCast(Result, IJvDynControlCaption, DynCtrlCaption); + DynCtrlCaption.ControlSetCaption(ACaption); + Result.Align := AAlign; +end; + function TJvDynControlEngine.CreateProgressbarControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string; AMin: Integer = 0; AMax: Integer = 100; AStep: Integer = 1): TWinControl; @@ -946,6 +864,39 @@ JvDynCtrlProgresBar.ControlSetStep(AStep); end; +function TJvDynControlEngine.CreateRadioButton(AOwner: TComponent; AParentControl: TWinControl; + const ARadioButtonName, ACaption: string): TWinControl; +var + DynCtrlCaption: IJvDynControlCaption; +begin + Result := TWinControl(CreateControl(jctRadioButton, AOwner, AParentControl, ARadioButtonName)); + IntfCast(Result, IJvDynControlCaption, DynCtrlCaption); + DynCtrlCaption.ControlSetCaption(ACaption); +end; + +function TJvDynControlEngine.CreateRadioGroupControl(AOwner: TComponent; + AParentControl: TWinControl; const AControlName, ACaption: string; + AItems: TStrings; AItemIndex: Integer = 0): TWinControl; +var + DynCtrlCaption: IJvDynControlCaption; + DynCtrlItems: IJvDynControlItems; + DynCtrlData: IJvDynControlData; +begin + Result := TWinControl(CreateControl(jctRadioGroup, AOwner, AParentControl, AControlName)); + IntfCast(Result, IJvDynControlCaption, DynCtrlCaption); + DynCtrlCaption.ControlSetCaption(ACaption); + IntfCast(Result, IJvDynControlItems, DynCtrlItems); + DynCtrlItems.ControlSetItems(AItems); + IntfCast(Result, IJvDynControlData, DynCtrlData); + DynCtrlData.ControlValue := AItemIndex; +end; + +function TJvDynControlEngine.CreateRichEditControl(AOwner: TComponent; + AParentControl: TWinControl; const AControlName: string): TWinControl; +begin + Result := TWinControl(CreateControl(jctRichEdit, AOwner, AParentControl, AControlName)); +end; + function TJvDynControlEngine.CreateRTTIInspectorControl(AOwner: TComponent; AParentControl: TWinControl; const AControlName: string; AOnDisplayProperty: @@ -961,7 +912,69 @@ RTTIInspectorControl.ControlOnTranslatePropertyName := AOnTranslatePropertyName; end; +function TJvDynControlEngine.CreateScrollBoxControl(AOwner: TComponent; + AParentControl: TWinControl; const AControlName: string): TWinControl; +begin + Result := TWinControl(CreateControl(jctScrollBox, AOwner, AParentControl, AControlName)); +end; +function TJvDynControlEngine.CreateSpinControl(AOwner: TComponent; + AParentControl: TWinControl; const AControlName: string): TWinControl; +begin + Result := TWinControl(CreateControl(jctSpinEdit, AOwner, AParentControl, AControlName)); +end; + +function TJvDynControlEngine.CreateStaticTextControl(AOwner: TComponent; + AParentControl: TWinControl; const AControlName, ACaption: string): TWinControl; +var + DynCtrlCaption: IJvDynControlCaption; +begin + Result := TWinControl(CreateControl(jctStaticText, AOwner, AParentControl, AControlName)); + IntfCast(Result, IJvDynControlCaption, DynCtrlCaption); + DynCtrlCaption.ControlSetCaption(ACaption); +end; + +function TJvDynControlEngine.CreateStringGridControl(AOwner: TComponent; AParentControl: TWinControl; const + AControlName: string; AColCount, ARowCount: Integer; AFixedCols: Integer = 1; AFixedRows: Integer = 1): TWinControl; +var + DynCtrlStringGrid: IJvDynControlStringGrid; +begin + Result := TWinControl(CreateControl(jctStringGrid, AOwner, AParentControl, AControlName)); + IntfCast(Result, IJvDynControlStringGrid, DynCtrlStringGrid); + DynCtrlStringGrid.ControlColCount := AColCount; + DynCtrlStringGrid.ControlFixedCols:= AFixedCols; + DynCtrlStringGrid.ControlRowCount := ARowCount; + DynCtrlStringGrid.ControlFixedRows:= AFixedRows; +end; + +function TJvDynControlEngine.CreateTabControlControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName: string;ATabs : TStrings): TWinControl; +var + DynTabControl: IJvDynControlTabControl; + i: Integer; +begin + Result := TWinControl(CreateControl(jctTabControl, AOwner, AParentControl, AControlName)); + if Assigned(ATabs) and (ATabs.Count > 0) then + begin + IntfCast(Result, IJvDynControlTabControl, DynTabControl); + for i := 0 to ATabs.Count - 1 do + DynTabControl.ControlCreateTab(ATabs[i]); + end; +end; + +function TJvDynControlEngine.CreateTimeControl(AOwner: TComponent; + AParentControl: TWinControl; const AControlName: string): TWinControl; +begin + Result := TWinControl(CreateControl(jctTimeEdit, AOwner, AParentControl, AControlName)); +end; + +function TJvDynControlEngine.CreateTreeViewControl(AOwner: TComponent; AParentControl: TWinControl; + const AControlName: string): TWinControl; +begin + Result := TWinControl(CreateControl(jctTreeView, AOwner, AParentControl, AControlName)); +end; + + procedure SetDefaultDynControlEngine(AEngine: TJvDynControlEngine); begin if AEngine is TJvDynControlEngine then Modified: trunk/jvcl/run/JvDynControlEngineDevExpCx.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2013-03-24 21:22:09 UTC (rev 13501) +++ trunk/jvcl/run/JvDynControlEngineDevExpCx.pas 2013-03-24 21:24:15 UTC (rev 13502) @@ -33,7 +33,7 @@ {$IFDEF UNITVERSIONING} uses JclUnitVersioning, JvDynControlEngineIntf, Graphics, ComCtrls, Classes, - JvInspector, ExtCtrls; + ExtCtrls, Grids; {$ENDIF UNITVERSIONING} {$ELSE} @@ -3992,68 +3992,6 @@ end; -//=== { TJvDynControlEngineDevExpCx } ======================================== - -constructor TJvDynControlEngineDevExpCx.Create; -begin - inherited Create; - FCxProperties := TCxDynControlWrapper.Create; -end; - -destructor TJvDynControlEngineDevExpCx.Destroy; -begin - FreeAndNil(FCxProperties); - inherited Destroy; -end; - -procedure TJvDynControlEngineDevExpCx.SetcxProperties(Value: TCxDynControlWrapper); -begin - if Value is TCxDynControlWrapper then - begin - FCxProperties.LookAndFeel := Value.LookAndFeel; - FCxProperties.StyleController := Value.StyleController; - end; -end; - -procedure TJvDynControlEngineDevExpCx.RegisterControls; -begin - RegisterControlType(jctLabel, TJvDynControlCxLabel); - RegisterControlType(jctStaticText, TJvDynControlCxStaticText); - RegisterControlType(jctButton, TJvDynControlCxButton); - RegisterControlType(jctRadioButton, TJvDynControlCxRadioButton); - RegisterControlType(jctScrollBox, TJvDynControlCxScrollBox); - RegisterControlType(jctGroupBox, TJvDynControlCxGroupBox); - RegisterControlType(jctPanel, TJvDynControlCxPanel); - RegisterControlType(jctImage, TJvDynControlCxImage); - RegisterControlType(jctCheckBox, TJvDynControlCxCheckBox); - RegisterControlType(jctComboBox, TJvDynControlCxComboBox); - RegisterControlType(jctListBox, TJvDynControlCxListBox); - RegisterControlType(jctCheckListBox, TJvDynControlCxCheckListBox); - RegisterControlType(jctCheckComboBox, TJvDynControlCxCheckComboBox); - RegisterControlType(jctRadioGroup, TJvDynControlCxRadioGroup); - RegisterControlType(jctDateTimeEdit, TJvDynControlCxDateTimeEdit); - RegisterControlType(jctTimeEdit, TJvDynControlCxTimeEdit); - RegisterControlType(jctDateEdit, TJvDynControlCxDateEdit); - RegisterControlType(jctEdit, TJvDynControlCxMaskEdit); - RegisterControlType(jctCalculateEdit, TJvDynControlCxCalcEdit); - RegisterControlType(jctSpinEdit, TJvDynControlCxSpinEdit); - RegisterControlType(jctDirectoryEdit, TJvDynControlCxDirectoryEdit); - RegisterControlType(jctFileNameEdit, TJvDynControlCxFileNameEdit); - RegisterControlType(jctMemo, TJvDynControlCxMemo); - RegisterControlType(jctRichEdit, TJvDynControlCxRichEdit); - RegisterControlType(jctButtonEdit, TJvDynControlCxButtonEdit); - RegisterControlType(jctTreeVIew, TJvDynControlCxTreeView); - RegisterControlType(jctProgressbar, TJvDynControlCxProgressbar); - RegisterControlType(jctTabControl, TJvDynControlCxTabControl); - RegisterControlType(jctPageControl, TJvDynControlCxPageControl); - {$IFDEF USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID} - RegisterControlType(jctRTTIInspector, TJvDynControlCxRTTIInspectorControl); - {$ELSE} - //RegisterControlType(jctRTTIInspector, TJvDynControlCxRTTIInspectorControl); - {$ENDIF} - RegisterControlType(jctColorComboBox, TJvDynControlCxColorComboBox); -end; - function TJvDynControlEngineDevExpCx.CreateControlClass(AControlClass: TControlClass; AOwner: TComponent; AParentControl: TWinControl; AControlName: string): TControl; var Control: TControl; @@ -4492,6 +4430,70 @@ end; +//=== { TJvDynControlEngineDevExpCx } ======================================== + +constructor TJvDynControlEngineDevExpCx.Create; +begin + inherited Create; + FCxProperties := TCxDynControlWrapper.Create; +end; + +destructor TJvDynControlEngineDevExpCx.Destroy; +begin + FreeAndNil(FCxProperties); + inherited Destroy; +end; + +procedure TJvDynControlEngineDevExpCx.SetcxProperties(Value: TCxDynControlWrapper); +begin + if Value is TCxDynControlWrapper then + begin + FCxProperties.LookAndFeel := Value.LookAndFeel; + FCxProperties.StyleController := Value.StyleController; + end; +end; + +procedure TJvDynControlEngineDevExpCx.RegisterControls; +begin + RegisterControlType(jctLabel, TJvDynControlCxLabel); + RegisterControlType(jctStaticText, TJvDynControlCxStaticText); + RegisterControlType(jctButton, TJvDynControlCxButton); + RegisterControlType(jctRadioButton, TJvDynControlCxRadioButton); + RegisterControlType(jctScrollBox, TJvDynControlCxScrollBox); + RegisterControlType(jctGroupBox, TJvDynControlCxGroupBox); + RegisterControlType(jctPanel, TJvDynControlCxPanel); + RegisterControlType(jctImage, TJvDynControlCxImage); + RegisterControlType(jctCheckBox, TJvDynControlCxCheckBox); + RegisterControlType(jctComboBox, TJvDynControlCxComboBox); + RegisterControlType(jctListBox, TJvDynControlCxListBox); + RegisterControlType(jctCheckListBox, TJvDynControlCxCheckListBox); + RegisterControlType(jctCheckComboBox, TJvDynControlCxCheckComboBox); + RegisterControlType(jctRadioGroup, TJvDynControlCxRadioGroup); + RegisterControlType(jctDateTimeEdit, TJvDynControlCxDateTimeEdit); + RegisterControlType(jctTimeEdit, TJvDynControlCxTimeEdit); + RegisterControlType(jctDateEdit, TJvDynControlCxDateEdit); + RegisterControlType(jctEdit, TJvDynControlCxMaskEdit); + RegisterControlType(jctCalculateEdit, TJvDynControlCxCalcEdit); + RegisterControlType(jctSpinEdit, TJvDynControlCxSpinEdit); + RegisterControlType(jctDirectoryEdit, TJvDynControlCxDirectoryEdit); + RegisterControlType(jctFileNameEdit, TJvDynControlCxFileNameEdit); + RegisterControlType(jctMemo, TJvDynControlCxMemo); + RegisterControlType(jctRichEdit, TJvDynControlCxRichEdit); + RegisterControlType(jctButtonEdit, TJvDynControlCxButtonEdit); + RegisterControlType(jctTreeVIew, TJvDynControlCxTreeView); + RegisterControlType(jctProgressbar, TJvDynControlCxProgressbar); + RegisterControlType(jctTabControl, TJvDynControlCxTabControl); + RegisterControlType(jctPageControl, TJvDynControlCxPageControl); + {$IFDEF USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID} + RegisterControlType(jctRTTIInspector, TJvDynControlCxRTTIInspectorControl); + {$ELSE} + //RegisterControlType(jctRTTIInspector, TJvDynControlCxRTTIInspectorControl); + {$ENDIF} + RegisterControlType(jctColorComboBox, TJvDynControlCxColorComboBox); + RegisterControlType(jctStringGrid, TJvDynControlVCLStringGrid); +end; + + {$ENDIF USE_3RDPARTY_DEVEXPRESS_CXEDITOR} initialization Modified: trunk/jvcl/run/JvDynControlEngineIntf.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngineIntf.pas 2013-03-24 21:22:09 UTC (rev 13501) +++ trunk/jvcl/run/JvDynControlEngineIntf.pas 2013-03-24 21:24:15 UTC (rev 13502) @@ -37,7 +37,7 @@ {$IFDEF HAS_UNIT_SYSTEM_UITYPES} System.UITypes, {$ENDIF HAS_UNIT_SYSTEM_UITYPES} - FileCtrl, SysUtils; + FileCtrl, SysUtils, Grids; type IJvDynControl = interface @@ -409,6 +409,43 @@ property ControlOnMouseUp: TMouseEvent read ControlGetOnMouseUp write ControlSetOnMouseUp; end; + IJvDynControlStringGrid= interface + ['{83E40A5E-BD52-49F1-8DBC-E960CC1238C3}'] + function GetControlCells(ACol, ARow: Integer): string; + function GetControlCol: Integer; + function GetControlColCount: Integer; stdcall; + function GetControlColWidths(Index: Integer): Integer; + function GetControlFixedCols: Integer; + function GetControlFixedRows: Integer; + function GetControlObjects(ACol, ARow: Integer): TObject; + function GetControlOptions: TGridOptions; + function GetControlRow: Integer; + function GetControlRowCount: Integer; stdcall; + function GetControlRowHeights(Index: Integer): Integer; + procedure SetControlCells(ACol, ARow: Integer; const Value: string); + procedure SetControlCol(const Value: Integer); + procedure SetControlColCount(const Value: Integer); + procedure SetControlColWidths(Index: Integer; const Value: Integer); + procedure SetControlFixedCols(const Value: Integer); + procedure SetControlFixedRows(const Value: Integer); + procedure SetControlObjects(ACol, ARow: Integer; Value: TObject); + procedure SetControlOptions(const Value: TGridOptions); + procedure SetControlRow(const Value: Integer); + procedure SetControlRowCount(const Value: Integer); stdcall; + procedure SetControlRowHeights(Index: Integer; const Value: Integer); + property ControlCells[ACol, ARow: Integer]: string read GetControlCells write SetControlCells; + property ControlCol: Integer read GetControlCol write SetControlCol; + property ControlColCount: Integer read GetControlColCount write SetControlColCount; + property ControlColWidths[Index: Integer]: Integer read GetControlColWidths write SetControlColWidths; + property ControlFixedCols: Integer read GetControlFixedCols write SetControlFixedCols; + property ControlFixedRows: Integer read GetControlFixedRows write SetControlFixedRows; + property ControlObjects[ACol, ARow: Integer]: TObject read GetControlObjects write SetControlObjects; + property ControlOptions: TGridOptions read GetControlOptions write SetControlOptions; + property ControlRow: Integer read GetControlRow write SetControlRow; + property ControlRowCount: Integer read GetControlRowCount write SetControlRowCount; + property ControlRowHeights[Index: Integer]: Integer read GetControlRowHeights write SetControlRowHeights; + end; + {$IFDEF UNITVERSIONING} const UnitVersioning: TUnitVersionInfo = ( Modified: trunk/jvcl/run/JvDynControlEngineJVCL.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngineJVCL.pas 2013-03-24 21:22:09 UTC (rev 13501) +++ trunk/jvcl/run/JvDynControlEngineJVCL.pas 2013-03-24 21:24:15 UTC (rev 13502) @@ -47,7 +47,7 @@ JvLabel, JvListBox, JvMemo, JvRichEdit, JvPanel, JvRadioGroup, JvToolEdit, JvScrollBox, JvStaticText, JvCombobox, JvImage, JvSpin, JvCheckListBox, JvDynControlEngine, JvDynControlEngineIntf, JvGroupBox, JvComCtrls, - JvProgressBar; + JvProgressBar, JvStringGrid, Grids; type TJvDynControlJVCLMaskEdit = class(TJvMaskEdit, IUnknown, @@ -854,7 +854,43 @@ procedure ControlSetDelimiter(Value: string); end; + TJvDynControlJVCLStringGrid = class(TJvStringGrid, IUnknown, IJvDynControl, IJvDynControlStringGrid) + public + procedure ControlSetAnchors(Value: TAnchors); + // IJvDynControl + procedure ControlSetDefaultProperties; + procedure ControlSetHint(const Value: string); + procedure ControlSetOnChange(Value: TNotifyEvent); + procedure ControlSetOnClick(Value: TNotifyEvent); + procedure ControlSetOnEnter(Value: TNotifyEvent); + procedure ControlSetOnExit(Value: TNotifyEvent); + procedure ControlSetTabOrder(Value: Integer); + // IJvDynControlStringGrid + function GetControlCells(ACol, ARow: Integer): string; + function GetControlCol: Integer; + function GetControlColCount: Integer; stdcall; + function GetControlColWidths(Index: Integer): Integer; + function GetControlFixedCols: Integer; + function GetControlFixedRows: Integer; + function GetControlObjects(ACol, ARow: Integer): TObject; + function GetControlOptions: TGridOptions; + function GetControlRow: Integer; + function GetControlRowCount: Integer; stdcall; + function GetControlRowHeights(Index: Integer): Integer; + procedure SetControlCells(ACol, ARow: Integer; const Value: string); + procedure SetControlCol(const Value: Integer); + procedure SetControlColCount(const Value: Integer); + procedure SetControlColWidths(Index: Integer; const Value: Integer); + procedure SetControlFixedCols(const Value: Integer); + procedure SetControlFixedRows(const Value: Integer); + procedure SetControlObjects(ACol, ARow: Integer; Value: TObject); + procedure SetControlOptions(const Value: TGridOptions); + procedure SetControlRow(const Value: Integer); + procedure SetControlRowCount(const Value: Integer); stdcall; + procedure SetControlRowHeights(Index: Integer; const Value: Integer); + end; + function DynControlEngineJVCL: TJvDynControlEngine; procedure SetDynControlEngineJVCLDefault; @@ -3264,58 +3300,7 @@ Step := Value; end; -//=== { TJvDynControlEngineJVCL } ============================================ -type - TJvDynControlEngineJVCL = class(TJvDynControlEngine) - public - procedure RegisterControls; override; - end; - -function DynControlEngineJVCL: TJvDynControlEngine; -begin - Result := IntDynControlEngineJVCL; -end; - -procedure SetDynControlEngineJVCLDefault; -begin - SetDefaultDynControlEngine(IntDynControlEngineJVCL); -end; - -procedure TJvDynControlEngineJVCL.RegisterControls; -begin - RegisterControlType(jctLabel, TJvDynControlJVCLLabel); - RegisterControlType(jctStaticText, TJvDynControlJVCLStaticText); - RegisterControlType(jctButton, TJvDynControlJVCLButton); - RegisterControlType(jctRadioButton, TJvDynControlJVCLRadioButton); - RegisterControlType(jctScrollBox, TJvDynControlJVCLScrollBox); - RegisterControlType(jctGroupBox, TJvDynControlJVCLGroupBox); - RegisterControlType(jctPanel, TJvDynControlJVCLPanel); - RegisterControlType(jctImage, TJvDynControlVCLImage); - RegisterControlType(jctCheckBox, TJvDynControlJVCLCheckBox); - RegisterControlType(jctComboBox, TJvDynControlJVCLComboBox); - RegisterControlType(jctListBox, TJvDynControlJVCLListBox); - RegisterControlType(jctCheckListBox, TJvDynControlJVCLCheckListBox); - RegisterControlType(jctCheckComboBox, TJvDynControlJVCLCheckedComboBox); - RegisterControlType(jctRadioGroup, TJvDynControlJVCLRadioGroup); - RegisterControlType(jctDateTimeEdit, TJvDynControlJVCLDateTimeEdit); - RegisterControlType(jctTimeEdit, TJvDynControlJVCLTimeEdit); - RegisterControlType(jctDateEdit, TJvDynControlJVCLDateEdit); - RegisterControlType(jctEdit, TJvDynControlJVCLMaskEdit); - RegisterControlType(jctCalculateEdit, TJvDynControlJVCLCalcEdit); - RegisterControlType(jctSpinEdit, TJvDynControlJVCLSpinEdit); - RegisterControlType(jctDirectoryEdit, TJvDynControlJVCLDirectoryEdit); - RegisterControlType(jctFileNameEdit, TJvDynControlJVCLFileNameEdit); - RegisterControlType(jctMemo, TJvDynControlJVCLMemo); - RegisterControlType(jctRichEdit, TJvDynControlJVCLRichEdit); - RegisterControlType(jctButtonEdit, TJvDynControlJVCLButtonEdit); - RegisterControlType(jctTreeView, TJvDynControlJVCLTreeView); - RegisterControlType(jctProgressbar, TJvDynControlJVCLProgressbar); - RegisterControlType(jctTabControl, TJvDynControlJVCLTabControl); - RegisterControlType(jctPageControl, TJvDynControlJVCLPageControl); - RegisterControlType(jctColorComboBox, TJvDynControlVCLColorComboBox); -end; - procedure TJvDynControlJVCLTabControl.ControlCreateTab(const AName: string); begin Tabs.Add(AName); @@ -3578,6 +3563,209 @@ Delimiter := chr(0); end; +procedure TJvDynControlJVCLStringGrid.ControlSetAnchors(Value: TAnchors); +begin + Anchors := Value; +end; + +procedure TJvDynControlJVCLStringGrid.ControlSetDefaultProperties; +begin +end; + +procedure TJvDynControlJVCLStringGrid.ControlSetHint(const Value: string); +begin + Hint := Value; +end; + +procedure TJvDynControlJVCLStringGrid.ControlSetOnChange(Value: TNotifyEvent); +begin +end; + +procedure TJvDynControlJVCLStringGrid.ControlSetOnClick(Value: TNotifyEvent); +begin + OnClick := Value; +end; + +procedure TJvDynControlJVCLStringGrid.ControlSetOnEnter(Value: TNotifyEvent); +begin + OnEnter := Value; +end; + +procedure TJvDynControlJVCLStringGrid.ControlSetOnExit(Value: TNotifyEvent); +begin + OnExit := Value; +end; + +procedure TJvDynControlJVCLStringGrid.ControlSetTabOrder(Value: Integer); +begin + TabOrder := Value; +end; + +function TJvDynControlJVCLStringGrid.GetControlCells(ACol, ARow: Integer): string; +begin + Result := Cells[ACol, ARow]; +end; + +function TJvDynControlJVCLStringGrid.GetControlCol: Integer; +begin + Result := Col; +end; + +function TJvDynControlJVCLStringGrid.GetControlColCount: Integer; +begin + Result := ColCount; +end; + +function TJvDynControlJVCLStringGrid.GetControlColWidths(Index: Integer): Integer; +begin + Result := ColWidths[Index]; +end; + +function TJvDynControlJVCLStringGrid.GetControlFixedCols: Integer; +begin + Result := FixedCols; +end; + +function TJvDynControlJVCLStringGrid.GetControlFixedRows: Integer; +begin + Result := FixedRows; +end; + +function TJvDynControlJVCLStringGrid.GetControlObjects(ACol, ARow: Integer): TObject; +begin + Result := Objects[ACol, ARow]; +end; + +function TJvDynControlJVCLStringGrid.GetControlOptions: TGridOptions; +begin + Result := Options; +end; + +function TJvDynControlJVCLStringGrid.GetControlRow: Integer; +begin + Result := Row; +end; + +function TJvDynControlJVCLStringGrid.GetControlRowCount: Integer; +begin + Result := RowCount; +end; + +function TJvDynControlJVCLStringGrid.GetControlRowHeights(Index: Integer): Integer; +begin + Result := RowHeights[Index]; +end; + +procedure TJvDynControlJVCLStringGrid.SetControlCells(ACol, ARow: Integer; const Value: string); +begin + Cells[ACol, ARow] := Value; +end; + +procedure TJvDynControlJVCLStringGrid.SetControlCol(const Value: Integer); +begin + Col := Value; +end; + +procedure TJvDynControlJVCLStringGrid.SetControlColCount(const Value: Integer); +begin + ColCount := Value; +end; + +procedure TJvDynControlJVCLStringGrid.SetControlColWidths(Index: Integer; const Value: Integer); +begin + ColWidths[Index] := Value; +end; + +procedure TJvDynControlJVCLStringGrid.SetControlFixedCols(const Value: Integer); +begin + FixedCols := Value; +end; + +procedure TJvDynControlJVCLStringGrid.SetControlFixedRows(const Value: Integer); +begin + FixedRows := Value; +end; + +procedure TJvDynControlJVCLStringGrid.SetControlObjects(ACol, ARow: Integer; Value: TObject); +begin + Objects[ACol, ARow] := Value; +end; + +procedure TJvDynControlJVCLStringGrid.SetControlOptions(const Value: TGridOptions); +begin + Options := Value; +end; + +procedure TJvDynControlJVCLStringGrid.SetControlRow(const Value: Integer); +begin + Row := Value; +end; + +procedure TJvDynControlJVCLStringGrid.SetControlRowCount(const Value: Integer); +begin + RowCount := Value; +end; + +procedure TJvDynControlJVCLStringGrid.SetControlRowHeights(Index: Integer; const Value: Integer); +begin + RowHeights [Index] := Value; +end; + +//=== { TJvDynControlEngineJVCL } ============================================ + +type + TJvDynControlEngineJVCL = class(TJvDynControlEngine) + public + procedure RegisterControls; override; + end; + +function DynControlEngineJVCL: TJvDynControlEngine; +begin + Result := IntDynControlEngineJVCL; +end; + +procedure SetDynControlEngineJVCLDefault; +begin + SetDefaultDynControlEngine(IntDynControlEngineJVCL); +end; + +procedure TJvDynControlEngineJVCL.RegisterControls; +begin + RegisterControlType(jctLabel, TJvDynControlJVCLLabel); + RegisterControlType(jctStaticText, TJvDynControlJVCLStaticText); + RegisterControlType(jctButton, TJvDynControlJVCLButton); + RegisterControlType(jctRadioButton, TJvDynControlJVCLRadioButton); + RegisterControlType(jctScrollBox, TJvDynControlJVCLScrollBox); + RegisterControlType(jctGroupBox, TJvDynControlJVCLGroupBox); + RegisterControlType(jctPanel, TJvDynControlJVCLPanel); + RegisterControlType(jctImage, TJvDynControlVCLImage); + RegisterControlType(jctCheckBox, TJvDynControlJVCLCheckBox); + RegisterControlType(jctComboBox, TJvDynControlJVCLComboBox); + RegisterControlType(jctListBox, TJvDynControlJVCLListBox); + RegisterControlType(jctCheckListBox, TJvDynControlJVCLCheckListBox); + RegisterControlType(jctCheckComboBox, TJvDynControlJVCLCheckedComboBox); + RegisterControlType(jctRadioGroup, TJvDynControlJVCLRadioGroup); + RegisterControlType(jctDateTimeEdit, TJvDynControlJVCLDateTimeEdit); + RegisterControlType(jctTimeEdit, TJvDynControlJVCLTimeEdit); + RegisterControlType(jctDateEdit, TJvDynControlJVCLDateEdit); + RegisterControlType(jctEdit, TJvDynControlJVCLMaskEdit); + RegisterControlType(jctCalculateEdit, TJvDynControlJVCLCalcEdit); + RegisterControlType(jctSpinEdit, TJvDynControlJVCLSpinEdit); + RegisterControlType(jctDirectoryEdit, TJvDynControlJVCLDirectoryEdit); + RegisterControlType(jctFileNameEdit, TJvDynControlJVCLFileNameEdit); + RegisterControlType(jctMemo, TJvDynControlJVCLMemo); + RegisterControlType(jctRichEdit, TJvDynControlJVCLRichEdit); + RegisterControlType(jctButtonEdit, TJvDynControlJVCLButtonEdit); + RegisterControlType(jctTreeView, TJvDynControlJVCLTreeView); + RegisterControlType(jctProgressbar, TJvDynControlJVCLProgressbar); + RegisterControlType(jctTabControl, TJvDynControlJVCLTabControl); + RegisterControlType(jctPageControl, TJvDynControlJVCLPageControl); + {$IFDEF DELPHI7_UP} + RegisterControlType(jctColorComboBox, TJvDynControlVCLColorComboBox); + {$ENDIF} + RegisterControlType(jctStringGrid, TJvDynControlJVCLStringGrid); +end; + initialization {$IFDEF UNITVERSIONING} RegisterUnitVersion(HInstance, UnitVersioning); Modified: trunk/jvcl/run/JvDynControlEngineVCL.pas =================================================================== --- trunk/jvcl/run/JvDynControlEngineVCL.pas 2013-03-24 21:22:09 UTC (rev 13501) +++ trunk/jvcl/run/JvDynControlEngineVCL.pas 2013-03-24 21:24:15 UTC (rev 13502) @@ -40,7 +40,7 @@ {$IFDEF HAS_UNIT_SYSTEM_UITYPES} System.UITypes, {$ENDIF HAS_UNIT_SYSTEM_UITYPES} - JvDynControlEngine, JvDynControlEngineIntf; + JvDynControlEngine, JvDynControlEngineIntf, Grids; type TJvDynControlEngineVCL = class(TJvDynControlEngine) @@ -829,6 +829,44 @@ procedure SetControlDefaultColor(const Value: TColor); stdcall; end; + TJvDynControlVCLStringGrid = class(TStringGrid, IUnknown, IJvDynControl, IJvDynControlStringGrid) + public + procedure ControlSetAnchors(Value: TAnchors); + // IJvDynControl + procedure ControlSetDefaultProperties; + procedure ControlSetHint(const Value: string); + procedure ControlSetOnChange(Value: TNotifyEvent); + procedure ControlSetOnClick(Value: TNotifyEvent); + procedure ControlSetOnEnter(Value: TNotifyEvent); + procedure ControlSetOnExit(Value: TNotifyEvent); + procedure ControlSetTabOrder(Value: Integer); + // IJvDynControlStringGrid + function GetControlCells(ACol, ARow: Integer): string; + function GetControlCol: Integer; + function GetControlColCount: Integer; stdcall; + function GetControlColWidths(Index: Integer): Integer; + function GetControlFixedCols: Integer; + function GetControlFixedRows: Integer; + function GetControlObjects(ACol, ARow: Integer): TObject; + function GetControlOptions: TGridOptions; + function GetControlRow: Integer; + function GetControlRowCount: Integer; stdcall; + function GetControlRowHeights(Index: Integer): Integer; + procedure SetControlCells(ACol, ARow: Integer; const Value: string); + procedure SetControlCol(const Value: Integer); + procedure SetControlColCount(const Value: Integer); + procedure SetControlColWidths(Index: Integer; const Value: Integer); + procedure SetControlFixedCols(const Value: Integer); + procedure SetControlFixedRows(const Value: Integer); + procedure SetControlObjects(ACol, ARow: Integer; Value: TObject); + procedure SetControlOptions(const Value: TGridOptions); + procedure SetControlRow(const Value: Integer); + procedure SetControlRowCount(const Value: Integer); stdcall; + procedure SetControlRowHeights(Index: Integer; const Value: Integer); + end; + + + function DynControlEngineVCL: TJvDynControlEngine; procedure SetDynControlEngineVCLDefault; @@ -3478,6 +3516,155 @@ DefaultColorColor := Value; end; + +procedure TJvDynControlVCLStringGrid.ControlSetAnchors(Value: TAnchors); +begin + Anchors := Value; +end; + +procedure TJvDynControlVCLStringGrid.ControlSetDefaultProperties; +begin +end; + +procedure TJvDynControlVCLStringGrid.ControlSetHint(const Value: string); +begin + Hint := Value; +end; + +procedure TJvDynControlVCLStringGrid.ControlSetOnChange(Value: TNotifyEvent); +begin +end; + +procedure TJvDynControlVCLStringGrid.ControlSetOnClick(Value: TNotifyEvent); +begin + OnClick := Value; +end; + +procedure TJvDynControlVCLStringGrid.ControlSetOnEnter(Value: TNotifyEvent); +begin + OnEnter := Value; +end; + +procedure TJvDynControlVCLStringGrid.ControlSetOnExit(Value: TNotifyEvent); +begin + OnExit := Value; +end; + +procedure TJvDynControlVCLStringGrid.ControlSetTabOrder(Value: Integer); +begin + TabOrder := Value; +end; + +function TJvDynControlVCLStringGrid.GetControlCells(ACol, ARow: Integer): string; +begin + Result := Cells[ACol, ARow]; +end; + +function TJvDynControlVCLStringGrid.GetControlCol: Integer; +begin + Result := Col; +end; + +function TJvDynControlVCLStringGrid.GetControlColCount: Integer; +begin + Result := ColCount; +end; + +function TJvDynControlVCLStringGrid.GetControlColWidths(Index: Integer): Integer; +begin + Result := ColWidths[Index]; +end; + +function TJvDynControlVCLStringGrid.GetControlFixedCols: Integer; +begin + Result := FixedCols; +end; + +function TJvDynControlVCLStringGrid.GetControlFixedRows: Integer; +begin + Result := FixedRows; +end; + +function TJvDynControlVCLStringGrid.GetControlObjects(ACol, ARow: Integer): TObject; +begin + Result := Objects[ACol, ARow]; +end; + +function TJvDynControlVCLStringGrid.GetControlOptions: TGridOptions; +begin + Result := Options; +end; + +function TJvDynControlVCLStringGrid.GetControlRow: Integer; +begin + Result := Row; +end; + +function TJvDynControlVCLStringGrid.GetControlRowCount: Integer; +begin + Result := RowCount; +end; + +function TJvDynControlVCLStringGrid.GetControlRowHeights(Index: Integer): Integer; +begin + Result := RowHeights[Index]; +end; + +procedure TJvDynControlVCLStringGrid.SetControlCells(ACol, ARow: Integer; const Value: string); +begin + Cells[ACol, ARow] := Value; +end; + +procedure TJvDynControlVCLStringGrid.SetControlCol(const Value: Integer); +begin + Col := Value; +end; + +procedure TJvDynControlVCLStringGrid.SetCont... [truncated message content] |
From: <jfu...@us...> - 2013-03-24 21:22:16
|
Revision: 13501 http://jvcl.svn.sourceforge.net/jvcl/?rev=13501&view=rev Author: jfudickar Date: 2013-03-24 21:22:09 +0000 (Sun, 24 Mar 2013) Log Message: ----------- JvItemsSearchs moved to Implementation Modified Paths: -------------- trunk/jvcl/run/JvListBox.pas Modified: trunk/jvcl/run/JvListBox.pas =================================================================== --- trunk/jvcl/run/JvListBox.pas 2013-03-05 12:54:32 UTC (rev 13500) +++ trunk/jvcl/run/JvListBox.pas 2013-03-24 21:22:09 UTC (rev 13501) @@ -58,7 +58,7 @@ {$IFDEF HAS_UNIT_SYSTEM_UITYPES} System.UITypes, {$ENDIF HAS_UNIT_SYSTEM_UITYPES} - JvItemsSearchs, JvDataProvider, JvDataProviderIntf, JvExStdCtrls; + JvDataProvider, JvDataProviderIntf, JvExStdCtrls; type TJvListboxFillMode = (bfmTile, bfmStretch); @@ -409,7 +409,7 @@ Types, {$ENDIF COMPILER10_UP} RTLConsts, - JvJCLUtils, JvJVCLUtils, JvConsts, JvResources; + JvItemsSearchs, JvJCLUtils, JvJVCLUtils, JvConsts, JvResources; const AlignFlags: array [TAlignment] of DWORD = (DT_LEFT, DT_RIGHT, DT_CENTER); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2013-03-05 12:54:41
|
Revision: 13500 http://jvcl.svn.sourceforge.net/jvcl/?rev=13500&view=rev Author: ahuser Date: 2013-03-05 12:54:32 +0000 (Tue, 05 Mar 2013) Log Message: ----------- CheckedComboBox with ReadOnly=False cleared "Text" after DropDown+CloseUp Modified Paths: -------------- trunk/jvcl/run/JvCombobox.pas Modified: trunk/jvcl/run/JvCombobox.pas =================================================================== --- trunk/jvcl/run/JvCombobox.pas 2013-02-04 09:07:28 UTC (rev 13499) +++ trunk/jvcl/run/JvCombobox.pas 2013-03-05 12:54:32 UTC (rev 13500) @@ -301,6 +301,7 @@ procedure AdjustSize; override; procedure CreatePopup; override; procedure Change; override; + function AcceptPopup(var Value: Variant): Boolean; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; @@ -605,6 +606,11 @@ inherited Destroy; end; +function TJvCustomCheckedComboBox.AcceptPopup(var Value: Variant): Boolean; +begin + Result := False; +end; + procedure TJvCustomCheckedComboBox.AdjustHeight; var DC: HDC; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2013-02-04 09:07:36
|
Revision: 13499 http://jvcl.svn.sourceforge.net/jvcl/?rev=13499&view=rev Author: ahuser Date: 2013-02-04 09:07:28 +0000 (Mon, 04 Feb 2013) Log Message: ----------- OnSelectColumns was triggered even if the mouse was pressed somewhere else Modified Paths: -------------- trunk/jvcl/run/JvDBGrid.pas Modified: trunk/jvcl/run/JvDBGrid.pas =================================================================== --- trunk/jvcl/run/JvDBGrid.pas 2013-01-30 13:10:01 UTC (rev 13498) +++ trunk/jvcl/run/JvDBGrid.pas 2013-02-04 09:07:28 UTC (rev 13499) @@ -255,6 +255,7 @@ FPostOnEnterKey: Boolean; FSelectColumn: TSelectColumn; FTitleArrow: Boolean; + FTitleArrowDown: Boolean; FTitlePopup: TPopupMenu; FOnShowTitleHint: TJvTitleHintEvent; FOnTitleArrowMenuEvent: TNotifyEvent; @@ -2409,6 +2410,10 @@ LastCell.X := Col; LastCell.Y := Row; + if (Button = mbLeft) and FTitleArrow and (Cell.X = 0) and (Cell.Y = 0) and + (dgTitles in Options) and (dgIndicator in Options) then + FTitleArrowDown := True; + if (Button = mbRight) and (dgTitles in Options) and (dgIndicator in Options) and (Cell.Y = 0) then @@ -2671,10 +2676,13 @@ FGridState := gsNormal; end; - if FTitleArrow and (Button = mbLeft) and - (dgTitles in Options) and (dgIndicator in Options) and - (Cell.X = 0) and (Cell.Y = 0) and (Columns.Count > 0) then - ShowSelectColumnClick; // Selection of columns + if FTitleArrowDown and (Button = mbLeft) then + begin + FTitleArrowDown := False; + if FTitleArrow and (dgTitles in Options) and (dgIndicator in Options) and + (Cell.X = 0) and (Cell.Y = 0) and (Columns.Count > 0) then + ShowSelectColumnClick; // Selection of columns + end; if (Button = mbLeft) and (FGridState = gsColSizing) then begin This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <tw...@us...> - 2013-01-30 13:10:11
|
Revision: 13498 http://jvcl.svn.sourceforge.net/jvcl/?rev=13498&view=rev Author: twm Date: 2013-01-30 13:10:01 +0000 (Wed, 30 Jan 2013) Log Message: ----------- added TJvTrayIcon.OnQueryEndSession event Modified Paths: -------------- trunk/jvcl/run/JvTrayIcon.pas Modified: trunk/jvcl/run/JvTrayIcon.pas =================================================================== --- trunk/jvcl/run/JvTrayIcon.pas 2013-01-26 20:59:33 UTC (rev 13497) +++ trunk/jvcl/run/JvTrayIcon.pas 2013-01-30 13:10:01 UTC (rev 13498) @@ -98,6 +98,7 @@ FCurrentIcon: TIcon; FState: TJvTrayIconStates; FStreamedActive: Boolean; + FOnQueryEndSession: TNotifyEvent; function GetApplicationVisible: Boolean; procedure SetApplicationVisible(const Value: Boolean); @@ -181,6 +182,7 @@ procedure DoMouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure DoDoubleClick(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure DoClick(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure doOnQueryEndSession; function ApplicationHook(var Msg: TMessage): Boolean; function NotifyIcon(uFlags: UINT; dwMessage: DWORD): Boolean; procedure SetCurrentIcon(Value: TIcon); //HEG: New @@ -235,6 +237,7 @@ property OnBalloonHide: TNotifyEvent read FOnBalloonHide write FOnBalloonHide; property OnBalloonClick: TNotifyEvent read FOnBalloonClick write FOnBalloonClick; property OnContextPopup: TContextPopupEvent read FOnContextPopup write FOnContextPopup; + property OnQueryEndSession: TNotifyEvent read FOnQueryEndSession write FOnQueryEndSession; end; procedure RefreshTray; @@ -823,6 +826,12 @@ DoContextPopup(X, Y); end; +procedure TJvTrayIcon.doOnQueryEndSession; +begin + if Assigned(FOnQueryEndSession) then + FOnQueryEndSession(Self); +end; + procedure TJvTrayIcon.DoTimerDblClick; begin StopTimer(DblClickTimer); @@ -1478,14 +1487,17 @@ end; end; end; - {$IFNDEF DELPHI2009_UP} - // Add by Winston Feng 2003-9-28 - // Handle the QueryEndSession and TaskbarCreated message, so trayicon - // will be deleted and restored correctly. - // For D2009 and upper, we must let the default window proc handle it. WM_QUERYENDSESSION: - Result := 1; - {$ENDIF ~DELPHI2009_UP} + begin + doOnQueryEndSession; + // Add by Winston Feng 2003-9-28 + // Handle the QueryEndSession and TaskbarCreated message, so trayicon + // will be deleted and restored correctly. + // For D2009 and above, we must let the default window proc handle it. + {$IFNDEF DELPHI2009_UP} + Result := 1; + {$ENDIF ~DELPHI2009_UP} + end; WM_ENDSESSION: // (rb) Is it really necessairy to respond to WM_ENDSESSION? if TWMEndSession(Mesg).EndSession then This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2013-01-26 20:59:44
|
Revision: 13497 http://jvcl.svn.sourceforge.net/jvcl/?rev=13497&view=rev Author: jfudickar Date: 2013-01-26 20:59:33 +0000 (Sat, 26 Jan 2013) Log Message: ----------- Mantis 0006072: Missing package references in x64 packages Modified Paths: -------------- trunk/jvcl/devtools/bin/pgEdit.xml trunk/jvcl/packages/xml/JvDB-R.xml Modified: trunk/jvcl/devtools/bin/pgEdit.xml =================================================================== --- trunk/jvcl/devtools/bin/pgEdit.xml 2013-01-26 20:49:49 UTC (rev 13496) +++ trunk/jvcl/devtools/bin/pgEdit.xml 2013-01-26 20:59:33 UTC (rev 13497) @@ -82,6 +82,8 @@ <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="d16_all" value="d16,d16_x64"/> + <alias name="d17_all" value="d17,d17_x64"/> <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"/> Modified: trunk/jvcl/packages/xml/JvDB-R.xml =================================================================== --- trunk/jvcl/packages/xml/JvDB-R.xml 2013-01-26 20:49:49 UTC (rev 13496) +++ trunk/jvcl/packages/xml/JvDB-R.xml 2013-01-26 20:59:33 UTC (rev 13497) @@ -59,8 +59,8 @@ <Package Name="ODAC120" Targets="d12" Condition="USE_3RDPARTY_DEVART_ODAC"/> <Package Name="ODAC140" Targets="d14" Condition="USE_3RDPARTY_DEVART_ODAC"/> <Package Name="ODAC150" Targets="d15" Condition="USE_3RDPARTY_DEVART_ODAC"/> - <Package Name="ODAC160" Targets="d16" Condition="USE_3RDPARTY_DEVART_ODAC"/> - <Package Name="ODAC170" Targets="d17" Condition="USE_3RDPARTY_DEVART_ODAC"/> + <Package Name="ODAC160" Targets="d16_all" Condition="USE_3RDPARTY_DEVART_ODAC"/> + <Package Name="ODAC170" Targets="d17_all" Condition="USE_3RDPARTY_DEVART_ODAC"/> <Package Name="ODACVCL60" Targets="d6,c6" Condition="USE_3RDPARTY_DEVART_ODAC"/> <Package Name="ODACVCL70" Targets="d7" Condition="USE_3RDPARTY_DEVART_ODAC"/> <Package Name="ODACVCL90" Targets="d9" Condition="USE_3RDPARTY_DEVART_ODAC"/> @@ -69,8 +69,8 @@ <Package Name="ODACVCL120" Targets="d12" Condition="USE_3RDPARTY_DEVART_ODAC"/> <Package Name="ODACVCL140" Targets="d14" Condition="USE_3RDPARTY_DEVART_ODAC"/> <Package Name="ODACVCL150" Targets="d15" Condition="USE_3RDPARTY_DEVART_ODAC"/> - <Package Name="ODACVCL160" Targets="d16" Condition="USE_3RDPARTY_DEVART_ODAC"/> - <Package Name="ODACVCL170" Targets="d17" Condition="USE_3RDPARTY_DEVART_ODAC"/> + <Package Name="ODACVCL160" Targets="d16_all" Condition="USE_3RDPARTY_DEVART_ODAC"/> + <Package Name="ODACVCL170" Targets="d17_all" Condition="USE_3RDPARTY_DEVART_ODAC"/> <Package Name="UNIDAC70" Targets="d7" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> <Package Name="UNIDAC90" Targets="d9" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> <Package Name="UNIDAC100" Targets="d10" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> @@ -78,8 +78,8 @@ <Package Name="UNIDAC120" Targets="d12" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> <Package Name="UNIDAC140" Targets="d14" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> <Package Name="UNIDAC150" Targets="d15" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> - <Package Name="UNIDAC160" Targets="d16" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> - <Package Name="UNIDAC170" Targets="d17" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> + <Package Name="UNIDAC160" Targets="d16_all" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> + <Package Name="UNIDAC170" Targets="d17_all" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> <Package Name="UNIDACVCL70" Targets="d7" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> <Package Name="UNIDACVCL90" Targets="d9" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> <Package Name="UNIDACVCL100" Targets="d10" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> @@ -87,8 +87,8 @@ <Package Name="UNIDACVCL120" Targets="d12" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> <Package Name="UNIDACVCL140" Targets="d14" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> <Package Name="UNIDACVCL150" Targets="d15" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> - <Package Name="UNIDACVCL160" Targets="d16" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> - <Package Name="UNIDACVCL170" Targets="d17" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> + <Package Name="UNIDACVCL160" Targets="d16_all" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> + <Package Name="UNIDACVCL170" Targets="d17_all" Condition="USE_3RDPARTY_DEVART_UNIDAC"/> <Package Name="vclimg" Targets="allv12up" Condition=""/> <Package Name="cxEditorsVCLC6" Targets="c6" Condition="USE_3RDPARTY_DEVEXPRESS_CXEDITOR_NON_SHARED"/> <Package Name="cxDataVCLC6" Targets="c6" Condition="USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID_NON_SHARED || USE_3RDPARTY_DEVEXPRESS_CXGRID_NON_SHARED || USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_NON_SHARED || USE_3RDPARTY_DEVEXPRESS_CXTREELIST_NON_SHARED"/> @@ -129,16 +129,16 @@ <Package Name="cxGridD15" Targets="d15" Condition="USE_3RDPARTY_DEVEXPRESS_CXGRID_NON_SHARED"/> <Package Name="cxTreeListD15" Targets="d15" Condition="USE_3RDPARTY_DEVEXPRESS_CXTREELIST_NON_SHARED"/> <Package Name="cxPivotGridD15" Targets="d15" Condition="USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_NON_SHARED"/> - <Package Name="cxEditorsd16" Targets="d16" Condition="USE_3RDPARTY_DEVEXPRESS_CXEDITOR_NON_SHARED"/> - <Package Name="cxDatad16" Targets="d16" Condition="USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID_NON_SHARED || USE_3RDPARTY_DEVEXPRESS_CXGRID_NON_SHARED || USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_NON_SHARED || USE_3RDPARTY_DEVEXPRESS_CXTREELIST_NON_SHARED"/> - <Package Name="cxGridd16" Targets="d16" Condition="USE_3RDPARTY_DEVEXPRESS_CXGRID_NON_SHARED"/> - <Package Name="cxTreeListd16" Targets="d16" Condition="USE_3RDPARTY_DEVEXPRESS_CXTREELIST_NON_SHARED"/> - <Package Name="cxPivotGridd16" Targets="d16" Condition="USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_NON_SHARED"/> - <Package Name="cxEditorsd17" Targets="d17" Condition="USE_3RDPARTY_DEVEXPRESS_CXEDITOR_NON_SHARED"/> - <Package Name="cxDatad17" Targets="d17" Condition="USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID_NON_SHARED || USE_3RDPARTY_DEVEXPRESS_CXGRID_NON_SHARED || USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_NON_SHARED || USE_3RDPARTY_DEVEXPRESS_CXTREELIST_NON_SHARED"/> - <Package Name="cxGridd17" Targets="d17" Condition="USE_3RDPARTY_DEVEXPRESS_CXGRID_NON_SHARED"/> - <Package Name="cxTreeListd17" Targets="d17" Condition="USE_3RDPARTY_DEVEXPRESS_CXTREELIST_NON_SHARED"/> - <Package Name="cxPivotGridd17" Targets="d17" Condition="USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_NON_SHARED"/> + <Package Name="cxEditorsd16" Targets="d16_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXEDITOR_NON_SHARED"/> + <Package Name="cxDatad16" Targets="d16_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID_NON_SHARED || USE_3RDPARTY_DEVEXPRESS_CXGRID_NON_SHARED || USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_NON_SHARED || USE_3RDPARTY_DEVEXPRESS_CXTREELIST_NON_SHARED"/> + <Package Name="cxGridd16" Targets="d16_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXGRID_NON_SHARED"/> + <Package Name="cxTreeListd16" Targets="d16_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXTREELIST_NON_SHARED"/> + <Package Name="cxPivotGridd16" Targets="d16_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_NON_SHARED"/> + <Package Name="cxEditorsd17" Targets="d17_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXEDITOR_NON_SHARED"/> + <Package Name="cxDatad17" Targets="d17_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID_NON_SHARED || USE_3RDPARTY_DEVEXPRESS_CXGRID_NON_SHARED || USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_NON_SHARED || USE_3RDPARTY_DEVEXPRESS_CXTREELIST_NON_SHARED"/> + <Package Name="cxGridd17" Targets="d17_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXGRID_NON_SHARED"/> + <Package Name="cxTreeListd17" Targets="d17_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXTREELIST_NON_SHARED"/> + <Package Name="cxPivotGridd17" Targets="d17_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_NON_SHARED"/> <Package Name="cxEditorsVCLC6" Targets="c6" Condition="USE_3RDPARTY_DEVEXPRESS_CXEDITOR_SHARED"/> <Package Name="cxDataVCLC6" Targets="c6" Condition="USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID_SHARED || USE_3RDPARTY_DEVEXPRESS_CXGRID_SHARED || USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_SHARED || USE_3RDPARTY_DEVEXPRESS_CXTREELIST_SHARED"/> <Package Name="cxGridVCLC6" Targets="c6" Condition="USE_3RDPARTY_DEVEXPRESS_CXGRID_SHARED"/> @@ -178,16 +178,16 @@ <Package Name="cxGridRS15" Targets="d15" Condition="USE_3RDPARTY_DEVEXPRESS_CXGRID_SHARED"/> <Package Name="cxTreeListRS15" Targets="d15" Condition="USE_3RDPARTY_DEVEXPRESS_CXTREELIST_SHARED"/> <Package Name="cxPivotGridRS15" Targets="d15" Condition="USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_SHARED"/> - <Package Name="cxEditorsRS16" Targets="d16" Condition="USE_3RDPARTY_DEVEXPRESS_CXEDITOR_SHARED"/> - <Package Name="cxDataRS16" Targets="d16" Condition="USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID_SHARED || USE_3RDPARTY_DEVEXPRESS_CXGRID_SHARED || USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_SHARED || USE_3RDPARTY_DEVEXPRESS_CXTREELIST_SHARED"/> - <Package Name="cxGridRS16" Targets="d16" Condition="USE_3RDPARTY_DEVEXPRESS_CXGRID_SHARED"/> - <Package Name="cxTreeListRS16" Targets="d16" Condition="USE_3RDPARTY_DEVEXPRESS_CXTREELIST_SHARED"/> - <Package Name="cxPivotGridRS16" Targets="d16" Condition="USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_SHARED"/> - <Package Name="cxEditorsRS17" Targets="d17" Condition="USE_3RDPARTY_DEVEXPRESS_CXEDITOR_SHARED"/> - <Package Name="cxDataRS17" Targets="d17" Condition="USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID_SHARED || USE_3RDPARTY_DEVEXPRESS_CXGRID_SHARED || USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_SHARED || USE_3RDPARTY_DEVEXPRESS_CXTREELIST_SHARED"/> - <Package Name="cxGridRS17" Targets="d17" Condition="USE_3RDPARTY_DEVEXPRESS_CXGRID_SHARED"/> - <Package Name="cxTreeListRS17" Targets="d17" Condition="USE_3RDPARTY_DEVEXPRESS_CXTREELIST_SHARED"/> - <Package Name="cxPivotGridRS17" Targets="d17" Condition="USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_SHARED"/> + <Package Name="cxEditorsRS16" Targets="d16_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXEDITOR_SHARED"/> + <Package Name="cxDataRS16" Targets="d16_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID_SHARED || USE_3RDPARTY_DEVEXPRESS_CXGRID_SHARED || USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_SHARED || USE_3RDPARTY_DEVEXPRESS_CXTREELIST_SHARED"/> + <Package Name="cxGridRS16" Targets="d16_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXGRID_SHARED"/> + <Package Name="cxTreeListRS16" Targets="d16_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXTREELIST_SHARED"/> + <Package Name="cxPivotGridRS16" Targets="d16_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_SHARED"/> + <Package Name="cxEditorsRS17" Targets="d17_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXEDITOR_SHARED"/> + <Package Name="cxDataRS17" Targets="d17_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXVERTICALGRID_SHARED || USE_3RDPARTY_DEVEXPRESS_CXGRID_SHARED || USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_SHARED || USE_3RDPARTY_DEVEXPRESS_CXTREELIST_SHARED"/> + <Package Name="cxGridRS17" Targets="d17_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXGRID_SHARED"/> + <Package Name="cxTreeListRS17" Targets="d17_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXTREELIST_SHARED"/> + <Package Name="cxPivotGridRS17" Targets="d17_all" Condition="USE_3RDPARTY_DEVEXPRESS_CXPIVOTGRID_SHARED"/> </Requires> <Contains> <File Name="..\..\run\JvAppStoragePropertyEngineDB.pas" Targets="DB,help" Formname="" Condition=""/> This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2013-01-26 20:49:56
|
Revision: 13496 http://jvcl.svn.sourceforge.net/jvcl/?rev=13496&view=rev Author: jfudickar Date: 2013-01-26 20:49:49 +0000 (Sat, 26 Jan 2013) Log Message: ----------- Added TJvAppStorageIniFile to combine a TCustomIniFile with a TJvCustomAppStorage Modified Paths: -------------- trunk/jvcl/run/JvAppStorage.pas Modified: trunk/jvcl/run/JvAppStorage.pas =================================================================== --- trunk/jvcl/run/JvAppStorage.pas 2013-01-26 20:47:01 UTC (rev 13495) +++ trunk/jvcl/run/JvAppStorage.pas 2013-01-26 20:49:49 UTC (rev 13496) @@ -96,7 +96,7 @@ {$IFNDEF COMPILER12_UP} JvJCLUtils, {$ENDIF ~COMPILER12_UP} - JvComponentBase, JvTypes, JvTranslateString; + JvComponentBase, JvTypes, JvTranslateString, IniFiles; const // (rom) this name is shared in several units and should be made global @@ -979,6 +979,40 @@ TJvAppStoragePropertyBaseEngineClass = class of TJvAppStoragePropertyBaseEngine; + //1 This class emulates a TCustomInifile using an appstorage class as data container + TJvAppStorageIniFile = class(TCustomIniFile) + private + FAppStorage: TJvCustomAppStorage; + FBaseSection: string; + public + constructor Create(const AppStorage : TJvCustomAppStorage); + procedure DeleteKey(const Section, Ident: string); override; + procedure EraseSection(const Section: string); override; + function ReadBool(const Section, Ident: string; Default: Boolean): Boolean; override; + function ReadDate(const Section, Name: string; Default: TDateTime): TDateTime; override; + function ReadDateTime(const Section, Name: string; Default: TDateTime): TDateTime; override; + function ReadFloat(const Section, Name: string; Default: Double): Double; override; + function ReadInteger(const Section, Ident: string; Default: Longint): Longint; override; + procedure ReadSection(const Section: string; Strings: TStrings); override; + procedure ReadSections(Strings: TStrings); override; + procedure ReadSectionValues(const Section: string; Strings: TStrings); override; + function ReadString(const Section, Ident, Default: string): string; override; + function ReadTime(const Section, Name: string; Default: TDateTime): TDateTime; override; + procedure UpdateFile; override; + {$IFDEF DELPHI9_UP} + function ValueExists(const Section, Ident: string): Boolean; override; + {$ENDIF DELPHI9_UP} + procedure WriteBool(const Section, Ident: string; Value: Boolean); override; + procedure WriteDate(const Section, Name: string; Value: TDateTime); override; + procedure WriteDateTime(const Section, Name: string; Value: TDateTime); override; + procedure WriteFloat(const Section, Name: string; Value: Double); override; + procedure WriteInteger(const Section, Ident: string; Value: Longint); override; + procedure WriteString(const Section, Ident, Value: string); override; + procedure WriteTime(const Section, Name: string; Value: TDateTime); override; + property AppStorage: TJvCustomAppStorage read FAppStorage write FAppStorage; + property BaseSection: string read FBaseSection write FBaseSection; + end; + procedure RegisterAppStoragePropertyEngine(AEngineClass: TJvAppStoragePropertyBaseEngineClass); procedure UnregisterAppStoragePropertyEngine(AEngineClass: TJvAppStoragePropertyBaseEngineClass); @@ -3940,6 +3974,118 @@ inherited assign(Source); end; +constructor TJvAppStorageIniFile.Create(const AppStorage : TJvCustomAppStorage); +begin + fAppStorage := AppStorage; +end; + +procedure TJvAppStorageIniFile.DeleteKey(const Section, Ident: string); +begin + AppStorage.DeleteValue(AppStorage.ConcatPaths([BaseSection, Section, Ident])); +end; + +procedure TJvAppStorageIniFile.EraseSection(const Section: string); +begin + AppStorage.DeleteSubTree(AppStorage.ConcatPaths([BaseSection, Section])); +end; + +function TJvAppStorageIniFile.ReadBool(const Section, Ident: string; Default: Boolean): Boolean; +begin + Result := AppStorage.ReadBoolean(AppStorage.ConcatPaths([BaseSection, Section, Ident]), Default); +end; + +function TJvAppStorageIniFile.ReadDate(const Section, Name: string; Default: TDateTime): TDateTime; +begin + Result := AppStorage.ReadDateTime(AppStorage.ConcatPaths([BaseSection, Section, Name]), Default); +end; + +function TJvAppStorageIniFile.ReadDateTime(const Section, Name: string; Default: TDateTime): TDateTime; +begin + Result := AppStorage.ReadDateTime(AppStorage.ConcatPaths([BaseSection, Section, Name]), Default); +end; + +function TJvAppStorageIniFile.ReadFloat(const Section, Name: string; Default: Double): Double; +begin + Result := AppStorage.ReadFloat(AppStorage.ConcatPaths([BaseSection, Section, Name]), Default); +end; + +function TJvAppStorageIniFile.ReadInteger(const Section, Ident: string; Default: Longint): Longint; +begin + Result := AppStorage.ReadInteger(AppStorage.ConcatPaths([BaseSection, Section, Ident]), Default); +end; + +procedure TJvAppStorageIniFile.ReadSection(const Section: string; Strings: TStrings); +begin + AppStorage.EnumFolders(AppStorage.ConcatPaths([BaseSection, Section]), Strings); +end; + +procedure TJvAppStorageIniFile.ReadSections(Strings: TStrings); +begin + AppStorage.EnumFolders(AppStorage.ConcatPaths([BaseSection]), Strings); +end; + +procedure TJvAppStorageIniFile.ReadSectionValues(const Section: string; Strings: TStrings); +begin + AppStorage.EnumValues(AppStorage.ConcatPaths([BaseSection, Section]), Strings); +end; + +function TJvAppStorageIniFile.ReadString(const Section, Ident, Default: string): string; +begin + Result := AppStorage.ReadString(AppStorage.ConcatPaths([BaseSection, Section, Ident]), Default); +end; + +function TJvAppStorageIniFile.ReadTime(const Section, Name: string; Default: TDateTime): TDateTime; +begin + Result := AppStorage.ReadDateTime(AppStorage.ConcatPaths([BaseSection, Section, Name]), Default); +end; + +procedure TJvAppStorageIniFile.UpdateFile; +begin + AppStorage.Flush; +end; + +{$IFDEF DELPHI9_UP} +function TJvAppStorageIniFile.ValueExists(const Section, Ident: string): Boolean; +begin + Result := AppStorage.PathExists(AppStorage.ConcatPaths([BaseSection, Section, Ident])) +end; +{$ENDIF DELPHI9_UP} + +procedure TJvAppStorageIniFile.WriteBool(const Section, Ident: string; Value: Boolean); +begin + AppStorage.WriteBoolean(AppStorage.ConcatPaths([BaseSection, Section, Ident]),Value); +end; + +procedure TJvAppStorageIniFile.WriteDate(const Section, Name: string; Value: TDateTime); +begin + AppStorage.WriteDateTime(AppStorage.ConcatPaths([BaseSection, Section, Name]),Value); +end; + +procedure TJvAppStorageIniFile.WriteDateTime(const Section, Name: string; Value: TDateTime); +begin + AppStorage.WriteDateTime(AppStorage.ConcatPaths([BaseSection, Section, Name]),Value); +end; + +procedure TJvAppStorageIniFile.WriteFloat(const Section, Name: string; Value: Double); +begin + AppStorage.WriteFloat(AppStorage.ConcatPaths([BaseSection, Section, Name]),Value); +end; + +procedure TJvAppStorageIniFile.WriteInteger(const Section, Ident: string; Value: Longint); +begin + AppStorage.WriteInteger(AppStorage.ConcatPaths([BaseSection, Section, Ident]),Value); +end; + +procedure TJvAppStorageIniFile.WriteString(const Section, Ident, Value: string); +begin + AppStorage.WriteString(AppStorage.ConcatPaths([BaseSection, Section, Ident]),Value); +end; + +procedure TJvAppStorageIniFile.WriteTime(const Section, Name: string; Value: TDateTime); +begin + AppStorage.WriteDateTime(AppStorage.ConcatPaths([BaseSection, Section, Name]),Value); +end; + initialization {$IFDEF UNITVERSIONING} RegisterUnitVersion(HInstance, UnitVersioning); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2013-01-26 20:47:10
|
Revision: 13495 http://jvcl.svn.sourceforge.net/jvcl/?rev=13495&view=rev Author: jfudickar Date: 2013-01-26 20:47:01 +0000 (Sat, 26 Jan 2013) Log Message: ----------- Mantis 0006060: Hints and Warning under XE3 for not specified units and deprecated functions Modified Paths: -------------- trunk/jvcl/run/JvAppEvent.pas trunk/jvcl/run/JvColorCombo.pas trunk/jvcl/run/JvComputerInfoEx.pas trunk/jvcl/run/JvDBRadioPanel.pas trunk/jvcl/run/JvErrorIndicator.pas trunk/jvcl/run/JvGradient.pas trunk/jvcl/run/JvMRUManager.pas trunk/jvcl/run/JvMenus.pas trunk/jvcl/run/JvPropertyStoreEditor.pas trunk/jvcl/run/JvThread.pas Modified: trunk/jvcl/run/JvAppEvent.pas =================================================================== --- trunk/jvcl/run/JvAppEvent.pas 2013-01-15 15:14:02 UTC (rev 13494) +++ trunk/jvcl/run/JvAppEvent.pas 2013-01-26 20:47:01 UTC (rev 13495) @@ -45,6 +45,9 @@ {$ENDIF UNITVERSIONING} Windows, Messages, SysUtils, Classes, Controls, Graphics, Forms, ActnList, + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.Types, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} JvTypes, JvComponentBase; const Modified: trunk/jvcl/run/JvColorCombo.pas =================================================================== --- trunk/jvcl/run/JvColorCombo.pas 2013-01-15 15:14:02 UTC (rev 13494) +++ trunk/jvcl/run/JvColorCombo.pas 2013-01-26 20:47:01 UTC (rev 13495) @@ -43,6 +43,9 @@ {$ENDIF UNITVERSIONING} Windows, Messages, Classes, Controls, Dialogs, Graphics, + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.UITypes, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} JvCombobox; type Modified: trunk/jvcl/run/JvComputerInfoEx.pas =================================================================== --- trunk/jvcl/run/JvComputerInfoEx.pas 2013-01-15 15:14:02 UTC (rev 13494) +++ trunk/jvcl/run/JvComputerInfoEx.pas 2013-01-26 20:47:01 UTC (rev 13495) @@ -49,6 +49,10 @@ {$ENDIF UNITVERSIONING} Windows, Messages, SysUtils, ShlObj, ShellAPI, Classes, Graphics, Controls, + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.Types, + System.UITypes, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} JclWin32, JclSysInfo, JvJVCLUtils, JvComponentBase, JvTypes; Modified: trunk/jvcl/run/JvDBRadioPanel.pas =================================================================== --- trunk/jvcl/run/JvDBRadioPanel.pas 2013-01-15 15:14:02 UTC (rev 13494) +++ trunk/jvcl/run/JvDBRadioPanel.pas 2013-01-26 20:47:01 UTC (rev 13495) @@ -40,6 +40,9 @@ Windows, Messages, Classes, Controls, StdCtrls, DB, DBCtrls, + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.Types, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} JvExtComponent; type Modified: trunk/jvcl/run/JvErrorIndicator.pas =================================================================== --- trunk/jvcl/run/JvErrorIndicator.pas 2013-01-15 15:14:02 UTC (rev 13494) +++ trunk/jvcl/run/JvErrorIndicator.pas 2013-01-26 20:47:01 UTC (rev 13495) @@ -45,6 +45,9 @@ JclUnitVersioning, {$ENDIF UNITVERSIONING} Windows, Classes, Graphics, Controls, ImgList, + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.Types, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} JvComponentBase; type Modified: trunk/jvcl/run/JvGradient.pas =================================================================== --- trunk/jvcl/run/JvGradient.pas 2013-01-15 15:14:02 UTC (rev 13494) +++ trunk/jvcl/run/JvGradient.pas 2013-01-26 20:47:01 UTC (rev 13495) @@ -34,6 +34,9 @@ JclUnitVersioning, {$ENDIF UNITVERSIONING} Windows, Messages, Graphics, Controls, + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.UITypes, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} SysUtils, Classes, JvTypes, JvComponent; Modified: trunk/jvcl/run/JvMRUManager.pas =================================================================== --- trunk/jvcl/run/JvMRUManager.pas 2013-01-15 15:14:02 UTC (rev 13494) +++ trunk/jvcl/run/JvMRUManager.pas 2013-01-26 20:47:01 UTC (rev 13495) @@ -38,6 +38,9 @@ {$ENDIF UNITVERSIONING} SysUtils, Classes, Windows, Menus, Graphics, Controls, Forms, + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.Types, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} JvFormPlacement, JvAppStorage, JvComponentBase; type Modified: trunk/jvcl/run/JvMenus.pas =================================================================== --- trunk/jvcl/run/JvMenus.pas 2013-01-15 15:14:02 UTC (rev 13494) +++ trunk/jvcl/run/JvMenus.pas 2013-01-26 20:47:01 UTC (rev 13495) @@ -35,6 +35,9 @@ JclUnitVersioning, {$ENDIF UNITVERSIONING} Windows, Messages, SysUtils, Contnrs, Graphics, Controls, Forms, Classes, + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.UITypes, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} ExtCtrls, ImgList, Menus, JvWndProcHook, JVCLVer; Modified: trunk/jvcl/run/JvPropertyStoreEditor.pas =================================================================== --- trunk/jvcl/run/JvPropertyStoreEditor.pas 2013-01-15 15:14:02 UTC (rev 13494) +++ trunk/jvcl/run/JvPropertyStoreEditor.pas 2013-01-26 20:47:01 UTC (rev 13495) @@ -32,6 +32,10 @@ {$IFDEF UNITVERSIONING} JclUnitVersioning, {$ENDIF UNITVERSIONING} + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.Types, + System.UITypes, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} Variants, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Modified: trunk/jvcl/run/JvThread.pas =================================================================== --- trunk/jvcl/run/JvThread.pas 2013-01-15 15:14:02 UTC (rev 13494) +++ trunk/jvcl/run/JvThread.pas 2013-01-26 20:47:01 UTC (rev 13495) @@ -34,6 +34,10 @@ JclUnitVersioning, {$ENDIF UNITVERSIONING} Windows, SysUtils, Classes, SyncObjs, Controls, ExtCtrls, Forms, Dialogs, + {$IFDEF HAS_UNIT_SYSTEM_UITYPES} + System.Types, + System.UITypes, + {$ENDIF HAS_UNIT_SYSTEM_UITYPES} JvTypes, JvComponentBase, JvComponent; type This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2013-01-15 15:14:09
|
Revision: 13494 http://jvcl.svn.sourceforge.net/jvcl/?rev=13494&view=rev Author: obones Date: 2013-01-15 15:14:02 +0000 (Tue, 15 Jan 2013) Log Message: ----------- Mantis 6056: It's JvCore only since quite a long time... Modified Paths: -------------- trunk/jvcl/design/JvPluginWizard.pas Modified: trunk/jvcl/design/JvPluginWizard.pas =================================================================== --- trunk/jvcl/design/JvPluginWizard.pas 2013-01-15 15:07:51 UTC (rev 13493) +++ trunk/jvcl/design/JvPluginWizard.pas 2013-01-15 15:14:02 UTC (rev 13494) @@ -792,30 +792,7 @@ {$IFDEF COMPILER8_UP} Project.AddFile('rtl.bpi', False); {$ENDIF COMPILER8_UP} - {$IFDEF COMPILER6} - Project.AddFile('JvCoreC6R.bpi', False) - {$ENDIF COMPILER6} - {$IFDEF COMPILER10} - Project.AddFile('JvCoreD10R.bpi', False) - {$ENDIF COMPILER10} - {$IFDEF COMPILER11} - Project.AddFile('JvCoreD11R.bpi', False) - {$ENDIF COMPILER11} - {$IFDEF COMPILER12} - Project.AddFile('JvCoreD12R.bpi', False) - {$ENDIF COMPILER12} - {$IFDEF COMPILER14} - Project.AddFile('JvCoreD14R.bpi', False) - {$ENDIF COMPILER14} - {$IFDEF COMPILER15} - Project.AddFile('JvCoreD15R.bpi', False) - {$ENDIF COMPILER15} - {$IFDEF COMPILER16} - Project.AddFile('JvCoreD16R.bpi', False) - {$ENDIF COMPILER16} - {$IFDEF COMPILER17} - Project.AddFile('JvCoreD17R.bpi', False) - {$ENDIF COMPILER17} + Project.AddFile('JvCore.bpi', False) end end else @@ -823,36 +800,7 @@ // add requires if PlugType = ptPackage then begin - {$IFDEF COMPILER6} - Project.AddFile('JvCoreD6R.dcp', False); - {$ENDIF COMPILER6} - {$IFDEF COMPILER7} - Project.AddFile('JvCoreD7R.dcp', False); - {$ENDIF COMPILER7} - {$IFDEF COMPILER9} - Project.AddFile('JvCoreD9R.dcp', False); - {$ENDIF COMPILER9} - {$IFDEF COMPILER10} - Project.AddFile('JvCoreD10R.dcp', False); - {$ENDIF COMPILER10} - {$IFDEF COMPILER11} - Project.AddFile('JvCoreD11R.dcp', False); - {$ENDIF COMPILER11} - {$IFDEF COMPILER12} - Project.AddFile('JvCoreD12R.dcp', False); - {$ENDIF COMPILER12} - {$IFDEF COMPILER14} - Project.AddFile('JvCoreD14R.dcp', False); - {$ENDIF COMPILER14} - {$IFDEF COMPILER15} - Project.AddFile('JvCoreD15R.dcp', False); - {$ENDIF COMPILER15} - {$IFDEF COMPILER16} - Project.AddFile('JvCoreD16R.dcp', False); - {$ENDIF COMPILER16} - {$IFDEF COMPILER17} - Project.AddFile('JvCoreD17R.dcp', False); - {$ENDIF COMPILER17} + Project.AddFile('JvCore.dcp', False); end end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2013-01-15 15:07:57
|
Revision: 13493 http://jvcl.svn.sourceforge.net/jvcl/?rev=13493&view=rev Author: obones Date: 2013-01-15 15:07:51 +0000 (Tue, 15 Jan 2013) Log Message: ----------- Mantis 5942: Use desktop size to position popup Modified Paths: -------------- trunk/jvcl/run/JvOfficeColorButton.pas Modified: trunk/jvcl/run/JvOfficeColorButton.pas =================================================================== --- trunk/jvcl/run/JvOfficeColorButton.pas 2013-01-15 14:55:46 UTC (rev 13492) +++ trunk/jvcl/run/JvOfficeColorButton.pas 2013-01-15 15:07:51 UTC (rev 13493) @@ -837,10 +837,10 @@ Pt := Point(X, Y); FColorsForm.Left := Pt.X; - if (FColorsForm.Left + FColorsForm.Width) > Screen.Width then - FColorsForm.Left := Screen.Width - FColorsForm.Width; + if (FColorsForm.Left + FColorsForm.Width) > Screen.DesktopWidth then + FColorsForm.Left := Screen.DesktopWidth - FColorsForm.Width; FColorsForm.Top := Pt.Y + Height; - if (FColorsForm.Top + FColorsForm.Height) > Screen.Height then + if (FColorsForm.Top + FColorsForm.Height) > Screen.DesktopHeight then FColorsForm.Top := Pt.Y - FColorsForm.Height; end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2013-01-15 14:55:58
|
Revision: 13492 http://jvcl.svn.sourceforge.net/jvcl/?rev=13492&view=rev Author: obones Date: 2013-01-15 14:55:46 +0000 (Tue, 15 Jan 2013) Log Message: ----------- Mantis 6028: Replace #255 by spaces Modified Paths: -------------- trunk/jvcl/examples/JvCreateProcess/ConsoleExampleMainFormU.pas Modified: trunk/jvcl/examples/JvCreateProcess/ConsoleExampleMainFormU.pas =================================================================== --- trunk/jvcl/examples/JvCreateProcess/ConsoleExampleMainFormU.pas 2013-01-15 14:48:09 UTC (rev 13491) +++ trunk/jvcl/examples/JvCreateProcess/ConsoleExampleMainFormU.pas 2013-01-15 14:55:46 UTC (rev 13492) @@ -66,6 +66,7 @@ FCommands: TStringList; FCurrentCommandIndex: Integer; function GetCurrentCommand: string; + function FormatForDisplay(const S: string): string; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; @@ -87,7 +88,7 @@ implementation uses - JclSysInfo, JvDSADialogs; + JclSysInfo, JclStrings, JvDSADialogs; {$R *.dfm} @@ -104,7 +105,7 @@ begin with lsbConsole do begin - Items.Add(S); + Items.Add(FormatForDisplay(S)); ItemIndex := Count - 1; end; end; @@ -119,7 +120,7 @@ with lsbConsole do begin if Count > 0 then - Items[Count - 1] := S + Items[Count - 1] := FormatForDisplay(S) else AddNewLine(S); ItemIndex := Count - 1; @@ -192,6 +193,11 @@ end; end; +function TConsoleExampleMainForm.FormatForDisplay(const S: string): string; +begin + Result := StrReplaceChar(S, #255, ' '); +end; + procedure TConsoleExampleMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); const cButtonStrs: array [Boolean] of string = ('Close', 'Cancel'); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2013-01-15 14:48:16
|
Revision: 13491 http://jvcl.svn.sourceforge.net/jvcl/?rev=13491&view=rev Author: obones Date: 2013-01-15 14:48:09 +0000 (Tue, 15 Jan 2013) Log Message: ----------- Mantis 6018: Renamed FindText to TextToFind to avoid conflicts with FindTextA/FindTextW under C++ Builder Modified Paths: -------------- trunk/jvcl/run/JvRichEdit.pas Modified: trunk/jvcl/run/JvRichEdit.pas =================================================================== --- trunk/jvcl/run/JvRichEdit.pas 2013-01-15 14:41:08 UTC (rev 13490) +++ trunk/jvcl/run/JvRichEdit.pas 2013-01-15 14:48:09 UTC (rev 13491) @@ -496,7 +496,7 @@ TRichEditURLHoverEvent = procedure(Sender: TObject; const URLText: string) of object; TRichEditProtectChangeEx = procedure(Sender: TObject; const Msg: TMessage; StartPos, EndPos: Integer; var AllowChange: Boolean) of object; - TRichEditFindErrorEvent = procedure(Sender: TObject; const FindText: string) of object; + TRichEditFindErrorEvent = procedure(Sender: TObject; const TextToFind: string) of object; TRichEditFindCloseEvent = procedure(Sender: TObject; Dialog: TFindDialog) of object; TRichEditProgressEvent = procedure(Sender: TObject; PercentDone: Integer) of object; TRichEditDragAllowedEvent = procedure(Sender: TObject; ShiftState: TShiftState; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2013-01-15 14:41:15
|
Revision: 13490 http://jvcl.svn.sourceforge.net/jvcl/?rev=13490&view=rev Author: obones Date: 2013-01-15 14:41:08 +0000 (Tue, 15 Jan 2013) Log Message: ----------- Mantis 5985: Must use desktop size for combo boxes to show properly Modified Paths: -------------- trunk/jvcl/run/JvInspector.pas Modified: trunk/jvcl/run/JvInspector.pas =================================================================== --- trunk/jvcl/run/JvInspector.pas 2013-01-15 14:20:16 UTC (rev 13489) +++ trunk/jvcl/run/JvInspector.pas 2013-01-15 14:41:08 UTC (rev 13490) @@ -5657,9 +5657,9 @@ if ListCount = 0 then ListCount := 1; TListBox(ListBox).Height := ListCount * TListBox(ListBox).ItemHeight + 4; - if ListBox.Height > Screen.Height then + if ListBox.Height > Screen.DesktopHeight then begin - ListCount := (Screen.Height - 4) div TListBox(ListBox).ItemHeight; + ListCount := (Screen.DesktopHeight - 4) div TListBox(ListBox).ItemHeight; TListBox(ListBox).Height := ListCount * TListBox(ListBox).ItemHeight + 4; end; ListBox.ItemIndex := ListBox.Items.IndexOf(EditCtrl.Text); @@ -5677,16 +5677,16 @@ if ListBox.Items.Count > ListCount then Inc(J, GetSystemMetrics(SM_CXVSCROLL)); ListBox.ClientWidth := J; - if ListBox.Width > Screen.Width then - ListBox.Width := Screen.Width; + if ListBox.Width > Screen.DesktopWidth then + ListBox.Width := Screen.DesktopWidth; P := Inspector.ClientToScreen(Point(Rects[iprValueArea].Right - ListBox.Width, EditCtrl.Top)); if P.X < 0 then P := Inspector.ClientToScreen(Point(Rects[iprValueArea].Left, EditCtrl.Top)); Y := P.Y + RectHeight(Rects[iprValueArea]); - if Y + ListBox.Height > Screen.Height then + if Y + ListBox.Height > Screen.DesktopHeight then Y := P.Y - TListBox(ListBox).Height; - if P.X + ListBox.Width > Screen.Width then - P.X := Screen.Width - ListBox.Width; + if P.X + ListBox.Width > Screen.DesktopWidth then + P.X := Screen.DesktopWidth - ListBox.Width; SetWindowPos(ListBox.Handle, HWND_TOP, P.X, Y, 0, 0, SWP_NOSIZE or {SWP_NOACTIVATE or }SWP_SHOWWINDOW); InvalidateItem; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2013-01-15 14:20:27
|
Revision: 13489 http://jvcl.svn.sourceforge.net/jvcl/?rev=13489&view=rev Author: obones Date: 2013-01-15 14:20:16 +0000 (Tue, 15 Jan 2013) Log Message: ----------- Mantis 5926: Fixed memory leaks Modified Paths: -------------- trunk/jvcl/run/JvHidControllerClass.pas Modified: trunk/jvcl/run/JvHidControllerClass.pas =================================================================== --- trunk/jvcl/run/JvHidControllerClass.pas 2013-01-15 13:56:50 UTC (rev 13488) +++ trunk/jvcl/run/JvHidControllerClass.pas 2013-01-15 14:20:16 UTC (rev 13489) @@ -779,6 +779,7 @@ // if device is plugged in create a checked in copy if IsPluggedIn then begin + Dev := nil; try Dev := TJvHidDevice.CtlCreate(FPnPInfo, FMyController); // make it a complete clone @@ -797,6 +798,7 @@ on EControllerError do begin FList.Delete(I); + Dev.Free; Dec(FNumUnpluggedDevices); end; end; @@ -1608,9 +1610,9 @@ // set to uncontrolled FMyController := nil; if IsCheckedOut then - DoUnplug // pull the plug for checked out TJvHidDevices - else - Free; // kill TJvHidDevices which are not checked out + DoUnplug; // pull the plug for checked out TJvHidDevices + + Free; // Always free, which will kill TJvHidDevices which are not checked out end; end; FList.Free; @@ -1779,7 +1781,10 @@ DoRemoval(HidDev); // delete from list if not HidDev.IsCheckedOut then + begin FList.Delete(I); + HidDev.Free; + end; Changed := True; end; end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ob...@us...> - 2013-01-15 13:56:57
|
Revision: 13488 http://jvcl.svn.sourceforge.net/jvcl/?rev=13488&view=rev Author: obones Date: 2013-01-15 13:56:50 +0000 (Tue, 15 Jan 2013) Log Message: ----------- Mantis 5894: One must always increment the device index in order to test the next device Modified Paths: -------------- trunk/jvcl/run/JvHidControllerClass.pas Modified: trunk/jvcl/run/JvHidControllerClass.pas =================================================================== --- trunk/jvcl/run/JvHidControllerClass.pas 2013-01-08 06:29:08 UTC (rev 13487) +++ trunk/jvcl/run/JvHidControllerClass.pas 2013-01-15 13:56:50 UTC (rev 13488) @@ -1742,16 +1742,15 @@ until not RetryCreate; if Assigned(HidDev) then - begin NewList.Add(HidDev); - Inc(Devn); - end; end; finally FreeMem(FunctionClassDeviceData); end; end; end; + + Inc(Devn); until not Success; SetupDiDestroyDeviceInfoList(PnPHandle); end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2013-01-08 06:29:15
|
Revision: 13487 http://jvcl.svn.sourceforge.net/jvcl/?rev=13487&view=rev Author: ahuser Date: 2013-01-08 06:29:08 +0000 (Tue, 08 Jan 2013) Log Message: ----------- published OnPopupChange, OnPopupValueAccepted and TabStop; Modified Paths: -------------- trunk/jvcl/run/JvDBDatePickerEdit.pas Modified: trunk/jvcl/run/JvDBDatePickerEdit.pas =================================================================== --- trunk/jvcl/run/JvDBDatePickerEdit.pas 2013-01-06 16:29:53 UTC (rev 13486) +++ trunk/jvcl/run/JvDBDatePickerEdit.pas 2013-01-08 06:29:08 UTC (rev 13487) @@ -175,7 +175,7 @@ property ShowCheckBox; property StoreDateFormat; property TabOrder; - {property TabStop;} {(rb) Why disabled?} + property TabStop; property Visible; property OnButtonClick; property OnChange; @@ -201,10 +201,12 @@ property OnParentColorChange; property OnSetFocus; property OnStartDrag; - property OnPopupHidden; - property OnPopupShown; property OnGetValidDateString; + property OnPopupShown; + property OnPopupHidden; + property OnPopupChange; + property OnPopupValueAccepted; end; {$IFDEF UNITVERSIONING} This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2013-01-06 16:30:01
|
Revision: 13486 http://jvcl.svn.sourceforge.net/jvcl/?rev=13486&view=rev Author: ahuser Date: 2013-01-06 16:29:53 +0000 (Sun, 06 Jan 2013) Log Message: ----------- some style cleaning (double spaces) Modified Paths: -------------- trunk/jvcl/run/JvInspector.pas Modified: trunk/jvcl/run/JvInspector.pas =================================================================== --- trunk/jvcl/run/JvInspector.pas 2013-01-04 16:46:57 UTC (rev 13485) +++ trunk/jvcl/run/JvInspector.pas 2013-01-06 16:29:53 UTC (rev 13486) @@ -181,8 +181,6 @@ irsItemHeight = $40000000; irsValueMask = $0FFFFFFF; - - type // early declarations TJvCustomInspector = class; @@ -257,13 +255,13 @@ // We would have liked to be able to generate a const pointer to a // non const object (which is what the Delphi declaration is) but the // HPP Generator is compeletely flawed in this area - TInspectorItemEvent = procedure(Sender: TObject; Item: TJvCustomInspectorItem) of object; - TInspectorItemBeforeCreateEvent = procedure(Sender: TObject; Data: TJvCustomInspectorData; + TInspectorItemEvent = procedure(Sender: TObject; Item: TJvCustomInspectorItem) of object; + TInspectorItemBeforeCreateEvent = procedure(Sender: TObject; Data: TJvCustomInspectorData; var ItemClass: TJvInspectorItemClass) of object; - TInspectorItemBeforeSelectEvent = procedure(Sender: TObject; NewItem: TJvCustomInspectorItem; + TInspectorItemBeforeSelectEvent = procedure(Sender: TObject; NewItem: TJvCustomInspectorItem; var Allow: Boolean) of object; TInspectorDataEvent = procedure(Sender: TObject; Data: TJvCustomInspectorData) of object; - TInspectorItemGetValueListEvent = procedure(Item: TJvCustomInspectorItem; Values: TStrings) of object; + TInspectorItemGetValueListEvent = procedure(Item: TJvCustomInspectorItem; Values: TStrings) of object; TInspectorItemSortCompare = function(Item1, Item2: TJvCustomInspectorItem): Integer of object; TJvInspAsFloat = procedure(Sender: TJvInspectorEventData; var Value: Extended) of object; TJvInspAsInt64 = procedure(Sender: TJvInspectorEventData; var Value: Int64) of object; @@ -462,7 +460,7 @@ procedure GetDlgCode(var Code: TDlgCodes); override; procedure FocusSet(PrevWnd: THandle); override; procedure FocusKilled(NextWnd: THandle); override; - function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override; + function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override; procedure ShowScrollBars(Bar: Integer; Visible: Boolean); virtual; function YToIdx(const Y: Integer): Integer; virtual; property AutoComplete: Boolean read FAutoComplete write FAutoComplete; @@ -1600,7 +1598,7 @@ function IsAssigned: Boolean; override; function IsInitialized: Boolean; override; class function ItemRegister: TJvInspectorRegister; override; - class function New(const AParent: TJvCustomInspectorItem; const AName: string; ATypeInfo: PTypeInfo; const + class function New(const AParent: TJvCustomInspectorItem; const AName: string; ATypeInfo: PTypeInfo; const AAddress: Pointer): TJvCustomInspectorItem; reintroduce; overload; // REMOVED BECAUSE OF A BCB INCOMPATIBILITY: // Untyped parameters are output as void* which is exactly the same @@ -1724,7 +1722,7 @@ function HasValue: Boolean; override; function IsAssigned: Boolean; override; function IsInitialized: Boolean; override; - class function New(const AParent: TJvCustomInspectorItem; const AName: string; ATypeInfo: PTypeInfo): + class function New(const AParent: TJvCustomInspectorItem; const AName: string; ATypeInfo: PTypeInfo): TJvCustomInspectorItem; reintroduce; overload; procedure SetAsSet(const Buf); override; property OnGetAsFloat: TJvInspAsFloat read FOnGetAsFloat write SetOnGetAsFloat; @@ -1750,7 +1748,7 @@ FKey: string; FSection: string; protected - constructor CreatePrim(const AName, ASection, AKey: string; ATypeInfo: PTypeInfo); + constructor CreatePrim(const AName, ASection, AKey: string; ATypeInfo: PTypeInfo); function ExistingValue: Boolean; virtual; abstract; function GetAsFloat: Extended; override; function GetAsInt64: Int64; override; @@ -1850,7 +1848,7 @@ function GetTypeInfo: PTypeInfo; virtual; procedure SetTypeInfo(Value: PTypeInfo); virtual; public - constructor Create(const AItemClass: TJvInspectorItemClass; ATypeInfo: PTypeInfo); + constructor Create(const AItemClass: TJvInspectorItemClass; ATypeInfo: PTypeInfo); function MatchValue(const ADataObj: TJvCustomInspectorData): Integer; override; function MatchPercent(const ADataObj: TJvCustomInspectorData): Integer; override; property TypeInfo: PTypeInfo read GetTypeInfo; @@ -1886,7 +1884,7 @@ FTypeInfo: PTypeInfo; public constructor Create(const AItemClass: TJvInspectorItemClass; const AObjectClass: TClass; - const AName: string; ATypeInfo: PTypeInfo); + const AName: string; ATypeInfo: PTypeInfo); function Compare(const ADataObj: TJvCustomInspectorData; const Item: TJvCustomInspectorRegItem): Integer; override; function MatchValue(const ADataObj: TJvCustomInspectorData): Integer; override; @@ -4149,7 +4147,7 @@ EndUpdate; end; -function TJvCustomInspector.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; +function TJvCustomInspector.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; var Count: Integer; Index: Integer; @@ -10918,7 +10916,7 @@ end; class function TJvInspectorPropData.New(const AParent: TJvCustomInspectorItem; - const AInstance: TObject; PropInfo: PPropInfo): TJvCustomInspectorItem; + const AInstance: TObject; PropInfo: PPropInfo): TJvCustomInspectorItem; var Data: TJvInspectorPropData; RegItem: TJvCustomInspectorRegItem; @@ -11010,7 +11008,7 @@ end; class function TJvInspectorPropData.New(const AParent: TJvCustomInspectorItem; - const AInstance: TObject; PropInfos: PPropList; + const AInstance: TObject; PropInfos: PPropList; const PropCount: Integer): TJvInspectorItemInstances; var I: Integer; @@ -11759,7 +11757,7 @@ end; class function TJvInspectorINIFileData.New(const AParent: TJvCustomInspectorItem; - const AName, ASection, AKey: string; ATypeInfo: PTypeInfo; + const AName, ASection, AKey: string; ATypeInfo: PTypeInfo; const AINIFile: TCustomIniFile): TJvCustomInspectorItem; var Data: TJvInspectorINIFileData; @@ -12139,7 +12137,7 @@ //=== { TJvInspectorPropRegItem } ============================================ constructor TJvInspectorPropRegItem.Create(const AItemClass: TJvInspectorItemClass; - const AObjectClass: TClass; const AName: string; ATypeInfo: PTypeInfo); + const AObjectClass: TClass; const AName: string; ATypeInfo: PTypeInfo); begin inherited Create(AItemClass); FObjectClass := AObjectClass; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <ah...@us...> - 2013-01-04 16:47:05
|
Revision: 13485 http://jvcl.svn.sourceforge.net/jvcl/?rev=13485&view=rev Author: ahuser Date: 2013-01-04 16:46:57 +0000 (Fri, 04 Jan 2013) Log Message: ----------- Delphi XE changed FormatSettings.ShortDateFormat so that it always uses '/' (TFormatSettings.TranslateDateFormat.FixDateFormat) instead of the localized DateSeparator. This broke TJvDatePickerEdit that now always shows '/' if no different DateFormat is specified. Modified Paths: -------------- trunk/jvcl/run/JvDatePickerEdit.pas Modified: trunk/jvcl/run/JvDatePickerEdit.pas =================================================================== --- trunk/jvcl/run/JvDatePickerEdit.pas 2013-01-04 16:41:45 UTC (rev 13484) +++ trunk/jvcl/run/JvDatePickerEdit.pas 2013-01-04 16:46:57 UTC (rev 13485) @@ -1148,13 +1148,22 @@ end; procedure TJvCustomDatePickerEdit.SetDateFormat(AValue: string); +var + UseDefaultDateFormat: Boolean; begin + UseDefaultDateFormat := False; if AValue = '' then + begin AValue := JclFormatSettings.ShortDateFormat; + // XE+ changed ShortDateFormat to always use '/' + FDateSeparator := JclFormatSettings.DateSeparator; + UseDefaultDateFormat := True; + end; if AValue <> FDateFormat then begin FDateFormat := AValue; - FDateSeparator := DetermineDateSeparator(FDateFormat); + if not UseDefaultDateFormat then + FDateSeparator := DetermineDateSeparator(FDateFormat); StoreDateFormat := FDateFormat <> JclFormatSettings.ShortDateFormat; ResetDateFormat; end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |