Menu
▾
▴
jcl-checkins-diff — SVN file check-in notifications with file differences included
You can subscribe to this list here.
| 2006 |
Jan
|
Feb
|
Mar
|
Apr
(20) |
May
(48) |
Jun
(8) |
Jul
(23) |
Aug
(41) |
Sep
(42) |
Oct
(22) |
Nov
(17) |
Dec
(36) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2007 |
Jan
(43) |
Feb
(42) |
Mar
(17) |
Apr
(39) |
May
(16) |
Jun
(35) |
Jul
(37) |
Aug
(47) |
Sep
(49) |
Oct
(9) |
Nov
(52) |
Dec
(37) |
| 2008 |
Jan
(48) |
Feb
(21) |
Mar
(7) |
Apr
(2) |
May
(5) |
Jun
(17) |
Jul
(17) |
Aug
(40) |
Sep
(58) |
Oct
(38) |
Nov
(19) |
Dec
(32) |
| 2009 |
Jan
(67) |
Feb
(46) |
Mar
(54) |
Apr
(34) |
May
(37) |
Jun
(52) |
Jul
(67) |
Aug
(72) |
Sep
(48) |
Oct
(35) |
Nov
(27) |
Dec
(12) |
| 2010 |
Jan
(56) |
Feb
(46) |
Mar
(19) |
Apr
(14) |
May
(21) |
Jun
(3) |
Jul
(13) |
Aug
(48) |
Sep
(34) |
Oct
(51) |
Nov
(16) |
Dec
(32) |
| 2011 |
Jan
(36) |
Feb
(14) |
Mar
(12) |
Apr
(3) |
May
(5) |
Jun
(24) |
Jul
(15) |
Aug
(30) |
Sep
(21) |
Oct
(4) |
Nov
(25) |
Dec
(23) |
| 2012 |
Jan
(45) |
Feb
(42) |
Mar
(19) |
Apr
(14) |
May
(13) |
Jun
(7) |
Jul
(3) |
Aug
(46) |
Sep
(21) |
Oct
(10) |
Nov
(2) |
Dec
|
| 2013 |
Jan
(5) |
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: <el...@us...> - 2006-05-18 16:24:18
|
Revision: 1658 Author: elahn Date: 2006-05-18 09:04:47 -0700 (Thu, 18 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1658&view=rev Log Message: ----------- Set svn:keywords property to all keywords on all files matching the pattern: *.pas;*.dpr;*.inc;*.dpk;*.rc;*.pm;*.java;*.js;*.c;*.cpp;*.h;*.conf;*.properties;*.xml;*.classpath;*.project;*.xsl;*.html;*.htm;*.css;*.php;*.pl;*.sh;Makefile;Makefile.*;*.txt Modified Paths: -------------- trunk/jcl/experts/common/JclOtaConsts.pas trunk/jcl/experts/debug/simdview/JclSIMDModifyForm.pas trunk/jcl/experts/debug/simdview/JclSIMDUtils.pas trunk/jcl/experts/debug/simdview/JclSIMDViewForm.pas trunk/jcl/experts/favfolders/IdeOpenDlgFavoriteUnit.pas trunk/jcl/experts/useswizard/JCLOptionsFrame.pas trunk/jcl/experts/useswizard/JCLUsesWizard.pas Property Changed: ---------------- trunk/jcl/Install.txt trunk/jcl/bin/dirinfo.txt trunk/jcl/clean.sh trunk/jcl/devtools/pgEdit.xml trunk/jcl/docs/Contacting authors.htm trunk/jcl/docs/Contributors.htm trunk/jcl/docs/Contributors.txt trunk/jcl/docs/MPL FAQ.htm trunk/jcl/docs/MPL-1.1.txt trunk/jcl/docs/Readme.html trunk/jcl/docs/Readme.txt trunk/jcl/docs/ThreadSafe.txt trunk/jcl/docs/cps.html trunk/jcl/docs/cps_files/test.css trunk/jcl/docs/styles/default.css trunk/jcl/examples/common/containers/algorithms/AlgorithmsExample.dpr trunk/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas trunk/jcl/examples/common/containers/hashing/HashingExample.dpr trunk/jcl/examples/common/containers/hashing/HashingExampleMain.pas trunk/jcl/examples/common/containers/lists/ListExample.dpr trunk/jcl/examples/common/containers/lists/ListExampleMain.pas trunk/jcl/examples/common/containers/lists/MyObjectList.pas trunk/jcl/examples/common/containers/performance/ContainerPerformance.dpr trunk/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas trunk/jcl/examples/common/containers/performance/ContainerPerformanceTests.pas trunk/jcl/examples/common/containers/trees/TreeExample.dpr trunk/jcl/examples/common/containers/trees/TreeExampleMain.pas trunk/jcl/examples/common/expreval/ExprEvalExample.dpr trunk/jcl/examples/common/expreval/ExprEvalExampleLogic.pas trunk/jcl/examples/common/expreval/ExprEvalExampleMain.pas trunk/jcl/examples/common/expreval/QExprEvalExample.dpr trunk/jcl/examples/common/expreval/QExprEvalExampleMain.pas trunk/jcl/examples/common/filesearch/QFileSearchDemo.dpr trunk/jcl/examples/common/filesearch/QFileSearchDemoMain.pas trunk/jcl/examples/common/graphics/QClipLineDemo.dpr trunk/jcl/examples/common/graphics/QClipLineDemoMain.pas trunk/jcl/examples/common/graphics/StretchGraphicDemoMain.pas trunk/jcl/examples/common/graphics/StretchGraphicExample.dpr trunk/jcl/examples/common/multimedia/MidiOutExample.dpr trunk/jcl/examples/common/multimedia/MidiOutExampleMain.pas trunk/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas trunk/jcl/examples/common/numformat/QNumFormatExample.dpr trunk/jcl/examples/common/numformat/QNumFormatExampleMain.pas trunk/jcl/examples/common/pcre/PCREDemo.dpr trunk/jcl/examples/common/pcre/PCREDemoMain.pas trunk/jcl/examples/common/pcre/QPCREDemo.dpr trunk/jcl/examples/common/pcre/QPCREDemoMain.pas trunk/jcl/examples/common/rtti/QRTTIDemo.dpr trunk/jcl/examples/common/rtti/QRTTIDemoMain.pas trunk/jcl/examples/common/rtti/RTTIDemoMain.pas trunk/jcl/examples/common/rtti/RTTIExample.dpr trunk/jcl/examples/common/sysinfo/QEnvironmentExample.dpr trunk/jcl/examples/common/sysinfo/QEnvironmentExampleMain.pas trunk/jcl/examples/common/textreader/TextReaderDemoMain.pas trunk/jcl/examples/common/textreader/TextReaderExample.dpr trunk/jcl/examples/common/unitversioning/UnitVersioningTest.dpr trunk/jcl/examples/common/unitversioning/UnitVersioningTestDLL.dpr trunk/jcl/examples/common/unitversioning/UnitVersioningTestMain.pas trunk/jcl/examples/windows/ConsoleExamples.dpr trunk/jcl/examples/windows/appinst/AppInstDemoMain.pas trunk/jcl/examples/windows/appinst/AppInstExample.dpr trunk/jcl/examples/windows/appinst/SingleInstDemoMain.pas trunk/jcl/examples/windows/appinst/SingleInstExample.dpr trunk/jcl/examples/windows/asuser/CreateProcAsUserDemoMain.pas trunk/jcl/examples/windows/asuser/CreateProcAsUserExample.dpr trunk/jcl/examples/windows/clr/ClrDemo.dpr trunk/jcl/examples/windows/clr/ClrDemoAbstractFrame.pas trunk/jcl/examples/windows/clr/ClrDemoBlobForm.pas trunk/jcl/examples/windows/clr/ClrDemoCLRFrame.pas trunk/jcl/examples/windows/clr/ClrDemoGuidForm.pas trunk/jcl/examples/windows/clr/ClrDemoMain.pas trunk/jcl/examples/windows/clr/ClrDemoMetaDataFrame.pas trunk/jcl/examples/windows/clr/ClrDemoStringsForm.pas trunk/jcl/examples/windows/clr/ClrDemoTableForm.pas trunk/jcl/examples/windows/clr/ClrDemoUserStringsForm.pas trunk/jcl/examples/windows/debug/framestrack/FramesTrackDemoMain.pas trunk/jcl/examples/windows/debug/framestrack/FramesTrackExample.dpr trunk/jcl/examples/windows/debug/reportconverter/ExceptionReportConverter.dpr trunk/jcl/examples/windows/debug/reportconverter/formConverter.pas trunk/jcl/examples/windows/debug/sourceloc/SourceLocDemoMain.pas trunk/jcl/examples/windows/debug/sourceloc/SourceLocExample.dpr trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary.dpr trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsComLibrary_TLB.pas trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsComUnit.pas trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsDemoMain.pas trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsDynamicLibrary.dpr trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsDynamicUnit.pas trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsExample.dpr trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsStaticLibrary.dpr trunk/jcl/examples/windows/debug/stacktrack/StackTrackDLLsStaticUnit.pas trunk/jcl/examples/windows/debug/stacktrack/StackTrackDemoMain.pas trunk/jcl/examples/windows/debug/stacktrack/StackTrackExample.dpr trunk/jcl/examples/windows/debug/threadexcept/ThreadExceptDemoMain.pas trunk/jcl/examples/windows/debug/threadexcept/ThreadExceptExample.dpr trunk/jcl/examples/windows/delphitools/Readme.txt trunk/jcl/examples/windows/delphitools/common/About.pas trunk/jcl/examples/windows/delphitools/common/D6MdiMsgFix.pas trunk/jcl/examples/windows/delphitools/common/FindDlg.pas trunk/jcl/examples/windows/delphitools/common/SHDocVw_TLB.pas trunk/jcl/examples/windows/delphitools/common/ToolsUtils.pas trunk/jcl/examples/windows/delphitools/dependencyviewer/DependView.dpr trunk/jcl/examples/windows/delphitools/dependencyviewer/DependViewMain.pas trunk/jcl/examples/windows/delphitools/dependencyviewer/FileViewer.pas trunk/jcl/examples/windows/delphitools/peviewer/PeDump.pas trunk/jcl/examples/windows/delphitools/peviewer/PeGenDef.pas trunk/jcl/examples/windows/delphitools/peviewer/PeResView.pas trunk/jcl/examples/windows/delphitools/peviewer/PeResource.pas trunk/jcl/examples/windows/delphitools/peviewer/PeSearch.pas trunk/jcl/examples/windows/delphitools/peviewer/PeViewer.dpr trunk/jcl/examples/windows/delphitools/peviewer/PeViewerControl.pas trunk/jcl/examples/windows/delphitools/peviewer/PeViewerMain.pas trunk/jcl/examples/windows/delphitools/peviewer/PeViewer_TLB.pas trunk/jcl/examples/windows/delphitools/resfix/ResFix.dpr trunk/jcl/examples/windows/delphitools/resfix/ResFixMain.pas trunk/jcl/examples/windows/delphitools/screenjpg/Main.pas trunk/jcl/examples/windows/delphitools/screenjpg/ScreenJPG.dpr trunk/jcl/examples/windows/delphitools/toolhelpview/ChangePriority.pas trunk/jcl/examples/windows/delphitools/toolhelpview/Global.pas trunk/jcl/examples/windows/delphitools/toolhelpview/HeapDump.pas trunk/jcl/examples/windows/delphitools/toolhelpview/Main.pas trunk/jcl/examples/windows/delphitools/toolhelpview/MemoryDump.pas trunk/jcl/examples/windows/delphitools/toolhelpview/ModulesDump.pas trunk/jcl/examples/windows/delphitools/toolhelpview/ToolHelpViewer.dpr trunk/jcl/examples/windows/delphitools/toolhelpview/ViewTemplate.pas trunk/jcl/examples/windows/edisdk/EDICOMExample.dpr trunk/jcl/examples/windows/edisdk/EDICOMExampleMain.pas trunk/jcl/examples/windows/edisdk/EDISDK_TLB.pas trunk/jcl/examples/windows/edisdk/comserver/EDISDK.dpr trunk/jcl/examples/windows/edisdk/comserver/EDISDK_TLB.pas trunk/jcl/examples/windows/edisdk/comserver/JclEDICOM_ANSIX12.pas trunk/jcl/examples/windows/fileversion/VerInfoDemoMain.pas trunk/jcl/examples/windows/fileversion/VerInfoExample.dpr trunk/jcl/examples/windows/lanman/LanManDemoMain.pas trunk/jcl/examples/windows/lanman/LanManExample.dpr trunk/jcl/examples/windows/locales/LocalesDemoMain.pas trunk/jcl/examples/windows/locales/LocalesExample.dpr trunk/jcl/examples/windows/mapi/MapiDemoMain.pas trunk/jcl/examples/windows/mapi/MapiExample.dpr trunk/jcl/examples/windows/mapi/ReadMailDemoMain.pas trunk/jcl/examples/windows/mapi/ReadMailExample.dpr trunk/jcl/examples/windows/multimedia/MultiMediaExample.dpr trunk/jcl/examples/windows/multimedia/MultimediaDemoMain.pas trunk/jcl/examples/windows/ntfs/JEDISoftLinks.dpr trunk/jcl/examples/windows/ntfs/JEDISoftLinks_TLB.pas trunk/jcl/examples/windows/ntfs/SoftLinkDragDropHandler.pas trunk/jcl/examples/windows/ntservice/NtSvcDemoDependent.pas trunk/jcl/examples/windows/ntservice/NtSvcDemoGroups.pas trunk/jcl/examples/windows/ntservice/NtSvcDemoMain.pas trunk/jcl/examples/windows/ntservice/NtSvcExample.dpr trunk/jcl/examples/windows/peimage/ApiHookDemoMain.pas trunk/jcl/examples/windows/peimage/ApiHookExample.dpr trunk/jcl/examples/windows/peimage/PeFuncDemoMain.pas trunk/jcl/examples/windows/peimage/PeFuncExample.dpr trunk/jcl/examples/windows/peimage/UnmangleNameDemoMain.pas trunk/jcl/examples/windows/peimage/UnmangleNameExample.dpr trunk/jcl/examples/windows/registry/RegistryDemoMain.pas trunk/jcl/examples/windows/registry/RegistryExample.dpr trunk/jcl/examples/windows/structstorage/HexDump.pas trunk/jcl/examples/windows/structstorage/PropsFrm.pas trunk/jcl/examples/windows/structstorage/StructStorageExample.dpr trunk/jcl/examples/windows/structstorage/StructStorageExampleMain.pas trunk/jcl/examples/windows/sysinfo/SysInfoDemoMain.pas trunk/jcl/examples/windows/sysinfo/SysInfoExample.dpr trunk/jcl/examples/windows/tasks/TaskDemo.dpr trunk/jcl/examples/windows/tasks/TaskDemoDataModule.pas trunk/jcl/examples/windows/tasks/TaskDemoMain.pas trunk/jcl/experts/common/JclImages.rc trunk/jcl/experts/common/JclOtaActionConfigureSheet.pas trunk/jcl/experts/common/JclOtaConfigurationForm.pas trunk/jcl/experts/common/JclOtaConsts.pas trunk/jcl/experts/common/JclOtaExceptionForm.pas trunk/jcl/experts/common/JclOtaResources.pas trunk/jcl/experts/common/JclOtaUtils.pas trunk/jcl/experts/debug/Howto.txt trunk/jcl/experts/debug/JclDebugIdeImpl.pas trunk/jcl/experts/debug/JclDebugIdeResult.pas trunk/jcl/experts/debug/JclDebugThread.pas trunk/jcl/experts/debug/dialog/ClxExceptDlg.pas trunk/jcl/experts/debug/dialog/ExceptDlg.pas trunk/jcl/experts/debug/dialog/ExceptDlgMail.pas trunk/jcl/experts/debug/simdview/JclSIMDCpuInfo.pas trunk/jcl/experts/debug/simdview/JclSIMDModifyForm.pas trunk/jcl/experts/debug/simdview/JclSIMDTestBCB.cpp trunk/jcl/experts/debug/simdview/JclSIMDTestDelphi.dpr trunk/jcl/experts/debug/simdview/JclSIMDUtils.pas trunk/jcl/experts/debug/simdview/JclSIMDView.pas trunk/jcl/experts/debug/simdview/JclSIMDViewForm.pas trunk/jcl/experts/debug/threadnames/JclIdeThreadStatus.pas trunk/jcl/experts/debug/threadnames/ThreadExpertSharedNames.pas trunk/jcl/experts/debug/threadnames/ThreadExpertUnit.pas trunk/jcl/experts/debug/tools/MakeJclDbg.dpr trunk/jcl/experts/debug/tools/MapToJdbg.dpr trunk/jcl/experts/debug/tools/MapToJdbgMain.pas trunk/jcl/experts/debug/tools/TlbToMap.dpr trunk/jcl/experts/debug/tools/TlbToMapMain.pas trunk/jcl/experts/favfolders/FavDlg.rc trunk/jcl/experts/favfolders/IdeOpenDlgFavoriteUnit.pas trunk/jcl/experts/favfolders/OpenDlgFavAdapter.pas trunk/jcl/experts/projectanalyzer/ProjAnalyzerFrm.pas trunk/jcl/experts/projectanalyzer/ProjAnalyzerImpl.pas trunk/jcl/experts/useswizard/History.txt trunk/jcl/experts/useswizard/JCLOptionsFrame.pas trunk/jcl/experts/useswizard/JCLUsesWizard.pas trunk/jcl/experts/useswizard/Jcl8087.txt trunk/jcl/experts/useswizard/JclAppInst.txt trunk/jcl/experts/useswizard/JclBase.txt trunk/jcl/experts/useswizard/JclCIL.txt trunk/jcl/experts/useswizard/JclCLR.txt trunk/jcl/experts/useswizard/JclCOM.txt trunk/jcl/experts/useswizard/JclComplex.txt trunk/jcl/experts/useswizard/JclCompression.txt trunk/jcl/experts/useswizard/JclConsole.txt trunk/jcl/experts/useswizard/JclCounter.txt trunk/jcl/experts/useswizard/JclDateTime.txt trunk/jcl/experts/useswizard/JclDebug.txt trunk/jcl/experts/useswizard/JclExprEval.txt trunk/jcl/experts/useswizard/JclFileUtils.txt trunk/jcl/experts/useswizard/JclGraphUtils.txt trunk/jcl/experts/useswizard/JclGraphics.txt trunk/jcl/experts/useswizard/JclHookExcept.txt trunk/jcl/experts/useswizard/JclIniFiles.txt trunk/jcl/experts/useswizard/JclLANMan.txt trunk/jcl/experts/useswizard/JclLocales.txt trunk/jcl/experts/useswizard/JclLogic.txt trunk/jcl/experts/useswizard/JclMIDI.txt trunk/jcl/experts/useswizard/JclMapi.txt trunk/jcl/experts/useswizard/JclMath.txt trunk/jcl/experts/useswizard/JclMetadata.txt trunk/jcl/experts/useswizard/JclMime.txt trunk/jcl/experts/useswizard/JclMiscel.txt trunk/jcl/experts/useswizard/JclMultimedia.txt trunk/jcl/experts/useswizard/JclNTFS.txt trunk/jcl/experts/useswizard/JclParseUses.pas trunk/jcl/experts/useswizard/JclPeImage.txt trunk/jcl/experts/useswizard/JclPrint.txt trunk/jcl/experts/useswizard/JclRTF.txt trunk/jcl/experts/useswizard/JclRTTI.txt trunk/jcl/experts/useswizard/JclRegistry.txt trunk/jcl/experts/useswizard/JclResources.txt trunk/jcl/experts/useswizard/JclSchedule.txt trunk/jcl/experts/useswizard/JclSecurity.txt trunk/jcl/experts/useswizard/JclShell.txt trunk/jcl/experts/useswizard/JclStatistics.txt trunk/jcl/experts/useswizard/JclStrHashMap.txt trunk/jcl/experts/useswizard/JclStrings.txt trunk/jcl/experts/useswizard/JclSvcCtrl.txt trunk/jcl/experts/useswizard/JclSynch.txt trunk/jcl/experts/useswizard/JclSysInfo.txt trunk/jcl/experts/useswizard/JclSysUtils.txt trunk/jcl/experts/useswizard/JclTD32.txt trunk/jcl/experts/useswizard/JclUnicode.txt trunk/jcl/experts/useswizard/JclUnitConv.txt trunk/jcl/experts/useswizard/JclUnitVersioning.txt trunk/jcl/experts/useswizard/JclUsesDialog.pas trunk/jcl/experts/useswizard/JclWideStrings.txt trunk/jcl/experts/useswizard/JclWin32.txt trunk/jcl/experts/useswizard/JclWinMIDI.txt trunk/jcl/experts/useswizard/ReadMe.txt trunk/jcl/experts/versioncontrol/JclVersionCtrlCVSImpl.pas trunk/jcl/experts/versioncontrol/JclVersionCtrlCommonOptions.pas trunk/jcl/experts/versioncontrol/JclVersionCtrlSVNImpl.pas trunk/jcl/experts/versioncontrol/VersionControlImpl.pas trunk/jcl/include/zconf.h trunk/jcl/include/zlib.h trunk/jcl/include/zutil.h trunk/jcl/install/FrmCompile.pas trunk/jcl/install/JclInstall.pas trunk/jcl/install/JediInstall.pas trunk/jcl/install/JediInstaller.dpr trunk/jcl/install/JediRegInfo.pas trunk/jcl/install/QJediInstaller.conf trunk/jcl/install/QJediInstaller.dpr trunk/jcl/install/build/build.dpr trunk/jcl/install/build/makefile.mak trunk/jcl/install/build/pgEdit.xml trunk/jcl/install/makefile.mak trunk/jcl/install/prototypes/JediInstallerMain.pas trunk/jcl/install/prototypes/ProductFrames.pas trunk/jcl/install/prototypes/jpp.sh trunk/jcl/install.sh trunk/jcl/lib/c5/debug/dirinfo.txt trunk/jcl/lib/c5/dirinfo.txt trunk/jcl/lib/c5/obj/dirinfo.txt trunk/jcl/lib/c6/debug/dirinfo.txt trunk/jcl/lib/c6/dirinfo.txt trunk/jcl/lib/c6/obj/dirinfo.txt trunk/jcl/lib/cs1/dirinfo.txt trunk/jcl/lib/d10/debug/dirinfo.txt trunk/jcl/lib/d10/dirinfo.txt trunk/jcl/lib/d10.net/dirinfo.txt trunk/jcl/lib/d5/debug/dirinfo.txt trunk/jcl/lib/d5/dirinfo.txt trunk/jcl/lib/d6/debug/dirinfo.txt trunk/jcl/lib/d6/dirinfo.txt trunk/jcl/lib/d7/debug/dirinfo.txt trunk/jcl/lib/d7/dirinfo.txt trunk/jcl/lib/d8/dirinfo.txt trunk/jcl/lib/d9/debug/dirinfo.txt trunk/jcl/lib/d9/dirinfo.txt trunk/jcl/lib/d9.net/dirinfo.txt trunk/jcl/lib/dirinfo.txt trunk/jcl/lib/k3/debug/dirinfo.txt trunk/jcl/lib/k3/dirinfo.txt trunk/jcl/lib/k3/obj/dirinfo.txt trunk/jcl/makedist.sh trunk/jcl/packages/c5/JclBaseExpertC50.cpp trunk/jcl/packages/c5/JclBaseExpertC50.dpk trunk/jcl/packages/c5/JclBaseExpertC50.rc trunk/jcl/packages/c5/JclC50.cpp trunk/jcl/packages/c5/JclC50.dpk trunk/jcl/packages/c5/JclC50.rc trunk/jcl/packages/c5/JclDebugExpertC50.cpp trunk/jcl/packages/c5/JclDebugExpertC50.dpk trunk/jcl/packages/c5/JclDebugExpertC50.rc trunk/jcl/packages/c5/JclDebugExpertDLLC50.cpp trunk/jcl/packages/c5/JclDebugExpertDLLC50.rc trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.cpp trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.dpk trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.cpp trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.cpp trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.dpk trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.rc trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.cpp trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc trunk/jcl/packages/c5/JclSIMDViewExpertC50.cpp trunk/jcl/packages/c5/JclSIMDViewExpertC50.dpk trunk/jcl/packages/c5/JclSIMDViewExpertC50.rc trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.cpp trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc trunk/jcl/packages/c5/JclThreadNameExpertC50.cpp trunk/jcl/packages/c5/JclThreadNameExpertC50.dpk trunk/jcl/packages/c5/JclThreadNameExpertC50.rc trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.cpp trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.rc trunk/jcl/packages/c5/JclUsesExpertC50.cpp trunk/jcl/packages/c5/JclUsesExpertC50.dpk trunk/jcl/packages/c5/JclUsesExpertC50.rc trunk/jcl/packages/c5/JclUsesExpertDLLC50.cpp trunk/jcl/packages/c5/JclUsesExpertDLLC50.rc trunk/jcl/packages/c5/JclVersionControlExpertC50.cpp trunk/jcl/packages/c5/JclVersionControlExpertC50.dpk trunk/jcl/packages/c5/JclVersionControlExpertC50.rc trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.cpp trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.rc trunk/jcl/packages/c5/JediUsesC50.cpp trunk/jcl/packages/c5/dirinfo.txt trunk/jcl/packages/c5/template.cpp trunk/jcl/packages/c5/template.dpk trunk/jcl/packages/c5/template.rc trunk/jcl/packages/c6/Jcl.cpp trunk/jcl/packages/c6/Jcl.dpk trunk/jcl/packages/c6/Jcl.rc trunk/jcl/packages/c6/JclBaseExpert.cpp trunk/jcl/packages/c6/JclBaseExpert.dpk trunk/jcl/packages/c6/JclBaseExpert.rc trunk/jcl/packages/c6/JclDebugExpert.cpp trunk/jcl/packages/c6/JclDebugExpert.dpk trunk/jcl/packages/c6/JclDebugExpert.rc trunk/jcl/packages/c6/JclDebugExpertDLL.cpp trunk/jcl/packages/c6/JclDebugExpertDLL.rc trunk/jcl/packages/c6/JclFavoriteFoldersExpert.cpp trunk/jcl/packages/c6/JclFavoriteFoldersExpert.dpk trunk/jcl/packages/c6/JclFavoriteFoldersExpert.rc trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.cpp trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc trunk/jcl/packages/c6/JclProjectAnalysisExpert.cpp trunk/jcl/packages/c6/JclProjectAnalysisExpert.dpk trunk/jcl/packages/c6/JclProjectAnalysisExpert.rc trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.cpp trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc trunk/jcl/packages/c6/JclSIMDViewExpert.cpp trunk/jcl/packages/c6/JclSIMDViewExpert.dpk trunk/jcl/packages/c6/JclSIMDViewExpert.rc trunk/jcl/packages/c6/JclSIMDViewExpertDLL.cpp trunk/jcl/packages/c6/JclSIMDViewExpertDLL.rc trunk/jcl/packages/c6/JclThreadNameExpert.cpp trunk/jcl/packages/c6/JclThreadNameExpert.dpk trunk/jcl/packages/c6/JclThreadNameExpert.rc trunk/jcl/packages/c6/JclThreadNameExpertDLL.cpp trunk/jcl/packages/c6/JclThreadNameExpertDLL.rc trunk/jcl/packages/c6/JclUsesExpert.cpp trunk/jcl/packages/c6/JclUsesExpert.dpk trunk/jcl/packages/c6/JclUsesExpert.rc trunk/jcl/packages/c6/JclUsesExpertDLL.cpp trunk/jcl/packages/c6/JclUsesExpertDLL.rc trunk/jcl/packages/c6/JclVClx.cpp trunk/jcl/packages/c6/JclVClx.dpk trunk/jcl/packages/c6/JclVClx.rc trunk/jcl/packages/c6/JclVcl.cpp trunk/jcl/packages/c6/JclVcl.dpk trunk/jcl/packages/c6/JclVcl.rc trunk/jcl/packages/c6/JclVersionControlExpert.cpp trunk/jcl/packages/c6/JclVersionControlExpert.dpk trunk/jcl/packages/c6/JclVersionControlExpert.rc trunk/jcl/packages/c6/JclVersionControlExpertDLL.cpp trunk/jcl/packages/c6/JclVersionControlExpertDLL.rc trunk/jcl/packages/c6/dirinfo.txt trunk/jcl/packages/c6/template.cpp trunk/jcl/packages/c6/template.dpk trunk/jcl/packages/c6/template.rc trunk/jcl/packages/cs1/Jcl.dpk trunk/jcl/packages/cs1/Jcl.rc trunk/jcl/packages/cs1/JclBaseExpert.dpk trunk/jcl/packages/cs1/JclBaseExpert.rc trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.dpr trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.rc trunk/jcl/packages/cs1/JclVersionControlExpertDLL.dpr trunk/jcl/packages/cs1/JclVersionControlExpertDLL.rc trunk/jcl/packages/cs1/template.dpk trunk/jcl/packages/cs1/template.dpr trunk/jcl/packages/cs1/template.rc trunk/jcl/packages/d10/Jcl.dpk trunk/jcl/packages/d10/Jcl.rc trunk/jcl/packages/d10/JclBaseExpert.dpk trunk/jcl/packages/d10/JclBaseExpert.rc trunk/jcl/packages/d10/JclDebugExpert.dpk trunk/jcl/packages/d10/JclDebugExpert.rc trunk/jcl/packages/d10/JclDebugExpertDLL.dpr trunk/jcl/packages/d10/JclDebugExpertDLL.rc trunk/jcl/packages/d10/JclFavoriteFoldersExpert.dpk trunk/jcl/packages/d10/JclFavoriteFoldersExpert.rc trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.dpr trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.rc trunk/jcl/packages/d10/JclProjectAnalysisExpert.dpk trunk/jcl/packages/d10/JclProjectAnalysisExpert.rc trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.dpr trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.rc trunk/jcl/packages/d10/JclSIMDViewExpert.dpk trunk/jcl/packages/d10/JclSIMDViewExpert.rc trunk/jcl/packages/d10/JclSIMDViewExpertDLL.dpr trunk/jcl/packages/d10/JclSIMDViewExpertDLL.rc trunk/jcl/packages/d10/JclThreadNameExpert.dpk trunk/jcl/packages/d10/JclThreadNameExpert.rc trunk/jcl/packages/d10/JclThreadNameExpertDLL.dpr trunk/jcl/packages/d10/JclThreadNameExpertDLL.rc trunk/jcl/packages/d10/JclUsesExpert.dpk trunk/jcl/packages/d10/JclUsesExpert.rc trunk/jcl/packages/d10/JclUsesExpertDLL.dpr trunk/jcl/packages/d10/JclUsesExpertDLL.rc trunk/jcl/packages/d10/JclVcl.dpk trunk/jcl/packages/d10/JclVcl.rc trunk/jcl/packages/d10/JclVersionControlExpert.dpk trunk/jcl/packages/d10/JclVersionControlExpert.rc trunk/jcl/packages/d10/JclVersionControlExpertDLL.dpr trunk/jcl/packages/d10/JclVersionControlExpertDLL.rc trunk/jcl/packages/d10/Jedi.Jcl.dpr trunk/jcl/packages/d10/template.dpk trunk/jcl/packages/d10/template.dpr trunk/jcl/packages/d10/template.rc trunk/jcl/packages/d10.net/Jedi.Jcl.dpk trunk/jcl/packages/d10.net/Jedi.Jcl.dpr trunk/jcl/packages/d5/JclBaseExpertD50.dpk trunk/jcl/packages/d5/JclBaseExpertD50.rc trunk/jcl/packages/d5/JclD50.dpk trunk/jcl/packages/d5/JclD50.rc trunk/jcl/packages/d5/JclDebugExpertD50.dpk trunk/jcl/packages/d5/JclDebugExpertD50.rc trunk/jcl/packages/d5/JclDebugExpertDLLD50.dpr trunk/jcl/packages/d5/JclDebugExpertDLLD50.rc trunk/jcl/packages/d5/JclFavoriteFoldersExpertD50.dpk trunk/jcl/packages/d5/JclFavoriteFoldersExpertD50.rc trunk/jcl/packages/d5/JclFavoriteFoldersExpertDLLD50.dpr trunk/jcl/packages/d5/JclFavoriteFoldersExpertDLLD50.rc trunk/jcl/packages/d5/JclProjectAnalysisExpertD50.dpk trunk/jcl/packages/d5/JclProjectAnalysisExpertD50.rc trunk/jcl/packages/d5/JclProjectAnalysisExpertDLLD50.dpr trunk/jcl/packages/d5/JclProjectAnalysisExpertDLLD50.rc trunk/jcl/packages/d5/JclSIMDViewExpertD50.dpk trunk/jcl/packages/d5/JclSIMDViewExpertD50.rc trunk/jcl/packages/d5/JclSIMDViewExpertDLLD50.dpr trunk/jcl/packages/d5/JclSIMDViewExpertDLLD50.rc trunk/jcl/packages/d5/JclThreadNameExpertD50.dpk trunk/jcl/packages/d5/JclThreadNameExpertD50.rc trunk/jcl/packages/d5/JclThreadNameExpertDLLD50.dpr trunk/jcl/packages/d5/JclThreadNameExpertDLLD50.rc trunk/jcl/packages/d5/JclUsesExpertD50.dpk trunk/jcl/packages/d5/JclUsesExpertD50.rc trunk/jcl/packages/d5/JclUsesExpertDLLD50.dpr trunk/jcl/packages/d5/JclUsesExpertDLLD50.rc trunk/jcl/packages/d5/JclVersionControlExpertD50.dpk trunk/jcl/packages/d5/JclVersionControlExpertD50.rc trunk/jcl/packages/d5/JclVersionControlExpertDLLD50.dpr trunk/jcl/packages/d5/JclVersionControlExpertDLLD50.rc trunk/jcl/packages/d5/dirinfo.txt trunk/jcl/packages/d5/template.dpk trunk/jcl/packages/d5/template.dpr trunk/jcl/packages/d5/template.rc trunk/jcl/packages/d5.dev/JclD50.dpk trunk/jcl/packages/d5.dev/JclD50.rc trunk/jcl/packages/d5.dev/dirinfo.txt trunk/jcl/packages/d5.dev/template.dpk trunk/jcl/packages/d5.dev/template.rc trunk/jcl/packages/d6/Jcl.dpk trunk/jcl/packages/d6/Jcl.rc trunk/jcl/packages/d6/JclBaseExpert.dpk trunk/jcl/packages/d6/JclBaseExpert.rc trunk/jcl/packages/d6/JclDebugExpert.dpk trunk/jcl/packages/d6/JclDebugExpert.rc trunk/jcl/packages/d6/JclDebugExpertDLL.dpr trunk/jcl/packages/d6/JclDebugExpertDLL.rc trunk/jcl/packages/d6/JclFavoriteFoldersExpert.dpk trunk/jcl/packages/d6/JclFavoriteFoldersExpert.rc trunk/jcl/packages/d6/JclFavoriteFoldersExpertDLL.dpr trunk/jcl/packages/d6/JclFavoriteFoldersExpertDLL.rc trunk/jcl/packages/d6/JclProjectAnalysisExpert.dpk trunk/jcl/packages/d6/JclProjectAnalysisExpert.rc trunk/jcl/packages/d6/JclProjectAnalysisExpertDLL.dpr trunk/jcl/packages/d6/JclProjectAnalysisExpertDLL.rc trunk/jcl/packages/d6/JclSIMDViewExpert.dpk trunk/jcl/packages/d6/JclSIMDViewExpert.rc trunk/jcl/packages/d6/JclSIMDViewExpertDLL.dpr trunk/jcl/packages/d6/JclSIMDViewExpertDLL.rc trunk/jcl/packages/d6/JclThreadNameExpert.dpk trunk/jcl/packages/d6/JclThreadNameExpert.rc trunk/jcl/packages/d6/JclThreadNameExpertDLL.dpr trunk/jcl/packages/d6/JclThreadNameExpertDLL.rc trunk/jcl/packages/d6/JclUsesExpert.dpk trunk/jcl/packages/d6/JclUsesExpert.rc trunk/jcl/packages/d6/JclUsesExpertDLL.dpr trunk/jcl/packages/d6/JclUsesExpertDLL.rc trunk/jcl/packages/d6/JclVClx.dpk trunk/jcl/packages/d6/JclVClx.rc trunk/jcl/packages/d6/JclVcl.dpk trunk/jcl/packages/d6/JclVcl.rc trunk/jcl/packages/d6/JclVersionControlExpert.dpk trunk/jcl/packages/d6/JclVersionControlExpert.rc trunk/jcl/packages/d6/JclVersionControlExpertDLL.dpr trunk/jcl/packages/d6/JclVersionControlExpertDLL.rc trunk/jcl/packages/d6/dirinfo.txt trunk/jcl/packages/d6/template.dpk trunk/jcl/packages/d6/template.dpr trunk/jcl/packages/d6/template.rc trunk/jcl/packages/d6.dev/JclVClx.dpk trunk/jcl/packages/d6.dev/JclVcl.dpk trunk/jcl/packages/d6.dev/JclVcl.rc trunk/jcl/packages/d6.dev/dirinfo.txt trunk/jcl/packages/d6.dev/template.dpk trunk/jcl/packages/d6.dev/template.rc trunk/jcl/packages/d7/Jcl.dpk trunk/jcl/packages/d7/Jcl.rc trunk/jcl/packages/d7/JclBaseExpert.dpk trunk/jcl/packages/d7/JclBaseExpert.rc trunk/jcl/packages/d7/JclDebugExpert.dpk trunk/jcl/packages/d7/JclDebugExpert.rc trunk/jcl/packages/d7/JclDebugExpertDLL.dpr trunk/jcl/packages/d7/JclDebugExpertDLL.rc trunk/jcl/packages/d7/JclFavoriteFoldersExpert.dpk trunk/jcl/packages/d7/JclFavoriteFoldersExpert.rc trunk/jcl/packages/d7/JclFavoriteFoldersExpertDLL.dpr trunk/jcl/packages/d7/JclFavoriteFoldersExpertDLL.rc trunk/jcl/packages/d7/JclProjectAnalysisExpert.dpk trunk/jcl/packages/d7/JclProjectAnalysisExpert.rc trunk/jcl/packages/d7/JclProjectAnalysisExpertDLL.dpr trunk/jcl/packages/d7/JclProjectAnalysisExpertDLL.rc trunk/jcl/packages/d7/JclSIMDViewExpert.dpk trunk/jcl/packages/d7/JclSIMDViewExpert.rc trunk/jcl/packages/d7/JclSIMDViewExpertDLL.dpr trunk/jcl/packages/d7/JclSIMDViewExpertDLL.rc trunk/jcl/packages/d7/JclThreadNameExpert.dpk trunk/jcl/packages/d7/JclThreadNameExpert.rc trunk/jcl/packages/d7/JclThreadNameExpertDLL.dpr trunk/jcl/packages/d7/JclThreadNameExpertDLL.rc trunk/jcl/packages/d7/JclUsesExpert.dpk trunk/jcl/packages/d7/JclUsesExpert.rc trunk/jcl/packages/d7/JclUsesExpertDLL.dpr trunk/jcl/packages/d7/JclUsesExpertDLL.rc trunk/jcl/packages/d7/JclVClx.dpk trunk/jcl/packages/d7/JclVClx.rc trunk/jcl/packages/d7/JclVcl.dpk trunk/jcl/packages/d7/JclVcl.rc trunk/jcl/packages/d7/JclVersionControlExpert.dpk trunk/jcl/packages/d7/JclVersionControlExpert.rc trunk/jcl/packages/d7/JclVersionControlExpertDLL.dpr trunk/jcl/packages/d7/JclVersionControlExpertDLL.rc trunk/jcl/packages/d7/dirinfo.txt trunk/jcl/packages/d7/template.dpk trunk/jcl/packages/d7/template.dpr trunk/jcl/packages/d7/template.rc trunk/jcl/packages/d7.dev/JclVClx.dpk trunk/jcl/packages/d7.dev/JclVClx.rc trunk/jcl/packages/d7.dev/JclVcl.dpk trunk/jcl/packages/d7.dev/JclVcl.rc trunk/jcl/packages/d7.dev/dirinfo.txt trunk/jcl/packages/d7.dev/template.dpk trunk/jcl/packages/d7.dev/template.rc trunk/jcl/packages/d8/Jcl.dpk trunk/jcl/packages/d8/Jcl.rc trunk/jcl/packages/d8/JclBaseExpert.dpk trunk/jcl/packages/d8/JclBaseExpert.rc trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.dpr trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.rc trunk/jcl/packages/d8/JclVersionControlExpertDLL.dpr trunk/jcl/packages/d8/JclVersionControlExpertDLL.rc trunk/jcl/packages/d8/template.dpk trunk/jcl/packages/d8/template.dpr trunk/jcl/packages/d8/template.rc trunk/jcl/packages/d9/Jcl.dpk trunk/jcl/packages/d9/Jcl.rc trunk/jcl/packages/d9/JclBaseExpert.dpk trunk/jcl/packages/d9/JclBaseExpert.rc trunk/jcl/packages/d9/JclDebugExpert.dpk trunk/jcl/packages/d9/JclDebugExpert.rc trunk/jcl/packages/d9/JclDebugExpertDLL.dpr trunk/jcl/packages/d9/JclDebugExpertDLL.rc trunk/jcl/packages/d9/JclFavoriteFoldersExpert.dpk trunk/jcl/packages/d9/JclFavoriteFoldersExpert.rc trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.dpr trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.rc trunk/jcl/packages/d9/JclProjectAnalysisExpert.dpk trunk/jcl/packages/d9/JclProjectAnalysisExpert.rc trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.dpr trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.rc trunk/jcl/packages/d9/JclSIMDViewExpert.dpk trunk/jcl/packages/d9/JclSIMDViewExpert.rc trunk/jcl/packages/d9/JclSIMDViewExpertDLL.dpr trunk/jcl/packages/d9/JclSIMDViewExpertDLL.rc trunk/jcl/packages/d9/JclThreadNameExpert.dpk trunk/jcl/packages/d9/JclThreadNameExpert.rc trunk/jcl/packages/d9/JclThreadNameExpertDLL.dpr trunk/jcl/packages/d9/JclThreadNameExpertDLL.rc trunk/jcl/packages/d9/JclUsesExpert.dpk trunk/jcl/packages/d9/JclUsesExpert.rc trunk/jcl/packages/d9/JclUsesExpertDLL.dpr trunk/jcl/packages/d9/JclUsesExpertDLL.rc trunk/jcl/packages/d9/JclVcl.dpk trunk/jcl/packages/d9/JclVcl.rc trunk/jcl/packages/d9/JclVersionControlExpert.dpk trunk/jcl/packages/d9/JclVersionControlExpert.rc trunk/jcl/packages/d9/JclVersionControlExpertDLL.dpr trunk/jcl/packages/d9/JclVersionControlExpertDLL.rc trunk/jcl/packages/d9/Jedi.Jcl.dpr trunk/jcl/packages/d9/template.dpk trunk/jcl/packages/d9/template.dpr trunk/jcl/packages/d9/template.rc trunk/jcl/packages/d9.net/Jedi.Jcl.dpr trunk/jcl/packages/dirinfo.txt trunk/jcl/packages/k3/Jcl.dpk trunk/jcl/packages/k3/Jcl.rc trunk/jcl/packages/k3/JclVClx.dpk trunk/jcl/packages/k3/JclVClx.rc trunk/jcl/packages/k3/dirinfo.txt trunk/jcl/packages/k3/template.dpk trunk/jcl/packages/k3/template.rc trunk/jcl/packages/k3.dev/JclVClx.dpk trunk/jcl/packages/k3.dev/JclVClx.rc trunk/jcl/packages/k3.dev/dirinfo.txt trunk/jcl/packages/k3.dev/template.dpk trunk/jcl/packages/k3.dev/template.rc trunk/jcl/packages/xml/Jcl-R.xml trunk/jcl/packages/xml/JclBaseExpert-D.xml trunk/jcl/packages/xml/JclDebugExpert-D.xml trunk/jcl/packages/xml/JclDebugExpertDLL-L.xml trunk/jcl/packages/xml/JclFavoriteFoldersExpert-D.xml trunk/jcl/packages/xml/JclFavoriteFoldersExpertDLL-L.xml trunk/jcl/packages/xml/JclProjectAnalysisExpert-D.xml trunk/jcl/packages/xml/JclProjectAnalysisExpertDLL-L.xml trunk/jcl/packages/xml/JclSIMDViewExpert-D.xml trunk/jcl/packages/xml/JclSIMDViewExpertDLL-L.xml trunk/jcl/packages/xml/JclThreadNameExpert-D.xml trunk/jcl/packages/xml/JclThreadNameExpertDLL-L.xml trunk/jcl/packages/xml/JclUsesExpert-D.xml trunk/jcl/packages/xml/JclUsesExpertDLL-L.xml trunk/jcl/packages/xml/JclVClx-R.xml trunk/jcl/packages/xml/JclVcl-R.xml trunk/jcl/packages/xml/JclVersionControlExpert-D.xml trunk/jcl/packages/xml/JclVersionControlExpertDLL-L.xml trunk/jcl/source/Makefile.fpc trunk/jcl/source/common/Jcl8087.pas trunk/jcl/source/common/JclAbstractContainers.pas trunk/jcl/source/common/JclAlgorithms.pas trunk/jcl/source/common/JclAnsiStrings.pas trunk/jcl/source/common/JclArrayLists.pas trunk/jcl/source/common/JclArraySets.pas trunk/jcl/source/common/JclBase.pas trunk/jcl/source/common/JclBinaryTrees.pas trunk/jcl/source/common/JclBorlandTools.pas trunk/jcl/source/common/JclComplex.pas trunk/jcl/source/common/JclCompression.pas trunk/jcl/source/common/JclContainerIntf.pas trunk/jcl/source/common/JclCounter.pas trunk/jcl/source/common/JclDateTime.pas trunk/jcl/source/common/JclEDI.pas trunk/jcl/source/common/JclEDISEF.pas trunk/jcl/source/common/JclEDITranslators.pas trunk/jcl/source/common/JclEDIXML.pas trunk/jcl/source/common/JclEDI_ANSIX12.pas trunk/jcl/source/common/JclEDI_ANSIX12_Ext.pas trunk/jcl/source/common/JclEDI_UNEDIFACT.pas trunk/jcl/source/common/JclEDI_UNEDIFACT_Ext.pas trunk/jcl/source/common/JclExprEval.pas trunk/jcl/source/common/JclFileUtils.pas trunk/jcl/source/common/JclHashMaps.pas trunk/jcl/source/common/JclHashSets.pas trunk/jcl/source/common/JclIniFiles.pas trunk/jcl/source/common/JclLinkedLists.pas trunk/jcl/source/common/JclLogic.pas trunk/jcl/source/common/JclMIDI.pas trunk/jcl/source/common/JclMath.pas trunk/jcl/source/common/JclMime.pas trunk/jcl/source/common/JclPCRE.pas trunk/jcl/source/common/JclQueues.pas trunk/jcl/source/common/JclRTTI.pas trunk/jcl/source/common/JclResources.pas trunk/jcl/source/common/JclSchedule.pas trunk/jcl/source/common/JclStacks.pas trunk/jcl/source/common/JclStatistics.pas trunk/jcl/source/common/JclStrHashMap.pas trunk/jcl/source/common/JclStreams.pas trunk/jcl/source/common/JclStrings.pas trunk/jcl/source/common/JclSysInfo.pas trunk/jcl/source/common/JclSysUtils.pas trunk/jcl/source/common/JclUnitConv.pas trunk/jcl/source/common/JclUnitVersioning.pas trunk/jcl/source/common/JclUnitVersioningProviders.pas trunk/jcl/source/common/JclValidation.pas trunk/jcl/source/common/JclVectors.pas trunk/jcl/source/common/JclWideStrings.pas trunk/jcl/source/common/dirinfo.txt trunk/jcl/source/common/pcre.pas trunk/jcl/source/crossplatform.inc trunk/jcl/source/jcl.inc trunk/jcl/source/jedi.inc trunk/jcl/source/kylix.inc trunk/jcl/source/prototypes/Hardlinks.pas trunk/jcl/source/prototypes/JclGraphUtils.pas trunk/jcl/source/prototypes/JclGraphics.pas trunk/jcl/source/prototypes/JclQGraphUtils.pas trunk/jcl/source/prototypes/JclQGraphics.pas trunk/jcl/source/prototypes/JclWin32.pas trunk/jcl/source/prototypes/Makefile.mak trunk/jcl/source/prototypes/_GraphUtils.pas trunk/jcl/source/prototypes/_Graphics.pas trunk/jcl/source/prototypes/supplement/simple_pp.pl trunk/jcl/source/prototypes/win32api/dirinfo.txt trunk/jcl/source/prototypes/win32api/fpc.inc trunk/jcl/source/prototypes/zlibh.pas trunk/jcl/source/unix/dirinfo.txt trunk/jcl/source/unix/zlibh.pas trunk/jcl/source/unixonly.inc trunk/jcl/source/vcl/JclGraphUtils.pas trunk/jcl/source/vcl/JclGraphics.pas trunk/jcl/source/vcl/JclPrint.pas trunk/jcl/source/vcl/dirinfo.txt trunk/jcl/source/visclx/JclQGraphUtils.pas trunk/jcl/source/visclx/JclQGraphics.pas trunk/jcl/source/visclx/dirinfo.txt trunk/jcl/source/windows/Hardlinks.pas trunk/jcl/source/windows/JclAppInst.pas trunk/jcl/source/windows/JclCIL.pas trunk/jcl/source/windows/JclCLR.pas trunk/jcl/source/windows/JclCOM.pas trunk/jcl/source/windows/JclConsole.pas trunk/jcl/source/windows/JclDebug.pas trunk/jcl/source/windows/JclDotNet.pas trunk/jcl/source/windows/JclHookExcept.pas trunk/jcl/source/windows/JclLANMan.pas trunk/jcl/source/windows/JclLocales.pas trunk/jcl/source/windows/JclMapi.pas trunk/jcl/source/windows/JclMetadata.pas trunk/jcl/source/windows/JclMiscel.pas trunk/jcl/source/windows/JclMsdosSys.pas trunk/jcl/source/windows/JclMultimedia.pas trunk/jcl/source/windows/JclNTFS.pas trunk/jcl/source/windows/JclPeImage.pas trunk/jcl/source/windows/JclRegistry.pas trunk/jcl/source/windows/JclSecurity.pas trunk/jcl/source/windows/JclShell.pas trunk/jcl/source/windows/JclStructStorage.pas trunk/jcl/source/windows/JclSvcCtrl.pas trunk/jcl/source/windows/JclSynch.pas trunk/jcl/source/windows/JclTD32.pas trunk/jcl/source/windows/JclTask.pas trunk/jcl/source/windows/JclUnicode.pas trunk/jcl/source/windows/JclUnicode.rc trunk/jcl/source/windows/JclWideFormat.pas trunk/jcl/source/windows/JclWin32.pas trunk/jcl/source/windows/JclWin32Ex.pas trunk/jcl/source/windows/JclWinMIDI.pas trunk/jcl/source/windows/MSHelpServices_TLB.pas trunk/jcl/source/windows/MSTask.pas trunk/jcl/source/windows/Snmp.pas trunk/jcl/source/windows/dirinfo.txt trunk/jcl/source/windows/mscoree_TLB.pas trunk/jcl/source/windows/mscorlib_TLB.pas trunk/jcl/source/windows/obj/dirinfo.txt trunk/jcl/source/windows/obj/makefile.mak trunk/jcl/source/windows/zlibh.pas trunk/jcl/source/windowsonly.inc trunk/jcl/want.xml Property changes on: trunk/jcl/Install.txt ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/bin/dirinfo.txt ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/clean.sh ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/devtools/pgEdit.xml ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/docs/Contacting authors.htm ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/docs/Contributors.htm ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/docs/Contributors.txt ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/docs/MPL FAQ.htm ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/docs/MPL-1.1.txt ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/docs/Readme.html ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/docs/Readme.txt ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/docs/ThreadSafe.txt ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/docs/cps.html ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/docs/cps_files/test.css ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/docs/styles/default.css ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/containers/algorithms/AlgorithmsExample.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/containers/algorithms/AlgorithmsExampleMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/containers/hashing/HashingExample.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/containers/hashing/HashingExampleMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/containers/lists/ListExample.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/containers/lists/ListExampleMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/containers/lists/MyObjectList.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/containers/performance/ContainerPerformance.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/containers/performance/ContainerPerformanceMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/containers/performance/ContainerPerformanceTests.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/containers/trees/TreeExample.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/containers/trees/TreeExampleMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/expreval/ExprEvalExample.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/expreval/ExprEvalExampleLogic.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/expreval/ExprEvalExampleMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/expreval/QExprEvalExample.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/expreval/QExprEvalExampleMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/filesearch/QFileSearchDemo.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/filesearch/QFileSearchDemoMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/graphics/QClipLineDemo.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/graphics/QClipLineDemoMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/graphics/StretchGraphicDemoMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/graphics/StretchGraphicExample.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/multimedia/MidiOutExample.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/multimedia/MidiOutExampleMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/multimedia/MidiOutExampleTuningDlg.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/numformat/QNumFormatExample.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/numformat/QNumFormatExampleMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/pcre/PCREDemo.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/pcre/PCREDemoMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/pcre/QPCREDemo.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/pcre/QPCREDemoMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/rtti/QRTTIDemo.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/rtti/QRTTIDemoMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/rtti/RTTIDemoMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/rtti/RTTIExample.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/sysinfo/QEnvironmentExample.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/sysinfo/QEnvironmentExampleMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/textreader/TextReaderDemoMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/textreader/TextReaderExample.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/unitversioning/UnitVersioningTest.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/unitversioning/UnitVersioningTestDLL.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/common/unitversioning/UnitVersioningTestMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/windows/ConsoleExamples.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/windows/appinst/AppInstDemoMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/windows/appinst/AppInstExample.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/windows/appinst/SingleInstDemoMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/windows/appinst/SingleInstExample.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/windows/asuser/CreateProcAsUserDemoMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/windows/asuser/CreateProcAsUserExample.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/windows/clr/ClrDemo.dpr ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/windows/clr/ClrDemoAbstractFrame.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/windows/clr/ClrDemoBlobForm.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/windows/clr/ClrDemoCLRFrame.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/windows/clr/ClrDemoGuidForm.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/windows/clr/ClrDemoMain.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property changes on: trunk/jcl/examples/windows/clr/ClrDemoMetaDataFrame.pas ___________________________________________________________________ Name: svn:keywords - Author Date Id Revision + URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id Property chang... [truncated message content] |
|
From: <ou...@us...> - 2006-05-16 20:11:15
|
Revision: 1657 Author: outchy Date: 2006-05-16 13:11:06 -0700 (Tue, 16 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1657&view=rev Log Message: ----------- Fixed compilation with previous compilers Modified Paths: -------------- trunk/jcl/install/JclInstall.pas Modified: trunk/jcl/install/JclInstall.pas =================================================================== --- trunk/jcl/install/JclInstall.pas 2006-05-16 20:07:15 UTC (rev 1656) +++ trunk/jcl/install/JclInstall.pas 2006-05-16 20:11:06 UTC (rev 1657) @@ -2398,7 +2398,7 @@ FOnWriteLog(Msg); end; -{ TJclDistribution } +//=== { TJclDistribution } =================================================== constructor TJclDistribution.Create; var @@ -2408,7 +2408,8 @@ FTargetInstalls := TObjectList.Create; FTargetInstalls.OwnsObjects := True; - IniFileName := GetEnvironmentVariable('JCL_INSTALL_INI'); + if not GetEnvironmentVar('JCL_INSTALL_INI', IniFileName) then + IniFileName := ''; if IniFileName = '' then IniFileName := RsIniFileName; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <ou...@us...> - 2006-05-16 20:07:23
|
Revision: 1656 Author: outchy Date: 2006-05-16 13:07:15 -0700 (Tue, 16 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1656&view=rev Log Message: ----------- Added missing license informations Modified Paths: -------------- trunk/jcl/experts/common/JclOtaActionConfigureSheet.pas trunk/jcl/experts/common/JclOtaConfigurationForm.pas Modified: trunk/jcl/experts/common/JclOtaActionConfigureSheet.pas =================================================================== --- trunk/jcl/experts/common/JclOtaActionConfigureSheet.pas 2006-05-16 16:54:17 UTC (rev 1655) +++ trunk/jcl/experts/common/JclOtaActionConfigureSheet.pas 2006-05-16 20:07:15 UTC (rev 1656) @@ -1,3 +1,31 @@ +{****************************************************************************} +{ } +{ Project JEDI Code Library (JCL) } +{ } +{ 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/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, } +{ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License } +{ for the specific language governing rights and limitations under the } +{ License. } +{ } +{ The Original Code is JclOtaActionConfigureSheet.pas. } +{ } +{ The Initial Developer of the Original Code is Florent Ouchet } +{ <outchy att users dott sourceforge dott net> } +{ Portions created by Florent Ouchet are Copyright (C) of Florent Ouchet. } +{ } +{ Contributors: } +{ } +{****************************************************************************} +{ } +{ Last modified: $Date$ } +{ } +{****************************************************************************} + unit JclOtaActionConfigureSheet; interface Modified: trunk/jcl/experts/common/JclOtaConfigurationForm.pas =================================================================== --- trunk/jcl/experts/common/JclOtaConfigurationForm.pas 2006-05-16 16:54:17 UTC (rev 1655) +++ trunk/jcl/experts/common/JclOtaConfigurationForm.pas 2006-05-16 20:07:15 UTC (rev 1656) @@ -1,3 +1,31 @@ +{****************************************************************************} +{ } +{ Project JEDI Code Library (JCL) } +{ } +{ 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/ } +{ } +{ Software distributed under the License is distributed on an "AS IS" basis, } +{ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License } +{ for the specific language governing rights and limitations under the } +{ License. } +{ } +{ The Original Code is JclOtaActionConfigureSheet.pas. } +{ } +{ The Initial Developer of the Original Code is Florent Ouchet } +{ <outchy att users dott sourceforge dott net> } +{ Portions created by Florent Ouchet are Copyright (C) of Florent Ouchet. } +{ } +{ Contributors: } +{ } +{****************************************************************************} +{ } +{ Last modified: $Date$ } +{ } +{****************************************************************************} + unit JclOtaConfigurationForm; interface This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <ou...@us...> - 2006-05-16 16:54:29
|
Revision: 1655 Author: outchy Date: 2006-05-16 09:54:17 -0700 (Tue, 16 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1655&view=rev Log Message: ----------- Mantis 3661 access violation fixed Modified Paths: -------------- trunk/jcl/source/common/JclBinaryTrees.pas Modified: trunk/jcl/source/common/JclBinaryTrees.pas =================================================================== --- trunk/jcl/source/common/JclBinaryTrees.pas 2006-05-14 09:25:19 UTC (rev 1654) +++ trunk/jcl/source/common/JclBinaryTrees.pas 2006-05-16 16:54:17 UTC (rev 1655) @@ -470,7 +470,7 @@ Result := FCursor.Obj; LastRet := FCursor; FCursor := FCursor.Parent; - if (FCursor <> nil) and (FCursor.Right <> LastRet) then + if (FCursor <> nil) and (FCursor.Right <> nil) and (FCursor.Right <> LastRet) then begin FCursor := FCursor.Right; while (FCursor.Left <> nil) or (FCursor.Right <> nil) do @@ -785,7 +785,7 @@ Result := FCursor.Str; LastRet := FCursor; FCursor := FCursor.Parent; - if (FCursor <> nil) and (FCursor.Right <> LastRet) then + if (FCursor <> nil) and (FCursor.Right <> nil) and (FCursor.Right <> LastRet) then begin FCursor := FCursor.Right; while (FCursor.Left <> nil) or (FCursor.Right <> nil) do @@ -1102,7 +1102,7 @@ Result := FCursor.Obj; LastRet := FCursor; FCursor := FCursor.Parent; - if (FCursor <> nil) and (FCursor.Right <> LastRet) then + if (FCursor <> nil) and (FCursor.Right <> nil) and (FCursor.Right <> LastRet) then begin FCursor := FCursor.Right; while (FCursor.Left <> nil) or (FCursor.Right <> nil) do This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <ou...@us...> - 2006-05-14 09:25:28
|
Revision: 1654 Author: outchy Date: 2006-05-14 02:25:19 -0700 (Sun, 14 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1654&view=rev Log Message: ----------- Mantis 3700 memory leak on string assignments Modified Paths: -------------- trunk/jcl/source/windows/JclUnicode.pas Modified: trunk/jcl/source/windows/JclUnicode.pas =================================================================== --- trunk/jcl/source/windows/JclUnicode.pas 2006-05-13 14:33:09 UTC (rev 1653) +++ trunk/jcl/source/windows/JclUnicode.pas 2006-05-14 09:25:19 UTC (rev 1654) @@ -5253,7 +5253,7 @@ begin with FList[Index] do begin - A := TDynWideCharArray(FString); + Pointer(A) := TDynWideCharArray(FString); if A <> nil then A := nil; // free memory This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <mar...@us...> - 2006-05-13 14:33:20
|
Revision: 1653 Author: marquardt Date: 2006-05-13 07:33:09 -0700 (Sat, 13 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1653&view=rev Log Message: ----------- two more Is*Installed functions Modified Paths: -------------- trunk/jcl/source/common/JclSysInfo.pas Modified: trunk/jcl/source/common/JclSysInfo.pas =================================================================== --- trunk/jcl/source/common/JclSysInfo.pas 2006-05-12 22:21:06 UTC (rev 1652) +++ trunk/jcl/source/common/JclSysInfo.pas 2006-05-13 14:33:09 UTC (rev 1653) @@ -1112,7 +1112,10 @@ function IsFrontPageInstalled: Boolean; function IsOutlookInstalled: Boolean; function IsInternetExplorerInstalled: Boolean; +function IsMSProjectInstalled: Boolean; +function IsOpenOfficeInstalled: Boolean; + {$ENDIF MSWINDOWS} // Public global variables @@ -5263,6 +5266,16 @@ Result := ProgIDExists('InternetExplorer.Application'); end; +function IsMSProjectInstalled: Boolean; +begin + Result := ProgIDExists('MSProject.Application'); +end; + +function IsOpenOfficeInstalled: Boolean; +begin + Result := ProgIDExists('com.sun.star.ServiceManager'); +end; + //=== Initialization/Finalization ============================================ procedure InitSysInfo; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <ou...@us...> - 2006-05-12 22:21:14
|
Revision: 1652 Author: outchy Date: 2006-05-12 15:21:06 -0700 (Fri, 12 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1652&view=rev Log Message: ----------- Mantis 2787 customization of installations Modified Paths: -------------- trunk/jcl/install/JclInstall.pas Modified: trunk/jcl/install/JclInstall.pas =================================================================== --- trunk/jcl/install/JclInstall.pas 2006-05-12 21:43:15 UTC (rev 1651) +++ trunk/jcl/install/JclInstall.pas 2006-05-12 22:21:06 UTC (rev 1652) @@ -2401,11 +2401,22 @@ { TJclDistribution } constructor TJclDistribution.Create; +var + IniFileName: string; begin inherited; FTargetInstalls := TObjectList.Create; FTargetInstalls.OwnsObjects := True; - FIniFile := TMemIniFile.Create(ExtractFilePath(ParamStr(0)) + RsIniFileName); + + IniFileName := GetEnvironmentVariable('JCL_INSTALL_INI'); + + if IniFileName = '' then + IniFileName := RsIniFileName; + + if not PathIsAbsolute(IniFileName) then + IniFileName := ExtractFilePath(ParamStr(0)) + IniFileName; + + FIniFile := TMemIniFile.Create(IniFileName); end; destructor TJclDistribution.Destroy; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <ou...@us...> - 2006-05-12 21:43:25
|
Revision: 1651 Author: outchy Date: 2006-05-12 14:43:15 -0700 (Fri, 12 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1651&view=rev Log Message: ----------- Mantis 2951 debug source can be chosen External debug sources can be added Modified Paths: -------------- trunk/jcl/source/jcl.inc trunk/jcl/source/windows/JclDebug.pas Modified: trunk/jcl/source/jcl.inc =================================================================== --- trunk/jcl/source/jcl.inc 2006-05-12 21:17:53 UTC (rev 1650) +++ trunk/jcl/source/jcl.inc 2006-05-12 21:43:15 UTC (rev 1651) @@ -79,7 +79,12 @@ {$DEFINE KEEP_DEPRECATED} {$ENDIF} +// debug sources +{.$DEFINE DEBUG_NO_BINARY} +{.$DEFINE DEBUG_NO_TD32} +{.$DEFINE DEBUG_NO_MAP} +{.$DEFINE DEBUG_NO_EXPORTS} {$IFDEF CLR} {$WARN UNSAFE_TYPE ON} Modified: trunk/jcl/source/windows/JclDebug.pas =================================================================== --- trunk/jcl/source/windows/JclDebug.pas 2006-05-12 21:17:53 UTC (rev 1650) +++ trunk/jcl/source/windows/JclDebug.pas 2006-05-12 21:43:15 UTC (rev 1651) @@ -355,6 +355,9 @@ protected function CreateDebugInfo(const Module: HMODULE): TJclDebugInfoSource; public + class procedure RegisterDebugInfoSource(const InfoSourceClass: TJclDebugInfoSourceClass); + class procedure UnRegisterDebugInfoSource(const InfoSourceClass: TJclDebugInfoSourceClass); + class procedure NeedInfoSourceClassList; function GetLocationInfo(const Addr: Pointer; var Info: TJclLocationInfo): Boolean; property ItemFromModule[const Module: HMODULE]: TJclDebugInfoSource read GetItemFromModule; property Items[Index: Integer]: TJclDebugInfoSource read GetItems; @@ -2406,7 +2409,8 @@ //=== { TJclDebugInfoList } ================================================== var - DebugInfoList: TJclDebugInfoList; + DebugInfoList: TJclDebugInfoList = nil; + InfoSourceClassList: TList = nil; DebugInfoCritSect: TJclCriticalSection; procedure NeedDebugInfoList; @@ -2416,15 +2420,14 @@ end; function TJclDebugInfoList.CreateDebugInfo(const Module: HMODULE): TJclDebugInfoSource; -const - DebugInfoSources: array [1..4] of TJclDebugInfoSourceClass = - (TJclDebugInfoBinary, TJclDebugInfoTD32, TJclDebugInfoMap, TJclDebugInfoExports); var I: Integer; begin - for I := Low(DebugInfoSources) to High(DebugInfoSources) do + NeedDebugInfoList; + + for I := 0 to InfoSourceClassList.Count - 1 do begin - Result := DebugInfoSources[I].Create(Module); + Result := TJclDebugInfoSourceClass(InfoSourceClassList.Items[I]).Create(Module); try if Result.InitializeSource then Break @@ -2479,6 +2482,41 @@ Result := False; end; +class procedure TJclDebugInfoList.NeedInfoSourceClassList; +begin + if not Assigned(InfoSourceClassList) then + begin + InfoSourceClassList := TList.Create; + {$IFNDEF DEBUG_NO_BINARY} + InfoSourceClassList.Add(Pointer(TJclDebugInfoBinary)); + {$ENDIF !DEBUG_NO_BINARY} + {$IFNDEF DEBUG_NO_TD32} + InfoSourceClassList.Add(Pointer(TJclDebugInfoTD32)); + {$ENDIF !DEBUG_NO_TD32} + {$IFNDEF DEBUG_NO_MAP} + InfoSourceClassList.Add(Pointer(TJclDebugInfoMap)); + {$ENDIF !DEBUG_NO_MAP} + {$IFNDEF DEBUG_NO_EXPORTS} + InfoSourceClassList.Add(Pointer(TJclDebugInfoExports)); + {$ENDIF !DEBUG_NO_EXPORTS} + end; +end; + +class procedure TJclDebugInfoList.RegisterDebugInfoSource( + const InfoSourceClass: TJclDebugInfoSourceClass); +begin + NeedInfoSourceClassList; + + InfoSourceClassList.Add(Pointer(InfoSourceClass)); +end; + +class procedure TJclDebugInfoList.UnRegisterDebugInfoSource( + const InfoSourceClass: TJclDebugInfoSourceClass); +begin + if Assigned(InfoSourceClassList) then + InfoSourceClassList.Remove(Pointer(InfoSourceClass)); +end; + //=== { TJclDebugInfoMap } =================================================== destructor TJclDebugInfoMap.Destroy; @@ -4179,6 +4217,7 @@ FreeAndNil(GlobalStackList); FreeAndNil(GlobalModulesList); FreeAndNil(DebugInfoCritSect); + FreeAndNil(InfoSourceClassList); // History: This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <ou...@us...> - 2006-05-12 21:17:59
|
Revision: 1650 Author: outchy Date: 2006-05-12 14:17:53 -0700 (Fri, 12 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1650&view=rev Log Message: ----------- Fixed warning when compiled with C++Builder Modified Paths: -------------- trunk/jcl/source/common/JclStreams.pas Modified: trunk/jcl/source/common/JclStreams.pas =================================================================== --- trunk/jcl/source/common/JclStreams.pas 2006-05-12 21:06:08 UTC (rev 1649) +++ trunk/jcl/source/common/JclStreams.pas 2006-05-12 21:17:53 UTC (rev 1650) @@ -256,7 +256,9 @@ function ReadSizedString: string; procedure WriteBoolean(Value: Boolean); procedure WriteChar(Value: Char); + {$IFNDEF BCB} procedure WriteComp(const Value: Comp); + {$ENDIF !BCB} procedure WriteCurrency(const Value: Currency); procedure WriteDateTime(const Value: TDateTime); procedure WriteDouble(const Value: Double); @@ -1147,10 +1149,12 @@ WriteBuffer(Value, SizeOf(Value)); end; +{$IFNDEF BCB} procedure TJclEasyStream.WriteComp(const Value: Comp); begin WriteBuffer(Value, SizeOf(Value)); end; +{$ENDIF !BCB} procedure TJclEasyStream.WriteCurrency(const Value: Currency); begin This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <ou...@us...> - 2006-05-12 21:06:15
|
Revision: 1649 Author: outchy Date: 2006-05-12 14:06:08 -0700 (Fri, 12 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1649&view=rev Log Message: ----------- Mantis 3195 resolve flags in ShellLinkResolve Modified Paths: -------------- trunk/jcl/source/windows/JclShell.pas Modified: trunk/jcl/source/windows/JclShell.pas =================================================================== --- trunk/jcl/source/windows/JclShell.pas 2006-05-12 21:03:12 UTC (rev 1648) +++ trunk/jcl/source/windows/JclShell.pas 2006-05-12 21:06:08 UTC (rev 1649) @@ -1043,7 +1043,7 @@ if Succeeded(Result) then begin - Result := ShellLink.Resolve(0, SLR_ANY_MATCH); + Result := ShellLink.Resolve(0, ResolveFlags); if Succeeded(Result) then begin This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <ou...@us...> - 2006-05-12 21:03:21
|
Revision: 1648 Author: outchy Date: 2006-05-12 14:03:12 -0700 (Fri, 12 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1648&view=rev Log Message: ----------- Mantis 3195 resolve flags in ShellLinkResolve Minor style cleaning Modified Paths: -------------- trunk/jcl/source/windows/JclShell.pas Modified: trunk/jcl/source/windows/JclShell.pas =================================================================== --- trunk/jcl/source/windows/JclShell.pas 2006-05-12 20:43:40 UTC (rev 1647) +++ trunk/jcl/source/windows/JclShell.pas 2006-05-12 21:03:12 UTC (rev 1648) @@ -137,7 +137,9 @@ end; procedure ShellLinkFree(var Link: TShellLink); -function ShellLinkResolve(const FileName: string; var Link: TShellLink): HRESULT; +function ShellLinkResolve(const FileName: string; var Link: TShellLink): HRESULT; overload; +function ShellLinkResolve(const FileName: string; var Link: TShellLink; + const ResolveFlags: Cardinal): HRESULT; overload; function ShellLinkCreate(const Link: TShellLink; const FileName: string): HRESULT; function ShellLinkCreateSystem(const Link: TShellLink; const Folder: Integer; const FileName: string): HRESULT; function ShellLinkIcon(const Link: TShellLink): HICON; overload; @@ -179,10 +181,10 @@ var RtdlMsiLibHandle: TModuleHandle = INVALID_MODULEHANDLE_VALUE; RtdlMsiGetShortcutTarget: function(szShortcutPath: LPCSTR; szProductCode: LPSTR; - szFeatureId: LPSTR; szComponentCode: LPSTR): UINT; stdcall = nil; + szFeatureId: LPSTR; szComponentCode: LPSTR): UINT stdcall = nil; RtdlMsiGetComponentPath: function(szProduct: LPCSTR; szComponent: LPCSTR; - lpPathBuf: LPSTR; pcchBuf: LPDWORD): INSTALLSTATE; stdcall = nil; + lpPathBuf: LPSTR; pcchBuf: LPDWORD): INSTALLSTATE stdcall = nil; implementation @@ -982,6 +984,12 @@ end; function ShellLinkResolve(const FileName: string; var Link: TShellLink): HRESULT; +begin + Result := ShellLinkResolve(FileName, Link, SLR_ANY_MATCH); +end; + +function ShellLinkResolve(const FileName: string; var Link: TShellLink; + const ResolveFlags: Cardinal): HRESULT; const MAX_FEATURE_CHARS = 38; // maximum chars in MSI feature name var This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <ou...@us...> - 2006-05-12 20:43:48
|
Revision: 1647 Author: outchy Date: 2006-05-12 13:43:40 -0700 (Fri, 12 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1647&view=rev Log Message: ----------- Mantis 3661 binary trees rework Modified Paths: -------------- trunk/jcl/source/common/JclBinaryTrees.pas Modified: trunk/jcl/source/common/JclBinaryTrees.pas =================================================================== --- trunk/jcl/source/common/JclBinaryTrees.pas 2006-05-12 20:16:32 UTC (rev 1646) +++ trunk/jcl/source/common/JclBinaryTrees.pas 2006-05-12 20:43:40 UTC (rev 1647) @@ -202,8 +202,7 @@ TIntfItr = class(TJclAbstractContainer, IJclIntfIterator) private FCursor: PJclIntfBinaryNode; - FOwnList: TJclIntfBinaryTree; - FLastRet: PJclIntfBinaryNode; + FOwnList: IJclIntfCollection; protected { IJclIntfIterator } procedure Add(AInterface: IInterface); @@ -217,30 +216,16 @@ procedure Remove; procedure SetObject(AInterface: IInterface); public - constructor Create(OwnList: TJclIntfBinaryTree; Start: PJclIntfBinaryNode); - {$IFNDEF CLR} - destructor Destroy; override; - {$ENDIF ~CLR} + constructor Create(OwnList: IJclIntfCollection; Start: PJclIntfBinaryNode); end; -constructor TIntfItr.Create(OwnList: TJclIntfBinaryTree; Start: PJclIntfBinaryNode); +constructor TIntfItr.Create(OwnList: IJclIntfCollection; Start: PJclIntfBinaryNode); begin inherited Create; FCursor := Start; FOwnList := OwnList; - {$IFNDEF CLR} - FOwnList._AddRef; // Add a ref because FOwnList is not an interface ! - {$ENDIF ~CLR} end; -{$IFNDEF CLR} -destructor TIntfItr.Destroy; -begin - FOwnList._Release; - inherited Destroy; -end; -{$ENDIF ~CLR} - procedure TIntfItr.Add(AInterface: IInterface); {$IFDEF THREADSAFE} var @@ -338,8 +323,9 @@ end; function TPreOrderIntfItr.Next: IInterface; -{$IFDEF THREADSAFE} var + LastRet: PJclIntfBinaryNode; +{$IFDEF THREADSAFE} CS: IInterface; {$ENDIF THREADSAFE} begin @@ -347,7 +333,7 @@ CS := EnterCriticalSection; {$ENDIF THREADSAFE} Result := FCursor.Obj; - FLastRet := FCursor; + LastRet := FCursor; if FCursor.Left <> nil then FCursor := FCursor.Left else @@ -356,24 +342,20 @@ else begin FCursor := FCursor.Parent; - while (FCursor <> nil) and (FCursor.Left <> FLastRet) do // come from Right + while (FCursor <> nil) and ((FCursor.Right = nil) or (FCursor.Right = LastRet)) do begin - FLastRet := FCursor; + LastRet := FCursor; FCursor := FCursor.Parent; end; - while (FCursor <> nil) and (FCursor.Right = nil) do - begin - FLastRet := FCursor; - FCursor := FCursor.Parent; - end; if FCursor <> nil then // not root FCursor := FCursor.Right; end; end; function TPreOrderIntfItr.Previous: IInterface; -{$IFDEF THREADSAFE} var + LastRet: PJclIntfBinaryNode; +{$IFDEF THREADSAFE} CS: IInterface; {$ENDIF THREADSAFE} begin @@ -381,19 +363,20 @@ CS := EnterCriticalSection; {$ENDIF THREADSAFE} Result := FCursor.Obj; - FLastRet := FCursor; + LastRet := FCursor; FCursor := FCursor.Parent; - if (FCursor <> nil) and (FCursor.Left <> FLastRet) then // come from Right - if FCursor.Left <> nil then + if (FCursor <> nil) and (FCursor.Left <> LastRet) and (FCursor.Left <> nil) then + // come from Right + begin + FCursor := FCursor.Left; + while (FCursor.Left <> nil) or (FCursor.Right <> nil) do // both childs begin - FLastRet := FCursor; - FCursor := FCursor.Left; - while FCursor.Right <> nil do - begin - FLastRet := FCursor; - FCursor := FCursor.Right; - end; + if FCursor.Right <> nil then // right child first + FCursor := FCursor.Right + else + FCursor := FCursor.Left; end; + end; end; //=== { TInOrderIntfItr } ==================================================== @@ -407,35 +390,38 @@ end; function TInOrderIntfItr.Next: IInterface; -{$IFDEF THREADSAFE} var + LastRet: PJclIntfBinaryNode; +{$IFDEF THREADSAFE} CS: IInterface; {$ENDIF THREADSAFE} begin {$IFDEF THREADSAFE} CS := EnterCriticalSection; {$ENDIF THREADSAFE} - if FCursor.Left <> FLastRet then - while FCursor.Left <> nil do - FCursor := FCursor.Left; Result := FCursor.Obj; - FLastRet := FCursor; if FCursor.Right <> nil then - FCursor := FCursor.Right + begin + FCursor := FCursor.Right; + while (FCursor.Left <> nil) do + FCursor := FCursor.Left; + end else begin + LastRet := FCursor; FCursor := FCursor.Parent; - while (FCursor <> nil) and (FCursor.Right = FLastRet) do + while (FCursor <> nil) and (FCursor.Right = LastRet) do begin - FLastRet := FCursor; + LastRet := FCursor; FCursor := FCursor.Parent; end; end; end; function TInOrderIntfItr.Previous: IInterface; -{$IFDEF THREADSAFE} var + LastRet: PJclIntfBinaryNode; +{$IFDEF THREADSAFE} CS: IInterface; {$ENDIF THREADSAFE} begin @@ -443,22 +429,19 @@ CS := EnterCriticalSection; {$ENDIF THREADSAFE} Result := FCursor.Obj; - FLastRet := FCursor; + LastRet := FCursor; if FCursor.Left <> nil then begin FCursor := FCursor.Left; while FCursor.Right <> nil do - begin - FLastRet := FCursor; FCursor := FCursor.Right; - end; end else begin FCursor := FCursor.Parent; - while (FCursor <> nil) and (FCursor.Right <> FLastRet) do // Come from Left + while (FCursor <> nil) and (FCursor.Right <> LastRet) do // Come from Left begin - FLastRet := FCursor; + LastRet := FCursor; FCursor := FCursor.Parent; end; end; @@ -475,33 +458,35 @@ end; function TPostOrderIntfItr.Next: IInterface; -{$IFDEF THREADSAFE} var + LastRet: PJclIntfBinaryNode; +{$IFDEF THREADSAFE} CS: IInterface; {$ENDIF THREADSAFE} begin {$IFDEF THREADSAFE} CS := EnterCriticalSection; {$ENDIF THREADSAFE} - if (FCursor.Left <> FLastRet) and (FCursor.Right <> FLastRet) then - while FCursor.Left <> nil do - FCursor := FCursor.Left; - if (FCursor.Right <> nil) and (FCursor.Right <> FLastRet) then + Result := FCursor.Obj; + LastRet := FCursor; + FCursor := FCursor.Parent; + if (FCursor <> nil) and (FCursor.Right <> LastRet) then begin FCursor := FCursor.Right; - while FCursor.Left <> nil do - FCursor := FCursor.Left; - if FCursor.Right <> nil then // particular worst case - FCursor := FCursor.Right; + while (FCursor.Left <> nil) or (FCursor.Right <> nil) do + begin + if FCursor.Left <> nil then + FCursor := FCursor.Left + else + FCursor := FCursor.Right; + end; end; - Result := FCursor.Obj; - FLastRet := FCursor; - FCursor := FCursor.Parent; end; function TPostOrderIntfItr.Previous: IInterface; -{$IFDEF THREADSAFE} var + LastRet: PJclIntfBinaryNode; +{$IFDEF THREADSAFE} CS: IInterface; {$ENDIF THREADSAFE} begin @@ -509,15 +494,17 @@ CS := EnterCriticalSection; {$ENDIF THREADSAFE} Result := FCursor.Obj; - FLastRet := FCursor; - if (FCursor.Right <> nil) and (FCursor.Right <> FLastRet) then + if (FCursor.Right <> nil) then FCursor := FCursor.Right + else if (FCursor.Left <> nil) then + FCursor := FCursor.Left else begin + LastRet := FCursor; FCursor := FCursor.Parent; - while (FCursor <> nil) and ((FCursor.Left = nil) or (FCursor.Left = FLastRet)) do + while (FCursor <> nil) and ((FCursor.Left = nil) or (FCursor.Left = LastRet)) do begin - FLastRet := FCursor; + LastRet := FCursor; FCursor := FCursor.Parent; end; if FCursor <> nil then // not root @@ -531,8 +518,7 @@ TStrItr = class(TJclAbstractContainer, IJclStrIterator) protected FCursor: PJclStrBinaryNode; - FOwnList: TJclStrBinaryTree; - FLastRet: PJclStrBinaryNode; + FOwnList: IJclStrCollection; { IJclStrIterator } procedure Add(const AString: string); function GetString: string; @@ -545,30 +531,16 @@ procedure Remove; procedure SetString(const AString: string); public - constructor Create(OwnList: TJclStrBinaryTree; Start: PJclStrBinaryNode); - {$IFNDEF CLR} - destructor Destroy; override; - {$ENDIF ~CLR} + constructor Create(OwnList: IJclStrCollection; Start: PJclStrBinaryNode); end; -constructor TStrItr.Create(OwnList: TJclStrBinaryTree; Start: PJclStrBinaryNode); +constructor TStrItr.Create(OwnList: IJclStrCollection; Start: PJclStrBinaryNode); begin inherited Create; FCursor := Start; FOwnList := OwnList; - {$IFNDEF CLR} - FOwnList._AddRef; // Add a ref because FOwnList is not an interface ! - {$ENDIF ~CLR} end; -{$IFNDEF CLR} -destructor TStrItr.Destroy; -begin - FOwnList._Release; - inherited Destroy; -end; -{$ENDIF ~CLR} - procedure TStrItr.Add(const AString: string); {$IFDEF THREADSAFE} var @@ -666,8 +638,9 @@ end; function TPreOrderStrItr.Next: string; -{$IFDEF THREADSAFE} var + LastRet: PJclStrBinaryNode; +{$IFDEF THREADSAFE} CS: IInterface; {$ENDIF THREADSAFE} begin @@ -675,7 +648,7 @@ CS := EnterCriticalSection; {$ENDIF THREADSAFE} Result := FCursor.Str; - FLastRet := FCursor; + LastRet := FCursor; if FCursor.Left <> nil then FCursor := FCursor.Left else @@ -684,24 +657,20 @@ else begin FCursor := FCursor.Parent; - while (FCursor <> nil) and (FCursor.Left <> FLastRet) do // come from Right + while (FCursor <> nil) and ((FCursor.Right = nil) or (FCursor.Right = LastRet)) do begin - FLastRet := FCursor; + LastRet := FCursor; FCursor := FCursor.Parent; end; - while (FCursor <> nil) and (FCursor.Right = nil) do - begin - FLastRet := FCursor; - FCursor := FCursor.Parent; - end; if FCursor <> nil then // not root FCursor := FCursor.Right; end; end; function TPreOrderStrItr.Previous: string; -{$IFDEF THREADSAFE} var + LastRet: PJclStrBinaryNode; +{$IFDEF THREADSAFE} CS: IInterface; {$ENDIF THREADSAFE} begin @@ -709,19 +678,20 @@ CS := EnterCriticalSection; {$ENDIF THREADSAFE} Result := FCursor.Str; - FLastRet := FCursor; + LastRet := FCursor; FCursor := FCursor.Parent; - if (FCursor <> nil) and (FCursor.Left <> FLastRet) then // come from Right - if FCursor.Left <> nil then + if (FCursor <> nil) and (FCursor.Left <> LastRet) and (FCursor.Left <> nil) then + // come from Right + begin + FCursor := FCursor.Left; + while (FCursor.Left <> nil) or (FCursor.Right <> nil) do // both childs begin - FLastRet := FCursor; - FCursor := FCursor.Left; - while FCursor.Right <> nil do - begin - FLastRet := FCursor; - FCursor := FCursor.Right; - end; + if FCursor.Right <> nil then // right child first + FCursor := FCursor.Right + else + FCursor := FCursor.Left; end; + end; end; //=== { TInOrderStrItr } ===================================================== @@ -735,35 +705,38 @@ end; function TInOrderStrItr.Next: string; -{$IFDEF THREADSAFE} var + LastRet: PJclStrBinaryNode; +{$IFDEF THREADSAFE} CS: IInterface; {$ENDIF THREADSAFE} begin {$IFDEF THREADSAFE} CS := EnterCriticalSection; {$ENDIF THREADSAFE} - if FCursor.Left <> FLastRet then - while FCursor.Left <> nil do - FCursor := FCursor.Left; Result := FCursor.Str; - FLastRet := FCursor; if FCursor.Right <> nil then - FCursor := FCursor.Right + begin + FCursor := FCursor.Right; + while (FCursor.Left <> nil) do + FCursor := FCursor.Left; + end else begin + LastRet := FCursor; FCursor := FCursor.Parent; - while (FCursor <> nil) and (FCursor.Right = FLastRet) do + while (FCursor <> nil) and (FCursor.Right = LastRet) do begin - FLastRet := FCursor; + LastRet := FCursor; FCursor := FCursor.Parent; end; end; end; function TInOrderStrItr.Previous: string; -{$IFDEF THREADSAFE} var + LastRet: PJclStrBinaryNode; +{$IFDEF THREADSAFE} CS: IInterface; {$ENDIF THREADSAFE} begin @@ -771,22 +744,19 @@ CS := EnterCriticalSection; {$ENDIF THREADSAFE} Result := FCursor.Str; - FLastRet := FCursor; + LastRet := FCursor; if FCursor.Left <> nil then begin FCursor := FCursor.Left; while FCursor.Right <> nil do - begin - FLastRet := FCursor; FCursor := FCursor.Right; - end; end else begin FCursor := FCursor.Parent; - while (FCursor <> nil) and (FCursor.Right <> FLastRet) do // Come from Left + while (FCursor <> nil) and (FCursor.Right <> LastRet) do // Come from Left begin - FLastRet := FCursor; + LastRet := FCursor; FCursor := FCursor.Parent; end; end; @@ -803,33 +773,35 @@ end; function TPostOrderStrItr.Next: string; -{$IFDEF THREADSAFE} var + LastRet: PJclStrBinaryNode; +{$IFDEF THREADSAFE} CS: IInterface; {$ENDIF THREADSAFE} begin {$IFDEF THREADSAFE} CS := EnterCriticalSection; {$ENDIF THREADSAFE} - if (FCursor.Left <> FLastRet) and (FCursor.Right <> FLastRet) then - while FCursor.Left <> nil do - FCursor := FCursor.Left; - if (FCursor.Right <> nil) and (FCursor.Right <> FLastRet) then + Result := FCursor.Str; + LastRet := FCursor; + FCursor := FCursor.Parent; + if (FCursor <> nil) and (FCursor.Right <> LastRet) then begin FCursor := FCursor.Right; - while FCursor.Left <> nil do - FCursor := FCursor.Left; - if FCursor.Right <> nil then // particular worst case - FCursor := FCursor.Right; + while (FCursor.Left <> nil) or (FCursor.Right <> nil) do + begin + if FCursor.Left <> nil then + FCursor := FCursor.Left + else + FCursor := FCursor.Right; + end; end; - Result := FCursor.Str; - FLastRet := FCursor; - FCursor := FCursor.Parent; end; function TPostOrderStrItr.Previous: string; -{$IFDEF THREADSAFE} var + LastRet: PJclStrBinaryNode; +{$IFDEF THREADSAFE} CS: IInterface; {$ENDIF THREADSAFE} begin @@ -837,15 +809,17 @@ CS := EnterCriticalSection; {$ENDIF THREADSAFE} Result := FCursor.Str; - FLastRet := FCursor; - if (FCursor.Right <> nil) and (FCursor.Right <> FLastRet) then + if (FCursor.Right <> nil) then FCursor := FCursor.Right + else if (FCursor.Left <> nil) then + FCursor := FCursor.Left else begin + LastRet := FCursor; FCursor := FCursor.Parent; - while (FCursor <> nil) and ((FCursor.Left = nil) or (FCursor.Left = FLastRet)) do + while (FCursor <> nil) and ((FCursor.Left = nil) or (FCursor.Left = LastRet)) do begin - FLastRet := FCursor; + LastRet := FCursor; FCursor := FCursor.Parent; end; if FCursor <> nil then // not root @@ -859,8 +833,7 @@ TItr = class(TJclAbstractContainer, IJclIterator) protected FCursor: PJclBinaryNode; - FOwnList: TJclBinaryTree; - FLastRet: PJclBinaryNode; + FOwnList: IJclCollection; { IJclIntfIterator } procedure Add(AObject: TObject); function GetObject: TObject; @@ -873,30 +846,16 @@ procedure Remove; procedure SetObject(AObject: TObject); public - constructor Create(OwnList: TJclBinaryTree; Start: PJclBinaryNode); - {$IFNDEF CLR} - destructor Destroy; override; - {$ENDIF ~CLR} + constructor Create(OwnList: IJclCollection; Start: PJclBinaryNode); end; -constructor TItr.Create(OwnList: TJclBinaryTree; Start: PJclBinaryNode); +constructor TItr.Create(OwnList: IJclCollection; Start: PJclBinaryNode); begin inherited Create; FCursor := Start; FOwnList := OwnList; - {$IFNDEF CLR} - FOwnList._AddRef; // Add a ref because FOwnList is not an interface ! - {$ENDIF ~CLR} end; -{$IFNDEF CLR} -destructor TItr.Destroy; -begin - FOwnList._Release; - inherited Destroy; -end; -{$ENDIF ~CLR} - procedure TItr.Add(AObject: TObject); {$IFDEF THREADSAFE} var @@ -996,8 +955,9 @@ end; function TPreOrderItr.Next: TObject; -{$IFDEF THREADSAFE} var + LastRet: PJclBinaryNode; +{$IFDEF THREADSAFE} CS: IInterface; {$ENDIF THREADSAFE} begin @@ -1005,7 +965,7 @@ CS := EnterCriticalSection; {$ENDIF THREADSAFE} Result := FCursor.Obj; - FLastRet := FCursor; + LastRet := FCursor; if FCursor.Left <> nil then FCursor := FCursor.Left else @@ -1014,24 +974,20 @@ else begin FCursor := FCursor.Parent; - while (FCursor <> nil) and (FCursor.Left <> FLastRet) do // come from Right + while (FCursor <> nil) and ((FCursor.Right = nil) or (FCursor.Right = LastRet)) do begin - FLastRet := FCursor; + LastRet := FCursor; FCursor := FCursor.Parent; end; - while (FCursor <> nil) and (FCursor.Right = nil) do - begin - FLastRet := FCursor; - FCursor := FCursor.Parent; - end; if FCursor <> nil then // not root FCursor := FCursor.Right; end; end; function TPreOrderItr.Previous: TObject; -{$IFDEF THREADSAFE} var + LastRet: PJclBinaryNode; +{$IFDEF THREADSAFE} CS: IInterface; {$ENDIF THREADSAFE} begin @@ -1039,19 +995,20 @@ CS := EnterCriticalSection; {$ENDIF THREADSAFE} Result := FCursor.Obj; - FLastRet := FCursor; + LastRet := FCursor; FCursor := FCursor.Parent; - if (FCursor <> nil) and (FCursor.Left <> FLastRet) then // come from Right - if FCursor.Left <> nil then + if (FCursor <> nil) and (FCursor.Left <> LastRet) and (FCursor.Left <> nil) then + // come from Right + begin + FCursor := FCursor.Left; + while (FCursor.Left <> nil) or (FCursor.Right <> nil) do // both childs begin - FLastRet := FCursor; - FCursor := FCursor.Left; - while FCursor.Right <> nil do - begin - FLastRet := FCursor; - FCursor := FCursor.Right; - end; + if FCursor.Right <> nil then // right child first + FCursor := FCursor.Right + else + FCursor := FCursor.Left; end; + end; end; //=== { TInOrderItr } ======================================================== @@ -1065,35 +1022,38 @@ end; function TInOrderItr.Next: TObject; -{$IFDEF THREADSAFE} var + LastRet: PJclBinaryNode; +{$IFDEF THREADSAFE} CS: IInterface; {$ENDIF THREADSAFE} begin {$IFDEF THREADSAFE} CS := EnterCriticalSection; {$ENDIF THREADSAFE} - if FCursor.Left <> FLastRet then - while FCursor.Left <> nil do - FCursor := FCursor.Left; Result := FCursor.Obj; - FLastRet := FCursor; if FCursor.Right <> nil then - FCursor := FCursor.Right + begin + FCursor := FCursor.Right; + while (FCursor.Left <> nil) do + FCursor := FCursor.Left; + end else begin + LastRet := FCursor; FCursor := FCursor.Parent; - while (FCursor <> nil) and (FCursor.Right = FLastRet) do + while (FCursor <> nil) and (FCursor.Right = LastRet) do begin - FLastRet := FCursor; + LastRet := FCursor; FCursor := FCursor.Parent; end; end; end; function TInOrderItr.Previous: TObject; -{$IFDEF THREADSAFE} var + LastRet: PJclBinaryNode; +{$IFDEF THREADSAFE} CS: IInterface; {$ENDIF THREADSAFE} begin @@ -1101,22 +1061,19 @@ CS := EnterCriticalSection; {$ENDIF THREADSAFE} Result := FCursor.Obj; - FLastRet := FCursor; + LastRet := FCursor; if FCursor.Left <> nil then begin FCursor := FCursor.Left; while FCursor.Right <> nil do - begin - FLastRet := FCursor; FCursor := FCursor.Right; - end; end else begin FCursor := FCursor.Parent; - while (FCursor <> nil) and (FCursor.Right <> FLastRet) do // Come from Left + while (FCursor <> nil) and (FCursor.Right <> LastRet) do // Come from Left begin - FLastRet := FCursor; + LastRet := FCursor; FCursor := FCursor.Parent; end; end; @@ -1133,33 +1090,35 @@ end; function TPostOrderItr.Next: TObject; -{$IFDEF THREADSAFE} var + LastRet: PJclBinaryNode; +{$IFDEF THREADSAFE} CS: IInterface; {$ENDIF THREADSAFE} begin {$IFDEF THREADSAFE} CS := EnterCriticalSection; {$ENDIF THREADSAFE} - if (FCursor.Left <> FLastRet) and (FCursor.Right <> FLastRet) then - while FCursor.Left <> nil do - FCursor := FCursor.Left; - if (FCursor.Right <> nil) and (FCursor.Right <> FLastRet) then + Result := FCursor.Obj; + LastRet := FCursor; + FCursor := FCursor.Parent; + if (FCursor <> nil) and (FCursor.Right <> LastRet) then begin FCursor := FCursor.Right; - while FCursor.Left <> nil do - FCursor := FCursor.Left; - if FCursor.Right <> nil then // particular worst case - FCursor := FCursor.Right; + while (FCursor.Left <> nil) or (FCursor.Right <> nil) do + begin + if FCursor.Left <> nil then + FCursor := FCursor.Left + else + FCursor := FCursor.Right; + end; end; - Result := FCursor.Obj; - FLastRet := FCursor; - FCursor := FCursor.Parent; end; function TPostOrderItr.Previous: TObject; -{$IFDEF THREADSAFE} var + LastRet: PJclBinaryNode; +{$IFDEF THREADSAFE} CS: IInterface; {$ENDIF THREADSAFE} begin @@ -1167,15 +1126,17 @@ CS := EnterCriticalSection; {$ENDIF THREADSAFE} Result := FCursor.Obj; - FLastRet := FCursor; - if (FCursor.Right <> nil) and (FCursor.Right <> FLastRet) then + if (FCursor.Right <> nil) then FCursor := FCursor.Right + else if (FCursor.Left <> nil) then + FCursor := FCursor.Left else begin + LastRet := FCursor; FCursor := FCursor.Parent; - while (FCursor <> nil) and ((FCursor.Left = nil) or (FCursor.Left = FLastRet)) do + while (FCursor <> nil) and ((FCursor.Left = nil) or (FCursor.Left = LastRet)) do begin - FLastRet := FCursor; + LastRet := FCursor; FCursor := FCursor.Parent; end; if FCursor <> nil then // not root This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <ou...@us...> - 2006-05-12 20:16:40
|
Revision: 1646 Author: outchy Date: 2006-05-12 13:16:32 -0700 (Fri, 12 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1646&view=rev Log Message: ----------- Binary files deleted Removed Paths: ------------- trunk/jcl/examples/windows/edisdk/comserver/EDISDK.dll trunk/jcl/examples/windows/edisdk/vb5/Project1.exe Deleted: trunk/jcl/examples/windows/edisdk/comserver/EDISDK.dll =================================================================== (Binary files differ) Deleted: trunk/jcl/examples/windows/edisdk/vb5/Project1.exe =================================================================== (Binary files differ) This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <ou...@us...> - 2006-05-12 18:42:16
|
Revision: 1645 Author: outchy Date: 2006-05-12 11:42:05 -0700 (Fri, 12 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1645&view=rev Log Message: ----------- ResetAlphaOnAssign defaults to True Modified Paths: -------------- trunk/jcl/source/prototypes/_Graphics.pas trunk/jcl/source/vcl/JclGraphics.pas Modified: trunk/jcl/source/prototypes/_Graphics.pas =================================================================== --- trunk/jcl/source/prototypes/_Graphics.pas 2006-05-12 18:37:39 UTC (rev 1644) +++ trunk/jcl/source/prototypes/_Graphics.pas 2006-05-12 18:42:05 UTC (rev 1645) @@ -409,7 +409,7 @@ property MasterAlpha: Byte read FMasterAlpha write SetMasterAlpha default $FF; property OuterColor: TColor32 read FOuterColor write FOuterColor default 0; property StretchFilter: TStretchFilter read FStretchFilter write SetStretchFilter default sfNearest; - property ResetAlphaOnAssign: Boolean read FResetAlphaOnAssign write FResetAlphaOnAssign; + property ResetAlphaOnAssign: Boolean read FResetAlphaOnAssign write FResetAlphaOnAssign default true; property OnChanging; property OnChange; end; Modified: trunk/jcl/source/vcl/JclGraphics.pas =================================================================== --- trunk/jcl/source/vcl/JclGraphics.pas 2006-05-12 18:37:39 UTC (rev 1644) +++ trunk/jcl/source/vcl/JclGraphics.pas 2006-05-12 18:42:05 UTC (rev 1645) @@ -392,7 +392,7 @@ property MasterAlpha: Byte read FMasterAlpha write SetMasterAlpha default $FF; property OuterColor: TColor32 read FOuterColor write FOuterColor default 0; property StretchFilter: TStretchFilter read FStretchFilter write SetStretchFilter default sfNearest; - property ResetAlphaOnAssign: Boolean read FResetAlphaOnAssign write FResetAlphaOnAssign; + property ResetAlphaOnAssign: Boolean read FResetAlphaOnAssign write FResetAlphaOnAssign default true; property OnChanging; property OnChange; end; @@ -2115,6 +2115,7 @@ Result := True; end; + //=== { TJclDesktopCanvas } ================================================== constructor TJclDesktopCanvas.Create; @@ -4896,6 +4897,7 @@ Bitmap.Changed; end; + procedure QSortLine(const ALine: TScanLine; L, R: Integer); var I, J, P: Integer; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <ou...@us...> - 2006-05-12 18:37:49
|
Revision: 1644 Author: outchy Date: 2006-05-12 11:37:39 -0700 (Fri, 12 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1644&view=rev Log Message: ----------- Fixed UTF8 BOM Modified Paths: -------------- trunk/jcl/source/prototypes/_Graphics.pas trunk/jcl/source/vcl/JclGraphics.pas trunk/jcl/source/visclx/JclQGraphics.pas Modified: trunk/jcl/source/prototypes/_Graphics.pas =================================================================== --- trunk/jcl/source/prototypes/_Graphics.pas 2006-05-12 18:32:37 UTC (rev 1643) +++ trunk/jcl/source/prototypes/_Graphics.pas 2006-05-12 18:37:39 UTC (rev 1644) @@ -1,4 +1,4 @@ -{**************************************************************************************************} +{**************************************************************************************************} { } { Project JEDI Code Library (JCL) } { } Modified: trunk/jcl/source/vcl/JclGraphics.pas =================================================================== --- trunk/jcl/source/vcl/JclGraphics.pas 2006-05-12 18:32:37 UTC (rev 1643) +++ trunk/jcl/source/vcl/JclGraphics.pas 2006-05-12 18:37:39 UTC (rev 1644) @@ -2,7 +2,7 @@ { WARNING: JEDI preprocessor generated unit. Do not edit. } {**************************************************************************************************} -{**************************************************************************************************} +{**************************************************************************************************} { } { Project JEDI Code Library (JCL) } { } Modified: trunk/jcl/source/visclx/JclQGraphics.pas =================================================================== --- trunk/jcl/source/visclx/JclQGraphics.pas 2006-05-12 18:32:37 UTC (rev 1643) +++ trunk/jcl/source/visclx/JclQGraphics.pas 2006-05-12 18:37:39 UTC (rev 1644) @@ -2,7 +2,7 @@ { WARNING: JEDI preprocessor generated unit. Do not edit. } {**************************************************************************************************} -{**************************************************************************************************} +{**************************************************************************************************} { } { Project JEDI Code Library (JCL) } { } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <ou...@us...> - 2006-05-12 18:32:56
|
Revision: 1643 Author: outchy Date: 2006-05-12 11:32:37 -0700 (Fri, 12 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1643&view=rev Log Message: ----------- Mantis 3699: assign bitmap with alpha channel Modified Paths: -------------- trunk/jcl/source/prototypes/_Graphics.pas trunk/jcl/source/vcl/JclGraphics.pas trunk/jcl/source/visclx/JclQGraphics.pas Modified: trunk/jcl/source/prototypes/_Graphics.pas =================================================================== --- trunk/jcl/source/prototypes/_Graphics.pas 2006-05-12 09:16:36 UTC (rev 1642) +++ trunk/jcl/source/prototypes/_Graphics.pas 2006-05-12 18:32:37 UTC (rev 1643) @@ -1,4 +1,4 @@ -{**************************************************************************************************} +{**************************************************************************************************} { } { Project JEDI Code Library (JCL) } { } @@ -275,6 +275,7 @@ FStipplePattern: TArrayOfColor32; FStippleStep: Single; FStretchFilter: TStretchFilter; + FResetAlphaOnAssign: Boolean; function GetPixel(X, Y: Integer): TColor32; function GetPixelS(X, Y: Integer): TColor32; function GetPixelPtr(X, Y: Integer): PColor32; @@ -408,6 +409,7 @@ property MasterAlpha: Byte read FMasterAlpha write SetMasterAlpha default $FF; property OuterColor: TColor32 read FOuterColor write FOuterColor default 0; property StretchFilter: TStretchFilter read FStretchFilter write SetStretchFilter default sfNearest; + property ResetAlphaOnAssign: Boolean read FResetAlphaOnAssign write FResetAlphaOnAssign; property OnChanging; property OnChange; end; @@ -2625,6 +2627,9 @@ constructor TJclBitmap32.Create; begin inherited Create; + + FResetAlphaOnAssign := True; + FillChar(FBitmapInfo, SizeOf(TBitmapInfo), #0); with FBitmapInfo.bmiHeader do begin @@ -2751,7 +2756,8 @@ if Empty then Exit; BitBlt(Handle, 0, 0, Width, Height, SrcBmp.Canvas.Handle, 0, 0, SRCCOPY); - ResetAlpha; + if ResetAlphaOnAssign then + ResetAlpha; end; begin @@ -2793,7 +2799,8 @@ try Canvas.Handle := Self.Handle; TJclGraphicAccess(Graphic).Draw(Canvas, Rect(0, 0, Width, Height)); - ResetAlpha; + if ResetAlphaOnAssign then + ResetAlpha; finally Canvas.Free; end; @@ -2814,7 +2821,8 @@ try Canvas.Handle := Self.Handle; TJclGraphicAccess(Picture.Graphic).Draw(Canvas, Rect(0, 0, Width, Height)); - ResetAlpha; + if ResetAlphaOnAssign then + ResetAlpha; finally Canvas.Free; end; Modified: trunk/jcl/source/vcl/JclGraphics.pas =================================================================== --- trunk/jcl/source/vcl/JclGraphics.pas 2006-05-12 09:16:36 UTC (rev 1642) +++ trunk/jcl/source/vcl/JclGraphics.pas 2006-05-12 18:32:37 UTC (rev 1643) @@ -2,7 +2,7 @@ { WARNING: JEDI preprocessor generated unit. Do not edit. } {**************************************************************************************************} -{**************************************************************************************************} +{**************************************************************************************************} { } { Project JEDI Code Library (JCL) } { } @@ -258,6 +258,7 @@ FStipplePattern: TArrayOfColor32; FStippleStep: Single; FStretchFilter: TStretchFilter; + FResetAlphaOnAssign: Boolean; function GetPixel(X, Y: Integer): TColor32; function GetPixelS(X, Y: Integer): TColor32; function GetPixelPtr(X, Y: Integer): PColor32; @@ -391,6 +392,7 @@ property MasterAlpha: Byte read FMasterAlpha write SetMasterAlpha default $FF; property OuterColor: TColor32 read FOuterColor write FOuterColor default 0; property StretchFilter: TStretchFilter read FStretchFilter write SetStretchFilter default sfNearest; + property ResetAlphaOnAssign: Boolean read FResetAlphaOnAssign write FResetAlphaOnAssign; property OnChanging; property OnChange; end; @@ -2554,6 +2556,9 @@ constructor TJclBitmap32.Create; begin inherited Create; + + FResetAlphaOnAssign := True; + FillChar(FBitmapInfo, SizeOf(TBitmapInfo), #0); with FBitmapInfo.bmiHeader do begin @@ -2678,7 +2683,8 @@ if Empty then Exit; BitBlt(Handle, 0, 0, Width, Height, SrcBmp.Canvas.Handle, 0, 0, SRCCOPY); - ResetAlpha; + if ResetAlphaOnAssign then + ResetAlpha; end; begin @@ -2720,7 +2726,8 @@ try Canvas.Handle := Self.Handle; TJclGraphicAccess(Graphic).Draw(Canvas, Rect(0, 0, Width, Height)); - ResetAlpha; + if ResetAlphaOnAssign then + ResetAlpha; finally Canvas.Free; end; @@ -2741,7 +2748,8 @@ try Canvas.Handle := Self.Handle; TJclGraphicAccess(Picture.Graphic).Draw(Canvas, Rect(0, 0, Width, Height)); - ResetAlpha; + if ResetAlphaOnAssign then + ResetAlpha; finally Canvas.Free; end; Modified: trunk/jcl/source/visclx/JclQGraphics.pas =================================================================== --- trunk/jcl/source/visclx/JclQGraphics.pas 2006-05-12 09:16:36 UTC (rev 1642) +++ trunk/jcl/source/visclx/JclQGraphics.pas 2006-05-12 18:32:37 UTC (rev 1643) @@ -2,7 +2,7 @@ { WARNING: JEDI preprocessor generated unit. Do not edit. } {**************************************************************************************************} -{**************************************************************************************************} +{**************************************************************************************************} { } { Project JEDI Code Library (JCL) } { } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <ou...@us...> - 2006-05-12 09:16:42
|
Revision: 1642 Author: outchy Date: 2006-05-12 02:16:36 -0700 (Fri, 12 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1642&view=rev Log Message: ----------- localization tips Modified Paths: -------------- trunk/jcl/install/JediRegInfo.pas Modified: trunk/jcl/install/JediRegInfo.pas =================================================================== --- trunk/jcl/install/JediRegInfo.pas 2006-05-12 09:14:51 UTC (rev 1641) +++ trunk/jcl/install/JediRegInfo.pas 2006-05-12 09:16:36 UTC (rev 1642) @@ -126,10 +126,10 @@ if Reg.OpenKey(ProjectKeyName, False) then begin - Reg.DeleteValue('Version'); - Reg.DeleteValue('DcpDir'); - Reg.DeleteValue('BplDir'); - Reg.DeleteValue('RootDir'); + Reg.DeleteValue('Version'); // do not localize + Reg.DeleteValue('DcpDir'); // do not localize + Reg.DeleteValue('BplDir'); // do not localize + Reg.DeleteValue('RootDir'); // do not localize Names := TStringList.Create; try This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <ou...@us...> - 2006-05-12 09:14:59
|
Revision: 1641 Author: outchy Date: 2006-05-12 02:14:51 -0700 (Fri, 12 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1641&view=rev Log Message: ----------- Other versions are not uninstalled on compilation failure. Modified Paths: -------------- trunk/jcl/install/JclInstall.pas Modified: trunk/jcl/install/JclInstall.pas =================================================================== --- trunk/jcl/install/JclInstall.pas 2006-05-12 08:37:46 UTC (rev 1640) +++ trunk/jcl/install/JclInstall.pas 2006-05-12 09:14:51 UTC (rev 1641) @@ -2568,7 +2568,9 @@ if not KeepSettings then TJclInstallation(FTargetInstalls[I]).RemoveSettings; TJclInstallation(FTargetInstalls[I]).Undo; - Result := Result and TJclInstallation(FTargetInstalls[I]).Run; + Result := TJclInstallation(FTargetInstalls[I]).Run; + if not Result then + Break; end; finally Tool.UpdateStatus(''); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <mar...@us...> - 2006-05-12 08:37:54
|
Revision: 1640 Author: marquardt Date: 2006-05-12 01:37:46 -0700 (Fri, 12 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1640&view=rev Log Message: ----------- new functions to test for installed programs with automation interface (IsWordInstalled etc) Modified Paths: -------------- trunk/jcl/source/common/JclSysInfo.pas Modified: trunk/jcl/source/common/JclSysInfo.pas =================================================================== --- trunk/jcl/source/common/JclSysInfo.pas 2006-05-11 16:45:51 UTC (rev 1639) +++ trunk/jcl/source/common/JclSysInfo.pas 2006-05-12 08:37:46 UTC (rev 1640) @@ -74,7 +74,7 @@ System.Net, System.ComponentModel, {$ELSE ~CLR} {$IFDEF MSWINDOWS} - Windows, + Windows, ActiveX, {$IFNDEF FPC} ShlObj, {$ENDIF ~FPC} @@ -1102,6 +1102,17 @@ function GetFreeSystemResources(const ResourceType: TFreeSysResKind): Integer; overload; function GetFreeSystemResources: TFreeSystemResources; overload; function GetBPP: Cardinal; + +// installed programs information +function ProgIDExists(const ProgID: string): Boolean; +function IsWordInstalled: Boolean; +function IsExcelInstalled: Boolean; +function IsAccessInstalled: Boolean; +function IsPowerPointInstalled: Boolean; +function IsFrontPageInstalled: Boolean; +function IsOutlookInstalled: Boolean; +function IsInternetExplorerInstalled: Boolean; + {$ENDIF MSWINDOWS} // Public global variables @@ -5206,6 +5217,52 @@ Result := 0; end; +//=== Installed programs ===================================================== + +function ProgIDExists(const ProgID: string): Boolean; +var + Tmp: TGUID; + WideProgID: WideString; +begin + WideProgID := ProgID; + Result := Succeeded(CLSIDFromProgID(PWideChar(WideProgID), Tmp)); +end; + +function IsWordInstalled: Boolean; +begin + Result := ProgIDExists('Word.Application'); +end; + +function IsExcelInstalled: Boolean; +begin + Result := ProgIDExists('Excel.Application'); +end; + +function IsAccessInstalled: Boolean; +begin + Result := ProgIDExists('Access.Application'); +end; + +function IsPowerPointInstalled: Boolean; +begin + Result := ProgIDExists('PowerPoint.Application'); +end; + +function IsFrontPageInstalled: Boolean; +begin + Result := ProgIDExists('FrontPage.Application'); +end; + +function IsOutlookInstalled: Boolean; +begin + Result := ProgIDExists('Outlook.Application'); +end; + +function IsInternetExplorerInstalled: Boolean; +begin + Result := ProgIDExists('InternetExplorer.Application'); +end; + //=== Initialization/Finalization ============================================ procedure InitSysInfo; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <ah...@us...> - 2006-05-11 16:46:07
|
Revision: 1639 Author: ahuser Date: 2006-05-11 09:45:51 -0700 (Thu, 11 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1639&view=rev Log Message: ----------- A little bit fast Modified Paths: -------------- trunk/jcl/source/windows/JclTD32.pas Modified: trunk/jcl/source/windows/JclTD32.pas =================================================================== --- trunk/jcl/source/windows/JclTD32.pas 2006-05-09 18:46:27 UTC (rev 1638) +++ trunk/jcl/source/windows/JclTD32.pas 2006-05-11 16:45:51 UTC (rev 1639) @@ -1151,15 +1151,19 @@ begin Count := PDWORD(pSubsection)^; pszName := PChar(DWORD(pSubsection) + SizeOf(DWORD)); - for I := 0 to Count - 1 do + if Count > 0 then begin - // Get the length of the name - Len := Ord(pszName^); - Inc(pszName); - // Get the name - FNames.Add(pszName); - // skip the length of name and a NULL at the end - Inc(pszName, Len + 1); + FNames.Capacity := FNames.Capacity + Count; + for I := 0 to Count - 1 do + begin + // Get the length of the name + Len := Ord(pszName^); + Inc(pszName); + // Get the name + FNames.Add(pszName); + // skip the length of name and a NULL at the end + Inc(pszName, Len + 1); + end; end; end; @@ -1267,9 +1271,9 @@ begin pTyp := PSymbolTypeInfo(pTypes); repeat - case pTyp.TypeId of + {case pTyp.TypeId of TID_VOID: ; - end; + end;} pTyp := PSymbolTypeInfo(DWORD(pTyp) + pTyp.Size + SizeOf(pTyp^)); until DWORD(pTyp) >= DWORD(pTypes) + Size; end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <ob...@us...> - 2006-05-09 18:46:35
|
Revision: 1638 Author: obones Date: 2006-05-09 11:46:27 -0700 (Tue, 09 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1638&view=rev Log Message: ----------- D5/C5 compatibility Removed unsupported language feature in BCB (Comp type) Modified Paths: -------------- trunk/jcl/source/common/JclStreams.pas Modified: trunk/jcl/source/common/JclStreams.pas =================================================================== --- trunk/jcl/source/common/JclStreams.pas 2006-05-08 08:06:39 UTC (rev 1637) +++ trunk/jcl/source/common/JclStreams.pas 2006-05-09 18:46:27 UTC (rev 1638) @@ -241,7 +241,9 @@ function IsEqual(Stream: TStream): Boolean; function ReadBoolean: Boolean; function ReadChar: Char; + {$IFNDEF BCB} function ReadComp: Comp; + {$ENDIF !BCB} function ReadCurrency: Currency; function ReadDateTime: TDateTime; function ReadDouble: Double; @@ -764,10 +766,7 @@ procedure TJclStreamDecorator.SetSize(const NewSize: Int64); begin if Assigned(FStream) then - {$IFDEF COMPILER5} - if (Stream is TJclStream) or ((Offset <= MaxLongint) and (Offset > -MaxLongint)) then - {$ENDIF COMPILER5} - Stream.Size := NewSize; + Stream.Size := NewSize; end; procedure TJclStreamDecorator.SetStream(Value: TStream); @@ -1063,10 +1062,12 @@ ReadBuffer(Result, SizeOf(Result)); end; +{$IFNDEF BCB} function TJclEasyStream.ReadComp: Comp; begin ReadBuffer(Result, SizeOf(Result)); end; +{$ENDIF !BCB} function TJclEasyStream.ReadCurrency: Currency; begin This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <mar...@us...> - 2006-05-08 08:06:48
|
Revision: 1637 Author: marquardt Date: 2006-05-08 01:06:39 -0700 (Mon, 08 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1637&view=rev Log Message: ----------- fix for TJclStreamDecorator improved Modified Paths: -------------- trunk/jcl/source/common/JclStreams.pas Modified: trunk/jcl/source/common/JclStreams.pas =================================================================== --- trunk/jcl/source/common/JclStreams.pas 2006-05-08 06:13:24 UTC (rev 1636) +++ trunk/jcl/source/common/JclStreams.pas 2006-05-08 08:06:39 UTC (rev 1637) @@ -732,6 +732,9 @@ if Assigned(FStream) then begin {$IFDEF COMPILER5} + if Stream is TJclStream then + Result := TJclStream(Stream).Seek(Offset, Origin) + else if (Offset <= MaxLongint) or (Offset > -MaxLongint) then Result := Stream.Seek(Longint(Offset), Ord(Origin)) else @@ -762,7 +765,7 @@ begin if Assigned(FStream) then {$IFDEF COMPILER5} - if (Offset <= MaxLongint) or (Offset > -MaxLongint) then + if (Stream is TJclStream) or ((Offset <= MaxLongint) and (Offset > -MaxLongint)) then {$ENDIF COMPILER5} Stream.Size := NewSize; end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <mar...@us...> - 2006-05-08 06:13:32
|
Revision: 1636 Author: marquardt Date: 2006-05-07 23:13:24 -0700 (Sun, 07 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1636&view=rev Log Message: ----------- fix for TJclStreamDecorator Modified Paths: -------------- trunk/jcl/source/common/JclStreams.pas Modified: trunk/jcl/source/common/JclStreams.pas =================================================================== --- trunk/jcl/source/common/JclStreams.pas 2006-05-07 09:14:16 UTC (rev 1635) +++ trunk/jcl/source/common/JclStreams.pas 2006-05-08 06:13:24 UTC (rev 1636) @@ -730,7 +730,16 @@ function TJclStreamDecorator.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; begin if Assigned(FStream) then - Result := Stream.Seek(Offset, Origin) + begin + {$IFDEF COMPILER5} + if (Offset <= MaxLongint) or (Offset > -MaxLongint) then + Result := Stream.Seek(Longint(Offset), Ord(Origin)) + else + Result := -1; + {$ELSE} + Result := Stream.Seek(Offset, Origin); + {$ENDIF COMPILER5} + end else Result := -1; end; @@ -752,7 +761,10 @@ procedure TJclStreamDecorator.SetSize(const NewSize: Int64); begin if Assigned(FStream) then - Stream.Size := NewSize; + {$IFDEF COMPILER5} + if (Offset <= MaxLongint) or (Offset > -MaxLongint) then + {$ENDIF COMPILER5} + Stream.Size := NewSize; end; procedure TJclStreamDecorator.SetStream(Value: TStream); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <ah...@us...> - 2006-05-07 09:14:25
|
Revision: 1635 Author: ahuser Date: 2006-05-07 02:14:16 -0700 (Sun, 07 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1635&view=rev Log Message: ----------- "const" for ModuleName: string (a little bit faster) Modified Paths: -------------- trunk/jcl/source/windows/JclPeImage.pas Modified: trunk/jcl/source/windows/JclPeImage.pas =================================================================== --- trunk/jcl/source/windows/JclPeImage.pas 2006-05-04 11:36:04 UTC (rev 1634) +++ trunk/jcl/source/windows/JclPeImage.pas 2006-05-07 09:14:16 UTC (rev 1635) @@ -938,7 +938,7 @@ function HookImport(Base: Pointer; const ModuleName, FunctionName: string; NewAddress: Pointer; var OriginalAddress: Pointer): Boolean; class function IsWin9xDebugThunk(P: Pointer): Boolean; - class function ReplaceImport(Base: Pointer; ModuleName: string; FromProc, ToProc: Pointer): Boolean; + class function ReplaceImport(Base: Pointer; const ModuleName: string; FromProc, ToProc: Pointer): Boolean; class function SystemBase: Pointer; procedure UnhookAll; function UnhookByNewAddress(NewAddress: Pointer): Boolean; @@ -5021,7 +5021,7 @@ Result := (PUSH = $68) and (JMP = $E9); end; -class function TJclPeMapImgHooks.ReplaceImport(Base: Pointer; ModuleName: string; +class function TJclPeMapImgHooks.ReplaceImport(Base: Pointer; const ModuleName: string; FromProc, ToProc: Pointer): Boolean; var FromProcDebugThunk, ImportThunk: PWin9xDebugThunk; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
|
From: <mar...@us...> - 2006-05-04 11:36:15
|
Revision: 1634 Author: marquardt Date: 2006-05-04 04:36:04 -0700 (Thu, 04 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1634&view=rev Log Message: ----------- bugfixes and new stream classes Modified Paths: -------------- trunk/jcl/source/common/JclResources.pas trunk/jcl/source/common/JclStreams.pas Modified: trunk/jcl/source/common/JclResources.pas =================================================================== --- trunk/jcl/source/common/JclResources.pas 2006-05-03 09:05:05 UTC (rev 1633) +++ trunk/jcl/source/common/JclResources.pas 2006-05-04 11:36:04 UTC (rev 1634) @@ -1532,6 +1532,12 @@ resourcestring RsInvalidSampleSize = 'Invalid sample size (%d)'; +//=== JclStreams ============================================================= +resourcestring + RsStreamsCreateError = 'Cannot create file %s'; + RsStreamsOpenError = 'Cannot open file %s'; + RsStreamsSetSizeError = 'Error setting stream size'; + //=== JclStrHashMap ========================================================== resourcestring RsStringHashMapMustBeEmpty = 'HashList: must be empty to set size to zero'; Modified: trunk/jcl/source/common/JclStreams.pas =================================================================== --- trunk/jcl/source/common/JclStreams.pas 2006-05-03 09:05:05 UTC (rev 1633) +++ trunk/jcl/source/common/JclStreams.pas 2006-05-04 11:36:04 UTC (rev 1634) @@ -32,6 +32,12 @@ interface uses + {$IFDEF MSWINDOWS} + Windows, + {$ENDIF MSWINDOWS} + {$IFDEF LINUX} + Libc, + {$ENDIF LINUX} SysUtils, Classes; type @@ -39,7 +45,7 @@ TSeekOrigin = (soBeginning, soCurrent, soEnd); {$ENDIF COMPILER5} - EJclStreamException = class(Exception); + EJclStreamError = class(Exception); // abstraction layer to support Delphi 5 and C++Builder 5 streams // 64 bit version of overloaded functions are introduced @@ -54,17 +60,44 @@ {$IFDEF COMPILER5} reintroduce; overload; virtual; {$ELSE} overload; override; {$ENDIF} end; - { classes that inherit from TJclStream should override these methods: - TMyJclStream = class(TJclStream) + //=== VCL stream replacements === + + TJclHandleStream = class(TJclStream) + private + FHandle: THandle; protected + procedure SetSize(NewSize: Longint); override; procedure SetSize(const NewSize: Int64); override; public + constructor Create(AHandle: THandle); virtual; function Read(var Buffer; Count: Longint): Longint; override; function Write(const Buffer; Count: Longint): Longint; override; function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; override; + property Handle: THandle read FHandle; end; + + TJclFileStream = class(TJclHandleStream) + public + constructor Create(const FileName: string; Mode: Word; Rights: Cardinal = 0); reintroduce; virtual; + destructor Destroy; override; + end; + + { + TJclCustomMemoryStream = class(TJclStream) + end; + + TJclMemoryStream = class(TJclCustomMemoryStream) + end; + + TJclStringStream = class(TJclStream) + end; + + TJclResourceStream = class(TJclCustomMemoryStream) + end; } + //=== new stream ideas === + TJclEmptyStream = class(TJclStream) protected procedure SetSize(NewSize: Longint); overload; override; @@ -276,6 +309,128 @@ // override to customize end; +//=== { TJclHandleStream } =================================================== + +constructor TJclHandleStream.Create(AHandle: THandle); +begin + inherited Create; + FHandle := AHandle; +end; + +function TJclHandleStream.Read(var Buffer; Count: Longint): Longint; +begin + {$IFDEF MSWINDOWS} + if (Count <= 0) or not ReadFile(Handle, Buffer, DWORD(Count), DWORD(Result), nil) then + Result := 0; + {$ENDIF MSWINDOWS} + {$IFDEF LINUX} + Result := __read(Handle, Buffer, Count); + {$ENDIF LINUX} +end; + +function TJclHandleStream.Write(const Buffer; Count: Longint): Longint; +begin + {$IFDEF MSWINDOWS} + if (Count <= 0) or not WriteFile(Handle, Buffer, DWORD(Count), DWORD(Result), nil) then + Result := 0; + {$ENDIF MSWINDOWS} + {$IFDEF LINUX} + Result := __write(Handle, Buffer, Count); + {$ENDIF LINUX} +end; + +{$IFDEF MSWINDOWS} +function TJclHandleStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; +const + INVALID_SET_FILE_POINTER = -1; +type + TLarge = record + case Boolean of + False: + (OffsetLo: Longint; + OffsetHi: Longint); + True: + (Offset64: Int64); + end; +var + Offs: TLarge; +begin + Offs.Offset64 := Offset; + Offs.OffsetLo := SetFilePointer(Handle, Offs.OffsetLo, @Offs.OffsetHi, Ord(Origin)); + if (Offs.OffsetLo = INVALID_SET_FILE_POINTER) and (GetLastError <> NO_ERROR) then + Result := -1 + else + Result := Offs.Offset64; +end; +{$ENDIF MSWINDOWS} +{$IFDEF LINUX} +function TJclHandleStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; +begin + Result := __lseek(Handle, Offset, Origin); +end; +{$ENDIF LINUX} + +procedure TJclHandleStream.SetSize(NewSize: Longint); +begin + SetSize(Int64(NewSize)); +end; + +procedure TJclHandleStream.SetSize(const NewSize: Int64); +begin + Seek(NewSize, soBeginning); + {$IFDEF MSWINDOWS} + if not SetEndOfFile(Handle) then + RaiseLastOSError; + {$ENDIF MSWINDOWS} + {$IFDEF LINUX} + if ftruncate(Handle, Position) = -1 then + raise EJclStreamError.CreateRes(@RsStreamsSetSizeError); + {$ENDIF LINUX} +end; + +//=== { TJclFileStream } ===================================================== + +constructor TJclFileStream.Create(const FileName: string; Mode: Word; Rights: Cardinal); +var + H: THandle; +begin + if Mode = fmCreate then + begin + H := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, + 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0); + inherited Create(H); + if Handle = INVALID_HANDLE_VALUE then + {$IFDEF CLR} + raise EJclStreamError.CreateFmt(RsStreamsCreateError, [FileName]); + {$ELSE} + raise EJclStreamError.CreateResFmt(@RsStreamsCreateError, [FileName]); + {$ENDIF CLR} + end + else + begin + H := THandle(FileOpen(FileName, Mode)); + inherited Create(H); + if Handle = INVALID_HANDLE_VALUE then + {$IFDEF CLR} + raise EJclStreamError.CreateFmt(RsStreamsOpenError, [FileName]); + {$ELSE} + raise EJclStreamError.CreateResFmt(@RsStreamsOpenError, [FileName]); + {$ENDIF CLR} + end; +end; + +destructor TJclFileStream.Destroy; +begin + {$IFDEF MSWINDOWS} + if Handle <> INVALID_HANDLE_VALUE then + CloseHandle(Handle); + {$ENDIF MSWINDOWS} + {$IFDEF LINUX} + __close(Handle); + {$ENDIF LINUX} + inherited Destroy; +end; + //=== { TJclEmptyStream } ==================================================== // a stream which stays empty no matter what you do @@ -331,8 +486,10 @@ begin if Count < 0 then Count := 0; + // FPosition > FSize is possible! if FSize - FPosition < Count then Count := FSize - FPosition; + // does not read if beyond EOF if Count > 0 then begin FillChar(Buffer, Count, 0); @@ -346,62 +503,35 @@ if Count < 0 then Count := 0; FPosition := FPosition + Count; + // writing when FPosition > FSize is possible! if FPosition > FSize then FSize := FPosition; Result := Count; end; function TJclNullStream.Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; +var + Rel: Int64; begin case Origin of soBeginning: - begin - if Offset >= 0 then - FPosition := Offset - else - FPosition := 0; - if FPosition > FSize then - begin - FPosition := FSize; - Result := -1; - end - else - Result := FPosition; - end; + Rel := 0; soCurrent: - begin - FPosition := FPosition + Offset; - if FPosition > FSize then - begin - FPosition := FSize; - Result := -1; - end - else - if FPosition < 0 then - begin - FPosition := 0; - Result := -1; - end - else - Result := FPosition; - end; + Rel := FPosition; soEnd: - begin - if Offset <= 0 then - FPosition := FSize + Offset // offset is negative - else - FPosition := FSize; - if FPosition < 0 then - begin - FPosition := 0; - Result := -1; - end - else - Result := FPosition; - end; + Rel := FSize; else + // force Rel + Offset = -1 (code is never reached) + Rel := Offset - 1; + end; + if Rel + Offset >= 0 then + begin + // all non-negative destination positions including beyond EOF are valid + FPosition := Rel + Offset; + Result := FPosition; + end + else Result := -1; - end; end; //=== { TJclRandomStream } =================================================== @@ -434,17 +564,14 @@ I: Longint; BufferPtr: PByte; begin - if Count < 0 then - Count := 0; - if Size - Position < Count then - Count := Size - Position; + // this handles all necessary checks + Count := inherited Read(Buffer, Count); BufferPtr := @Buffer; for I := 0 to Count - 1 do begin BufferPtr^ := RandomData; Inc(BufferPtr); end; - Position := Position + Count; Result := Count; end; @@ -873,38 +1000,40 @@ //=== { TJclEasyStream } ===================================================== function TJclEasyStream.IsEqual(Stream: TStream): Boolean; -type - TTestBuffer = array [0..4095] of Byte; +const + BUFSIZE = 65536; var - MyPos: Integer; - MyRead: Integer; - MyBuffer: TTestBuffer; - StreamPos: Integer; - StreamRead: Integer; - StreamBuffer: TTestBuffer; + SavePos, StreamSavePos: Integer; + ReadCount, StreamReadCount: Integer; + Buffer, StreamBuffer: PChar; TestSize: Integer; begin Result := False; - MyPos := Position; - StreamPos := Stream.Position; + SavePos := Position; + StreamSavePos := Stream.Position; if Size <> Stream.Size then Exit; + Buffer := nil; try + GetMem(Buffer, 2*BUFSIZE); + StreamBuffer := Buffer + BUFSIZE; Position := 0; Stream.Position := 0; TestSize := Size; while Position < TestSize do begin - MyRead := Read(MyBuffer, SizeOf(MyBuffer)); - StreamRead := Stream.Read(StreamBuffer, SizeOf(StreamBuffer)); - if MyRead <> StreamRead then + ReadCount := Read(Buffer^, BUFSIZE); + StreamReadCount := Stream.Read(StreamBuffer^, BUFSIZE); + if ReadCount <> StreamReadCount then Exit; - if not CompareMem(Addr(MyBuffer), Addr(StreamBuffer), MyRead) then + if not CompareMem(Buffer, StreamBuffer, ReadCount) then Exit; end; finally - Position := MyPos; - Stream.Position := StreamPos; + Position := SavePos; + Stream.Position := StreamSavePos; + if Buffer <> nil then + FreeMem(Buffer); end; Result := True; end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
49 messages has been excluded from this view by a project administrator.
