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: <ou...@us...> - 2008-08-07 21:54:16
|
Revision: 2412
http://jcl.svn.sourceforge.net/jcl/?rev=2412&view=rev
Author: outchy
Date: 2008-08-07 21:54:09 +0000 (Thu, 07 Aug 2008)
Log Message:
-----------
Reworked string, AnsiString and WideString support to avoid conflicts:
- sets are limited to 256 elements and cannot be used with WideChar, leading to many warnings when compiling with Delphi.net about possible data losses;
- "Ansi" should be used only for functions, identifiers, constants... linked to the AnsiChar type;
- JclStrings.pas should not contain anything about AnsiString/AnsiChar: moving remaining functions to JclAnsiStrings.pas;
- fixing examples, installer and thirdparty tools to be compatible with new JclStrings.pas interface.
Modified Paths:
--------------
trunk/jcl/examples/windows/delphitools/dependencyviewer/FileViewer.pas
trunk/jcl/experts/common/JclOtaResources.pas
trunk/jcl/experts/common/JclOtaUtils.pas
trunk/jcl/experts/debug/dialog/ClxExceptDlg.pas
trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas
trunk/jcl/experts/debug/dialog/ExceptDlg.pas
trunk/jcl/experts/debug/dialog/ExceptDlgMail.pas
trunk/jcl/experts/repository/JclOtaTemplates.pas
trunk/jcl/experts/useswizard/JCLUsesWizard.pas
trunk/jcl/experts/versioncontrol/JclVersionCtrlCommonOptions.pas
trunk/jcl/experts/versioncontrol/VersionControlImpl.pas
trunk/jcl/install/JclInstall.pas
trunk/jcl/source/common/JclAbstractContainers.pas
trunk/jcl/source/common/JclAnsiStrings.pas
trunk/jcl/source/common/JclBase.pas
trunk/jcl/source/common/JclBorlandTools.pas
trunk/jcl/source/common/JclComplex.pas
trunk/jcl/source/common/JclContainerIntf.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_UNEDIFACT.pas
trunk/jcl/source/common/JclExprEval.pas
trunk/jcl/source/common/JclFileUtils.pas
trunk/jcl/source/common/JclRTTI.pas
trunk/jcl/source/common/JclSimpleXml.pas
trunk/jcl/source/common/JclStrings.pas
trunk/jcl/source/common/JclSysUtils.pas
trunk/jcl/source/common/JclUnicode.pas
trunk/jcl/source/common/JclValidation.pas
trunk/jcl/source/common/JclWideStrings.pas
trunk/jcl/source/prototypes/JclContainerIntf.pas
trunk/jcl/source/windows/JclCLR.pas
trunk/jcl/source/windows/JclDebug.pas
trunk/jcl/source/windows/JclMapi.pas
trunk/jcl/source/windows/JclMetadata.pas
trunk/jcl/source/windows/JclMultimedia.pas
trunk/jcl/source/windows/JclPeImage.pas
trunk/jcl/source/windows/JclSecurity.pas
trunk/thirdparty/makedist/MakeDist.dpr
trunk/thirdparty/makedist/MakeDistActions.pas
Modified: trunk/jcl/examples/windows/delphitools/dependencyviewer/FileViewer.pas
===================================================================
--- trunk/jcl/examples/windows/delphitools/dependencyviewer/FileViewer.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/examples/windows/delphitools/dependencyviewer/FileViewer.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -99,7 +99,9 @@
implementation
-uses DependViewMain, ToolsUtils, JclSysInfo, JclStrings, JclFileUtils;
+uses
+ DependViewMain, ToolsUtils,
+ JclBase, JclSysInfo, JclStrings, JclFileUtils;
{$R *.DFM}
@@ -380,6 +382,8 @@
end;
function TFileViewerChild.GetWin32Function: String;
+const
+ BracketChars: array [0..1] of Char = ( '[', ']' );
begin
Result := '';
if IsListViewActiveAndFocused(ImportListView) then
@@ -392,7 +396,7 @@
if Pos('@', Result) > 0 then
Result := ''
else
- Result := StrRemoveChars(Result, ['[', ']']);
+ Result := StrRemoveChars(Result, BracketChars);
end;
procedure TFileViewerChild.ExportListViewData(Sender: TObject;
Modified: trunk/jcl/experts/common/JclOtaResources.pas
===================================================================
--- trunk/jcl/experts/common/JclOtaResources.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/experts/common/JclOtaResources.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -56,9 +56,9 @@
RsAboutDialogTitle = 'JEDI Code Library';
RsAboutCopyright = 'Copyright the JCL development team';
RsAboutTitle = 'JEDI Code Library';
- RsAboutDescription = 'JEDI Code Library http://jcl.sf.net' + AnsiLineBreak +
- 'The JCL is a member of the JEDI Project http://www.delphi-jedi.org' + AnsiLineBreak +
- 'Covered under the Mozilla Public License v1.1 (MPL 1.1)' + AnsiLineBreak +
+ RsAboutDescription = 'JEDI Code Library http://jcl.sf.net' + NativeLineBreak +
+ 'The JCL is a member of the JEDI Project http://www.delphi-jedi.org' + NativeLineBreak +
+ 'Covered under the Mozilla Public License v1.1 (MPL 1.1)' + NativeLineBreak +
'License available at http://www.mozilla.org/MPL/MPL-1.1.html';
RsAboutLicenceStatus = 'MPL 1.1';
RsJCLOptions = 'JCL Options...';
@@ -71,15 +71,15 @@
//=== JclExceptionForm.pas ===================================================
resourcestring
RsReportFormCaption = 'Exception in an expert of the JCL';
- RsExceptionDetails = 'An exception was raised in an expert of the JCL.' + AnsiLineBreak +
+ RsExceptionDetails = 'An exception was raised in an expert of the JCL.' + NativeLineBreak +
'The JCL development team expects quality and performance for the library.' +
'That''s why we highly encourage you to report this exception by quoting ' +
'your version of Delphi/BCB/BDS (including patch numbers), by explaining ' +
- 'steps to reproduce and by copying the call stack displayed in the box below.' + AnsiLineBreak +
- 'There are several ways to report bugs in the JCL:' + AnsiLineBreak +
- ' - issue tracker (recommended),' + AnsiLineBreak +
- ' - jedi newsgroups,' + AnsiLineBreak +
- ' - mailing list.' + AnsiLineBreak +
+ 'steps to reproduce and by copying the call stack displayed in the box below.' + NativeLineBreak +
+ 'There are several ways to report bugs in the JCL:' + NativeLineBreak +
+ ' - issue tracker (recommended),' + NativeLineBreak +
+ ' - jedi newsgroups,' + NativeLineBreak +
+ ' - mailing list.' + NativeLineBreak +
'Details and guidelines for these tools are available at:';
RsReportURL = 'http://homepages.borland.com/jedi/jcl/page24.html';
RsReportCaption = 'JCL - Feedback&&Support - Report a bug page';
@@ -222,11 +222,11 @@
resourcestring
RsENoProjectOptions = 'Project options are not available';
RsCantInsertToInstalledPackage = 'JCL Debug IDE Expert: Can not insert debug information to installed package' +
- AnsiLineBreak + '%s' + AnsiLineBreak + 'Would you like to disable the insertion of JCL Debug data ?';
+ NativeLineBreak + '%s' + NativeLineBreak + 'Would you like to disable the insertion of JCL Debug data ?';
RsChangeMapFileOption = 'JCL Debug expert: the project "%s" must be configured to generate a detailled MAP file.' +
- AnsiLineBreak + 'Do you want the expert to change this setting?';
+ NativeLineBreak + 'Do you want the expert to change this setting?';
RsDisabledDebugExpert = 'JCL Debug expert is disabled';
- RsCompilationAborted = 'JCL Debug data cannot be inserted to installed package' + AnsiLineBreak + 'Compilation aborted';
+ RsCompilationAborted = 'JCL Debug data cannot be inserted to installed package' + NativeLineBreak + 'Compilation aborted';
RsDebugExpertCaption = 'JCL Debug expert';
RsAlwaysDisabled = 'Always &disabled';
RsProjectDisabled = 'D&isabled for this project';
@@ -277,7 +277,7 @@
RsLong = '64-bit Core';
RsTrademarks =
- 'MMX is a trademark of Intel Corporation.' + AnsiLineBreak +
+ 'MMX is a trademark of Intel Corporation.' + NativeLineBreak +
'3DNow! is a registered trademark of Advanced Micro Devices.';
RsNoSIMD = 'No SIMD registers found';
Modified: trunk/jcl/experts/common/JclOtaUtils.pas
===================================================================
--- trunk/jcl/experts/common/JclOtaUtils.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/experts/common/JclOtaUtils.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -365,8 +365,8 @@
LoadNextBuffer;
case Buffer[BufferPosition + 1] of
- AnsiLineFeed,
- AnsiCarriageReturn:
+ NativeLineFeed,
+ NativeCarriageReturn:
begin
if InsideLineComment and not (InsideComment or InsideBrace) then
begin
@@ -462,7 +462,7 @@
// end of comments
Break;
else
- if not (Buffer[BufferPosition + 1] in AnsiWhiteSpace) and not InsideLineComment
+ if not CharIsWhiteSpace(Buffer[BufferPosition + 1]) and not InsideLineComment
and not InsideComment and not InsideBrace then
// end of comments
Break;
@@ -505,7 +505,7 @@
SetLength(Result[PropIndex], BufferSize);
SetLength(Result[PropIndex], AReader.GetText(PropLocations[PropIndex], PAnsiChar(Result[PropIndex]), BufferSize));
for BufferIndex := 1 to Length(Result[PropIndex]) do
- if Result[PropIndex][BufferIndex] in [AnsiCarriageReturn, AnsiLineFeed] then
+ if CharIsWhiteSpace(Result[PropIndex][BufferIndex]) then
begin
SetLength(Result[PropIndex], BufferIndex - 1);
Break;
@@ -558,7 +558,7 @@
SetLength(Buffer, BufferSize);
SetLength(Buffer, AReader.GetText(PropLocations[0], PAnsiChar(Buffer), BufferSize));
for BufferIndex := 1 to Length(Buffer) do
- if Buffer[BufferIndex] in [AnsiCarriageReturn, AnsiLineFeed] then
+ if CharIsWhiteSpace(Buffer[BufferIndex]) then
begin
PropSize := BufferIndex - 1;
Break;
@@ -580,7 +580,7 @@
else
begin
AWriter.CopyTo(-PropLocations[0]);
- AWriter.Insert(PAnsiChar(Format('// %s %s%s', [PropIDs[PropIndex], PropValues[PropIndex], AnsiLineBreak])));
+ AWriter.Insert(PAnsiChar(Format('// %s %s%s', [PropIDs[PropIndex], PropValues[PropIndex], NativeLineBreak])));
end;
finally
// release the writter before allocating the reader
@@ -624,7 +624,7 @@
if not Assigned(OTAServices) then
raise EJclExpertException.CreateTrace(RsENoIDEServices);
- FBaseKeyName := StrEnsureSuffix(AnsiBackSlash, OTAServices.GetBaseRegistryKey);
+ FBaseKeyName := StrEnsureSuffix(NativeBackSlash, OTAServices.GetBaseRegistryKey);
FKeyName := BaseKeyName + RegJclIDEKey + ExpertName;
end;
Modified: trunk/jcl/experts/debug/dialog/ClxExceptDlg.pas
===================================================================
--- trunk/jcl/experts/debug/dialog/ClxExceptDlg.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/experts/debug/dialog/ClxExceptDlg.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -314,7 +314,7 @@
SL.Text := Text;
for I := 0 to SL.Count - 1 do
begin
- S := StringOfChar(' ', Indent) + StrEnsureSuffix(AnsiCrLf, TrimRight(SL[I]));
+ S := StringOfChar(' ', Indent) + StrEnsureSuffix(NativeCrLf, TrimRight(SL[I]));
FileWrite(Integer(FLogFileHandle), Pointer(S)^, Length(S));
end;
finally
@@ -342,7 +342,7 @@
SeparatorLen := Max(SeparatorLen, 20);
OpenLog;
if not FLogWasEmpty then
- Write(AnsiCrLf);
+ Write(NativeCrLf);
Write(StrRepeat('=', SeparatorLen));
Write(Format('= %-*s =', [SeparatorLen - 4, DateTimeToStr(Now)]));
Write(StrRepeat('=', SeparatorLen));
@@ -596,7 +596,7 @@
function TExceptionDialog.GetReportAsText: string;
begin
- Result := StrEnsureSuffix(AnsiCrLf, TextLabel.Text) + AnsiCrLf + DetailsMemo.Text;
+ Result := StrEnsureSuffix(NativeCrLf, TextLabel.Text) + NativeCrLf + DetailsMemo.Text;
end;
//--------------------------------------------------------------------------------------------------
@@ -638,11 +638,13 @@
//--------------------------------------------------------------------------------------------------
procedure TExceptionDialog.SetDetailsVisible(const Value: Boolean);
+const
+ DirectionChars: array [0..1] of Char = ( '<', '>' );
var
DetailsCaption: string;
begin
FDetailsVisible := Value;
- DetailsCaption := Trim(StrRemoveChars(DetailsBtn.Caption, ['<', '>']));
+ DetailsCaption := Trim(StrRemoveChars(DetailsBtn.Caption, DirectionChars));
if Value then
begin
Constraints.MinHeight := FNonDetailsHeight + 100;
Modified: trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas
===================================================================
--- trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/experts/debug/dialog/ExceptDlg.Delphi32.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -562,7 +562,7 @@
function T%FORMNAME%.GetReportAsText: string;
begin
- Result := StrEnsureSuffix(AnsiCrLf, TextLabel.Text) + AnsiCrLf + DetailsMemo.Text;
+ Result := StrEnsureSuffix(NativeCrLf, TextLabel.Text) + NativeCrLf + DetailsMemo.Text;
end;
//--------------------------------------------------------------------------------------------------
@@ -594,11 +594,13 @@
//--------------------------------------------------------------------------------------------------
procedure T%FORMNAME%.SetDetailsVisible(const Value: Boolean);
+const
+ DirectionChars: array [0..1] of Char = ( '<', '>' );
var
DetailsCaption: string;
begin
FDetailsVisible := Value;
- DetailsCaption := Trim(StrRemoveChars(DetailsBtn.Caption, ['<', '>']));
+ DetailsCaption := Trim(StrRemoveChars(DetailsBtn.Caption, DirectionChars));
if Value then
begin
Constraints.MinHeight := FNonDetailsHeight + 100;
Modified: trunk/jcl/experts/debug/dialog/ExceptDlg.pas
===================================================================
--- trunk/jcl/experts/debug/dialog/ExceptDlg.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/experts/debug/dialog/ExceptDlg.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -506,7 +506,7 @@
function TExceptionDialog.GetReportAsText: string;
begin
- Result := StrEnsureSuffix(AnsiCrLf, TextLabel.Text) + AnsiCrLf + DetailsMemo.Text;
+ Result := StrEnsureSuffix(NativeCrLf, TextLabel.Text) + NativeCrLf + DetailsMemo.Text;
end;
//--------------------------------------------------------------------------------------------------
@@ -538,11 +538,13 @@
//--------------------------------------------------------------------------------------------------
procedure TExceptionDialog.SetDetailsVisible(const Value: Boolean);
+const
+ DirectionChars: array [0..1] of Char = ( '<', '>' );
var
DetailsCaption: string;
begin
FDetailsVisible := Value;
- DetailsCaption := Trim(StrRemoveChars(DetailsBtn.Caption, ['<', '>']));
+ DetailsCaption := Trim(StrRemoveChars(DetailsBtn.Caption, DirectionChars));
if Value then
begin
Constraints.MinHeight := FNonDetailsHeight + 100;
Modified: trunk/jcl/experts/debug/dialog/ExceptDlgMail.pas
===================================================================
--- trunk/jcl/experts/debug/dialog/ExceptDlgMail.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/experts/debug/dialog/ExceptDlgMail.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -526,7 +526,7 @@
function TExceptionDialogMail.GetReportAsText: string;
begin
- Result := StrEnsureSuffix(AnsiCrLf, TextLabel.Text) + AnsiCrLf + DetailsMemo.Text;
+ Result := StrEnsureSuffix(NativeCrLf, TextLabel.Text) + NativeCrLf + DetailsMemo.Text;
end;
//--------------------------------------------------------------------------------------------------
@@ -558,11 +558,13 @@
//--------------------------------------------------------------------------------------------------
procedure TExceptionDialogMail.SetDetailsVisible(const Value: Boolean);
+const
+ DirectionChars: array [0..1] of Char = ( '<', '>' );
var
DetailsCaption: string;
begin
FDetailsVisible := Value;
- DetailsCaption := Trim(StrRemoveChars(DetailsBtn.Caption, ['<', '>']));
+ DetailsCaption := Trim(StrRemoveChars(DetailsBtn.Caption, DirectionChars));
if Value then
begin
Constraints.MinHeight := FNonDetailsHeight + 100;
Modified: trunk/jcl/experts/repository/JclOtaTemplates.pas
===================================================================
--- trunk/jcl/experts/repository/JclOtaTemplates.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/experts/repository/JclOtaTemplates.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -121,7 +121,7 @@
Count: Integer): Integer;
begin
Result := Index;
- while (Result <= Count) and (Str[Result] in AnsiWhiteSpace) do
+ while (Result <= Count) and CharIsWhiteSpace(Str[Result]) do
Inc(Result);
end;
function GetIdentifier(const Str: string; var Index: Integer;
@@ -202,13 +202,13 @@
case Params.Language of
bpDelphi32:
begin
- StrValue := StringReplace(StrValue, AnsiSingleQuote, AnsiSingleQuote + AnsiSingleQuote, [rfReplaceAll]);
- StrValue := AnsiSingleQuote + StrValue + AnsiSingleQuote;
+ StrValue := StringReplace(StrValue, NativeSingleQuote, NativeSingleQuote + NativeSingleQuote, [rfReplaceAll]);
+ StrValue := NativeSingleQuote + StrValue + NativeSingleQuote;
end;
bpBCBuilder32:
begin
- StrValue := StringReplace(StrValue, AnsiDoubleQuote, AnsiBackslash + AnsiDoubleQuote, [rfReplaceAll]);
- StrValue := AnsiDoubleQuote + StrValue + AnsiDoubleQuote;
+ StrValue := StringReplace(StrValue, NativeDoubleQuote, NativeBackslash + NativeDoubleQuote, [rfReplaceAll]);
+ StrValue := NativeDoubleQuote + StrValue + NativeDoubleQuote;
end;
end;
CopyStr(Result, IndexOutput, CharCountOut, StrValue, 1, Length(StrValue));
@@ -242,7 +242,7 @@
begin
RepeatCount := Params.GetIntValue(Symbol);
StrIndex := TokenPos;
- while (StrIndex <= CharCountIn) and not (Template[StrIndex] in [AnsiLineFeed, AnsiCarriageReturn]) do
+ while (StrIndex <= CharCountIn) and not CharIsWhiteSpace(Template[StrIndex]) do
Inc(StrIndex);
RepeatPattern := Copy(Template, TokenPos, StrIndex - TokenPos);
TokenPos := StrIndex;
@@ -264,7 +264,7 @@
StrIndex := Pos('%', StrValue);
end;
CopyStr(Result, IndexOutput, CharCountOut, StrValue, 1, Length(StrValue));
- CopyStr(Result, IndexOutput, CharCountOut, AnsiLineBreak, 1, Length(AnsiLineBreak));
+ CopyStr(Result, IndexOutput, CharCountOut, NativeLineBreak, 1, Length(NativeLineBreak));
Dec(RepeatCount);
end;
end;
Modified: trunk/jcl/experts/useswizard/JCLUsesWizard.pas
===================================================================
--- trunk/jcl/experts/useswizard/JCLUsesWizard.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/experts/useswizard/JCLUsesWizard.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -497,7 +497,7 @@
var
DefaultIniFile, DefaultRegKey: string;
begin
- DefaultRegKey := StrEnsureSuffix(AnsiBackslash, Services.GetBaseRegistryKey) + RegJclKey;
+ DefaultRegKey := StrEnsureSuffix(NativeBackslash, Services.GetBaseRegistryKey) + RegJclKey;
DefaultIniFile := RegReadStringDef(HKCU, DefaultRegKey, JclRootDirValueName, '');
if DefaultIniFile <> '' then
DefaultIniFile := PathAddSeparator(DefaultIniFile) + JclIniFileLocation;
Modified: trunk/jcl/experts/versioncontrol/JclVersionCtrlCommonOptions.pas
===================================================================
--- trunk/jcl/experts/versioncontrol/JclVersionCtrlCommonOptions.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/experts/versioncontrol/JclVersionCtrlCommonOptions.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -508,7 +508,7 @@
else
begin
ControlAction := TCustomAction(PopupMenuActions.Items.Items[AAction].Tag);
- ATreeNode := TreeViewMenu.Items.Add(nil, StrRemoveChars(ControlAction.Caption, ['&']));
+ ATreeNode := TreeViewMenu.Items.Add(nil, StrRemoveChars(ControlAction.Caption, CharIsAmpersand));
ATreeNode.Data := ControlAction;
ATreeNode.ImageIndex := ControlAction.ImageIndex;
ATreeNode.SelectedIndex := ControlAction.ImageIndex;
@@ -530,7 +530,7 @@
else
begin
ControlAction := TCustomAction(PopupMenuActions.Items.Items[AAction].Tag);
- BTreeNode := TreeViewMenu.Items.AddChild(ATreeNode, StrRemoveChars(ControlAction.Caption, ['&']));
+ BTreeNode := TreeViewMenu.Items.AddChild(ATreeNode, StrRemoveChars(ControlAction.Caption, CharIsAmpersand));
BTreeNode.ImageIndex := ControlAction.ImageIndex;
BTreeNode.SelectedIndex := ControlAction.ImageIndex;
BTreeNode.Data := ControlAction;
@@ -545,10 +545,20 @@
CheckBoxSaveConfirmation.Checked := Value;
end;
+function CharIsInvalid(const C: Char): Boolean;
+begin
+ case C of
+ '\', '_', '0'..'9':
+ Result := True;
+ else
+ Result := False;
+ end;
+end;
+
procedure TJclVersionCtrlOptionsFrame.TreeViewMenuEdited(Sender: TObject;
Node: TTreeNode; var S: string);
begin
- if StrContainsChars(S, ['\', '_', '0'..'9'], True) then
+ if StrContainsChars(S, CharIsInvalid, True) then
begin
S := Node.Text;
MessageDlg(RsEInvalidMenuCaption, mtError, [mbAbort], 0);
Modified: trunk/jcl/experts/versioncontrol/VersionControlImpl.pas
===================================================================
--- trunk/jcl/experts/versioncontrol/VersionControlImpl.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/experts/versioncontrol/VersionControlImpl.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -21,7 +21,7 @@
{ }
{**************************************************************************************************}
{ }
-{ Last modified: $Date:: $ }
+{ Last modified: $Date:: $ }
{ Revision: $Rev:: $ }
{ Author: $Author:: $ }
{ }
@@ -248,6 +248,8 @@
function GetItemIndexB(const Item: string): Integer;
function GetItemName(const Item: string): string;
+function CharIsAmpersand(const C: Char): Boolean;
+
implementation
uses
@@ -255,6 +257,11 @@
JclDebug, JclFileUtils, JclRegistry, JclShell, JclStrings,
JclOtaConsts, JclOtaResources;
+function CharIsAmpersand(const C: Char): Boolean;
+begin
+ Result := C = '&';
+end;
+
//=== VersionControlImpl.pas ===================================================
const
// vcaAdd
@@ -450,7 +457,7 @@
begin
Result := 0;
for Index := 1 to Length(Item) do
- if not (Item[Index] in AnsiDecDigits) then
+ if not CharIsDigit(Item[Index]) then
begin
Result := StrToInt(Copy(Item, 1, Index - 1));
Exit;
@@ -464,7 +471,7 @@
begin
Result := -1;
for Index := Length(Item) downto 1 do
- if not (Item[Index] in AnsiDecDigits) then
+ if not CharIsDigit(Item[Index]) then
begin
if Index < Length(Item) then
Result := StrToInt(Copy(Item, Index + 1, Length(Item) - Index));
@@ -477,7 +484,7 @@
Index1, Index2: Integer;
begin
for Index1 := 1 to Length(Item) do
- if not (Item[Index1] in AnsiDecDigits) then
+ if not CharIsDigit(Item[Index1]) then
begin
if Index1 = 1 then
Abort;
@@ -485,7 +492,7 @@
end;
for Index2 := Length(Item) downto 1 do
- if not (Item[Index2] in AnsiDecDigits) then
+ if not CharIsDigit(Item[Index2]) then
Break;
Result := Copy(Item, Index1, Index2 - Index1 + 1);
@@ -1826,7 +1833,7 @@
else
Exit;
- Directory := StrRemoveChars(Directory, ['&']);
+ Directory := StrRemoveChars(Directory, CharIsAmpersand);
if VersionControlActionInfos[ControlAction].AllPlugins then
begin
Modified: trunk/jcl/install/JclInstall.pas
===================================================================
--- trunk/jcl/install/JclInstall.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/install/JclInstall.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -23,7 +23,7 @@
{ }
{**************************************************************************************************}
{ }
-{ Last modified: $Date:: $ }
+{ Last modified: $Date:: $ }
{ Revision: $Rev:: $ }
{ Author: $Author:: $ }
{ }
@@ -506,15 +506,15 @@
RsHintEnvironment = 'Set selected environment items';
RsHintEnvLibPath = 'Add JCL precompiled unit directories to library path';
RsHintEnvBrowsingPath = 'Add JCL source directories to browsing path';
- RsHintEnvDebugDCUPath = 'This is a prerequisite for using the precompiled JCL debug units by means of the respective' + AnsiLineBreak +
+ RsHintEnvDebugDCUPath = 'This is a prerequisite for using the precompiled JCL debug units by means of the respective' + NativeLineBreak +
'Project Options|Compiler switch. See "Make library units/Debug" option below.';
// make units
- RsHintMake = 'Generate .dcu and .dpu (Kylix only) files.' + AnsiLineBreak + 'Recommended.';
+ RsHintMake = 'Generate .dcu and .dpu (Kylix only) files.' + NativeLineBreak + 'Recommended.';
RsHintMakeRelease = 'Make precompiled units for release, i.e. optimized, w/o debug information.';
RsHintMakeReleaseVcl = 'Make precompiled VCL units for release';
RsHintMakeReleaseVClx = 'Make precompiled Visual CLX units for release';
- RsHintMakeDebug = 'Make precompiled units for debugging, i.e.optimization off, debug information included.' + AnsiLineBreak +
+ RsHintMakeDebug = 'Make precompiled units for debugging, i.e.optimization off, debug information included.' + NativeLineBreak +
'When installed, available through Project Options|Compiler|Use Debug DCUs.';
RsHintMakeDebugVcl = 'Make precompiled VCL units for debugging';
RsHintMakeDebugVClx = 'Make precompiled Visual CLX units for debugging';
@@ -1507,10 +1507,10 @@
if Defined or NotDefined then
begin
Inc(DefinePos, Length(DefineText));
- while IncludeLine[DefinePos] in AnsiWhiteSpace do
+ while CharIsWhiteSpace(IncludeLine[DefinePos]) do
Inc(DefinePos);
SymbolEnd := DefinePos;
- while IncludeLine[SymbolEnd] in AnsiValidIdentifierLetters do
+ while CharIsValidIdentifierLetter(IncludeLine[SymbolEnd]) do
Inc(SymbolEnd);
Symbol := Copy(IncludeLine, DefinePos, SymbolEnd - DefinePos);
DefinePos := Defines.IndexOf(Symbol);
@@ -1750,7 +1750,7 @@
Target.BCC32.Options.Add('-DTEST_VCL');
if OptionChecked[joMakeReleaseVClx] or OptionChecked[joMakeDebugVClx] then
Target.BCC32.Options.Add('-DTEST_VISCLX');
- Options := StringsToStr(Target.BCC32.Options, AnsiSpace);
+ Options := StringsToStr(Target.BCC32.Options, NativeSpace);
Result := Target.BCC32.Execute(Options + ' "jcl_a2z.cpp"')
and Target.BCC32.Execute(Options + ' "jcl_z2a.cpp"');
finally
@@ -3443,7 +3443,7 @@
if RevisionText <> '' then
begin
Index := Length(RevisionText) - 1; // skip the '.'
- while (Index > 1) and (RevisionText[Index] in AnsiDecDigits) do
+ while (Index > 1) and CharIsDigit(RevisionText[Index]) do
Dec(Index);
Result := StrToIntDef(Copy(RevisionText, Index + 1, Length(RevisionText) - Index - 1), 0);
end;
@@ -3794,7 +3794,7 @@
begin
Result := False;
if Assigned(GUI) then
- GUI.Dialog('RegHelper raised an error while executing RegHelp command: ' + AnsiLineBreak + ProgramResult, dtError, [drCancel]);
+ GUI.Dialog('RegHelper raised an error while executing RegHelp command: ' + NativeLineBreak + ProgramResult, dtError, [drCancel]);
end;
end;
finally
Modified: trunk/jcl/source/common/JclAbstractContainers.pas
===================================================================
--- trunk/jcl/source/common/JclAbstractContainers.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/source/common/JclAbstractContainers.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -46,7 +46,8 @@
{$IFDEF HAS_UNIT_LIBC}
Libc,
{$ENDIF HAS_UNIT_LIBC}
- SysUtils, Classes, JclBase, JclContainerIntf, JclSynch, JclSysUtils;
+ SysUtils, Classes,
+ JclBase, JclContainerIntf, JclSynch, JclSysUtils, JclAnsiStrings;
type
{$IFDEF KEEP_DEPRECATED}
Modified: trunk/jcl/source/common/JclAnsiStrings.pas
===================================================================
--- trunk/jcl/source/common/JclAnsiStrings.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/source/common/JclAnsiStrings.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -88,11 +88,11 @@
AnsiBell = AnsiChar(#7);
AnsiBackspace = AnsiChar(#8);
AnsiTab = AnsiChar(#9);
- AnsiLineFeed = JclBase.AnsiLineFeed;
+ AnsiLineFeed = AnsiChar(#10);
AnsiVerticalTab = AnsiChar(#11);
AnsiFormFeed = AnsiChar(#12);
- AnsiCarriageReturn = JclBase.AnsiCarriageReturn;
- AnsiCrLf = JclBase.AnsiCrLf;
+ AnsiCarriageReturn = AnsiChar(#13);
+ AnsiCrLf = AnsiString(#13#10);
AnsiSo = AnsiChar(#14);
AnsiSi = AnsiChar(#15);
AnsiDle = AnsiChar(#16);
@@ -119,20 +119,28 @@
AnsiDoubleQuote = AnsiChar('"');
AnsiSingleQuote = AnsiChar('''');
- AnsiLineBreak = JclBase.AnsiLineBreak;
+ {$IFDEF MSWINDOWS}
+ AnsiLineBreak = AnsiCrLf;
+ {$ENDIF MSWINDOWS}
+ {$IFDEF UNIX}
+ AnsiLineBreak = AnsiLineFeed;
+ {$ENDIF UNIX}
-// Misc. character sets
+ AnsiSignMinus = AnsiChar('-');
+ AnsiSignPlus = AnsiChar('+');
+ // Misc. character sets
+
AnsiWhiteSpace = [AnsiTab, AnsiLineFeed, AnsiVerticalTab,
AnsiFormFeed, AnsiCarriageReturn, AnsiSpace];
- AnsiSigns = ['-', '+'];
- AnsiUppercaseLetters = JclBase.AnsiUppercaseLetters;
- AnsiLowercaseLetters = JclBase.AnsiLowercaseLetters;
- AnsiLetters = JclBase.AnsiLetters;
- AnsiDecDigits = JclBase.AnsiDecDigits;
- AnsiOctDigits = JclBase.AnsiOctDigits;
- AnsiHexDigits = JclBase.AnsiHexDigits;
- AnsiValidIdentifierLetters = JclBase.AnsiValidIdentifierLetters;
+ AnsiSigns = [AnsiSignMinus, AnsiSignPlus];
+ AnsiUppercaseLetters = ['A'..'Z'];
+ AnsiLowercaseLetters = ['a'..'z'];
+ AnsiLetters = ['A'..'Z', 'a'..'z'];
+ AnsiDecDigits = ['0'..'9'];
+ AnsiOctDigits = ['0'..'7'];
+ AnsiHexDigits = ['0'..'9', 'A'..'F', 'a'..'f'];
+ AnsiValidIdentifierLetters = ['0'..'9', 'A'..'Z', 'a'..'z', '_'];
const
// CharType return values
@@ -219,10 +227,13 @@
{$IFNDEF CLR}
procedure StrUpperBuff(S: PAnsiChar);
{$ENDIF ~CLR}
-{$IFDEF WIN32}
+
+{$IFDEF MSWINDOWS}
+{$IFNDEF CLR}
function StrOemToAnsi(const S: AnsiString): AnsiString;
function StrAnsiToOem(const S: AnsiString): AnsiString;
-{$ENDIF WIN32}
+{$ENDIF ~CLR}
+{$ENDIF MSWINDOWS}
{$IFNDEF CLR}
// String Management
@@ -272,21 +283,26 @@
function StrRight(const S: AnsiString; Count: Integer): AnsiString;
// Character Test Routines
-function CharEqualNoCase(const C1, C2: AnsiChar): Boolean;
-function CharIsAlpha(const C: AnsiChar): Boolean;
-function CharIsAlphaNum(const C: AnsiChar): Boolean;
-function CharIsBlank(const C: AnsiChar): Boolean;
-function CharIsControl(const C: AnsiChar): Boolean;
-function CharIsDelete(const C: AnsiChar): Boolean;
-function CharIsDigit(const C: AnsiChar): Boolean;
-function CharIsLower(const C: AnsiChar): Boolean;
-function CharIsNumberChar(const C: AnsiChar): Boolean;
-function CharIsPrintable(const C: AnsiChar): Boolean;
-function CharIsPunctuation(const C: AnsiChar): Boolean;
-function CharIsReturn(const C: AnsiChar): Boolean;
-function CharIsSpace(const C: AnsiChar): Boolean;
-function CharIsUpper(const C: AnsiChar): Boolean;
-function CharIsWhiteSpace(const C: AnsiChar): Boolean;
+function CharEqualNoCase(const C1, C2: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsAlpha(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsAlphaNum(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsBlank(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsControl(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsDelete(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsDigit(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsFracDigit(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsHexDigit(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsLower(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsNumberChar(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsNumber(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsPrintable(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsPunctuation(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsReturn(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsSpace(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsUpper(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsValidIdentifierLetter(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsWhiteSpace(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
+function CharIsWildcard(const C: AnsiChar): Boolean; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF}
function CharType(const C: AnsiChar): Word;
// Character Transformation Routines
@@ -360,10 +376,26 @@
function ArrayOf(List: TStrings): TDynStringArray; overload;
{$ENDIF CLR}
+function AnsiCompareNaturalStr(const S1, S2: AnsiString): Integer;
+function AnsiCompareNaturalText(const S1, S2: AnsiString): Integer;
+
// Exceptions
type
EJclStringError = EJclError;
+// internal structures published to make function inlining working
+const
+ AnsiCharCount = Ord(High(AnsiChar)) + 1; // # of chars in one set
+ AnsiLoOffset = AnsiCharCount * 0; // offset to lower case chars
+ AnsiUpOffset = AnsiCharCount * 1; // offset to upper case chars
+ AnsiReOffset = AnsiCharCount * 2; // offset to reverse case chars
+ AnsiCaseMapSize = AnsiCharCount * 3; // # of chars is a table
+
+var
+ AnsiCaseMap: array [0..AnsiCaseMapSize - 1] of AnsiChar; // case mappings
+ AnsiCaseMapReady: Boolean = False; // true if case map exists
+ AnsiCharTypes: array [AnsiChar] of Word;
+
{$IFDEF UNITVERSIONING}
const
UnitVersioning: TUnitVersionInfo = (
@@ -394,26 +426,14 @@
RefCount: Longint;
Length: Longint;
end;
-{$ENDIF ~CLR}
const
- {$IFNDEF CLR}
- AnsiStrRecSize = SizeOf(TAnsiStrRec); // size of the AnsiString header rec
- {$ENDIF ~CLR}
- AnsiCharCount = Ord(High(AnsiChar)) + 1; // # of chars in one set
- AnsiLoOffset = AnsiCharCount * 0; // offset to lower case chars
- AnsiUpOffset = AnsiCharCount * 1; // offset to upper case chars
- AnsiReOffset = AnsiCharCount * 2; // offset to reverse case chars
AnsiAlOffset = 12; // offset to AllocSize in StrRec
AnsiRfOffset = 8; // offset to RefCount in StrRec
AnsiLnOffset = 4; // offset to Length in StrRec
- AnsiCaseMapSize = AnsiCharCount * 3; // # of chars is a table
+ AnsiStrRecSize = SizeOf(TAnsiStrRec); // size of the AnsiString header rec
+{$ENDIF ~CLR}
-var
- AnsiCaseMap: array [0..AnsiCaseMapSize - 1] of AnsiChar; // case mappings
- AnsiCaseMapReady: Boolean = False; // true if case map exists
- AnsiCharTypes: array [AnsiChar] of Word;
-
procedure LoadCharTypes;
var
CurrChar: AnsiChar;
@@ -1816,23 +1836,22 @@
{$ENDIF PIC}
{$ENDIF ~CLR}
-{$IFDEF WIN32}
+{$IFDEF MSWINDOWS}
+{$IFNDEF CLR}
function StrOemToAnsi(const S: AnsiString): AnsiString;
begin
SetLength(Result, Length(S));
OemToAnsiBuff(@S[1], @Result[1], Length(S));
end;
-{$ENDIF WIN32}
-{$IFDEF WIN32}
function StrAnsiToOem(const S: AnsiString): AnsiString;
begin
SetLength(Result, Length(S));
AnsiToOemBuff(@S[1], @Result[1], Length(S));
end;
-{$ENDIF WIN32}
+{$ENDIF ~CLR}
+{$ENDIF MSWINDOWS}
-
{$IFNDEF CLR}
//=== String Management ======================================================
@@ -3162,6 +3181,22 @@
Result := (AnsiCharTypes[C] and C1_DIGIT) <> 0;
end;
+function CharIsFracDigit(const C: AnsiChar): Boolean;
+begin
+ Result := (C = '.') or ((AnsiCharTypes[C] and C1_DIGIT) <> 0);
+end;
+
+function CharIsHexDigit(const C: AnsiChar): Boolean;
+begin
+ case C of
+ 'A'..'F',
+ 'a'..'f':
+ Result := True;
+ else
+ Result := ((AnsiCharTypes[C] and C1_DIGIT) <> 0);
+ end;
+end;
+
function CharIsLower(const C: AnsiChar): Boolean;
begin
Result := (AnsiCharTypes[C] and C1_LOWER) <> 0;
@@ -3170,9 +3205,14 @@
function CharIsNumberChar(const C: AnsiChar): Boolean;
begin
Result := ((AnsiCharTypes[C] and C1_DIGIT) <> 0) or
- (C in AnsiSigns) or (C = DecimalSeparator);
+ (C = AnsiSignMinus) or (C = AnsiSignPlus) or (C = DecimalSeparator);
end;
+function CharIsNumber(const C: AnsiChar): Boolean;
+begin
+ Result := ((AnsiCharTypes[C] and C1_DIGIT) <> 0) or (C = DecimalSeparator);
+end;
+
function CharIsPrintable(const C: AnsiChar): Boolean;
begin
Result := not CharIsControl(C);
@@ -3198,11 +3238,33 @@
Result := (AnsiCharTypes[C] and C1_UPPER) <> 0;
end;
+function CharIsValidIdentifierLetter(const C: AnsiChar): Boolean;
+begin
+ case C of
+ '0'..'9', 'A'..'Z', 'a'..'z', '_':
+ Result := True;
+ else
+ Result := False;
+ end;
+end;
+
function CharIsWhiteSpace(const C: AnsiChar): Boolean;
begin
- Result := C in AnsiWhiteSpace;
+ Result := (C = AnsiTab) or (C = AnsiLineFeed) or (C = AnsiVerticalTab) or
+ (C = AnsiFormFeed) or (C = AnsiCarriageReturn) or (C =AnsiSpace) or
+ ((AnsiCharTypes[C] and C1_SPACE) <> 0);
end;
+function CharIsWildcard(const C: AnsiChar): Boolean;
+begin
+ case C of
+ '*', '?':
+ Result := True;
+ else
+ Result := False;
+ end;
+end;
+
function CharType(const C: AnsiChar): Word;
begin
Result := AnsiCharTypes[C];
@@ -3291,13 +3353,15 @@
function CharHex(const C: AnsiChar): Byte;
begin
- Result := $FF;
- if C in AnsiDecDigits then
- Result := Ord(CharUpper(C)) - Ord('0')
+ case C of
+ '0'..'9':
+ Result := Ord(C) - Ord('0');
+ 'a'..'f':
+ Result := Ord(C) - Ord('a') + 10;
+ 'A'..'F':
+ Result := Ord(C) - Ord('A') + 10;
else
- begin
- if C in AnsiHexDigits then
- Result := Ord(CharUpper(C)) - (Ord('A')) + 10;
+ Result := $FF;
end;
end;
@@ -3988,6 +4052,137 @@
end;
{$ENDIF CLR}
+function AnsiCompareNatural(const S1, S2: AnsiString; CaseInsensitive: Boolean): Integer;
+var
+ Cur1, Len1,
+ Cur2, Len2: Integer;
+
+ procedure NumberCompare;
+ var
+ IsReallyNumber: Boolean;
+ FirstDiffBreaks: Boolean;
+ Val1, Val2: Integer;
+ begin
+ Result := 0;
+ IsReallyNumber := False;
+ // count leading spaces in S1
+ while CharIsWhiteSpace(S1[Cur1]) do
+ begin
+ Dec(Result);
+ Inc(Cur1);
+ end;
+ // count leading spaces in S2 (canceling them out against the ones in S1)
+ while CharIsWhiteSpace(S2[Cur2]) do
+ begin
+ Inc(Result);
+ Inc(Cur2);
+ end;
+
+ // if spaces match, or both strings are actually followed by a numeric character, continue the checks
+ if (Result = 0) or (CharIsNumberChar(S1[Cur1])) and (CharIsNumberChar(S2[Cur2])) then
+ begin
+ // Check signed number
+ if (S1[Cur1] = '-') and (S2[Cur2] <> '-') then
+ Result := 1
+ else
+ if (S2[Cur2] = '-') and (S1[Cur1] <> '-') then
+ Result := -1
+ else
+ Result := 0;
+
+ if (S1[Cur1] = '-') or (S1[Cur1] = '+') then
+ Inc(Cur1);
+ if (S2[Cur2] = '-') or (S2[Cur2] = '+') then
+ Inc(Cur2);
+
+ FirstDiffBreaks := (S1[Cur1] = '0') or (S2[Cur2] = '0');
+ while CharIsDigit(S1[Cur1]) and CharIsDigit(S2[Cur2]) do
+ begin
+ IsReallyNumber := True;
+ Val1 := StrToInt(S1[Cur1]);
+ Val2 := StrToInt(S2[Cur2]);
+
+ if (Result = 0) and (Val1 < Val2) then
+ Result := -1
+ else
+ if (Result = 0) and (Val1 > Val2) then
+ Result := 1;
+ if FirstDiffBreaks and (Result <> 0) then
+ Break;
+ Inc(Cur1);
+ Inc(Cur2);
+ end;
+
+ if IsReallyNumber then
+ begin
+ if not FirstDiffBreaks then
+ begin
+ if CharIsDigit(S1[Cur1]) then
+ Result := 1
+ else
+ if CharIsDigit(S2[Cur2]) then
+ Result := -1;
+ end;
+ end;
+ end;
+ end;
+
+begin
+ Cur1 := 1;
+ Len1 := Length(S1);
+ Cur2 := 1;
+ Len2 := Length(S2);
+ Result := 0;
+
+ while (Result = 0) do
+ begin
+ if (Cur1 = Len1) and (Cur2 = Len2) then
+ Break
+ else
+ if (S1[Cur1] = '-') and CharIsNumberChar(S2[Cur2]) and (S2[Cur2] <> '-') then
+ Result := -1
+ else
+ if (S2[Cur2] = '-') and CharIsNumberChar(S1[Cur1]) and (S1[Cur1] <> '-') then
+ Result := 1
+ else
+ if CharIsNumberChar(S1[Cur1]) and CharIsNumberChar(S2[Cur2]) then
+ NumberCompare
+ else
+ if (Cur1 = Len1) and (Cur2 < Len2) then
+ Result := -1
+ else
+ if (Cur1 < Len1) and (Cur2 = Len2) then
+ Result := 1
+ else
+ begin
+ Result := CompareText(S1,S2);
+ {$IFDEF CLR}
+ if CaseInsensitive then
+ Result := CompareText(Copy(S1,Cur1,Length(S1)-Cur1+1),Copy(S2,Length(S2)-Cur2+1))
+ else
+ Result := CompareStr(Copy(S1,Cur1,Length(S1)-Cur1+1),Copy(S2,Length(S2)-Cur2+1));
+ {$ELSE ~CLR}
+ if CaseInsensitive then
+ Result := AnsiStrLIComp(@S1[Cur1], @S2[Cur2], 1)
+ else
+ Result := AnsiStrLComp(@S1[Cur1], @S2[Cur2], 1);
+ {$ENDIF ~CLR}
+ Inc(Cur1);
+ Inc(Cur2);
+ end;
+ end;
+end;
+
+function AnsiCompareNaturalStr(const S1, S2: AnsiString): Integer; overload;
+begin
+ Result := AnsiCompareNatural(S1, S2, False);
+end;
+
+function AnsiCompareNaturalText(const S1, S2: AnsiString): Integer; overload;
+begin
+ Result := AnsiCompareNatural(S1, S2, True);
+end;
+
initialization
LoadCharTypes; // this table first
LoadCaseMap; // or this function does not work
Modified: trunk/jcl/source/common/JclBase.pas
===================================================================
--- trunk/jcl/source/common/JclBase.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/source/common/JclBase.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -223,36 +223,31 @@
TDynWideStringArray = array of WideString;
TDynIInterfaceArray = array of IInterface;
TDynObjectArray = array of TObject;
+ TDynCharArray = array of Char;
+ TDynAnsiCharArray = array of AnsiChar;
+ TDynWideCharArray = array of WideChar;
// Cross-Platform Compatibility
const
- // (rom) too basic for JclStrings
- AnsiLineFeed = AnsiChar(#10);
- AnsiCarriageReturn = AnsiChar(#13);
- AnsiCrLf = AnsiString(#13#10);
+ // line delimiters for a version of Delphi/C++Builder
+ NativeLineFeed = Char(#10);
+ NativeCarriageReturn = Char(#13);
+ NativeCrLf = string(#13#10);
+ // default line break for a version of Delphi on a platform
{$IFDEF MSWINDOWS}
- AnsiLineBreak = AnsiCrLf;
+ NativeLineBreak = NativeCrLf;
{$ENDIF MSWINDOWS}
{$IFDEF UNIX}
- AnsiLineBreak = AnsiLineFeed;
+ NativeLineBreak = NativeLineFeed;
{$ENDIF UNIX}
- AnsiSigns = ['-', '+'];
- AnsiUppercaseLetters = ['A'..'Z'];
- AnsiLowercaseLetters = ['a'..'z'];
- AnsiLetters = ['A'..'Z', 'a'..'z'];
- AnsiDecDigits = ['0'..'9'];
- AnsiOctDigits = ['0'..'7'];
- AnsiHexDigits = ['0'..'9', 'A'..'F', 'a'..'f'];
- AnsiValidIdentifierLetters = ['0'..'9', 'A'..'Z', 'a'..'z', '_'];
+ HexPrefixPascal = string('$');
+ HexPrefixC = string('0x');
- AnsiHexPrefixPascal = AnsiString('$');
- AnsiHexPrefixC = AnsiString('0x');
-
{$IFDEF BCB}
- AnsiHexPrefix = AnsiHexPrefixC;
+ HexPrefix = HexPrefixC;
{$ELSE ~BCB}
- AnsiHexPrefix = AnsiHexPrefixPascal;
+ HexPrefix = HexPrefixPascal;
{$ENDIF ~BCB}
// basic set types
@@ -1271,7 +1266,7 @@
{$ENDIF CLR}
FLastError := GetLastError;
FLastErrorMsg := SysErrorMessage(FLastError);
- inherited CreateFmt(Msg + AnsiLineBreak + RsWin32Prefix, [FLastErrorMsg, FLastError]);
+ inherited CreateFmt(Msg + NativeLineBreak + RsWin32Prefix, [FLastErrorMsg, FLastError]);
end;
constructor EJclWin32Error.CreateFmt(const Msg: string; const Args: array of const);
@@ -1281,7 +1276,7 @@
{$ENDIF CLR}
FLastError := GetLastError;
FLastErrorMsg := SysErrorMessage(FLastError);
- inherited CreateFmt(Msg + AnsiLineBreak + Format(RsWin32Prefix, [FLastErrorMsg, FLastError]), Args);
+ inherited CreateFmt(Msg + NativeLineBreak + Format(RsWin32Prefix, [FLastErrorMsg, FLastError]), Args);
end;
{$IFNDEF CLR}
@@ -1289,7 +1284,7 @@
begin
FLastError := GetLastError;
FLastErrorMsg := SysErrorMessage(FLastError);
- inherited CreateFmt(LoadStr(Ident) + AnsiLineBreak + RsWin32Prefix, [FLastErrorMsg, FLastError]);
+ inherited CreateFmt(LoadStr(Ident) + NativeLineBreak + RsWin32Prefix, [FLastErrorMsg, FLastError]);
end;
constructor EJclWin32Error.CreateRes(ResStringRec: PResStringRec);
@@ -1299,7 +1294,7 @@
{$IFDEF FPC}
inherited CreateFmt(ResStringRec^ + AnsiLineBreak + RsWin32Prefix, [FLastErrorMsg, FLastError]);
{$ELSE}
- inherited CreateFmt(LoadResString(ResStringRec) + AnsiLineBreak + RsWin32Prefix, [FLastErrorMsg, FLastError]);
+ inherited CreateFmt(LoadResString(ResStringRec) + NativeLineBreak + RsWin32Prefix, [FLastErrorMsg, FLastError]);
{$ENDIF FPC}
end;
{$ENDIF ~CLR}
@@ -1346,9 +1341,9 @@
Result := Value
else
{$IFDEF CLR}
- raise EJclAddr64Exception.CreateFmt(RsCantConvertAddr64, [AnsiHexPrefix, Value]);
+ raise EJclAddr64Exception.CreateFmt(RsCantConvertAddr64, [HexPrefix, Value]);
{$ELSE ~CLR}
- raise EJclAddr64Exception.CreateResFmt(@RsCantConvertAddr64, [AnsiHexPrefix, Value]);
+ raise EJclAddr64Exception.CreateResFmt(@RsCantConvertAddr64, [HexPrefix, Value]);
{$ENDIF ~CLR}
end;
Modified: trunk/jcl/source/common/JclBorlandTools.pas
===================================================================
--- trunk/jcl/source/common/JclBorlandTools.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/source/common/JclBorlandTools.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -2750,16 +2750,28 @@
'L':
if Length(S) >= 3 then
begin
- Result := UpCase(S[3]) in ['E', 'N'];
+ case UpCase(S[3]) of
+ 'E', 'e',
+ 'N', 'n':
+ Result := True;
+ else
+ Result := False;
+ end;
Len := 3;
end;
'N':
begin
Result := True;
- if (Length(S) >= 3) and (S[3] in ['0'..'9', 'H', 'O', 'B']) then
- Len := 3
- else
- Len := 2;
+ if (Length(S) >= 3) then
+ begin
+ case Upcase(S[3]) of
+ '0'..'9',
+ 'H', 'O', 'B':
+ Len := 3;
+ else
+ Len := 2;
+ end;
+ end;
end;
end;
end;
@@ -5067,7 +5079,7 @@
if IDEVersionNumber < 5 then
Result := LocStr[0]
else
- Result := LocStr[1] + AnsiBackslash + LocStr[2];
+ Result := LocStr[1] + NativeBackslash + LocStr[2];
Result := PathAddSeparator(GetPersonalFolder) + Result;
end;
@@ -5549,7 +5561,7 @@
if RegKeyExists(HKEY_LOCAL_MACHINE, KeyName) and
RegGetKeyNames(HKEY_LOCAL_MACHINE, KeyName, VersionNumbers) then
for I := 0 to VersionNumbers.Count - 1 do
- if StrIsSubSet(VersionNumbers[I], ['.', '0'..'9']) then
+ if StrIsSubSet(VersionNumbers[I], CharIsFracDigit) then
begin
VersionKeyName := KeyName + DirDelimiter + VersionNumbers[I];
if RegKeyExists(HKEY_LOCAL_MACHINE, VersionKeyName) then
Modified: trunk/jcl/source/common/JclComplex.pas
===================================================================
--- trunk/jcl/source/common/JclComplex.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/source/common/JclComplex.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -402,7 +402,7 @@
SignPos: Integer;
RealPart, ImagPart: Float;
begin
- StrToParse := StrRemoveChars(StrToParse, [' ']);
+ StrToParse := StrRemoveChars(StrToParse, CharIsSpace);
SignPos := StrFind('+', StrToParse, 2);
if SignPos = 0 then
SignPos := StrFind('-', StrToParse, 2);
@@ -465,9 +465,9 @@
Radius, Angle: Float;
begin
{$IFDEF CLR}
- StrToParse := StrRemoveChars(StrToParse, [' ']).toUpper;
+ StrToParse := StrRemoveChars(StrToParse, CharIsSpace).toUpper;
{$ELSE}
- StrToParse := AnsiUpperCase(StrRemoveChars(StrToParse, [' ']));
+ StrToParse := AnsiUpperCase(StrRemoveChars(StrToParse, CharIsSpace));
{$ENDIF CLR}
AstPos := Pos('*', StrToParse);
if AstPos = 0 then
Modified: trunk/jcl/source/common/JclContainerIntf.pas
===================================================================
--- trunk/jcl/source/common/JclContainerIntf.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/source/common/JclContainerIntf.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -48,7 +48,8 @@
JclUnitVersioning,
{$ENDIF UNITVERSIONING}
Classes,
- JclBase;
+ JclBase,
+ JclAnsiStrings;
{$IFDEF BCB6}
{$DEFINE BUGGY_DEFAULT_INDEXED_PROP}
Modified: trunk/jcl/source/common/JclEDI.pas
===================================================================
--- trunk/jcl/source/common/JclEDI.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/source/common/JclEDI.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -34,7 +34,7 @@
{ }
{**************************************************************************************************}
{ }
-{ Last modified: $Date:: $ }
+{ Last modified: $Date:: $ }
{ Revision: $Rev:: $ }
{ Author: $Author:: $ }
{ }
@@ -1475,12 +1475,12 @@
var
I: Integer;
begin
- Result := 'Loop Stack' + AnsiLineBreak;
+ Result := 'Loop Stack' + NativeLineBreak;
for I := 0 to High(FStack) do
Result := Result + FStack[I].SegmentId + ', ' +
FStack[I].OwnerLoopId + ', ' +
FStack[I].ParentLoopId + ', ' +
- IntToStr(FStack[I].SpecStartIndex) + AnsiLineBreak;
+ IntToStr(FStack[I].SpecStartIndex) + NativeLineBreak;
end;
procedure TEDILoopStack.DoAddLoop(StackRecord: TEDILoopStackRecord;
Modified: trunk/jcl/source/common/JclEDISEF.pas
===================================================================
--- trunk/jcl/source/common/JclEDISEF.pas 2008-08-07 14:40:35 UTC (rev 2411)
+++ trunk/jcl/source/common/JclEDISEF.pas 2008-08-07 21:54:09 UTC (rev 2412)
@@ -33,7 +33,7 @@
{ }
{**************************************************************************************************}
{ }
-{ Last modified: $Date:: $ }
+{ Last modified: $Date:: $ }
{ Revision: $Rev:: $ }
{ Author: $Author:: $ }
{ }
@@ -3974,47 +3974,47 @@
I: Integer;
begin
Result := '';
- Result := Result + SectionTag_VER + AnsiSpace + FEDISEFVer + AnsiCrLf;
- Result := Result + SectionTag_INI + AnsiCrLf;
- Result := Result + INI.Text + AnsiCrLf;
+ Result := Result + SectionTag_VER + NativeSpace + FEDISEFVer + NativeLineBreak;
+ Result := Result + SectionTag_INI + NativeLineBreak;
+ Result := Result + INI.Text + NativeLineBreak;
if STD.Text <> '' then
- Result := Result + SectionTag_STD + AnsiCrLf;
- Result := Result + STD.Text + AnsiCrLf;
+ Result := Result + SectionTag_STD + NativeLineBreak;
+ Result := Result + STD.Text + NativeLineBreak;
if FEDISEFSets.Count > 0 then
begin
- Result := Result + SectionTag_SETS + AnsiCrLf;
+ Result := Result + SectionTag_SETS + NativeLineBreak;
for I := 0 to FEDISEFSets.Count - 1 do
- Result := Result + FEDISEFSets[I].Assemble + AnsiCrLf;
+ Result := Result + FEDISEFSets[I].Assemble + NativeLineBreak;
end;
if FEDISEFSegs.Count > 0 then
begin
- Result := Result + SectionTag_SEGS + AnsiCrLf;
+ Result := Result + SectionTag_SEGS + NativeLineBreak;
for I := 0 to FEDISEFSegs.Count - 1 do
- Result := Result + FEDISEFSegs[I].Assemble + AnsiCrLf;
+ Result := Result + FEDISEFSegs[I].Assemble + NativeLineBreak;
end;
if FEDISEFComs.Count > 0 then
begin
- Result := Result + SectionTag_COMS + AnsiCrLf;
+ Result := Result + SectionTag_COMS + NativeLineBreak;
for I := 0 to FEDISEFComs.Count - 1 do
- Result := Result + FEDISEFComs[I].Assemble + AnsiCrLf;
+ Result := Result + FEDISEFComs[I].Assemble + NativeLineBreak;
end;
if FEDISEFElms.Count > 0 then
begin
- Result := Result + SectionTag_ELMS + AnsiCrLf;
+ Result := Result + SectionTag_ELMS + NativeLineBreak;
for I := 0 to FEDISEFElms.Count - 1 do
- Result := Result + FEDISEFElms[I].Assemble + AnsiCrLf;
+ Result := Result + FEDISEFElms[I].Assemble + NativeLineBreak;
end;
if Codes.Text <> '' then
begin
- Result := Result + SectionTag_CODES + AnsiCrLf;
- Result := Result + Codes.Text + AnsiCrLf;
+ Result := Result + SectionTag_CODES + NativeLineBreak;
+ Result := Result + Codes.Text + NativeLineBreak;
end;
if FEDISEFTextSets.Count > 0 then
begin
- Result := Result + SectionTag_TEXTSETS + AnsiCrLf;
+ Result := Result + SectionTag_TEXTSETS + NativeLineBreak;
for I := 0 to FEDISEFTextSets.Count - 1 do
if TEDISEFText(FEDISEFTextSets[I]).Text <> '' then
- Result := Result + TEDISEFText(FEDISEFTextSets[I]).Assemble + AnsiCrLf;
+ Result := Result + TEDISEFText(FEDISEFTextSets[I]).Assemble + NativeLineBreak;
end;
FData := Result;
end;
@@ -4094,8 +4094,8 @@
SearchResult := StrSearch(SectionTag_TEXTSETS, FData, 1);
if SearchResult > 0 then
begin
- SearchResult := SearchResult + Length(SectionTag_TEXTSETS + AnsiCrLf);
- SearchResult2 := StrSearch(AnsiCrLf + SEFDelimiter_Period, FData, SearchResult + 1);
+ SearchResult := SearchResult + Length(SectionTag_TEXTSETS + NativeLineBreak);
+ SearchResult2 := StrSearch(NativeLineBreak + SEFDelimiter_Period, FData, SearchResult + 1);
if SearchResult2 <> 0 then
TempList.Text := Copy(FData, SearchResult, SearchResult2 - SearchResult)
else
@@ -4122,8 +4122,8 @@
SearchResult := StrSearch(SectionTag_CODES, FData, 1);
if SearchResult > 0 then
begin
- SearchResult := SearchResult + Length(SectionTag_CODES + AnsiCrLf);
- SearchResult2 := StrSearch(AnsiCrLf + SEFDelimiter_Period, FData, SearchResult + 1);
+ SearchResult := SearchResult + Length(SectionTag_CODES + NativeLineBreak);
+ SearchResult2 := StrSearch(NativeLineBreak + SEFDelimiter_Period, FData, SearchResult + 1);
if SearchResult2 <> 0 then
Codes.Text := Copy(FData, SearchResult, SearchResult2 - SearchResult)
else
@@ -4143,8 +4143,8 @@
SearchResult := StrSearch(SectionTag_COMS, FData, 1);
if SearchResult > 0 then
begin
- SearchResult := SearchResult + Length(SectionTag_COMS + AnsiCrLf);
- SearchResult2 := StrSearch(AnsiCrLf + SEFDelimiter_Period, FData, SearchResult + 1);
+ SearchResult := SearchResult + Length(SectionTag_COMS + NativeLineBreak);
+ SearchResult2 := StrSearch(NativeLineBreak + SEFDelimiter_Period, FData, SearchResult + 1);
if SearchResult2 <> 0 then
TempList.Text := Copy(FData, SearchResult, SearchResult2 - SearchResult)
else
@@ -4176,8 +4176,8 @@
SearchResult := StrSearch(SectionTag_ELMS, FData, 1);
if SearchResult > 0 then
begin
- SearchResult := SearchResult + Length(SectionTag_ELMS + AnsiCrLf);
- SearchResult2 := StrSearch(AnsiCrLf + SEFDelimiter_Period, FData, SearchResult + 1);
+ SearchResult := SearchResult + Length(SectionTag_ELMS + NativeLineBreak);
+ SearchResult2 := StrSearch(NativeLineBreak + SEFDelimiter_Period, FData, SearchResult + 1);
if SearchResult2 <> 0 then
TempList.Text := Copy(FData, SearchResult, SearchResult2 - SearchResult)
else
@@ -4210,8 +4210,8 @@
SearchResult := StrSearch(SectionTag_INI, FData, 1);
if SearchResult > 0 then
begin
- SearchResult := SearchResult + Length(SectionTag_INI + AnsiCrLf);
- SearchResult2 := StrSearch(AnsiCrLf + SEFDelimiter_Period, FData, SearchResult + 1);
+ SearchResult := SearchResult + Length(SectionTag_INI + NativeLineBreak);
+ SearchResult2 := StrSearch(NativeLineBreak + SEFDelimiter_Period, FData, SearchResult + 1);
if SearchResult2 <> 0 then
INI.Text := Copy(FData, SearchResult, SearchResult2 - SearchResult)
else
@@ -4232,8 +4232,8 @@
SearchResult := StrSearch(SectionTag_SEGS, FData, 1);
if SearchResult > 0 then
begin
- SearchResult := SearchResult + Length(SectionTag_SEGS + AnsiCrLf);
- SearchResult2 := StrSearch(AnsiCrLf + SEFDelimiter_Period, FData, SearchResult + 1);
+ SearchResult := SearchResult + Length(SectionTag_SEGS + NativeLineBreak);
+ SearchResult2 := StrSearch(NativeLineBreak + SEFDelimiter_Period, FData, SearchResult + 1);
if SearchResult2 ...
[truncated message content] |
|
From: <ou...@us...> - 2008-08-07 14:40:37
|
Revision: 2411
http://jcl.svn.sourceforge.net/jcl/?rev=2411&view=rev
Author: outchy
Date: 2008-08-07 14:40:35 +0000 (Thu, 07 Aug 2008)
Log Message:
-----------
Added missing version control expert in project group.
Modified Paths:
--------------
trunk/jcl/packages/JclPackagesD60.bpg
Modified: trunk/jcl/packages/JclPackagesD60.bpg
===================================================================
--- trunk/jcl/packages/JclPackagesD60.bpg 2008-08-06 20:12:18 UTC (rev 2410)
+++ trunk/jcl/packages/JclPackagesD60.bpg 2008-08-07 14:40:35 UTC (rev 2411)
@@ -12,7 +12,8 @@
PROJECTS = JclD60.bpl JclVclD60.bpl JclVClxD60.bpl JclContainersD60.bpl \
JclBaseExpertD60.bpl JclDebugExpertD60.bpl JclFavoriteFoldersExpertD60.bpl \
JclProjectAnalysisExpertD60.bpl JclRepositoryExpertD60.bpl \
- JclSIMDViewExpertD60.bpl JclThreadNameExpertD60.bpl JclUsesExpertD60.bpl
+ JclSIMDViewExpertD60.bpl JclThreadNameExpertD60.bpl JclUsesExpertD60.bpl \
+ JclVersionControlExpertD60.bpl
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
@@ -53,4 +54,7 @@
JclVClxD60.bpl: d6\JclVClx.dpk
$(DCC)
+JclVersionControlExpertD60.bpl: d6\JclVersionControlExpert.dpk
+ $(DCC)
+
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ob...@us...> - 2008-08-06 20:12:22
|
Revision: 2410
http://jcl.svn.sourceforge.net/jcl/?rev=2410&view=rev
Author: obones
Date: 2008-08-06 20:12:18 +0000 (Wed, 06 Aug 2008)
Log Message:
-----------
Regenerated by installer
Modified Paths:
--------------
trunk/jcl/packages/c5/JclContainersC50.res
trunk/jcl/packages/c5/JclDebugExpertC50.RES
trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.res
trunk/jcl/packages/c6/JclBaseExpert.res
trunk/jcl/packages/c6/JclDebugExpert.RES
trunk/jcl/packages/c6/JclFavoriteFoldersExpert.RES
trunk/jcl/packages/c6/JclRepositoryExpert.res
trunk/jcl/packages/c6/JclUsesExpert.RES
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2008-08-05 14:13:21
|
Revision: 2409
http://jcl.svn.sourceforge.net/jcl/?rev=2409&view=rev
Author: outchy
Date: 2008-08-05 14:13:10 +0000 (Tue, 05 Aug 2008)
Log Message:
-----------
added license file for JCL, PCRE, ZLIB, BZIP2 and SEVENZIP.
Added Paths:
-----------
trunk/jcl/LICENSE-BZIP2.txt
trunk/jcl/LICENSE-PCRE.txt
trunk/jcl/LICENSE-SEVENZIP.txt
trunk/jcl/LICENSE-ZLIB.txt
trunk/jcl/LICENSE.txt
Added: trunk/jcl/LICENSE-BZIP2.txt
===================================================================
--- trunk/jcl/LICENSE-BZIP2.txt (rev 0)
+++ trunk/jcl/LICENSE-BZIP2.txt 2008-08-05 14:13:10 UTC (rev 2409)
@@ -0,0 +1,42 @@
+
+--------------------------------------------------------------------------
+
+This program, "bzip2", the associated library "libbzip2", and all
+documentation, are copyright (C) 1996-2007 Julian R Seward. All
+rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions
+are met:
+
+1. Redistributions of source code must retain the above copyright
+ notice, this list of conditions and the following disclaimer.
+
+2. The origin of this software must not be misrepresented; you must
+ not claim that you wrote the original software. If you use this
+ software in a product, an acknowledgment in the product
+ documentation would be appreciated but is not required.
+
+3. Altered source versions must be plainly marked as such, and must
+ not be misrepresented as being the original software.
+
+4. The name of the author may not be used to endorse or promote
+ products derived from this software without specific prior written
+ permission.
+
+THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS
+OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
+DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
+GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+Julian Seward, js...@bz...
+bzip2/libbzip2 version 1.0.5 of 10 December 2007
+
+--------------------------------------------------------------------------
Property changes on: trunk/jcl/LICENSE-BZIP2.txt
___________________________________________________________________
Added: svn:eol-style
+ native
Added: trunk/jcl/LICENSE-PCRE.txt
===================================================================
--- trunk/jcl/LICENSE-PCRE.txt (rev 0)
+++ trunk/jcl/LICENSE-PCRE.txt 2008-08-05 14:13:10 UTC (rev 2409)
@@ -0,0 +1,68 @@
+PCRE LICENCE
+------------
+
+PCRE is a library of functions to support regular expressions whose syntax
+and semantics are as close as possible to those of the Perl 5 language.
+
+Release 7 of PCRE is distributed under the terms of the "BSD" licence, as
+specified below. The documentation for PCRE, supplied in the "doc"
+directory, is distributed under the same terms as the software itself.
+
+The basic library functions are written in C and are freestanding. Also
+included in the distribution is a set of C++ wrapper functions.
+
+
+THE BASIC LIBRARY FUNCTIONS
+---------------------------
+
+Written by: Philip Hazel
+Email local part: ph10
+Email domain: cam.ac.uk
+
+University of Cambridge Computing Service,
+Cambridge, England.
+
+Copyright (c) 1997-2008 University of Cambridge
+All rights reserved.
+
+
+THE C++ WRAPPER FUNCTIONS
+-------------------------
+
+Contributed by: Google Inc.
+
+Copyright (c) 2007-2008, Google Inc.
+All rights reserved.
+
+
+THE "BSD" LICENCE
+-----------------
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+ * Redistributions of source code must retain the above copyright notice,
+ this list of conditions and the following disclaimer.
+
+ * Redistributions in binary form must reproduce the above copyright
+ notice, this list of conditions and the following disclaimer in the
+ documentation and/or other materials provided with the distribution.
+
+ * Neither the name of the University of Cambridge nor the name of Google
+ Inc. nor the names of their contributors may be used to endorse or
+ promote products derived from this software without specific prior
+ written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGE.
+
+End
Property changes on: trunk/jcl/LICENSE-PCRE.txt
___________________________________________________________________
Added: svn:eol-style
+ native
Added: trunk/jcl/LICENSE-SEVENZIP.txt
===================================================================
--- trunk/jcl/LICENSE-SEVENZIP.txt (rev 0)
+++ trunk/jcl/LICENSE-SEVENZIP.txt 2008-08-05 14:13:10 UTC (rev 2409)
@@ -0,0 +1,57 @@
+ 7-Zip
+ ~~~~~
+ License for use and distribution
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+ 7-Zip Copyright (C) 1999-2008 Igor Pavlov.
+
+ Licenses for files are:
+
+ 1) 7z.dll: GNU LGPL + unRAR restriction
+ 2) All other files: GNU LGPL
+
+ The GNU LGPL + unRAR restriction means that you must follow both
+ GNU LGPL rules and unRAR restriction rules.
+
+
+ Note:
+ You can use 7-Zip on any computer, including a computer in a commercial
+ organization. You don't need to register or pay for 7-Zip.
+
+
+ GNU LGPL information
+ --------------------
+
+ This library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Lesser General Public
+ License as published by the Free Software Foundation; either
+ version 2.1 of the License, or (at your option) any later version.
+
+ This library is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ Lesser General Public License for more details.
+
+ You should have received a copy of the GNU Lesser General Public
+ License along with this library; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+
+ unRAR restriction
+ -----------------
+
+ The decompression engine for RAR archives was developed using source
+ code of unRAR program.
+ All copyrights to original unRAR code are owned by Alexander Roshal.
+
+ The license for original unRAR code has the following restriction:
+
+ The unRAR sources cannot be used to re-create the RAR compression algorithm,
+ which is proprietary. Distribution of modified unRAR sources in separate form
+ or as a part of other software is permitted, provided that it is clearly
+ stated in the documentation and source comments that the code may
+ not be used to develop a RAR (WinRAR) compatible archiver.
+
+
+ --
+ Igor Pavlov
Property changes on: trunk/jcl/LICENSE-SEVENZIP.txt
___________________________________________________________________
Added: svn:eol-style
+ native
Added: trunk/jcl/LICENSE-ZLIB.txt
===================================================================
--- trunk/jcl/LICENSE-ZLIB.txt (rev 0)
+++ trunk/jcl/LICENSE-ZLIB.txt 2008-08-05 14:13:10 UTC (rev 2409)
@@ -0,0 +1,25 @@
+/* zlib.h -- interface of the 'zlib' general purpose compression library
+ version 1.2.3, July 18th, 2005
+
+ Copyright (C) 1995-2005 Jean-loup Gailly and Mark Adler
+
+ This software is provided 'as-is', without any express or implied
+ warranty. In no event will the authors be held liable for any damages
+ arising from the use of this software.
+
+ Permission is granted to anyone to use this software for any purpose,
+ including commercial applications, and to alter it and redistribute it
+ freely, subject to the following restrictions:
+
+ 1. The origin of this software must not be misrepresented; you must not
+ claim that you wrote the original software. If you use this software
+ in a product, an acknowledgment in the product documentation would be
+ appreciated but is not required.
+ 2. Altered source versions must be plainly marked as such, and must not be
+ misrepresented as being the original software.
+ 3. This notice may not be removed or altered from any source distribution.
+
+ Jean-loup Gailly jl...@gz...
+ Mark Adler ma...@al...
+
+*/
Property changes on: trunk/jcl/LICENSE-ZLIB.txt
___________________________________________________________________
Added: svn:eol-style
+ native
Added: trunk/jcl/LICENSE.txt
===================================================================
--- trunk/jcl/LICENSE.txt (rev 0)
+++ trunk/jcl/LICENSE.txt 2008-08-05 14:13:10 UTC (rev 2409)
@@ -0,0 +1,470 @@
+ MOZILLA PUBLIC LICENSE
+ Version 1.1
+
+ ---------------
+
+1. Definitions.
+
+ 1.0.1. "Commercial Use" means distribution or otherwise making the
+ Covered Code available to a third party.
+
+ 1.1. "Contributor" means each entity that creates or contributes to
+ the creation of Modifications.
+
+ 1.2. "Contributor Version" means the combination of the Original
+ Code, prior Modifications used by a Contributor, and the Modifications
+ made by that particular Contributor.
+
+ 1.3. "Covered Code" means the Original Code or Modifications or the
+ combination of the Original Code and Modifications, in each case
+ including portions thereof.
+
+ 1.4. "Electronic Distribution Mechanism" means a mechanism generally
+ accepted in the software development community for the electronic
+ transfer of data.
+
+ 1.5. "Executable" means Covered Code in any form other than Source
+ Code.
+
+ 1.6. "Initial Developer" means the individual or entity identified
+ as the Initial Developer in the Source Code notice required by Exhibit
+ A.
+
+ 1.7. "Larger Work" means a work which combines Covered Code or
+ portions thereof with code not governed by the terms of this License.
+
+ 1.8. "License" means this document.
+
+ 1.8.1. "Licensable" means having the right to grant, to the maximum
+ extent possible, whether at the time of the initial grant or
+ subsequently acquired, any and all of the rights conveyed herein.
+
+ 1.9. "Modifications" means any addition to or deletion from the
+ substance or structure of either the Original Code or any previous
+ Modifications. When Covered Code is released as a series of files, a
+ Modification is:
+ A. Any addition to or deletion from the contents of a file
+ containing Original Code or previous Modifications.
+
+ B. Any new file that contains any part of the Original Code or
+ previous Modifications.
+
+ 1.10. "Original Code" means Source Code of computer software code
+ which is described in the Source Code notice required by Exhibit A as
+ Original Code, and which, at the time of its release under this
+ License is not already Covered Code governed by this License.
+
+ 1.10.1. "Patent Claims" means any patent claim(s), now owned or
+ hereafter acquired, including without limitation, method, process,
+ and apparatus claims, in any patent Licensable by grantor.
+
+ 1.11. "Source Code" means the preferred form of the Covered Code for
+ making modifications to it, including all modules it contains, plus
+ any associated interface definition files, scripts used to control
+ compilation and installation of an Executable, or source code
+ differential comparisons against either the Original Code or another
+ well known, available Covered Code of the Contributor's choice. The
+ Source Code can be in a compressed or archival form, provided the
+ appropriate decompression or de-archiving software is widely available
+ for no charge.
+
+ 1.12. "You" (or "Your") means an individual or a legal entity
+ exercising rights under, and complying with all of the terms of, this
+ License or a future version of this License issued under Section 6.1.
+ For legal entities, "You" includes any entity which controls, is
+ controlled by, or is under common control with You. For purposes of
+ this definition, "control" means (a) the power, direct or indirect,
+ to cause the direction or management of such entity, whether by
+ contract or otherwise, or (b) ownership of more than fifty percent
+ (50%) of the outstanding shares or beneficial ownership of such
+ entity.
+
+2. Source Code License.
+
+ 2.1. The Initial Developer Grant.
+ The Initial Developer hereby grants You a world-wide, royalty-free,
+ non-exclusive license, subject to third party intellectual property
+ claims:
+ (a) under intellectual property rights (other than patent or
+ trademark) Licensable by Initial Developer to use, reproduce,
+ modify, display, perform, sublicense and distribute the Original
+ Code (or portions thereof) with or without Modifications, and/or
+ as part of a Larger Work; and
+
+ (b) under Patents Claims infringed by the making, using or
+ selling of Original Code, to make, have made, use, practice,
+ sell, and offer for sale, and/or otherwise dispose of the
+ Original Code (or portions thereof).
+
+ (c) the licenses granted in this Section 2.1(a) and (b) are
+ effective on the date Initial Developer first distributes
+ Original Code under the terms of this License.
+
+ (d) Notwithstanding Section 2.1(b) above, no patent license is
+ granted: 1) for code that You delete from the Original Code; 2)
+ separate from the Original Code; or 3) for infringements caused
+ by: i) the modification of the Original Code or ii) the
+ combination of the Original Code with other software or devices.
+
+ 2.2. Contributor Grant.
+ Subject to third party intellectual property claims, each Contributor
+ hereby grants You a world-wide, royalty-free, non-exclusive license
+
+ (a) under intellectual property rights (other than patent or
+ trademark) Licensable by Contributor, to use, reproduce, modify,
+ display, perform, sublicense and distribute the Modifications
+ created by such Contributor (or portions thereof) either on an
+ unmodified basis, with other Modifications, as Covered Code
+ and/or as part of a Larger Work; and
+
+ (b) under Patent Claims infringed by the making, using, or
+ selling of Modifications made by that Contributor either alone
+ and/or in combination with its Contributor Version (or portions
+ of such combination), to make, use, sell, offer for sale, have
+ made, and/or otherwise dispose of: 1) Modifications made by that
+ Contributor (or portions thereof); and 2) the combination of
+ Modifications made by that Contributor with its Contributor
+ Version (or portions of such combination).
+
+ (c) the licenses granted in Sections 2.2(a) and 2.2(b) are
+ effective on the date Contributor first makes Commercial Use of
+ the Covered Code.
+
+ (d) Notwithstanding Section 2.2(b) above, no patent license is
+ granted: 1) for any code that Contributor has deleted from the
+ Contributor Version; 2) separate from the Contributor Version;
+ 3) for infringements caused by: i) third party modifications of
+ Contributor Version or ii) the combination of Modifications made
+ by that Contributor with other software (except as part of the
+ Contributor Version) or other devices; or 4) under Patent Claims
+ infringed by Covered Code in the absence of Modifications made by
+ that Contributor.
+
+3. Distribution Obligations.
+
+ 3.1. Application of License.
+ The Modifications which You create or to which You contribute are
+ governed by the terms of this License, including without limitation
+ Section 2.2. The Source Code version of Covered Code may be
+ distributed only under the terms of this License or a future version
+ of this License released under Section 6.1, and You must include a
+ copy of this License with every copy of the Source Code You
+ distribute. You may not offer or impose any terms on any Source Code
+ version that alters or restricts the applicable version of this
+ License or the recipients' rights hereunder. However, You may include
+ an additional document offering the additional rights described in
+ Section 3.5.
+
+ 3.2. Availability of Source Code.
+ Any Modification which You create or to which You contribute must be
+ made available in Source Code form under the terms of this License
+ either on the same media as an Executable version or via an accepted
+ Electronic Distribution Mechanism to anyone to whom you made an
+ Executable version available; and if made available via Electronic
+ Distribution Mechanism, must remain available for at least twelve (12)
+ months after the date it initially became available, or at least six
+ (6) months after a subsequent version of that particular Modification
+ has been made available to such recipients. You are responsible for
+ ensuring that the Source Code version remains available even if the
+ Electronic Distribution Mechanism is maintained by a third party.
+
+ 3.3. Description of Modifications.
+ You must cause all Covered Code to which You contribute to contain a
+ file documenting the changes You made to create that Covered Code and
+ the date of any change. You must include a prominent statement that
+ the Modification is derived, directly or indirectly, from Original
+ Code provided by the Initial Developer and including the name of the
+ Initial Developer in (a) the Source Code, and (b) in any notice in an
+ Executable version or related documentation in which You describe the
+ origin or ownership of the Covered Code.
+
+ 3.4. Intellectual Property Matters
+ (a) Third Party Claims.
+ If Contributor has knowledge that a license under a third party's
+ intellectual property rights is required to exercise the rights
+ granted by such Contributor under Sections 2.1 or 2.2,
+ Contributor must include a text file with the Source Code
+ distribution titled "LEGAL" which describes the claim and the
+ party making the claim in sufficient detail that a recipient will
+ know whom to contact. If Contributor obtains such knowledge after
+ the Modification is made available as described in Section 3.2,
+ Contributor shall promptly modify the LEGAL file in all copies
+ Contributor makes available thereafter and shall take other steps
+ (such as notifying appropriate mailing lists or newsgroups)
+ reasonably calculated to inform those who received the Covered
+ Code that new knowledge has been obtained.
+
+ (b) Contributor APIs.
+ If Contributor's Modifications include an application programming
+ interface and Contributor has knowledge of patent licenses which
+ are reasonably necessary to implement that API, Contributor must
+ also include this information in the LEGAL file.
+
+ (c) Representations.
+ Contributor represents that, except as disclosed pursuant to
+ Section 3.4(a) above, Contributor believes that Contributor's
+ Modifications are Contributor's original creation(s) and/or
+ Contributor has sufficient rights to grant the rights conveyed by
+ this License.
+
+ 3.5. Required Notices.
+ You must duplicate the notice in Exhibit A in each file of the Source
+ Code. If it is not possible to put such notice in a particular Source
+ Code file due to its structure, then You must include such notice in a
+ location (such as a relevant directory) where a user would be likely
+ to look for such a notice. If You created one or more Modification(s)
+ You may add your name as a Contributor to the notice described in
+ Exhibit A. You must also duplicate this License in any documentation
+ for the Source Code where You describe recipients' rights or ownership
+ rights relating to Covered Code. You may choose to offer, and to
+ charge a fee for, warranty, support, indemnity or liability
+ obligations to one or more recipients of Covered Code. However, You
+ may do so only on Your own behalf, and not on behalf of the Initial
+ Developer or any Contributor. You must make it absolutely clear than
+ any such warranty, support, indemnity or liability obligation is
+ offered by You alone, and You hereby agree to indemnify the Initial
+ Developer and every Contributor for any liability incurred by the
+ Initial Developer or such Contributor as a result of warranty,
+ support, indemnity or liability terms You offer.
+
+ 3.6. Distribution of Executable Versions.
+ You may distribute Covered Code in Executable form only if the
+ requirements of Section 3.1-3.5 have been met for that Covered Code,
+ and if You include a notice stating that the Source Code version of
+ the Covered Code is available under the terms of this License,
+ including a description of how and where You have fulfilled the
+ obligations of Section 3.2. The notice must be conspicuously included
+ in any notice in an Executable version, related documentation or
+ collateral in which You describe recipients' rights relating to the
+ Covered Code. You may distribute the Executable version of Covered
+ Code or ownership rights under a license of Your choice, which may
+ contain terms different from this License, provided that You are in
+ compliance with the terms of this License and that the license for the
+ Executable version does not attempt to limit or alter the recipient's
+ rights in the Source Code version from the rights set forth in this
+ License. If You distribute the Executable version under a different
+ license You must make it absolutely clear that any terms which differ
+ from this License are offered by You alone, not by the Initial
+ Developer or any Contributor. You hereby agree to indemnify the
+ Initial Developer and every Contributor for any liability incurred by
+ the Initial Developer or such Contributor as a result of any such
+ terms You offer.
+
+ 3.7. Larger Works.
+ You may create a Larger Work by combining Covered Code with other code
+ not governed by the terms of this License and distribute the Larger
+ Work as a single product. In such a case, You must make sure the
+ requirements of this License are fulfilled for the Covered Code.
+
+4. Inability to Comply Due to Statute or Regulation.
+
+ If it is impossible for You to comply with any of the terms of this
+ License with respect to some or all of the Covered Code due to
+ statute, judicial order, or regulation then You must: (a) comply with
+ the terms of this License to the maximum extent possible; and (b)
+ describe the limitations and the code they affect. Such description
+ must be included in the LEGAL file described in Section 3.4 and must
+ be included with all distributions of the Source Code. Except to the
+ extent prohibited by statute or regulation, such description must be
+ sufficiently detailed for a recipient of ordinary skill to be able to
+ understand it.
+
+5. Application of this License.
+
+ This License applies to code to which the Initial Developer has
+ attached the notice in Exhibit A and to related Covered Code.
+
+6. Versions of the License.
+
+ 6.1. New Versions.
+ Netscape Communications Corporation ("Netscape") may publish revised
+ and/or new versions of the License from time to time. Each version
+ will be given a distinguishing version number.
+
+ 6.2. Effect of New Versions.
+ Once Covered Code has been published under a particular version of the
+ License, You may always continue to use it under the terms of that
+ version. You may also choose to use such Covered Code under the terms
+ of any subsequent version of the License published by Netscape. No one
+ other than Netscape has the right to modify the terms applicable to
+ Covered Code created under this License.
+
+ 6.3. Derivative Works.
+ If You create or use a modified version of this License (which you may
+ only do in order to apply it to code which is not already Covered Code
+ governed by this License), You must (a) rename Your license so that
+ the phrases "Mozilla", "MOZILLAPL", "MOZPL", "Netscape",
+ "MPL", "NPL" or any confusingly similar phrase do not appear in your
+ license (except to note that your license differs from this License)
+ and (b) otherwise make it clear that Your version of the license
+ contains terms which differ from the Mozilla Public License and
+ Netscape Public License. (Filling in the name of the Initial
+ Developer, Original Code or Contributor in the notice described in
+ Exhibit A shall not of themselves be deemed to be modifications of
+ this License.)
+
+7. DISCLAIMER OF WARRANTY.
+
+ COVERED CODE IS PROVIDED UNDER THIS LICENSE ON AN "AS IS" BASIS,
+ WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ WITHOUT LIMITATION, WARRANTIES THAT THE COVERED CODE IS FREE OF
+ DEFECTS, MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE OR NON-INFRINGING.
+ THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE COVERED CODE
+ IS WITH YOU. SHOULD ANY COVERED CODE PROVE DEFECTIVE IN ANY RESPECT,
+ YOU (NOT THE INITIAL DEVELOPER OR ANY OTHER CONTRIBUTOR) ASSUME THE
+ COST OF ANY NECESSARY SERVICING, REPAIR OR CORRECTION. THIS DISCLAIMER
+ OF WARRANTY CONSTITUTES AN ESSENTIAL PART OF THIS LICENSE. NO USE OF
+ ANY COVERED CODE IS AUTHORIZED HEREUNDER EXCEPT UNDER THIS DISCLAIMER.
+
+8. TERMINATION.
+
+ 8.1. This License and the rights granted hereunder will terminate
+ automatically if You fail to comply with terms herein and fail to cure
+ such breach within 30 days of becoming aware of the breach. All
+ sublicenses to the Covered Code which are properly granted shall
+ survive any termination of this License. Provisions which, by their
+ nature, must remain in effect beyond the termination of this License
+ shall survive.
+
+ 8.2. If You initiate litigation by asserting a patent infringement
+ claim (excluding declatory judgment actions) against Initial Developer
+ or a Contributor (the Initial Developer or Contributor against whom
+ You file such action is referred to as "Participant") alleging that:
+
+ (a) such Participant's Contributor Version directly or indirectly
+ infringes any patent, then any and all rights granted by such
+ Participant to You under Sections 2.1 and/or 2.2 of this License
+ shall, upon 60 days notice from Participant terminate prospectively,
+ unless if within 60 days after receipt of notice You either: (i)
+ agree in writing to pay Participant a mutually agreeable reasonable
+ royalty for Your past and future use of Modifications made by such
+ Participant, or (ii) withdraw Your litigation claim with respect to
+ the Contributor Version against such Participant. If within 60 days
+ of notice, a reasonable royalty and payment arrangement are not
+ mutually agreed upon in writing by the parties or the litigation claim
+ is not withdrawn, the rights granted by Participant to You under
+ Sections 2.1 and/or 2.2 automatically terminate at the expiration of
+ the 60 day notice period specified above.
+
+ (b) any software, hardware, or device, other than such Participant's
+ Contributor Version, directly or indirectly infringes any patent, then
+ any rights granted to You by such Participant under Sections 2.1(b)
+ and 2.2(b) are revoked effective as of the date You first made, used,
+ sold, distributed, or had made, Modifications made by that
+ Participant.
+
+ 8.3. If You assert a patent infringement claim against Participant
+ alleging that such Participant's Contributor Version directly or
+ indirectly infringes any patent where such claim is resolved (such as
+ by license or settlement) prior to the initiation of patent
+ infringement litigation, then the reasonable value of the licenses
+ granted by such Participant under Sections 2.1 or 2.2 shall be taken
+ into account in determining the amount or value of any payment or
+ license.
+
+ 8.4. In the event of termination under Sections 8.1 or 8.2 above,
+ all end user license agreements (excluding distributors and resellers)
+ which have been validly granted by You or any distributor hereunder
+ prior to termination shall survive termination.
+
+9. LIMITATION OF LIABILITY.
+
+ UNDER NO CIRCUMSTANCES AND UNDER NO LEGAL THEORY, WHETHER TORT
+ (INCLUDING NEGLIGENCE), CONTRACT, OR OTHERWISE, SHALL YOU, THE INITIAL
+ DEVELOPER, ANY OTHER CONTRIBUTOR, OR ANY DISTRIBUTOR OF COVERED CODE,
+ OR ANY SUPPLIER OF ANY OF SUCH PARTIES, BE LIABLE TO ANY PERSON FOR
+ ANY INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES OF ANY
+ CHARACTER INCLUDING, WITHOUT LIMITATION, DAMAGES FOR LOSS OF GOODWILL,
+ WORK STOPPAGE, COMPUTER FAILURE OR MALFUNCTION, OR ANY AND ALL OTHER
+ COMMERCIAL DAMAGES OR LOSSES, EVEN IF SUCH PARTY SHALL HAVE BEEN
+ INFORMED OF THE POSSIBILITY OF SUCH DAMAGES. THIS LIMITATION OF
+ LIABILITY SHALL NOT APPLY TO LIABILITY FOR DEATH OR PERSONAL INJURY
+ RESULTING FROM SUCH PARTY'S NEGLIGENCE TO THE EXTENT APPLICABLE LAW
+ PROHIBITS SUCH LIMITATION. SOME JURISDICTIONS DO NOT ALLOW THE
+ EXCLUSION OR LIMITATION OF INCIDENTAL OR CONSEQUENTIAL DAMAGES, SO
+ THIS EXCLUSION AND LIMITATION MAY NOT APPLY TO YOU.
+
+10. U.S. GOVERNMENT END USERS.
+
+ The Covered Code is a "commercial item," as that term is defined in
+ 48 C.F.R. 2.101 (Oct. 1995), consisting of "commercial computer
+ software" and "commercial computer software documentation," as such
+ terms are used in 48 C.F.R. 12.212 (Sept. 1995). Consistent with 48
+ C.F.R. 12.212 and 48 C.F.R. 227.7202-1 through 227.7202-4 (June 1995),
+ all U.S. Government End Users acquire Covered Code with only those
+ rights set forth herein.
+
+11. MISCELLANEOUS.
+
+ This License represents the complete agreement concerning subject
+ matter hereof. If any provision of this License is held to be
+ unenforceable, such provision shall be reformed only to the extent
+ necessary to make it enforceable. This License shall be governed by
+ California law provisions (except to the extent applicable law, if
+ any, provides otherwise), excluding its conflict-of-law provisions.
+ With respect to disputes in which at least one party is a citizen of,
+ or an entity chartered or registered to do business in the United
+ States of America, any litigation relating to this License shall be
+ subject to the jurisdiction of the Federal Courts of the Northern
+ District of California, with venue lying in Santa Clara County,
+ California, with the losing party responsible for costs, including
+ without limitation, court costs and reasonable attorneys' fees and
+ expenses. The application of the United Nations Convention on
+ Contracts for the International Sale of Goods is expressly excluded.
+ Any law or regulation which provides that the language of a contract
+ shall be construed against the drafter shall not apply to this
+ License.
+
+12. RESPONSIBILITY FOR CLAIMS.
+
+ As between Initial Developer and the Contributors, each party is
+ responsible for claims and damages arising, directly or indirectly,
+ out of its utilization of rights under this License and You agree to
+ work with Initial Developer and Contributors to distribute such
+ responsibility on an equitable basis. Nothing herein is intended or
+ shall be deemed to constitute any admission of liability.
+
+13. MULTIPLE-LICENSED CODE.
+
+ Initial Developer may designate portions of the Covered Code as
+ "Multiple-Licensed". "Multiple-Licensed" means that the Initial
+ Developer permits you to utilize portions of the Covered Code under
+ Your choice of the NPL or the alternative licenses, if any, specified
+ by the Initial Developer in the file described in Exhibit A.
+
+EXHIBIT A -Mozilla Public License.
+
+ ``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 ______________________________________.
+
+ The Initial Developer of the Original Code is ________________________.
+ Portions created by ______________________ are Copyright (C) ______
+ _______________________. All Rights Reserved.
+
+ Contributor(s): ______________________________________.
+
+ Alternatively, the contents of this file may be used under the terms
+ of the _____ license (the "[___] License"), in which case the
+ provisions of [______] License are applicable instead of those
+ above. If you wish to allow use of your version of this file only
+ under the terms of the [____] License and not to allow others to use
+ your version of this file under the MPL, indicate your decision by
+ deleting the provisions above and replace them with the notice and
+ other provisions required by the [___] License. If you do not delete
+ the provisions above, a recipient may use your version of this file
+ under either the MPL or the [___] License."
+
+ [NOTE: The text of this Exhibit A may differ slightly from the text of
+ the notices in the Source Code files of the Original Code. You should
+ use the text of this Exhibit A rather than the text found in the
+ Original Code Source Code for Your Modifications.]
+
Property changes on: trunk/jcl/LICENSE.txt
___________________________________________________________________
Added: svn:eol-style
+ native
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2008-08-04 09:51:50
|
Revision: 2408
http://jcl.svn.sourceforge.net/jcl/?rev=2408&view=rev
Author: outchy
Date: 2008-08-04 09:51:41 +0000 (Mon, 04 Aug 2008)
Log Message:
-----------
fixed compilation of examples.
Modified Paths:
--------------
trunk/jcl/examples/C10.exc
trunk/jcl/examples/C5.exc
trunk/jcl/examples/C6.exc
trunk/jcl/examples/D10.exc
trunk/jcl/examples/D11.exc
trunk/jcl/examples/D5.exc
trunk/jcl/examples/D6.exc
trunk/jcl/examples/D7.exc
trunk/jcl/examples/D9.exc
trunk/jcl/examples/ExtraRequirements.exc
trunk/jcl/examples/common/containers/lists/ListExampleMain.dfm
trunk/jcl/examples/common/containers/lists/ListExampleMain.pas
trunk/jcl/examples/common/containers/performance/ContainerPerformanceTests.pas
Removed Paths:
-------------
trunk/jcl/examples/k3.exc
trunk/jcl/examples/visclx.exc
Modified: trunk/jcl/examples/C10.exc
===================================================================
--- trunk/jcl/examples/C10.exc 2008-08-04 09:16:57 UTC (rev 2407)
+++ trunk/jcl/examples/C10.exc 2008-08-04 09:51:41 UTC (rev 2408)
@@ -1,2 +1 @@
ExtraRequirements.exc
-visclx.exc
\ No newline at end of file
Modified: trunk/jcl/examples/C5.exc
===================================================================
--- trunk/jcl/examples/C5.exc 2008-08-04 09:16:57 UTC (rev 2407)
+++ trunk/jcl/examples/C5.exc 2008-08-04 09:51:41 UTC (rev 2408)
@@ -1,2 +1 @@
ExtraRequirements.exc
-visclx.exc
\ No newline at end of file
Modified: trunk/jcl/examples/C6.exc
===================================================================
--- trunk/jcl/examples/C6.exc 2008-08-04 09:16:57 UTC (rev 2407)
+++ trunk/jcl/examples/C6.exc 2008-08-04 09:51:41 UTC (rev 2408)
@@ -1,2 +1 @@
ExtraRequirements.exc
-visclx.exc
\ No newline at end of file
Modified: trunk/jcl/examples/D10.exc
===================================================================
--- trunk/jcl/examples/D10.exc 2008-08-04 09:16:57 UTC (rev 2407)
+++ trunk/jcl/examples/D10.exc 2008-08-04 09:51:41 UTC (rev 2408)
@@ -1,2 +1 @@
ExtraRequirements.exc
-visclx.exc
\ No newline at end of file
Modified: trunk/jcl/examples/D11.exc
===================================================================
--- trunk/jcl/examples/D11.exc 2008-08-04 09:16:57 UTC (rev 2407)
+++ trunk/jcl/examples/D11.exc 2008-08-04 09:51:41 UTC (rev 2408)
@@ -1,2 +1 @@
ExtraRequirements.exc
-visclx.exc
\ No newline at end of file
Modified: trunk/jcl/examples/D5.exc
===================================================================
--- trunk/jcl/examples/D5.exc 2008-08-04 09:16:57 UTC (rev 2407)
+++ trunk/jcl/examples/D5.exc 2008-08-04 09:51:41 UTC (rev 2408)
@@ -1,2 +1 @@
ExtraRequirements.exc
-visclx.exc
\ No newline at end of file
Modified: trunk/jcl/examples/D6.exc
===================================================================
--- trunk/jcl/examples/D6.exc 2008-08-04 09:16:57 UTC (rev 2407)
+++ trunk/jcl/examples/D6.exc 2008-08-04 09:51:41 UTC (rev 2408)
@@ -1,2 +1 @@
ExtraRequirements.exc
-visclx.exc
\ No newline at end of file
Modified: trunk/jcl/examples/D7.exc
===================================================================
--- trunk/jcl/examples/D7.exc 2008-08-04 09:16:57 UTC (rev 2407)
+++ trunk/jcl/examples/D7.exc 2008-08-04 09:51:41 UTC (rev 2408)
@@ -1,2 +1 @@
ExtraRequirements.exc
-visclx.exc
\ No newline at end of file
Modified: trunk/jcl/examples/D9.exc
===================================================================
--- trunk/jcl/examples/D9.exc 2008-08-04 09:16:57 UTC (rev 2407)
+++ trunk/jcl/examples/D9.exc 2008-08-04 09:51:41 UTC (rev 2408)
@@ -1,2 +1 @@
ExtraRequirements.exc
-visclx.exc
\ No newline at end of file
Modified: trunk/jcl/examples/ExtraRequirements.exc
===================================================================
--- trunk/jcl/examples/ExtraRequirements.exc 2008-08-04 09:16:57 UTC (rev 2407)
+++ trunk/jcl/examples/ExtraRequirements.exc 2008-08-04 09:51:41 UTC (rev 2408)
@@ -1,5 +1,5 @@
common\multimedia\MidiOutExample.dpr=spin.dcu
-common\numformat\QNumFormatExample.dpr=spin.dpu
+common\numformat\NumFormatExample.dpr=spin.dcu
windows\debug\sourceloc\SourceLocExample.dpr=spin.dcu
windows\delphitools\peviewer\PeViewer.dpr=spin.dcu
-windows\tasks\TaskDemo.dpr=MsHtml.dcu
\ No newline at end of file
+windows\tasks\TaskDemo.dpr=MsHtml.dcu
Modified: trunk/jcl/examples/common/containers/lists/ListExampleMain.dfm
===================================================================
--- trunk/jcl/examples/common/containers/lists/ListExampleMain.dfm 2008-08-04 09:16:57 UTC (rev 2407)
+++ trunk/jcl/examples/common/containers/lists/ListExampleMain.dfm 2008-08-04 09:51:41 UTC (rev 2408)
@@ -6,6 +6,7 @@
HorzScrollBar.Range = 508
VertScrollBar.Range = 217
ActiveControl = btnIntfArrayList
+ AutoScroll = False
Caption = 'List Example'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Modified: trunk/jcl/examples/common/containers/lists/ListExampleMain.pas
===================================================================
--- trunk/jcl/examples/common/containers/lists/ListExampleMain.pas 2008-08-04 09:16:57 UTC (rev 2407)
+++ trunk/jcl/examples/common/containers/lists/ListExampleMain.pas 2008-08-04 09:51:41 UTC (rev 2408)
@@ -228,7 +228,7 @@
// Fastest way
for I := 0 to List.Size - 1 do
begin
- MyObject := IIntfMyObject(List.Items[I]);
+ MyObject := IIntfMyObject(List.Objects[I]);
memResult.Lines.Add(IntToStr(MyObject.Int) + ' ' + MyObject.Str);
end;
List.Clear;
@@ -330,7 +330,7 @@
// Fastest way
for I := 0 to List.Size - 1 do
begin
- MyObject := TMyObject(List.Items[I]);
+ MyObject := TMyObject(List.Objects[I]);
memResult.Lines.Add(IntToStr(MyObject.Int) + ' ' + MyObject.Str);
end;
List.Clear;
@@ -526,7 +526,7 @@
// Fastest way
for I := 0 to List.Size - 1 do
begin
- S := List.Items[I];
+ S := List.Strings[I];
memResult.Lines.Add(S);
end;
List.Clear;
@@ -561,7 +561,7 @@
// Fastest way
for I := 0 to List.Size - 1 do
begin
- S := List.Items[I];
+ S := List.Strings[I];
memResult.Lines.Add(S);
end;
List.Clear;
Modified: trunk/jcl/examples/common/containers/performance/ContainerPerformanceTests.pas
===================================================================
--- trunk/jcl/examples/common/containers/performance/ContainerPerformanceTests.pas 2008-08-04 09:16:57 UTC (rev 2407)
+++ trunk/jcl/examples/common/containers/performance/ContainerPerformanceTests.pas 2008-08-04 09:51:41 UTC (rev 2408)
@@ -172,7 +172,7 @@
Results[1] := Format(ResultFormat, [(Now - Start) * MsecsPerDay]);
Start := Now;
for I := 0 to List.Size - 1 do
- Res := Integer(List.Items[I]);
+ Res := Integer(List.Objects[I]);
Results[2] := Format(ResultFormat, [(Now - Start) * MsecsPerDay]);
Start := Now;
for I := 0 to 200 do
@@ -180,9 +180,9 @@
Results[3] := Format(ResultFormat, [(Now - Start) * MsecsPerDay]);
Start := Now;
for I := List.Size - 1 downto 20 do
- List.Items[I - 10] := List.Items[I];
+ List.Objects[I - 10] := List.Objects[I];
for I := 0 to 10 do
- List.Items[I + 10] := TObject(I);
+ List.Objects[I + 10] := TObject(I);
Results[4] := Format(ResultFormat, [(Now - Start) * MsecsPerDay]);
Start := Now;
List.Clear;
Deleted: trunk/jcl/examples/k3.exc
===================================================================
--- trunk/jcl/examples/k3.exc 2008-08-04 09:16:57 UTC (rev 2407)
+++ trunk/jcl/examples/k3.exc 2008-08-04 09:51:41 UTC (rev 2408)
@@ -1,49 +0,0 @@
-windows/ntfs/JEDISoftLinks.dpr
-windows/appinst/AppInstExample.dpr
-windows/appinst/SingleInstExample.dpr
-windows/asuser/CreateProcAsUserExample.dpr
-windows/clr/ClrDemo.dpr
-windows/debug/framestrack/FramesTrackExample.dpr
-windows/debug/sourceloc/SourceLocExample.dpr
-windows/debug/stacktrack/StackTrackDLLsComLibrary.dpr
-windows/debug/stacktrack/StackTrackDLLsDynamicLibrary.dpr
-windows/debug/stacktrack/StackTrackDLLsStaticLibrary.dpr
-windows/debug/stacktrack/StackTrackExample.dpr
-windows/debug/stacktrack/StackTrackDLLsExample.dpr
-windows/debug/threadexcept/ThreadExceptExample.dpr
-windows/delphitools/dependencyviewer/DependView.dpr
-windows/delphitools/peviewer/PeViewer.dpr
-windows/delphitools/resfix/ResFix.dpr
-windows/delphitools/screenjpg/ScreenJPG.dpr
-windows/delphitools/toolhelpview/ToolHelpViewer.dpr
-windows/edisdk/EDICOMExample.dpr
-windows/edisdk/comserver/EDISDK.dpr
-windows/fileversion/VerInfoExample.dpr
-windows/lanman/LanManExample.dpr
-windows/locales/LocalesExample.dpr
-windows/mapi/MapiExample.dpr
-windows/mapi/ReadMailExample.dpr
-windows/multimedia/MultiMediaExample.dpr
-windows/ntservice/NtSvcExample.dpr
-windows/peimage/ApiHookExample.dpr
-windows/peimage/PeFuncExample.dpr
-windows/peimage/UnmangleNameExample.dpr
-windows/registry/RegistryExample.dpr
-windows/structstorage/StructStorageExample.dpr
-windows/sysinfo/SysInfoExample.dpr
-windows/tasks/TaskDemo.dpr
-windows/ConsoleExamples.dpr
-common/pcre/PCREDemo.dpr
-common/expreval/ExprEvalExample.dpr
-common/containers/algorithms/AlgorithmsExample.dpr
-common/containers/hashing/HashingExample.dpr
-common/containers/lists/ListExample.dpr
-common/containers/performance/ContainerPerformance.dpr
-common/containers/trees/TreeExample.dpr
-common/graphics/StretchGraphicExample.dpr
-common/multimedia/MidiOutExample.dpr
-common/rtti/RTTIExample.dpr
-common/textreader/TextReaderExample.dpr
-common/unitversioning/UnitVersioningTest.dpr
-common/unitversioning/UnitVersioningTestDLL.dpr
-ExtraRequirements.exc
\ No newline at end of file
Deleted: trunk/jcl/examples/visclx.exc
===================================================================
--- trunk/jcl/examples/visclx.exc 2008-08-04 09:16:57 UTC (rev 2407)
+++ trunk/jcl/examples/visclx.exc 2008-08-04 09:51:41 UTC (rev 2408)
@@ -1,7 +0,0 @@
-common\pcre\QPCREDemo.dpr
-common\expreval\QExprEvalExample.dpr
-common\filesearch\QFileSearchDemo.dpr
-common\graphics\QClipLineDemo.dpr
-common\numformat\QNumFormatExample.dpr
-common\rtti\QRTTIDemo.dpr
-common\sysinfo\QEnvironmentExample.dpr
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2008-08-04 09:17:01
|
Revision: 2407
http://jcl.svn.sourceforge.net/jcl/?rev=2407&view=rev
Author: outchy
Date: 2008-08-04 09:16:57 +0000 (Mon, 04 Aug 2008)
Log Message:
-----------
filter *.dproj out of the list of demos.
Modified Paths:
--------------
trunk/jcl/install/JclInstall.pas
Modified: trunk/jcl/install/JclInstall.pas
===================================================================
--- trunk/jcl/install/JclInstall.pas 2008-07-29 18:42:46 UTC (rev 2406)
+++ trunk/jcl/install/JclInstall.pas 2008-08-04 09:16:57 UTC (rev 2407)
@@ -3167,7 +3167,8 @@
procedure TJclInstallation.AddDemo(const Directory: string; const FileInfo: TSearchRec);
begin
- FDemoList.Append(Directory + FileInfo.Name);
+ if StrCompare(ExtractFileExt(FileInfo.Name),'.dpr') = 0 then
+ FDemoList.Append(Directory + FileInfo.Name);
end;
procedure TJclInstallation.AddDemos(const Directory: string);
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2008-07-29 18:42:49
|
Revision: 2406
http://jcl.svn.sourceforge.net/jcl/?rev=2406&view=rev
Author: outchy
Date: 2008-07-29 18:42:46 +0000 (Tue, 29 Jul 2008)
Log Message:
-----------
tag for JCL 1.102 build 3072.
Added Paths:
-----------
tags/JCL-1.102-Build3072/
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2008-07-29 18:25:43
|
Revision: 2405
http://jcl.svn.sourceforge.net/jcl/?rev=2405&view=rev
Author: outchy
Date: 2008-07-29 18:25:06 +0000 (Tue, 29 Jul 2008)
Log Message:
-----------
updating version numbers to JCL 1.102.1.3072 (stable).
Modified Paths:
--------------
branches/JCL_1.102/jcl/devtools/pgEdit.xml
branches/JCL_1.102/jcl/packages/c5/JclBaseExpertC50.rc
branches/JCL_1.102/jcl/packages/c5/JclBaseExpertC50.res
branches/JCL_1.102/jcl/packages/c5/JclC50.rc
branches/JCL_1.102/jcl/packages/c5/JclC50.res
branches/JCL_1.102/jcl/packages/c5/JclContainersC50.rc
branches/JCL_1.102/jcl/packages/c5/JclContainersC50.res
branches/JCL_1.102/jcl/packages/c5/JclDebugExpertC50.RES
branches/JCL_1.102/jcl/packages/c5/JclDebugExpertC50.rc
branches/JCL_1.102/jcl/packages/c5/JclDebugExpertDLLC50.rc
branches/JCL_1.102/jcl/packages/c5/JclDebugExpertDLLC50.res
branches/JCL_1.102/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc
branches/JCL_1.102/jcl/packages/c5/JclFavoriteFoldersExpertC50.res
branches/JCL_1.102/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc
branches/JCL_1.102/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.res
branches/JCL_1.102/jcl/packages/c5/JclProjectAnalysisExpertC50.RES
branches/JCL_1.102/jcl/packages/c5/JclProjectAnalysisExpertC50.rc
branches/JCL_1.102/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc
branches/JCL_1.102/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.res
branches/JCL_1.102/jcl/packages/c5/JclRepositoryExpertC50.rc
branches/JCL_1.102/jcl/packages/c5/JclRepositoryExpertC50.res
branches/JCL_1.102/jcl/packages/c5/JclRepositoryExpertDLLC50.rc
branches/JCL_1.102/jcl/packages/c5/JclRepositoryExpertDLLC50.res
branches/JCL_1.102/jcl/packages/c5/JclSIMDViewExpertC50.rc
branches/JCL_1.102/jcl/packages/c5/JclSIMDViewExpertC50.res
branches/JCL_1.102/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc
branches/JCL_1.102/jcl/packages/c5/JclSIMDViewExpertDLLC50.res
branches/JCL_1.102/jcl/packages/c5/JclThreadNameExpertC50.RES
branches/JCL_1.102/jcl/packages/c5/JclThreadNameExpertC50.rc
branches/JCL_1.102/jcl/packages/c5/JclThreadNameExpertDLLC50.rc
branches/JCL_1.102/jcl/packages/c5/JclThreadNameExpertDLLC50.res
branches/JCL_1.102/jcl/packages/c5/JclUsesExpertC50.RES
branches/JCL_1.102/jcl/packages/c5/JclUsesExpertC50.rc
branches/JCL_1.102/jcl/packages/c5/JclUsesExpertDLLC50.rc
branches/JCL_1.102/jcl/packages/c5/JclUsesExpertDLLC50.res
branches/JCL_1.102/jcl/packages/c5/JclVersionControlExpertC50.rc
branches/JCL_1.102/jcl/packages/c5/JclVersionControlExpertC50.res
branches/JCL_1.102/jcl/packages/c5/JclVersionControlExpertDLLC50.rc
branches/JCL_1.102/jcl/packages/c5/JclVersionControlExpertDLLC50.res
branches/JCL_1.102/jcl/packages/c6/Jcl.RES
branches/JCL_1.102/jcl/packages/c6/Jcl.rc
branches/JCL_1.102/jcl/packages/c6/JclBaseExpert.rc
branches/JCL_1.102/jcl/packages/c6/JclBaseExpert.res
branches/JCL_1.102/jcl/packages/c6/JclContainers.rc
branches/JCL_1.102/jcl/packages/c6/JclContainers.res
branches/JCL_1.102/jcl/packages/c6/JclDebugExpert.RES
branches/JCL_1.102/jcl/packages/c6/JclDebugExpert.rc
branches/JCL_1.102/jcl/packages/c6/JclDebugExpertDLL.rc
branches/JCL_1.102/jcl/packages/c6/JclDebugExpertDLL.res
branches/JCL_1.102/jcl/packages/c6/JclFavoriteFoldersExpert.RES
branches/JCL_1.102/jcl/packages/c6/JclFavoriteFoldersExpert.rc
branches/JCL_1.102/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc
branches/JCL_1.102/jcl/packages/c6/JclFavoriteFoldersExpertDLL.res
branches/JCL_1.102/jcl/packages/c6/JclProjectAnalysisExpert.RES
branches/JCL_1.102/jcl/packages/c6/JclProjectAnalysisExpert.rc
branches/JCL_1.102/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc
branches/JCL_1.102/jcl/packages/c6/JclProjectAnalysisExpertDLL.res
branches/JCL_1.102/jcl/packages/c6/JclRepositoryExpert.rc
branches/JCL_1.102/jcl/packages/c6/JclRepositoryExpert.res
branches/JCL_1.102/jcl/packages/c6/JclRepositoryExpertDLL.rc
branches/JCL_1.102/jcl/packages/c6/JclRepositoryExpertDLL.res
branches/JCL_1.102/jcl/packages/c6/JclSIMDViewExpert.rc
branches/JCL_1.102/jcl/packages/c6/JclSIMDViewExpert.res
branches/JCL_1.102/jcl/packages/c6/JclSIMDViewExpertDLL.rc
branches/JCL_1.102/jcl/packages/c6/JclSIMDViewExpertDLL.res
branches/JCL_1.102/jcl/packages/c6/JclThreadNameExpert.RES
branches/JCL_1.102/jcl/packages/c6/JclThreadNameExpert.rc
branches/JCL_1.102/jcl/packages/c6/JclThreadNameExpertDLL.rc
branches/JCL_1.102/jcl/packages/c6/JclThreadNameExpertDLL.res
branches/JCL_1.102/jcl/packages/c6/JclUsesExpert.RES
branches/JCL_1.102/jcl/packages/c6/JclUsesExpert.rc
branches/JCL_1.102/jcl/packages/c6/JclUsesExpertDLL.rc
branches/JCL_1.102/jcl/packages/c6/JclUsesExpertDLL.res
branches/JCL_1.102/jcl/packages/c6/JclVClx.RES
branches/JCL_1.102/jcl/packages/c6/JclVClx.rc
branches/JCL_1.102/jcl/packages/c6/JclVcl.RES
branches/JCL_1.102/jcl/packages/c6/JclVcl.rc
branches/JCL_1.102/jcl/packages/c6/JclVersionControlExpert.rc
branches/JCL_1.102/jcl/packages/c6/JclVersionControlExpert.res
branches/JCL_1.102/jcl/packages/c6/JclVersionControlExpertDLL.rc
branches/JCL_1.102/jcl/packages/c6/JclVersionControlExpertDLL.res
branches/JCL_1.102/jcl/packages/cs1/Jcl.RES
branches/JCL_1.102/jcl/packages/cs1/Jcl.bdsproj
branches/JCL_1.102/jcl/packages/cs1/Jcl.rc
branches/JCL_1.102/jcl/packages/cs1/JclBaseExpert.RES
branches/JCL_1.102/jcl/packages/cs1/JclBaseExpert.bdsproj
branches/JCL_1.102/jcl/packages/cs1/JclBaseExpert.rc
branches/JCL_1.102/jcl/packages/cs1/JclContainers.bdsproj
branches/JCL_1.102/jcl/packages/cs1/JclContainers.rc
branches/JCL_1.102/jcl/packages/cs1/JclContainers.res
branches/JCL_1.102/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.RES
branches/JCL_1.102/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj
branches/JCL_1.102/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.rc
branches/JCL_1.102/jcl/packages/cs1/JclVersionControlExpertDLL.bdsproj
branches/JCL_1.102/jcl/packages/cs1/JclVersionControlExpertDLL.rc
branches/JCL_1.102/jcl/packages/cs1/JclVersionControlExpertDLL.res
branches/JCL_1.102/jcl/packages/d10/Jcl.bdsproj
branches/JCL_1.102/jcl/packages/d10/Jcl.rc
branches/JCL_1.102/jcl/packages/d10/Jcl.res
branches/JCL_1.102/jcl/packages/d10/JclBaseExpert.bdsproj
branches/JCL_1.102/jcl/packages/d10/JclBaseExpert.rc
branches/JCL_1.102/jcl/packages/d10/JclBaseExpert.res
branches/JCL_1.102/jcl/packages/d10/JclContainers.bdsproj
branches/JCL_1.102/jcl/packages/d10/JclContainers.rc
branches/JCL_1.102/jcl/packages/d10/JclContainers.res
branches/JCL_1.102/jcl/packages/d10/JclDebugExpert.bdsproj
branches/JCL_1.102/jcl/packages/d10/JclDebugExpert.rc
branches/JCL_1.102/jcl/packages/d10/JclDebugExpert.res
branches/JCL_1.102/jcl/packages/d10/JclDebugExpertDLL.bdsproj
branches/JCL_1.102/jcl/packages/d10/JclDebugExpertDLL.rc
branches/JCL_1.102/jcl/packages/d10/JclDebugExpertDLL.res
branches/JCL_1.102/jcl/packages/d10/JclFavoriteFoldersExpert.bdsproj
branches/JCL_1.102/jcl/packages/d10/JclFavoriteFoldersExpert.rc
branches/JCL_1.102/jcl/packages/d10/JclFavoriteFoldersExpert.res
branches/JCL_1.102/jcl/packages/d10/JclFavoriteFoldersExpertDLL.bdsproj
branches/JCL_1.102/jcl/packages/d10/JclFavoriteFoldersExpertDLL.rc
branches/JCL_1.102/jcl/packages/d10/JclFavoriteFoldersExpertDLL.res
branches/JCL_1.102/jcl/packages/d10/JclProjectAnalysisExpert.RES
branches/JCL_1.102/jcl/packages/d10/JclProjectAnalysisExpert.bdsproj
branches/JCL_1.102/jcl/packages/d10/JclProjectAnalysisExpert.rc
branches/JCL_1.102/jcl/packages/d10/JclProjectAnalysisExpertDLL.bdsproj
branches/JCL_1.102/jcl/packages/d10/JclProjectAnalysisExpertDLL.rc
branches/JCL_1.102/jcl/packages/d10/JclProjectAnalysisExpertDLL.res
branches/JCL_1.102/jcl/packages/d10/JclRepositoryExpert.bdsproj
branches/JCL_1.102/jcl/packages/d10/JclRepositoryExpert.rc
branches/JCL_1.102/jcl/packages/d10/JclRepositoryExpert.res
branches/JCL_1.102/jcl/packages/d10/JclRepositoryExpertDLL.bdsproj
branches/JCL_1.102/jcl/packages/d10/JclRepositoryExpertDLL.rc
branches/JCL_1.102/jcl/packages/d10/JclRepositoryExpertDLL.res
branches/JCL_1.102/jcl/packages/d10/JclSIMDViewExpert.bdsproj
branches/JCL_1.102/jcl/packages/d10/JclSIMDViewExpert.rc
branches/JCL_1.102/jcl/packages/d10/JclSIMDViewExpert.res
branches/JCL_1.102/jcl/packages/d10/JclSIMDViewExpertDLL.bdsproj
branches/JCL_1.102/jcl/packages/d10/JclSIMDViewExpertDLL.rc
branches/JCL_1.102/jcl/packages/d10/JclSIMDViewExpertDLL.res
branches/JCL_1.102/jcl/packages/d10/JclThreadNameExpert.bdsproj
branches/JCL_1.102/jcl/packages/d10/JclThreadNameExpert.rc
branches/JCL_1.102/jcl/packages/d10/JclThreadNameExpert.res
branches/JCL_1.102/jcl/packages/d10/JclThreadNameExpertDLL.bdsproj
branches/JCL_1.102/jcl/packages/d10/JclThreadNameExpertDLL.rc
branches/JCL_1.102/jcl/packages/d10/JclThreadNameExpertDLL.res
branches/JCL_1.102/jcl/packages/d10/JclVcl.bdsproj
branches/JCL_1.102/jcl/packages/d10/JclVcl.rc
branches/JCL_1.102/jcl/packages/d10/JclVcl.res
branches/JCL_1.102/jcl/packages/d10/JclVersionControlExpert.bdsproj
branches/JCL_1.102/jcl/packages/d10/JclVersionControlExpert.rc
branches/JCL_1.102/jcl/packages/d10/JclVersionControlExpert.res
branches/JCL_1.102/jcl/packages/d10/JclVersionControlExpertDLL.bdsproj
branches/JCL_1.102/jcl/packages/d10/JclVersionControlExpertDLL.rc
branches/JCL_1.102/jcl/packages/d10/JclVersionControlExpertDLL.res
branches/JCL_1.102/jcl/packages/d10.net/Jedi.Jcl.bdsproj
branches/JCL_1.102/jcl/packages/d10.net/Jedi.Jcl.dpk
branches/JCL_1.102/jcl/packages/d10.net/Jedi.JclContainers.bdsproj
branches/JCL_1.102/jcl/packages/d10.net/Jedi.JclContainers.dpk
branches/JCL_1.102/jcl/packages/d11/Jcl.dproj
branches/JCL_1.102/jcl/packages/d11/Jcl.rc
branches/JCL_1.102/jcl/packages/d11/Jcl.res
branches/JCL_1.102/jcl/packages/d11/JclBaseExpert.dproj
branches/JCL_1.102/jcl/packages/d11/JclBaseExpert.rc
branches/JCL_1.102/jcl/packages/d11/JclBaseExpert.res
branches/JCL_1.102/jcl/packages/d11/JclContainers.dproj
branches/JCL_1.102/jcl/packages/d11/JclContainers.rc
branches/JCL_1.102/jcl/packages/d11/JclContainers.res
branches/JCL_1.102/jcl/packages/d11/JclDebugExpert.dproj
branches/JCL_1.102/jcl/packages/d11/JclDebugExpert.rc
branches/JCL_1.102/jcl/packages/d11/JclDebugExpert.res
branches/JCL_1.102/jcl/packages/d11/JclDebugExpertDLL.dproj
branches/JCL_1.102/jcl/packages/d11/JclDebugExpertDLL.rc
branches/JCL_1.102/jcl/packages/d11/JclDebugExpertDLL.res
branches/JCL_1.102/jcl/packages/d11/JclFavoriteFoldersExpert.dproj
branches/JCL_1.102/jcl/packages/d11/JclFavoriteFoldersExpert.rc
branches/JCL_1.102/jcl/packages/d11/JclFavoriteFoldersExpert.res
branches/JCL_1.102/jcl/packages/d11/JclFavoriteFoldersExpertDLL.dproj
branches/JCL_1.102/jcl/packages/d11/JclFavoriteFoldersExpertDLL.rc
branches/JCL_1.102/jcl/packages/d11/JclFavoriteFoldersExpertDLL.res
branches/JCL_1.102/jcl/packages/d11/JclProjectAnalysisExpert.dproj
branches/JCL_1.102/jcl/packages/d11/JclProjectAnalysisExpert.rc
branches/JCL_1.102/jcl/packages/d11/JclProjectAnalysisExpert.res
branches/JCL_1.102/jcl/packages/d11/JclProjectAnalysisExpertDLL.dproj
branches/JCL_1.102/jcl/packages/d11/JclProjectAnalysisExpertDLL.rc
branches/JCL_1.102/jcl/packages/d11/JclProjectAnalysisExpertDLL.res
branches/JCL_1.102/jcl/packages/d11/JclRepositoryExpert.dproj
branches/JCL_1.102/jcl/packages/d11/JclRepositoryExpert.rc
branches/JCL_1.102/jcl/packages/d11/JclRepositoryExpert.res
branches/JCL_1.102/jcl/packages/d11/JclRepositoryExpertDLL.dproj
branches/JCL_1.102/jcl/packages/d11/JclRepositoryExpertDLL.rc
branches/JCL_1.102/jcl/packages/d11/JclRepositoryExpertDLL.res
branches/JCL_1.102/jcl/packages/d11/JclSIMDViewExpert.dproj
branches/JCL_1.102/jcl/packages/d11/JclSIMDViewExpert.rc
branches/JCL_1.102/jcl/packages/d11/JclSIMDViewExpert.res
branches/JCL_1.102/jcl/packages/d11/JclSIMDViewExpertDLL.dproj
branches/JCL_1.102/jcl/packages/d11/JclSIMDViewExpertDLL.rc
branches/JCL_1.102/jcl/packages/d11/JclSIMDViewExpertDLL.res
branches/JCL_1.102/jcl/packages/d11/JclThreadNameExpert.dproj
branches/JCL_1.102/jcl/packages/d11/JclThreadNameExpert.rc
branches/JCL_1.102/jcl/packages/d11/JclThreadNameExpert.res
branches/JCL_1.102/jcl/packages/d11/JclThreadNameExpertDLL.dproj
branches/JCL_1.102/jcl/packages/d11/JclThreadNameExpertDLL.rc
branches/JCL_1.102/jcl/packages/d11/JclThreadNameExpertDLL.res
branches/JCL_1.102/jcl/packages/d11/JclVcl.dproj
branches/JCL_1.102/jcl/packages/d11/JclVcl.rc
branches/JCL_1.102/jcl/packages/d11/JclVcl.res
branches/JCL_1.102/jcl/packages/d11/JclVersionControlExpert.dproj
branches/JCL_1.102/jcl/packages/d11/JclVersionControlExpert.rc
branches/JCL_1.102/jcl/packages/d11/JclVersionControlExpert.res
branches/JCL_1.102/jcl/packages/d11/JclVersionControlExpertDLL.dproj
branches/JCL_1.102/jcl/packages/d11/JclVersionControlExpertDLL.rc
branches/JCL_1.102/jcl/packages/d11/JclVersionControlExpertDLL.res
branches/JCL_1.102/jcl/packages/d11.net/Jedi.Jcl.dpk
branches/JCL_1.102/jcl/packages/d11.net/Jedi.Jcl.dproj
branches/JCL_1.102/jcl/packages/d11.net/Jedi.JclContainers.dpk
branches/JCL_1.102/jcl/packages/d11.net/Jedi.JclContainers.dproj
branches/JCL_1.102/jcl/packages/d5/JclBaseExpertD50.rc
branches/JCL_1.102/jcl/packages/d5/JclBaseExpertD50.res
branches/JCL_1.102/jcl/packages/d5/JclContainersD50.rc
branches/JCL_1.102/jcl/packages/d5/JclContainersD50.res
branches/JCL_1.102/jcl/packages/d5/JclD50.RES
branches/JCL_1.102/jcl/packages/d5/JclD50.rc
branches/JCL_1.102/jcl/packages/d5/JclDebugExpertD50.RES
branches/JCL_1.102/jcl/packages/d5/JclDebugExpertD50.rc
branches/JCL_1.102/jcl/packages/d5/JclDebugExpertDLLD50.RES
branches/JCL_1.102/jcl/packages/d5/JclDebugExpertDLLD50.rc
branches/JCL_1.102/jcl/packages/d5/JclFavoriteFoldersExpertD50.RES
branches/JCL_1.102/jcl/packages/d5/JclFavoriteFoldersExpertD50.rc
branches/JCL_1.102/jcl/packages/d5/JclFavoriteFoldersExpertDLLD50.RES
branches/JCL_1.102/jcl/packages/d5/JclFavoriteFoldersExpertDLLD50.rc
branches/JCL_1.102/jcl/packages/d5/JclProjectAnalysisExpertD50.RES
branches/JCL_1.102/jcl/packages/d5/JclProjectAnalysisExpertD50.rc
branches/JCL_1.102/jcl/packages/d5/JclProjectAnalysisExpertDLLD50.RES
branches/JCL_1.102/jcl/packages/d5/JclProjectAnalysisExpertDLLD50.rc
branches/JCL_1.102/jcl/packages/d5/JclRepositoryExpertD50.rc
branches/JCL_1.102/jcl/packages/d5/JclRepositoryExpertD50.res
branches/JCL_1.102/jcl/packages/d5/JclRepositoryExpertDLLD50.rc
branches/JCL_1.102/jcl/packages/d5/JclRepositoryExpertDLLD50.res
branches/JCL_1.102/jcl/packages/d5/JclSIMDViewExpertD50.RES
branches/JCL_1.102/jcl/packages/d5/JclSIMDViewExpertD50.rc
branches/JCL_1.102/jcl/packages/d5/JclSIMDViewExpertDLLD50.RES
branches/JCL_1.102/jcl/packages/d5/JclSIMDViewExpertDLLD50.rc
branches/JCL_1.102/jcl/packages/d5/JclThreadNameExpertD50.RES
branches/JCL_1.102/jcl/packages/d5/JclThreadNameExpertD50.rc
branches/JCL_1.102/jcl/packages/d5/JclThreadNameExpertDLLD50.RES
branches/JCL_1.102/jcl/packages/d5/JclThreadNameExpertDLLD50.rc
branches/JCL_1.102/jcl/packages/d5/JclUsesExpertD50.RES
branches/JCL_1.102/jcl/packages/d5/JclUsesExpertD50.rc
branches/JCL_1.102/jcl/packages/d5/JclUsesExpertDLLD50.RES
branches/JCL_1.102/jcl/packages/d5/JclUsesExpertDLLD50.rc
branches/JCL_1.102/jcl/packages/d5/JclVersionControlExpertD50.rc
branches/JCL_1.102/jcl/packages/d5/JclVersionControlExpertD50.res
branches/JCL_1.102/jcl/packages/d5/JclVersionControlExpertDLLD50.rc
branches/JCL_1.102/jcl/packages/d5/JclVersionControlExpertDLLD50.res
branches/JCL_1.102/jcl/packages/d6/Jcl.rc
branches/JCL_1.102/jcl/packages/d6/Jcl.res
branches/JCL_1.102/jcl/packages/d6/JclBaseExpert.rc
branches/JCL_1.102/jcl/packages/d6/JclBaseExpert.res
branches/JCL_1.102/jcl/packages/d6/JclContainers.rc
branches/JCL_1.102/jcl/packages/d6/JclContainers.res
branches/JCL_1.102/jcl/packages/d6/JclDebugExpert.rc
branches/JCL_1.102/jcl/packages/d6/JclDebugExpert.res
branches/JCL_1.102/jcl/packages/d6/JclDebugExpertDLL.RES
branches/JCL_1.102/jcl/packages/d6/JclDebugExpertDLL.rc
branches/JCL_1.102/jcl/packages/d6/JclFavoriteFoldersExpert.rc
branches/JCL_1.102/jcl/packages/d6/JclFavoriteFoldersExpert.res
branches/JCL_1.102/jcl/packages/d6/JclFavoriteFoldersExpertDLL.RES
branches/JCL_1.102/jcl/packages/d6/JclFavoriteFoldersExpertDLL.rc
branches/JCL_1.102/jcl/packages/d6/JclProjectAnalysisExpert.RES
branches/JCL_1.102/jcl/packages/d6/JclProjectAnalysisExpert.rc
branches/JCL_1.102/jcl/packages/d6/JclProjectAnalysisExpertDLL.RES
branches/JCL_1.102/jcl/packages/d6/JclProjectAnalysisExpertDLL.rc
branches/JCL_1.102/jcl/packages/d6/JclRepositoryExpert.rc
branches/JCL_1.102/jcl/packages/d6/JclRepositoryExpert.res
branches/JCL_1.102/jcl/packages/d6/JclRepositoryExpertDLL.rc
branches/JCL_1.102/jcl/packages/d6/JclRepositoryExpertDLL.res
branches/JCL_1.102/jcl/packages/d6/JclSIMDViewExpert.rc
branches/JCL_1.102/jcl/packages/d6/JclSIMDViewExpert.res
branches/JCL_1.102/jcl/packages/d6/JclSIMDViewExpertDLL.RES
branches/JCL_1.102/jcl/packages/d6/JclSIMDViewExpertDLL.rc
branches/JCL_1.102/jcl/packages/d6/JclThreadNameExpert.rc
branches/JCL_1.102/jcl/packages/d6/JclThreadNameExpert.res
branches/JCL_1.102/jcl/packages/d6/JclThreadNameExpertDLL.RES
branches/JCL_1.102/jcl/packages/d6/JclThreadNameExpertDLL.rc
branches/JCL_1.102/jcl/packages/d6/JclUsesExpert.rc
branches/JCL_1.102/jcl/packages/d6/JclUsesExpert.res
branches/JCL_1.102/jcl/packages/d6/JclUsesExpertDLL.RES
branches/JCL_1.102/jcl/packages/d6/JclUsesExpertDLL.rc
branches/JCL_1.102/jcl/packages/d6/JclVClx.rc
branches/JCL_1.102/jcl/packages/d6/JclVClx.res
branches/JCL_1.102/jcl/packages/d6/JclVcl.rc
branches/JCL_1.102/jcl/packages/d6/JclVcl.res
branches/JCL_1.102/jcl/packages/d6/JclVersionControlExpert.rc
branches/JCL_1.102/jcl/packages/d6/JclVersionControlExpert.res
branches/JCL_1.102/jcl/packages/d6/JclVersionControlExpertDLL.rc
branches/JCL_1.102/jcl/packages/d6/JclVersionControlExpertDLL.res
branches/JCL_1.102/jcl/packages/d7/Jcl.rc
branches/JCL_1.102/jcl/packages/d7/Jcl.res
branches/JCL_1.102/jcl/packages/d7/JclBaseExpert.rc
branches/JCL_1.102/jcl/packages/d7/JclBaseExpert.res
branches/JCL_1.102/jcl/packages/d7/JclContainers.rc
branches/JCL_1.102/jcl/packages/d7/JclContainers.res
branches/JCL_1.102/jcl/packages/d7/JclDebugExpert.rc
branches/JCL_1.102/jcl/packages/d7/JclDebugExpert.res
branches/JCL_1.102/jcl/packages/d7/JclDebugExpertDLL.RES
branches/JCL_1.102/jcl/packages/d7/JclDebugExpertDLL.rc
branches/JCL_1.102/jcl/packages/d7/JclFavoriteFoldersExpert.rc
branches/JCL_1.102/jcl/packages/d7/JclFavoriteFoldersExpert.res
branches/JCL_1.102/jcl/packages/d7/JclFavoriteFoldersExpertDLL.RES
branches/JCL_1.102/jcl/packages/d7/JclFavoriteFoldersExpertDLL.rc
branches/JCL_1.102/jcl/packages/d7/JclProjectAnalysisExpert.RES
branches/JCL_1.102/jcl/packages/d7/JclProjectAnalysisExpert.rc
branches/JCL_1.102/jcl/packages/d7/JclProjectAnalysisExpertDLL.RES
branches/JCL_1.102/jcl/packages/d7/JclProjectAnalysisExpertDLL.rc
branches/JCL_1.102/jcl/packages/d7/JclRepositoryExpert.rc
branches/JCL_1.102/jcl/packages/d7/JclRepositoryExpert.res
branches/JCL_1.102/jcl/packages/d7/JclRepositoryExpertDLL.rc
branches/JCL_1.102/jcl/packages/d7/JclRepositoryExpertDLL.res
branches/JCL_1.102/jcl/packages/d7/JclSIMDViewExpert.rc
branches/JCL_1.102/jcl/packages/d7/JclSIMDViewExpert.res
branches/JCL_1.102/jcl/packages/d7/JclSIMDViewExpertDLL.RES
branches/JCL_1.102/jcl/packages/d7/JclSIMDViewExpertDLL.rc
branches/JCL_1.102/jcl/packages/d7/JclThreadNameExpert.rc
branches/JCL_1.102/jcl/packages/d7/JclThreadNameExpert.res
branches/JCL_1.102/jcl/packages/d7/JclThreadNameExpertDLL.RES
branches/JCL_1.102/jcl/packages/d7/JclThreadNameExpertDLL.rc
branches/JCL_1.102/jcl/packages/d7/JclUsesExpert.rc
branches/JCL_1.102/jcl/packages/d7/JclUsesExpert.res
branches/JCL_1.102/jcl/packages/d7/JclUsesExpertDLL.RES
branches/JCL_1.102/jcl/packages/d7/JclUsesExpertDLL.rc
branches/JCL_1.102/jcl/packages/d7/JclVClx.rc
branches/JCL_1.102/jcl/packages/d7/JclVClx.res
branches/JCL_1.102/jcl/packages/d7/JclVcl.rc
branches/JCL_1.102/jcl/packages/d7/JclVcl.res
branches/JCL_1.102/jcl/packages/d7/JclVersionControlExpert.rc
branches/JCL_1.102/jcl/packages/d7/JclVersionControlExpert.res
branches/JCL_1.102/jcl/packages/d7/JclVersionControlExpertDLL.rc
branches/JCL_1.102/jcl/packages/d7/JclVersionControlExpertDLL.res
branches/JCL_1.102/jcl/packages/d8/Jcl.RES
branches/JCL_1.102/jcl/packages/d8/Jcl.bdsproj
branches/JCL_1.102/jcl/packages/d8/Jcl.rc
branches/JCL_1.102/jcl/packages/d8/JclBaseExpert.RES
branches/JCL_1.102/jcl/packages/d8/JclBaseExpert.bdsproj
branches/JCL_1.102/jcl/packages/d8/JclBaseExpert.rc
branches/JCL_1.102/jcl/packages/d8/JclContainers.bdsproj
branches/JCL_1.102/jcl/packages/d8/JclContainers.rc
branches/JCL_1.102/jcl/packages/d8/JclContainers.res
branches/JCL_1.102/jcl/packages/d8/JclFavoriteFoldersExpertDLL.RES
branches/JCL_1.102/jcl/packages/d8/JclFavoriteFoldersExpertDLL.bdsproj
branches/JCL_1.102/jcl/packages/d8/JclFavoriteFoldersExpertDLL.rc
branches/JCL_1.102/jcl/packages/d8/JclVersionControlExpertDLL.bdsproj
branches/JCL_1.102/jcl/packages/d8/JclVersionControlExpertDLL.rc
branches/JCL_1.102/jcl/packages/d8/JclVersionControlExpertDLL.res
branches/JCL_1.102/jcl/packages/d9/Jcl.RES
branches/JCL_1.102/jcl/packages/d9/Jcl.bdsproj
branches/JCL_1.102/jcl/packages/d9/Jcl.rc
branches/JCL_1.102/jcl/packages/d9/JclBaseExpert.bdsproj
branches/JCL_1.102/jcl/packages/d9/JclBaseExpert.rc
branches/JCL_1.102/jcl/packages/d9/JclBaseExpert.res
branches/JCL_1.102/jcl/packages/d9/JclContainers.bdsproj
branches/JCL_1.102/jcl/packages/d9/JclContainers.rc
branches/JCL_1.102/jcl/packages/d9/JclContainers.res
branches/JCL_1.102/jcl/packages/d9/JclDebugExpert.RES
branches/JCL_1.102/jcl/packages/d9/JclDebugExpert.bdsproj
branches/JCL_1.102/jcl/packages/d9/JclDebugExpert.rc
branches/JCL_1.102/jcl/packages/d9/JclDebugExpertDLL.RES
branches/JCL_1.102/jcl/packages/d9/JclDebugExpertDLL.bdsproj
branches/JCL_1.102/jcl/packages/d9/JclDebugExpertDLL.rc
branches/JCL_1.102/jcl/packages/d9/JclFavoriteFoldersExpert.bdsproj
branches/JCL_1.102/jcl/packages/d9/JclFavoriteFoldersExpert.rc
branches/JCL_1.102/jcl/packages/d9/JclFavoriteFoldersExpert.res
branches/JCL_1.102/jcl/packages/d9/JclFavoriteFoldersExpertDLL.RES
branches/JCL_1.102/jcl/packages/d9/JclFavoriteFoldersExpertDLL.bdsproj
branches/JCL_1.102/jcl/packages/d9/JclFavoriteFoldersExpertDLL.rc
branches/JCL_1.102/jcl/packages/d9/JclProjectAnalysisExpert.RES
branches/JCL_1.102/jcl/packages/d9/JclProjectAnalysisExpert.bdsproj
branches/JCL_1.102/jcl/packages/d9/JclProjectAnalysisExpert.rc
branches/JCL_1.102/jcl/packages/d9/JclProjectAnalysisExpertDLL.RES
branches/JCL_1.102/jcl/packages/d9/JclProjectAnalysisExpertDLL.bdsproj
branches/JCL_1.102/jcl/packages/d9/JclProjectAnalysisExpertDLL.rc
branches/JCL_1.102/jcl/packages/d9/JclRepositoryExpert.bdsproj
branches/JCL_1.102/jcl/packages/d9/JclRepositoryExpert.rc
branches/JCL_1.102/jcl/packages/d9/JclRepositoryExpert.res
branches/JCL_1.102/jcl/packages/d9/JclRepositoryExpertDLL.bdsproj
branches/JCL_1.102/jcl/packages/d9/JclRepositoryExpertDLL.rc
branches/JCL_1.102/jcl/packages/d9/JclRepositoryExpertDLL.res
branches/JCL_1.102/jcl/packages/d9/JclSIMDViewExpert.bdsproj
branches/JCL_1.102/jcl/packages/d9/JclSIMDViewExpert.rc
branches/JCL_1.102/jcl/packages/d9/JclSIMDViewExpertDLL.RES
branches/JCL_1.102/jcl/packages/d9/JclSIMDViewExpertDLL.bdsproj
branches/JCL_1.102/jcl/packages/d9/JclSIMDViewExpertDLL.rc
branches/JCL_1.102/jcl/packages/d9/JclSimdViewExpert.RES
branches/JCL_1.102/jcl/packages/d9/JclThreadNameExpert.RES
branches/JCL_1.102/jcl/packages/d9/JclThreadNameExpert.bdsproj
branches/JCL_1.102/jcl/packages/d9/JclThreadNameExpert.rc
branches/JCL_1.102/jcl/packages/d9/JclThreadNameExpertDLL.RES
branches/JCL_1.102/jcl/packages/d9/JclThreadNameExpertDLL.bdsproj
branches/JCL_1.102/jcl/packages/d9/JclThreadNameExpertDLL.rc
branches/JCL_1.102/jcl/packages/d9/JclVcl.RES
branches/JCL_1.102/jcl/packages/d9/JclVcl.bdsproj
branches/JCL_1.102/jcl/packages/d9/JclVcl.rc
branches/JCL_1.102/jcl/packages/d9/JclVersionControlExpert.bdsproj
branches/JCL_1.102/jcl/packages/d9/JclVersionControlExpert.rc
branches/JCL_1.102/jcl/packages/d9/JclVersionControlExpert.res
branches/JCL_1.102/jcl/packages/d9/JclVersionControlExpertDLL.bdsproj
branches/JCL_1.102/jcl/packages/d9/JclVersionControlExpertDLL.rc
branches/JCL_1.102/jcl/packages/d9/JclVersionControlExpertDLL.res
branches/JCL_1.102/jcl/packages/d9.net/Jedi.Jcl.bdsproj
branches/JCL_1.102/jcl/packages/d9.net/Jedi.Jcl.dpk
branches/JCL_1.102/jcl/packages/d9.net/Jedi.JclContainers.bdsproj
branches/JCL_1.102/jcl/packages/d9.net/Jedi.JclContainers.dpk
branches/JCL_1.102/jcl/packages/k3/Jcl.bpk
branches/JCL_1.102/jcl/packages/k3/Jcl.dpk
branches/JCL_1.102/jcl/packages/k3/Jcl.rc
branches/JCL_1.102/jcl/packages/k3/Jcl.res
branches/JCL_1.102/jcl/packages/k3/JclContainers.bpk
branches/JCL_1.102/jcl/packages/k3/JclContainers.dpk
branches/JCL_1.102/jcl/packages/k3/JclContainers.rc
branches/JCL_1.102/jcl/packages/k3/JclContainers.res
branches/JCL_1.102/jcl/packages/k3/JclVClx.bpk
branches/JCL_1.102/jcl/packages/k3/JclVClx.dpk
branches/JCL_1.102/jcl/packages/k3/JclVClx.rc
branches/JCL_1.102/jcl/packages/k3/JclVClx.res
branches/JCL_1.102/jcl/source/common/JclBase.pas
Modified: branches/JCL_1.102/jcl/devtools/pgEdit.xml
===================================================================
--- branches/JCL_1.102/jcl/devtools/pgEdit.xml 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/devtools/pgEdit.xml 2008-07-29 18:25:06 UTC (rev 2405)
@@ -137,8 +137,8 @@
<ProjectProperties>
<ProjectProperty name="VersionMajorNumber" value="1"/>
<ProjectProperty name="VersionMinorNumber" value="102"/>
- <ProjectProperty name="ReleaseNumber" value="0"/>
- <ProjectProperty name="BuildNumber" value="2726"/>
+ <ProjectProperty name="ReleaseNumber" value="1"/>
+ <ProjectProperty name="BuildNumber" value="3072"/>
</ProjectProperties>
</Model>
</models>
Modified: branches/JCL_1.102/jcl/packages/c5/JclBaseExpertC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclBaseExpertC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclBaseExpertC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Package containing common units for JCL Experts\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclBaseExpertC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclBaseExpertC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c5/JclC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JEDI Code Library RTL package\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c5/JclContainersC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclContainersC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclContainersC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JEDI Code Library Containers package\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclContainersC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclContainersC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c5/JclDebugExpertC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclDebugExpertC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclDebugExpertC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Debug IDE extension\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclDebugExpertC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclDebugExpertC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c5/JclDebugExpertDLLC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclDebugExpertDLLC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclDebugExpertDLLC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Debug IDE extension\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclDebugExpertDLLC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclDebugExpertDLLC50C50.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclFavoriteFoldersExpertC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclFavoriteFoldersExpertC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclFavoriteFoldersExpertDLLC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclFavoriteFoldersExpertDLLC50C50.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c5/JclProjectAnalysisExpertC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclProjectAnalysisExpertC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclProjectAnalysisExpertC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Project Analyzer\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclProjectAnalysisExpertC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclProjectAnalysisExpertC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Project Analyzer\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclProjectAnalysisExpertDLLC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclProjectAnalysisExpertDLLC50C50.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c5/JclRepositoryExpertC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclRepositoryExpertC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclRepositoryExpertC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Package containing repository wizards\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclRepositoryExpertC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclRepositoryExpertC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c5/JclRepositoryExpertDLLC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclRepositoryExpertDLLC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclRepositoryExpertDLLC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Package containing repository wizards\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclRepositoryExpertDLLC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclRepositoryExpertDLLC50C50.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c5/JclSIMDViewExpertC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclSIMDViewExpertC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclSIMDViewExpertC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Debug Window of XMM registers\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclSIMDViewExpertC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclSIMDViewExpertC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Debug Window of XMM registers\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclSIMDViewExpertDLLC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclSIMDViewExpertDLLC50C50.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c5/JclThreadNameExpertC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclThreadNameExpertC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclThreadNameExpertC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Thread Name IDE expert\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclThreadNameExpertC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclThreadNameExpertC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c5/JclThreadNameExpertDLLC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclThreadNameExpertDLLC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclThreadNameExpertDLLC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Thread Name IDE expert\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclThreadNameExpertDLLC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclThreadNameExpertDLLC50C50.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c5/JclUsesExpertC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclUsesExpertC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclUsesExpertC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Uses Wizard\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclUsesExpertC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclUsesExpertC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c5/JclUsesExpertDLLC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclUsesExpertDLLC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclUsesExpertDLLC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Uses Wizard\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclUsesExpertDLLC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclUsesExpertDLLC50C50.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c5/JclVersionControlExpertC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclVersionControlExpertC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclVersionControlExpertC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Integration of version control systems in the IDE\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclVersionControlExpertC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclVersionControlExpertC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c5/JclVersionControlExpertDLLC50.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c5/JclVersionControlExpertDLLC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c5/JclVersionControlExpertDLLC50.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Integration of version control systems in the IDE\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclVersionControlExpertDLLC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclVersionControlExpertDLLC50C50.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c6/Jcl.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c6/Jcl.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c6/Jcl.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JEDI Code Library RTL package\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "Jcl\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclC60.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c6/JclBaseExpert.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c6/JclBaseExpert.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c6/JclBaseExpert.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Package containing common units for JCL Experts\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclBaseExpert\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclBaseExpertC60.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c6/JclContainers.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c6/JclContainers.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c6/JclContainers.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JEDI Code Library Containers package\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclContainers\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclContainersC60.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c6/JclDebugExpert.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c6/JclDebugExpert.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c6/JclDebugExpert.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Debug IDE extension\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclDebugExpert\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclDebugExpertC60.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c6/JclDebugExpertDLL.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c6/JclDebugExpertDLL.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c6/JclDebugExpertDLL.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Debug IDE extension\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclDebugExpertDLL\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclDebugExpertDLLC60.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c6/JclFavoriteFoldersExpert.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c6/JclFavoriteFoldersExpert.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c6/JclFavoriteFoldersExpert.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclFavoriteFoldersExpert\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclFavoriteFoldersExpertC60.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.102 Build 3072\0"
END
END
BLOCK "VarFileInfo"
Modified: branches/JCL_1.102/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc
===================================================================
--- branches/JCL_1.102/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc 2008-07-29 18:22:46 UTC (rev 2404)
+++ branches/JCL_1.102/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc 2008-07-29 18:25:06 UTC (rev 2405)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,102,1,3072
+PRODUCTVERSION 1,102,1,3072
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.102.1.3072\0"
VALUE "InternalName", "JclFavoriteFoldersExpertDLL\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclFavoriteFoldersExpertDLLC60.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.10...
[truncated message content] |
|
From: <ou...@us...> - 2008-07-29 18:23:15
|
Revision: 2404
http://jcl.svn.sourceforge.net/jcl/?rev=2404&view=rev
Author: outchy
Date: 2008-07-29 18:22:46 +0000 (Tue, 29 Jul 2008)
Log Message:
-----------
trunk is dedicated to JCL 1.103. (testing)
Modified Paths:
--------------
trunk/jcl/devtools/pgEdit.xml
trunk/jcl/packages/c5/JclBaseExpertC50.rc
trunk/jcl/packages/c5/JclBaseExpertC50.res
trunk/jcl/packages/c5/JclC50.rc
trunk/jcl/packages/c5/JclC50.res
trunk/jcl/packages/c5/JclContainersC50.rc
trunk/jcl/packages/c5/JclContainersC50.res
trunk/jcl/packages/c5/JclDebugExpertC50.RES
trunk/jcl/packages/c5/JclDebugExpertC50.rc
trunk/jcl/packages/c5/JclDebugExpertDLLC50.rc
trunk/jcl/packages/c5/JclDebugExpertDLLC50.res
trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc
trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.res
trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc
trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.res
trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.RES
trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.rc
trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc
trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.res
trunk/jcl/packages/c5/JclRepositoryExpertC50.rc
trunk/jcl/packages/c5/JclRepositoryExpertC50.res
trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.rc
trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.res
trunk/jcl/packages/c5/JclSIMDViewExpertC50.rc
trunk/jcl/packages/c5/JclSIMDViewExpertC50.res
trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc
trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.res
trunk/jcl/packages/c5/JclThreadNameExpertC50.RES
trunk/jcl/packages/c5/JclThreadNameExpertC50.rc
trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.rc
trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.res
trunk/jcl/packages/c5/JclUsesExpertC50.RES
trunk/jcl/packages/c5/JclUsesExpertC50.rc
trunk/jcl/packages/c5/JclUsesExpertDLLC50.rc
trunk/jcl/packages/c5/JclUsesExpertDLLC50.res
trunk/jcl/packages/c5/JclVersionControlExpertC50.rc
trunk/jcl/packages/c5/JclVersionControlExpertC50.res
trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.rc
trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.res
trunk/jcl/packages/c6/Jcl.RES
trunk/jcl/packages/c6/Jcl.rc
trunk/jcl/packages/c6/JclBaseExpert.rc
trunk/jcl/packages/c6/JclBaseExpert.res
trunk/jcl/packages/c6/JclContainers.rc
trunk/jcl/packages/c6/JclContainers.res
trunk/jcl/packages/c6/JclDebugExpert.RES
trunk/jcl/packages/c6/JclDebugExpert.rc
trunk/jcl/packages/c6/JclDebugExpertDLL.rc
trunk/jcl/packages/c6/JclDebugExpertDLL.res
trunk/jcl/packages/c6/JclFavoriteFoldersExpert.RES
trunk/jcl/packages/c6/JclFavoriteFoldersExpert.rc
trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc
trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.res
trunk/jcl/packages/c6/JclProjectAnalysisExpert.RES
trunk/jcl/packages/c6/JclProjectAnalysisExpert.rc
trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc
trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.res
trunk/jcl/packages/c6/JclRepositoryExpert.rc
trunk/jcl/packages/c6/JclRepositoryExpert.res
trunk/jcl/packages/c6/JclRepositoryExpertDLL.rc
trunk/jcl/packages/c6/JclRepositoryExpertDLL.res
trunk/jcl/packages/c6/JclSIMDViewExpert.rc
trunk/jcl/packages/c6/JclSIMDViewExpert.res
trunk/jcl/packages/c6/JclSIMDViewExpertDLL.rc
trunk/jcl/packages/c6/JclSIMDViewExpertDLL.res
trunk/jcl/packages/c6/JclThreadNameExpert.RES
trunk/jcl/packages/c6/JclThreadNameExpert.rc
trunk/jcl/packages/c6/JclThreadNameExpertDLL.rc
trunk/jcl/packages/c6/JclThreadNameExpertDLL.res
trunk/jcl/packages/c6/JclUsesExpert.RES
trunk/jcl/packages/c6/JclUsesExpert.rc
trunk/jcl/packages/c6/JclUsesExpertDLL.rc
trunk/jcl/packages/c6/JclUsesExpertDLL.res
trunk/jcl/packages/c6/JclVClx.RES
trunk/jcl/packages/c6/JclVClx.rc
trunk/jcl/packages/c6/JclVcl.RES
trunk/jcl/packages/c6/JclVcl.rc
trunk/jcl/packages/c6/JclVersionControlExpert.rc
trunk/jcl/packages/c6/JclVersionControlExpert.res
trunk/jcl/packages/c6/JclVersionControlExpertDLL.rc
trunk/jcl/packages/c6/JclVersionControlExpertDLL.res
trunk/jcl/packages/cs1/Jcl.RES
trunk/jcl/packages/cs1/Jcl.bdsproj
trunk/jcl/packages/cs1/Jcl.rc
trunk/jcl/packages/cs1/JclBaseExpert.RES
trunk/jcl/packages/cs1/JclBaseExpert.bdsproj
trunk/jcl/packages/cs1/JclBaseExpert.rc
trunk/jcl/packages/cs1/JclContainers.bdsproj
trunk/jcl/packages/cs1/JclContainers.rc
trunk/jcl/packages/cs1/JclContainers.res
trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.RES
trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.bdsproj
trunk/jcl/packages/cs1/JclFavoriteFoldersExpertDLL.rc
trunk/jcl/packages/cs1/JclVersionControlExpertDLL.bdsproj
trunk/jcl/packages/cs1/JclVersionControlExpertDLL.rc
trunk/jcl/packages/cs1/JclVersionControlExpertDLL.res
trunk/jcl/packages/d10/Jcl.bdsproj
trunk/jcl/packages/d10/Jcl.rc
trunk/jcl/packages/d10/Jcl.res
trunk/jcl/packages/d10/JclBaseExpert.bdsproj
trunk/jcl/packages/d10/JclBaseExpert.rc
trunk/jcl/packages/d10/JclBaseExpert.res
trunk/jcl/packages/d10/JclContainers.bdsproj
trunk/jcl/packages/d10/JclContainers.rc
trunk/jcl/packages/d10/JclContainers.res
trunk/jcl/packages/d10/JclDebugExpert.bdsproj
trunk/jcl/packages/d10/JclDebugExpert.rc
trunk/jcl/packages/d10/JclDebugExpert.res
trunk/jcl/packages/d10/JclDebugExpertDLL.bdsproj
trunk/jcl/packages/d10/JclDebugExpertDLL.rc
trunk/jcl/packages/d10/JclDebugExpertDLL.res
trunk/jcl/packages/d10/JclFavoriteFoldersExpert.bdsproj
trunk/jcl/packages/d10/JclFavoriteFoldersExpert.rc
trunk/jcl/packages/d10/JclFavoriteFoldersExpert.res
trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.bdsproj
trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.rc
trunk/jcl/packages/d10/JclFavoriteFoldersExpertDLL.res
trunk/jcl/packages/d10/JclProjectAnalysisExpert.RES
trunk/jcl/packages/d10/JclProjectAnalysisExpert.bdsproj
trunk/jcl/packages/d10/JclProjectAnalysisExpert.rc
trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.bdsproj
trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.rc
trunk/jcl/packages/d10/JclProjectAnalysisExpertDLL.res
trunk/jcl/packages/d10/JclRepositoryExpert.bdsproj
trunk/jcl/packages/d10/JclRepositoryExpert.rc
trunk/jcl/packages/d10/JclRepositoryExpert.res
trunk/jcl/packages/d10/JclRepositoryExpertDLL.bdsproj
trunk/jcl/packages/d10/JclRepositoryExpertDLL.rc
trunk/jcl/packages/d10/JclRepositoryExpertDLL.res
trunk/jcl/packages/d10/JclSIMDViewExpert.bdsproj
trunk/jcl/packages/d10/JclSIMDViewExpert.rc
trunk/jcl/packages/d10/JclSIMDViewExpert.res
trunk/jcl/packages/d10/JclSIMDViewExpertDLL.bdsproj
trunk/jcl/packages/d10/JclSIMDViewExpertDLL.rc
trunk/jcl/packages/d10/JclSIMDViewExpertDLL.res
trunk/jcl/packages/d10/JclThreadNameExpert.bdsproj
trunk/jcl/packages/d10/JclThreadNameExpert.rc
trunk/jcl/packages/d10/JclThreadNameExpert.res
trunk/jcl/packages/d10/JclThreadNameExpertDLL.bdsproj
trunk/jcl/packages/d10/JclThreadNameExpertDLL.rc
trunk/jcl/packages/d10/JclThreadNameExpertDLL.res
trunk/jcl/packages/d10/JclVcl.bdsproj
trunk/jcl/packages/d10/JclVcl.rc
trunk/jcl/packages/d10/JclVcl.res
trunk/jcl/packages/d10/JclVersionControlExpert.bdsproj
trunk/jcl/packages/d10/JclVersionControlExpert.rc
trunk/jcl/packages/d10/JclVersionControlExpert.res
trunk/jcl/packages/d10/JclVersionControlExpertDLL.bdsproj
trunk/jcl/packages/d10/JclVersionControlExpertDLL.rc
trunk/jcl/packages/d10/JclVersionControlExpertDLL.res
trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj
trunk/jcl/packages/d10.net/Jedi.Jcl.dpk
trunk/jcl/packages/d10.net/Jedi.JclContainers.bdsproj
trunk/jcl/packages/d10.net/Jedi.JclContainers.dpk
trunk/jcl/packages/d11/Jcl.dproj
trunk/jcl/packages/d11/Jcl.rc
trunk/jcl/packages/d11/Jcl.res
trunk/jcl/packages/d11/JclBaseExpert.dproj
trunk/jcl/packages/d11/JclBaseExpert.rc
trunk/jcl/packages/d11/JclBaseExpert.res
trunk/jcl/packages/d11/JclContainers.dproj
trunk/jcl/packages/d11/JclContainers.rc
trunk/jcl/packages/d11/JclContainers.res
trunk/jcl/packages/d11/JclDebugExpert.dproj
trunk/jcl/packages/d11/JclDebugExpert.rc
trunk/jcl/packages/d11/JclDebugExpert.res
trunk/jcl/packages/d11/JclDebugExpertDLL.dproj
trunk/jcl/packages/d11/JclDebugExpertDLL.rc
trunk/jcl/packages/d11/JclDebugExpertDLL.res
trunk/jcl/packages/d11/JclFavoriteFoldersExpert.dproj
trunk/jcl/packages/d11/JclFavoriteFoldersExpert.rc
trunk/jcl/packages/d11/JclFavoriteFoldersExpert.res
trunk/jcl/packages/d11/JclFavoriteFoldersExpertDLL.dproj
trunk/jcl/packages/d11/JclFavoriteFoldersExpertDLL.rc
trunk/jcl/packages/d11/JclFavoriteFoldersExpertDLL.res
trunk/jcl/packages/d11/JclProjectAnalysisExpert.dproj
trunk/jcl/packages/d11/JclProjectAnalysisExpert.rc
trunk/jcl/packages/d11/JclProjectAnalysisExpert.res
trunk/jcl/packages/d11/JclProjectAnalysisExpertDLL.dproj
trunk/jcl/packages/d11/JclProjectAnalysisExpertDLL.rc
trunk/jcl/packages/d11/JclProjectAnalysisExpertDLL.res
trunk/jcl/packages/d11/JclRepositoryExpert.dproj
trunk/jcl/packages/d11/JclRepositoryExpert.rc
trunk/jcl/packages/d11/JclRepositoryExpert.res
trunk/jcl/packages/d11/JclRepositoryExpertDLL.dproj
trunk/jcl/packages/d11/JclRepositoryExpertDLL.rc
trunk/jcl/packages/d11/JclRepositoryExpertDLL.res
trunk/jcl/packages/d11/JclSIMDViewExpert.dproj
trunk/jcl/packages/d11/JclSIMDViewExpert.rc
trunk/jcl/packages/d11/JclSIMDViewExpert.res
trunk/jcl/packages/d11/JclSIMDViewExpertDLL.dproj
trunk/jcl/packages/d11/JclSIMDViewExpertDLL.rc
trunk/jcl/packages/d11/JclSIMDViewExpertDLL.res
trunk/jcl/packages/d11/JclThreadNameExpert.dproj
trunk/jcl/packages/d11/JclThreadNameExpert.rc
trunk/jcl/packages/d11/JclThreadNameExpert.res
trunk/jcl/packages/d11/JclThreadNameExpertDLL.dproj
trunk/jcl/packages/d11/JclThreadNameExpertDLL.rc
trunk/jcl/packages/d11/JclThreadNameExpertDLL.res
trunk/jcl/packages/d11/JclVcl.dproj
trunk/jcl/packages/d11/JclVcl.rc
trunk/jcl/packages/d11/JclVcl.res
trunk/jcl/packages/d11/JclVersionControlExpert.dproj
trunk/jcl/packages/d11/JclVersionControlExpert.rc
trunk/jcl/packages/d11/JclVersionControlExpert.res
trunk/jcl/packages/d11/JclVersionControlExpertDLL.dproj
trunk/jcl/packages/d11/JclVersionControlExpertDLL.rc
trunk/jcl/packages/d11/JclVersionControlExpertDLL.res
trunk/jcl/packages/d11.net/Jedi.Jcl.dpk
trunk/jcl/packages/d11.net/Jedi.Jcl.dproj
trunk/jcl/packages/d11.net/Jedi.JclContainers.dpk
trunk/jcl/packages/d11.net/Jedi.JclContainers.dproj
trunk/jcl/packages/d5/JclBaseExpertD50.rc
trunk/jcl/packages/d5/JclBaseExpertD50.res
trunk/jcl/packages/d5/JclContainersD50.rc
trunk/jcl/packages/d5/JclContainersD50.res
trunk/jcl/packages/d5/JclD50.RES
trunk/jcl/packages/d5/JclD50.rc
trunk/jcl/packages/d5/JclDebugExpertD50.RES
trunk/jcl/packages/d5/JclDebugExpertD50.rc
trunk/jcl/packages/d5/JclDebugExpertDLLD50.RES
trunk/jcl/packages/d5/JclDebugExpertDLLD50.rc
trunk/jcl/packages/d5/JclFavoriteFoldersExpertD50.RES
trunk/jcl/packages/d5/JclFavoriteFoldersExpertD50.rc
trunk/jcl/packages/d5/JclFavoriteFoldersExpertDLLD50.RES
trunk/jcl/packages/d5/JclFavoriteFoldersExpertDLLD50.rc
trunk/jcl/packages/d5/JclProjectAnalysisExpertD50.RES
trunk/jcl/packages/d5/JclProjectAnalysisExpertD50.rc
trunk/jcl/packages/d5/JclProjectAnalysisExpertDLLD50.RES
trunk/jcl/packages/d5/JclProjectAnalysisExpertDLLD50.rc
trunk/jcl/packages/d5/JclRepositoryExpertD50.rc
trunk/jcl/packages/d5/JclRepositoryExpertD50.res
trunk/jcl/packages/d5/JclRepositoryExpertDLLD50.rc
trunk/jcl/packages/d5/JclRepositoryExpertDLLD50.res
trunk/jcl/packages/d5/JclSIMDViewExpertD50.RES
trunk/jcl/packages/d5/JclSIMDViewExpertD50.rc
trunk/jcl/packages/d5/JclSIMDViewExpertDLLD50.RES
trunk/jcl/packages/d5/JclSIMDViewExpertDLLD50.rc
trunk/jcl/packages/d5/JclThreadNameExpertD50.RES
trunk/jcl/packages/d5/JclThreadNameExpertD50.rc
trunk/jcl/packages/d5/JclThreadNameExpertDLLD50.RES
trunk/jcl/packages/d5/JclThreadNameExpertDLLD50.rc
trunk/jcl/packages/d5/JclUsesExpertD50.RES
trunk/jcl/packages/d5/JclUsesExpertD50.rc
trunk/jcl/packages/d5/JclUsesExpertDLLD50.RES
trunk/jcl/packages/d5/JclUsesExpertDLLD50.rc
trunk/jcl/packages/d5/JclVersionControlExpertD50.rc
trunk/jcl/packages/d5/JclVersionControlExpertD50.res
trunk/jcl/packages/d5/JclVersionControlExpertDLLD50.rc
trunk/jcl/packages/d5/JclVersionControlExpertDLLD50.res
trunk/jcl/packages/d6/Jcl.rc
trunk/jcl/packages/d6/Jcl.res
trunk/jcl/packages/d6/JclBaseExpert.rc
trunk/jcl/packages/d6/JclBaseExpert.res
trunk/jcl/packages/d6/JclContainers.rc
trunk/jcl/packages/d6/JclContainers.res
trunk/jcl/packages/d6/JclDebugExpert.rc
trunk/jcl/packages/d6/JclDebugExpert.res
trunk/jcl/packages/d6/JclDebugExpertDLL.RES
trunk/jcl/packages/d6/JclDebugExpertDLL.rc
trunk/jcl/packages/d6/JclFavoriteFoldersExpert.rc
trunk/jcl/packages/d6/JclFavoriteFoldersExpert.res
trunk/jcl/packages/d6/JclFavoriteFoldersExpertDLL.RES
trunk/jcl/packages/d6/JclFavoriteFoldersExpertDLL.rc
trunk/jcl/packages/d6/JclProjectAnalysisExpert.RES
trunk/jcl/packages/d6/JclProjectAnalysisExpert.rc
trunk/jcl/packages/d6/JclProjectAnalysisExpertDLL.RES
trunk/jcl/packages/d6/JclProjectAnalysisExpertDLL.rc
trunk/jcl/packages/d6/JclRepositoryExpert.rc
trunk/jcl/packages/d6/JclRepositoryExpert.res
trunk/jcl/packages/d6/JclRepositoryExpertDLL.rc
trunk/jcl/packages/d6/JclRepositoryExpertDLL.res
trunk/jcl/packages/d6/JclSIMDViewExpert.rc
trunk/jcl/packages/d6/JclSIMDViewExpert.res
trunk/jcl/packages/d6/JclSIMDViewExpertDLL.RES
trunk/jcl/packages/d6/JclSIMDViewExpertDLL.rc
trunk/jcl/packages/d6/JclThreadNameExpert.rc
trunk/jcl/packages/d6/JclThreadNameExpert.res
trunk/jcl/packages/d6/JclThreadNameExpertDLL.RES
trunk/jcl/packages/d6/JclThreadNameExpertDLL.rc
trunk/jcl/packages/d6/JclUsesExpert.rc
trunk/jcl/packages/d6/JclUsesExpert.res
trunk/jcl/packages/d6/JclUsesExpertDLL.RES
trunk/jcl/packages/d6/JclUsesExpertDLL.rc
trunk/jcl/packages/d6/JclVClx.rc
trunk/jcl/packages/d6/JclVClx.res
trunk/jcl/packages/d6/JclVcl.rc
trunk/jcl/packages/d6/JclVcl.res
trunk/jcl/packages/d6/JclVersionControlExpert.rc
trunk/jcl/packages/d6/JclVersionControlExpert.res
trunk/jcl/packages/d6/JclVersionControlExpertDLL.rc
trunk/jcl/packages/d6/JclVersionControlExpertDLL.res
trunk/jcl/packages/d7/Jcl.rc
trunk/jcl/packages/d7/Jcl.res
trunk/jcl/packages/d7/JclBaseExpert.rc
trunk/jcl/packages/d7/JclBaseExpert.res
trunk/jcl/packages/d7/JclContainers.rc
trunk/jcl/packages/d7/JclContainers.res
trunk/jcl/packages/d7/JclDebugExpert.rc
trunk/jcl/packages/d7/JclDebugExpert.res
trunk/jcl/packages/d7/JclDebugExpertDLL.RES
trunk/jcl/packages/d7/JclDebugExpertDLL.rc
trunk/jcl/packages/d7/JclFavoriteFoldersExpert.rc
trunk/jcl/packages/d7/JclFavoriteFoldersExpert.res
trunk/jcl/packages/d7/JclFavoriteFoldersExpertDLL.RES
trunk/jcl/packages/d7/JclFavoriteFoldersExpertDLL.rc
trunk/jcl/packages/d7/JclProjectAnalysisExpert.RES
trunk/jcl/packages/d7/JclProjectAnalysisExpert.rc
trunk/jcl/packages/d7/JclProjectAnalysisExpertDLL.RES
trunk/jcl/packages/d7/JclProjectAnalysisExpertDLL.rc
trunk/jcl/packages/d7/JclRepositoryExpert.rc
trunk/jcl/packages/d7/JclRepositoryExpert.res
trunk/jcl/packages/d7/JclRepositoryExpertDLL.rc
trunk/jcl/packages/d7/JclRepositoryExpertDLL.res
trunk/jcl/packages/d7/JclSIMDViewExpert.rc
trunk/jcl/packages/d7/JclSIMDViewExpert.res
trunk/jcl/packages/d7/JclSIMDViewExpertDLL.RES
trunk/jcl/packages/d7/JclSIMDViewExpertDLL.rc
trunk/jcl/packages/d7/JclThreadNameExpert.rc
trunk/jcl/packages/d7/JclThreadNameExpert.res
trunk/jcl/packages/d7/JclThreadNameExpertDLL.RES
trunk/jcl/packages/d7/JclThreadNameExpertDLL.rc
trunk/jcl/packages/d7/JclUsesExpert.rc
trunk/jcl/packages/d7/JclUsesExpert.res
trunk/jcl/packages/d7/JclUsesExpertDLL.RES
trunk/jcl/packages/d7/JclUsesExpertDLL.rc
trunk/jcl/packages/d7/JclVClx.rc
trunk/jcl/packages/d7/JclVClx.res
trunk/jcl/packages/d7/JclVcl.rc
trunk/jcl/packages/d7/JclVcl.res
trunk/jcl/packages/d7/JclVersionControlExpert.rc
trunk/jcl/packages/d7/JclVersionControlExpert.res
trunk/jcl/packages/d7/JclVersionControlExpertDLL.rc
trunk/jcl/packages/d7/JclVersionControlExpertDLL.res
trunk/jcl/packages/d8/Jcl.RES
trunk/jcl/packages/d8/Jcl.bdsproj
trunk/jcl/packages/d8/Jcl.rc
trunk/jcl/packages/d8/JclBaseExpert.RES
trunk/jcl/packages/d8/JclBaseExpert.bdsproj
trunk/jcl/packages/d8/JclBaseExpert.rc
trunk/jcl/packages/d8/JclContainers.bdsproj
trunk/jcl/packages/d8/JclContainers.rc
trunk/jcl/packages/d8/JclContainers.res
trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.RES
trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.bdsproj
trunk/jcl/packages/d8/JclFavoriteFoldersExpertDLL.rc
trunk/jcl/packages/d8/JclVersionControlExpertDLL.bdsproj
trunk/jcl/packages/d8/JclVersionControlExpertDLL.rc
trunk/jcl/packages/d8/JclVersionControlExpertDLL.res
trunk/jcl/packages/d9/Jcl.RES
trunk/jcl/packages/d9/Jcl.bdsproj
trunk/jcl/packages/d9/Jcl.rc
trunk/jcl/packages/d9/JclBaseExpert.bdsproj
trunk/jcl/packages/d9/JclBaseExpert.rc
trunk/jcl/packages/d9/JclBaseExpert.res
trunk/jcl/packages/d9/JclContainers.bdsproj
trunk/jcl/packages/d9/JclContainers.rc
trunk/jcl/packages/d9/JclContainers.res
trunk/jcl/packages/d9/JclDebugExpert.RES
trunk/jcl/packages/d9/JclDebugExpert.bdsproj
trunk/jcl/packages/d9/JclDebugExpert.rc
trunk/jcl/packages/d9/JclDebugExpertDLL.RES
trunk/jcl/packages/d9/JclDebugExpertDLL.bdsproj
trunk/jcl/packages/d9/JclDebugExpertDLL.rc
trunk/jcl/packages/d9/JclFavoriteFoldersExpert.bdsproj
trunk/jcl/packages/d9/JclFavoriteFoldersExpert.rc
trunk/jcl/packages/d9/JclFavoriteFoldersExpert.res
trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.RES
trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.bdsproj
trunk/jcl/packages/d9/JclFavoriteFoldersExpertDLL.rc
trunk/jcl/packages/d9/JclProjectAnalysisExpert.RES
trunk/jcl/packages/d9/JclProjectAnalysisExpert.bdsproj
trunk/jcl/packages/d9/JclProjectAnalysisExpert.rc
trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.RES
trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.bdsproj
trunk/jcl/packages/d9/JclProjectAnalysisExpertDLL.rc
trunk/jcl/packages/d9/JclRepositoryExpert.bdsproj
trunk/jcl/packages/d9/JclRepositoryExpert.rc
trunk/jcl/packages/d9/JclRepositoryExpert.res
trunk/jcl/packages/d9/JclRepositoryExpertDLL.bdsproj
trunk/jcl/packages/d9/JclRepositoryExpertDLL.rc
trunk/jcl/packages/d9/JclRepositoryExpertDLL.res
trunk/jcl/packages/d9/JclSIMDViewExpert.bdsproj
trunk/jcl/packages/d9/JclSIMDViewExpert.rc
trunk/jcl/packages/d9/JclSIMDViewExpertDLL.RES
trunk/jcl/packages/d9/JclSIMDViewExpertDLL.bdsproj
trunk/jcl/packages/d9/JclSIMDViewExpertDLL.rc
trunk/jcl/packages/d9/JclSimdViewExpert.RES
trunk/jcl/packages/d9/JclThreadNameExpert.RES
trunk/jcl/packages/d9/JclThreadNameExpert.bdsproj
trunk/jcl/packages/d9/JclThreadNameExpert.rc
trunk/jcl/packages/d9/JclThreadNameExpertDLL.RES
trunk/jcl/packages/d9/JclThreadNameExpertDLL.bdsproj
trunk/jcl/packages/d9/JclThreadNameExpertDLL.rc
trunk/jcl/packages/d9/JclVcl.RES
trunk/jcl/packages/d9/JclVcl.bdsproj
trunk/jcl/packages/d9/JclVcl.rc
trunk/jcl/packages/d9/JclVersionControlExpert.bdsproj
trunk/jcl/packages/d9/JclVersionControlExpert.rc
trunk/jcl/packages/d9/JclVersionControlExpert.res
trunk/jcl/packages/d9/JclVersionControlExpertDLL.bdsproj
trunk/jcl/packages/d9/JclVersionControlExpertDLL.rc
trunk/jcl/packages/d9/JclVersionControlExpertDLL.res
trunk/jcl/packages/d9.net/Jedi.Jcl.bdsproj
trunk/jcl/packages/d9.net/Jedi.Jcl.dpk
trunk/jcl/packages/d9.net/Jedi.JclContainers.bdsproj
trunk/jcl/packages/d9.net/Jedi.JclContainers.dpk
trunk/jcl/packages/k3/Jcl.bpk
trunk/jcl/packages/k3/Jcl.dpk
trunk/jcl/packages/k3/Jcl.rc
trunk/jcl/packages/k3/Jcl.res
trunk/jcl/packages/k3/JclContainers.bpk
trunk/jcl/packages/k3/JclContainers.dpk
trunk/jcl/packages/k3/JclContainers.rc
trunk/jcl/packages/k3/JclContainers.res
trunk/jcl/packages/k3/JclVClx.bpk
trunk/jcl/packages/k3/JclVClx.dpk
trunk/jcl/packages/k3/JclVClx.rc
trunk/jcl/packages/k3/JclVClx.res
trunk/jcl/source/common/JclBase.pas
Modified: trunk/jcl/devtools/pgEdit.xml
===================================================================
--- trunk/jcl/devtools/pgEdit.xml 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/devtools/pgEdit.xml 2008-07-29 18:22:46 UTC (rev 2404)
@@ -136,9 +136,9 @@
</aliases>
<ProjectProperties>
<ProjectProperty name="VersionMajorNumber" value="1"/>
- <ProjectProperty name="VersionMinorNumber" value="102"/>
+ <ProjectProperty name="VersionMinorNumber" value="103"/>
<ProjectProperty name="ReleaseNumber" value="0"/>
- <ProjectProperty name="BuildNumber" value="2726"/>
+ <ProjectProperty name="BuildNumber" value="3073"/>
</ProjectProperties>
</Model>
</models>
Modified: trunk/jcl/packages/c5/JclBaseExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclBaseExpertC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclBaseExpertC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Package containing common units for JCL Experts\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclBaseExpertC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclBaseExpertC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c5/JclC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JEDI Code Library RTL package\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c5/JclContainersC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclContainersC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclContainersC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JEDI Code Library Containers package\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclContainersC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclContainersC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c5/JclDebugExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclDebugExpertC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclDebugExpertC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Debug IDE extension\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclDebugExpertC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclDebugExpertC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c5/JclDebugExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclDebugExpertDLLC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclDebugExpertDLLC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Debug IDE extension\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclDebugExpertDLLC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclDebugExpertDLLC50C50.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclFavoriteFoldersExpertC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclFavoriteFoldersExpertC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclFavoriteFoldersExpertC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclFavoriteFoldersExpertDLLC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclFavoriteFoldersExpertDLLC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclFavoriteFoldersExpertDLLC50C50.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclProjectAnalysisExpertC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Project Analyzer\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclProjectAnalysisExpertC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclProjectAnalysisExpertC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclProjectAnalysisExpertDLLC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Project Analyzer\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclProjectAnalysisExpertDLLC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclProjectAnalysisExpertDLLC50C50.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c5/JclRepositoryExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclRepositoryExpertC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclRepositoryExpertC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Package containing repository wizards\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclRepositoryExpertC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclRepositoryExpertC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclRepositoryExpertDLLC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Package containing repository wizards\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclRepositoryExpertDLLC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclRepositoryExpertDLLC50C50.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c5/JclSIMDViewExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclSIMDViewExpertC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclSIMDViewExpertC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Debug Window of XMM registers\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclSIMDViewExpertC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclSIMDViewExpertC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclSIMDViewExpertDLLC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Debug Window of XMM registers\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclSIMDViewExpertDLLC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclSIMDViewExpertDLLC50C50.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c5/JclThreadNameExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclThreadNameExpertC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclThreadNameExpertC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Thread Name IDE expert\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclThreadNameExpertC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclThreadNameExpertC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclThreadNameExpertDLLC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Thread Name IDE expert\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclThreadNameExpertDLLC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclThreadNameExpertDLLC50C50.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c5/JclUsesExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclUsesExpertC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclUsesExpertC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Uses Wizard\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclUsesExpertC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclUsesExpertC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c5/JclUsesExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclUsesExpertDLLC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclUsesExpertDLLC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Uses Wizard\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclUsesExpertDLLC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclUsesExpertDLLC50C50.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c5/JclVersionControlExpertC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclVersionControlExpertC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclVersionControlExpertC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Integration of version control systems in the IDE\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclVersionControlExpertC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclVersionControlExpertC50C50.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.rc
===================================================================
--- trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c5/JclVersionControlExpertDLLC50.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Integration of version control systems in the IDE\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclVersionControlExpertDLLC50\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclVersionControlExpertDLLC50C50.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c6/Jcl.rc
===================================================================
--- trunk/jcl/packages/c6/Jcl.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c6/Jcl.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JEDI Code Library RTL package\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "Jcl\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclC60.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c6/JclBaseExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclBaseExpert.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c6/JclBaseExpert.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Package containing common units for JCL Experts\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclBaseExpert\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclBaseExpertC60.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c6/JclContainers.rc
===================================================================
--- trunk/jcl/packages/c6/JclContainers.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c6/JclContainers.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JEDI Code Library Containers package\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclContainers\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclContainersC60.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c6/JclDebugExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclDebugExpert.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c6/JclDebugExpert.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Debug IDE extension\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclDebugExpert\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclDebugExpertC60.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c6/JclDebugExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclDebugExpertDLL.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c6/JclDebugExpertDLL.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Debug IDE extension\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclDebugExpertDLL\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclDebugExpertDLLC60.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c6/JclFavoriteFoldersExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclFavoriteFoldersExpert.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c6/JclFavoriteFoldersExpert.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclFavoriteFoldersExpert\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclFavoriteFoldersExpertC60.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c6/JclFavoriteFoldersExpertDLL.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Open and Save IDE dialogs with favorite folders\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclFavoriteFoldersExpertDLL\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclFavoriteFoldersExpertDLLC60.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c6/JclProjectAnalysisExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclProjectAnalysisExpert.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c6/JclProjectAnalysisExpert.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Project Analyzer\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclProjectAnalysisExpert\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclProjectAnalysisExpertC60.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c6/JclProjectAnalysisExpertDLL.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Project Analyzer\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclProjectAnalysisExpertDLL\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclProjectAnalysisExpertDLLC60.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c6/JclRepositoryExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclRepositoryExpert.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c6/JclRepositoryExpert.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Package containing repository wizards\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclRepositoryExpert\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclRepositoryExpertC60.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c6/JclRepositoryExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclRepositoryExpertDLL.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c6/JclRepositoryExpertDLL.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Package containing repository wizards\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclRepositoryExpertDLL\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclRepositoryExpertDLLC60.dll\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c6/JclSIMDViewExpert.rc
===================================================================
--- trunk/jcl/packages/c6/JclSIMDViewExpert.rc 2008-07-29 18:19:22 UTC (rev 2403)
+++ trunk/jcl/packages/c6/JclSIMDViewExpert.rc 2008-07-29 18:22:46 UTC (rev 2404)
@@ -1,6 +1,6 @@
VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1,102,0,2726
-PRODUCTVERSION 1,102,0,2726
+FILEVERSION 1,103,0,3073
+PRODUCTVERSION 1,103,0,3073
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
#ifdef _DEBUG
FILEFLAGS VS_FF_DEBUG
@@ -17,12 +17,12 @@
BEGIN
VALUE "CompanyName", "Project JEDI\0"
VALUE "FileDescription", "JCL Debug Window of XMM registers\0"
- VALUE "FileVersion", "1.102.0.2726\0"
+ VALUE "FileVersion", "1.103.0.3073\0"
VALUE "InternalName", "JclSIMDViewExpert\0"
VALUE "LegalCopyright", "Copyright (C) 1999, 2008 Project JEDI\0"
VALUE "OriginalFilename", "JclSIMDViewExpertC60.bpl\0"
VALUE "ProductName", "JEDI Code Library\0"
- VALUE "ProductVersion", "1.102 Build 2726\0"
+ VALUE "ProductVersion", "1.103 Build 3073\0"
END
END
BLOCK "VarFileInfo"
Modified: trunk/jcl/packages/c6/JclSIMDViewExpertDLL.rc
===================================================================
--- trunk/jcl/packages/c6/JclSIMDViewExpertDLL.rc 2008-07-29 18:19:22 U...
[truncated message content] |
|
From: <ou...@us...> - 2008-07-29 18:19:26
|
Revision: 2403
http://jcl.svn.sourceforge.net/jcl/?rev=2403&view=rev
Author: outchy
Date: 2008-07-29 18:19:22 +0000 (Tue, 29 Jul 2008)
Log Message:
-----------
updating version number for future JCL 1.103.
Modified Paths:
--------------
trunk/help/JCLHelp.dox
Modified: trunk/help/JCLHelp.dox
===================================================================
--- trunk/help/JCLHelp.dox 2008-07-29 18:17:42 UTC (rev 2402)
+++ trunk/help/JCLHelp.dox 2008-07-29 18:19:22 UTC (rev 2403)
@@ -136614,7 +136614,7 @@
TypeDefStructsAsStructs=1
VersionBuild=0
VersionMajor=1
-VersionMinor=102
+VersionMinor=103
VersionRelease=0
[Generic Sources]
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ob...@us...> - 2008-07-29 18:17:46
|
Revision: 2402
http://jcl.svn.sourceforge.net/jcl/?rev=2402&view=rev
Author: obones
Date: 2008-07-29 18:17:42 +0000 (Tue, 29 Jul 2008)
Log Message:
-----------
No need to put IFDEF if it is not required
Modified Paths:
--------------
trunk/jcl/source/common/JclContainerIntf.pas
trunk/jcl/source/prototypes/containers/JclContainerIntf.int
Modified: trunk/jcl/source/common/JclContainerIntf.pas
===================================================================
--- trunk/jcl/source/common/JclContainerIntf.pas 2008-07-29 18:02:24 UTC (rev 2401)
+++ trunk/jcl/source/common/JclContainerIntf.pas 2008-07-29 18:17:42 UTC (rev 2402)
@@ -1831,28 +1831,22 @@
IJclIntfArray = interface(IJclIntfList)
['{B055B427-7817-43FC-97D4-AD1845643D63}']
- {$IFDEF CLR}
function GetObject(Index: Integer): IInterface;
procedure SetObject(Index: Integer; const AInterface: IInterface);
- {$ENDIF CLR}
property Objects[Index: Integer]: IInterface read GetObject write SetObject; default;
end;
IJclAnsiStrArray = interface(IJclAnsiStrList)
['{4953EA83-9288-4537-9D10-544D1C992B62}']
- {$IFDEF CLR}
function GetString(Index: Integer): AnsiString;
procedure SetString(Index: Integer; const AString: AnsiString);
- {$ENDIF CLR}
property Strings[Index: Integer]: AnsiString read GetString write SetString; default;
end;
IJclWideStrArray = interface(IJclWideStrList)
['{3CE09F9A-5CB4-4867-80D5-C2313D278D69}']
- {$IFDEF CLR}
function GetString(Index: Integer): WideString;
procedure SetString(Index: Integer; const AString: WideString);
- {$ENDIF CLR}
property Strings[Index: Integer]: WideString read GetString write SetString; default;
end;
@@ -1865,28 +1859,22 @@
IJclSingleArray = interface(IJclSingleList)
['{B96E2A4D-D750-4B65-B975-C619A05A29F6}']
- {$IFDEF CLR}
function GetValue(Index: Integer): Single;
procedure SetValue(Index: Integer; const AValue: Single);
- {$ENDIF CLR}
property Values[Index: Integer]: Single read GetValue write SetValue; default;
end;
IJclDoubleArray = interface(IJclDoubleList)
['{67E66324-9757-4E85-8ECD-53396910FB39}']
- {$IFDEF CLR}
function GetValue(Index: Integer): Double;
procedure SetValue(Index: Integer; const AValue: Double);
- {$ENDIF CLR}
property Values[Index: Integer]: Double read GetValue write SetValue; default;
end;
IJclExtendedArray = interface(IJclExtendedList)
['{D43E8D18-26B3-41A2-8D52-ED7EA2FE1AB7}']
- {$IFDEF CLR}
function GetValue(Index: Integer): Extended;
procedure SetValue(Index: Integer; const AValue: Extended);
- {$ENDIF CLR}
property Values[Index: Integer]: Extended read GetValue write SetValue; default;
end;
@@ -1902,58 +1890,46 @@
IJclIntegerArray = interface(IJclIntegerList)
['{2B7C8B33-C0BD-4EC3-9764-63866E174781}']
- {$IFDEF CLR}
function GetValue(Index: Integer): Integer;
procedure SetValue(Index: Integer; AValue: Integer);
- {$ENDIF CLR}
property Values[Index: Integer]: Integer read GetValue write SetValue; default;
end;
IJclCardinalArray = interface(IJclCardinalList)
['{C451F2F8-65C6-4C29-99A0-CC9C15356418}']
- {$IFDEF CLR}
function GetValue(Index: Integer): Cardinal;
procedure SetValue(Index: Integer; AValue: Cardinal);
- {$ENDIF CLR}
property Values[Index: Integer]: Cardinal read GetValue write SetValue; default;
end;
IJclInt64Array = interface(IJclInt64List)
['{D947C43D-2D04-442A-A707-39EDE7D96FC9}']
- {$IFDEF CLR}
function GetValue(Index: Integer): Int64;
procedure SetValue(Index: Integer; const AValue: Int64);
- {$ENDIF CLR}
property Values[Index: Integer]: Int64 read GetValue write SetValue; default;
end;
{$IFNDEF CLR}
IJclPtrArray = interface(IJclPtrList)
['{D43E8D18-26B3-41A2-8D52-ED7EA2FE1AB7}']
- {$IFDEF CLR}
function GetPointer(Index: Integer): Pointer;
procedure SetPointer(Index: Integer; APtr: Pointer);
- {$ENDIF CLR}
property Pointers[Index: Integer]: Pointer read GetPointer write SetPointer; default;
end;
{$ENDIF ~CLR}
IJclArray = interface(IJclList)
['{A69F6D35-54B2-4361-852E-097ED75E648A}']
- {$IFDEF CLR}
function GetObject(Index: Integer): TObject;
procedure SetObject(Index: Integer; AObject: TObject);
- {$ENDIF CLR}
property Objects[Index: Integer]: TObject read GetObject write SetObject; default;
end;
{$IFDEF SUPPORTS_GENERICS}
IJclArray<T> = interface(IJclList<T>)
['{38810C13-E35E-428A-B84F-D25FB994BE8E}']
- {$IFDEF CLR}
function GetItem(Index: Integer): T;
procedure SetItem(Index: Integer; const AItem: T);
- {$ENDIF CLR}
property Items[Index: Integer]: T read GetItem write SetItem; default;
end;
{$ENDIF SUPPORTS_GENERICS}
Modified: trunk/jcl/source/prototypes/containers/JclContainerIntf.int
===================================================================
--- trunk/jcl/source/prototypes/containers/JclContainerIntf.int 2008-07-29 18:02:24 UTC (rev 2401)
+++ trunk/jcl/source/prototypes/containers/JclContainerIntf.int 2008-07-29 18:17:42 UTC (rev 2402)
@@ -113,10 +113,8 @@
(*$JPPDEFINEMACRO ARRAY(INTERFACENAME, ANCESTORNAME, GUID, CONSTKEYWORD, PARAMETERNAME, TYPENAME, GETTERNAME, SETTERNAME, PROPNAME)
INTERFACENAME = interface(ANCESTORNAME)
['{GUID}']
- {$IFDEF CLR}
function GETTERNAME(Index: Integer): TYPENAME;
procedure SETTERNAME(Index: Integer; CONSTKEYWORDPARAMETERNAME: TYPENAME);
- {$ENDIF CLR}
property PROPNAME[Index: Integer]: TYPENAME read GETTERNAME write SETTERNAME; default;
end;*)
(*$JPPDEFINEMACRO SET(INTERFACENAME, ANCESTORNAME, GUID)
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2008-07-29 18:02:27
|
Revision: 2401
http://jcl.svn.sourceforge.net/jcl/?rev=2401&view=rev
Author: outchy
Date: 2008-07-29 18:02:24 +0000 (Tue, 29 Jul 2008)
Log Message:
-----------
branching JCL 1.102.
Added Paths:
-----------
branches/JCL_1.102/
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2008-07-29 17:59:57
|
Revision: 2400
http://jcl.svn.sourceforge.net/jcl/?rev=2400&view=rev
Author: outchy
Date: 2008-07-29 17:59:54 +0000 (Tue, 29 Jul 2008)
Log Message:
-----------
simple documentation of JCL 1.102.
Modified Paths:
--------------
trunk/jcl/docs/Experts.html
trunk/jcl/docs/Readme.html
trunk/jcl/docs/Readme.txt
Modified: trunk/jcl/docs/Experts.html
===================================================================
--- trunk/jcl/docs/Experts.html 2008-07-29 16:27:29 UTC (rev 2399)
+++ trunk/jcl/docs/Experts.html 2008-07-29 17:59:54 UTC (rev 2400)
@@ -10,9 +10,9 @@
<body>
<hr><br>
<h1>JEDI Code Library</h1>
-<p>Release 1.101<br>
-Build 2725<br>
-17-August-2007</p>
+<p>Release 1.102<br>
+Build 3072<br>
+29_July-2008</p>
<hr><br>
<h3>Content of this file</h3>
<ul>
Modified: trunk/jcl/docs/Readme.html
===================================================================
--- trunk/jcl/docs/Readme.html 2008-07-29 16:27:29 UTC (rev 2399)
+++ trunk/jcl/docs/Readme.html 2008-07-29 17:59:54 UTC (rev 2400)
@@ -18,9 +18,9 @@
<h1>JEDI Code Library</h1>
-<p>Release 1.101<br>
-Build 2725
-17-August-2007</p>
+<p>Release 1.102<br>
+Build 3072
+29-July-2008</p>
<hr><br>
@@ -65,18 +65,18 @@
<ul>
- <li>New functions to copy and move directories and to handle command line parameters in JclFileUtils.</li>
+ <li>security update to BZip2 1.0.5;</li>
+ <li>Streams compatible with Delphi.net;</li>
+ <li>container rework (thread safe implementation, new contained types: WideString, Single, Double, Extended..., compatibility with iterators, splitted to a dedicated package);</li>
+ <li>Installation to multiple local user accounts at the same time;</li>
+ <li>updated detection of CPU features;</li>
+ <li>new functions in JclStrings to expand tab to spaces;</li>
+ <li>added properties to TJclSimpleXml to enumerate elements by name;</li>
+ <li>enhanced support for FPC;</li>
+ <li>added archive support (.zip, .rar, .tar, .gz, .bzip, .iso...) based on sevenzip;</li>
+ <li>support for callout in PCRE;</li>
+ <li>added project-wide settings for the debug expert.</li>
- <li>A function for Vista detecting UAC in JclSysInfo.</li>
-
- <li>JclFont is introduced to initialize a TFont object to standard system fonts.</li>
-
- <li>JclExprEval now supports operators: and, or, bor (bitwise), not, bnot (bitwise), cmp, xor, bxor(bitwise), div, mod, shl, shr.</li>
-
- <li>Three new stream classes in JclStream: TJclSectoredStream (class to handle accesses to a sectored storage), TJclCRC16Stream and TJclCRC32Stream (a CRC is added to each sector preventing data corruption).</li>
-
- <li>Unicode support is updated to version 5.1.0.</li>
-
</ul>
<p><span style="font-weight: bold;">Important:</span>
Modified: trunk/jcl/docs/Readme.txt
===================================================================
--- trunk/jcl/docs/Readme.txt 2008-07-29 16:27:29 UTC (rev 2399)
+++ trunk/jcl/docs/Readme.txt 2008-07-29 17:59:54 UTC (rev 2400)
@@ -1,9 +1,9 @@
--------------------------------------------------------------------------------
JEDI Code Library
-Unstable 1.101
-Build 2725
-17-August-2007
+Unstable 1.102
+Build 3072
+29-July-2008
--------------------------------------------------------------------------------
@@ -22,7 +22,7 @@
--------------------------------------------------------------------------------
About this release
-JCL release 1.101 provides an updated support for all targets (including CodeGear
+JCL release 1.102 provides an updated support for all targets (including CodeGear
RAD Studio 2007).
As always, multiple bugs have been fixed; for detailed change logs, use the
@@ -31,16 +31,20 @@
Head changes:
- - New functions to copy and move directories and to handle command line
- parameters in JclFileUtils.
- - A function for Vista detecting UAC in JclSysInfo.
- - JclFont is introduced to initialize TFont object to standard system fonts.
- - JclExprEval now supports operators: and, or, bor (bitwise), not, bnot (bitwise),
- cmp, xor, bxor(bitwise), div, mod, shl, shr.
- - 3 new stream classes: TJclSectoredStream (class to handle accesses to a sectored
- storage), TJclCRC16Stream and TJclCRC32Stream (a CRC is added to each sector
- preventing data corruption).
- - Unicode support is updated to version 5.1.0.
+ - security update to BZip2 1.0.5;
+ - Streams compatible with Delphi.net;
+ - container rework (thread safe implementation, new contained types: WideString,
+ Single, Double, Extended..., compatibility with iterators, splitted to a
+ dedicated package);
+ - Installation to multiple local user accounts at the same time;
+ - updated detection of CPU features;
+ - new functions in JclStrings to expand tab to spaces;
+ - added properties to TJclSimpleXml to enumerate elements by name;
+ - enhanced support for FPC;
+ - added archive support (.zip, .rar, .tar, .gz, .bzip, .iso...) based on
+ sevenzip;
+ - support for callout in PCRE;
+ - added project-wide settings for the debug expert.
Important:
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2008-07-29 16:27:37
|
Revision: 2399
http://jcl.svn.sourceforge.net/jcl/?rev=2399&view=rev
Author: outchy
Date: 2008-07-29 16:27:29 +0000 (Tue, 29 Jul 2008)
Log Message:
-----------
migrated common examples to VCL.
Modified Paths:
--------------
trunk/jcl/examples/common/graphics/StretchGraphicDemoMain.pas
Added Paths:
-----------
trunk/jcl/examples/common/filesearch/FileSearchDemo.dof
trunk/jcl/examples/common/filesearch/FileSearchDemo.dpr
trunk/jcl/examples/common/filesearch/FileSearchDemo.res
trunk/jcl/examples/common/filesearch/FileSearchDemoMain.dfm
trunk/jcl/examples/common/filesearch/FileSearchDemoMain.pas
trunk/jcl/examples/common/graphics/ClipLineDemo.dof
trunk/jcl/examples/common/graphics/ClipLineDemo.dpr
trunk/jcl/examples/common/graphics/ClipLineDemo.res
trunk/jcl/examples/common/graphics/ClipLineDemoMain.dfm
trunk/jcl/examples/common/graphics/ClipLineDemoMain.pas
trunk/jcl/examples/common/numformat/NumFormatExample.dof
trunk/jcl/examples/common/numformat/NumFormatExample.dpr
trunk/jcl/examples/common/numformat/NumFormatExample.res
trunk/jcl/examples/common/numformat/NumFormatExampleMain.dfm
trunk/jcl/examples/common/numformat/NumFormatExampleMain.pas
trunk/jcl/examples/common/sysinfo/EnvironmentExample.dof
trunk/jcl/examples/common/sysinfo/EnvironmentExample.dpr
trunk/jcl/examples/common/sysinfo/EnvironmentExample.res
trunk/jcl/examples/common/sysinfo/EnvironmentExampleMain.dfm
trunk/jcl/examples/common/sysinfo/EnvironmentExampleMain.pas
Removed Paths:
-------------
trunk/jcl/examples/common/expreval/QExprEvalExample.dof
trunk/jcl/examples/common/expreval/QExprEvalExample.dpr
trunk/jcl/examples/common/expreval/QExprEvalExample.res
trunk/jcl/examples/common/expreval/QExprEvalExampleMain.pas
trunk/jcl/examples/common/expreval/QExprEvalExampleMain.xfm
trunk/jcl/examples/common/filesearch/QFileSearchDemo.dof
trunk/jcl/examples/common/filesearch/QFileSearchDemo.dpr
trunk/jcl/examples/common/filesearch/QFileSearchDemo.res
trunk/jcl/examples/common/filesearch/QFileSearchDemoMain.dfm
trunk/jcl/examples/common/filesearch/QFileSearchDemoMain.pas
trunk/jcl/examples/common/filesearch/QFileSearchDemoMain.xfm
trunk/jcl/examples/common/graphics/QClipLineDemo.dof
trunk/jcl/examples/common/graphics/QClipLineDemo.dpr
trunk/jcl/examples/common/graphics/QClipLineDemo.res
trunk/jcl/examples/common/graphics/QClipLineDemoMain.dfm
trunk/jcl/examples/common/graphics/QClipLineDemoMain.pas
trunk/jcl/examples/common/graphics/QClipLineDemoMain.xfm
trunk/jcl/examples/common/numformat/QNumFormatExample.dof
trunk/jcl/examples/common/numformat/QNumFormatExample.dpr
trunk/jcl/examples/common/numformat/QNumFormatExample.res
trunk/jcl/examples/common/numformat/QNumFormatExampleMain.pas
trunk/jcl/examples/common/numformat/QNumFormatExampleMain.xfm
trunk/jcl/examples/common/pcre/QPCREDemo.dof
trunk/jcl/examples/common/pcre/QPCREDemo.dpr
trunk/jcl/examples/common/pcre/QPCREDemo.res
trunk/jcl/examples/common/pcre/QPCREDemoMain.pas
trunk/jcl/examples/common/pcre/QPCREDemoMain.xfm
trunk/jcl/examples/common/rtti/QRTTIDemo.dof
trunk/jcl/examples/common/rtti/QRTTIDemo.dpr
trunk/jcl/examples/common/rtti/QRTTIDemo.res
trunk/jcl/examples/common/rtti/QRTTIDemoMain.pas
trunk/jcl/examples/common/rtti/QRTTIDemoMain.xfm
trunk/jcl/examples/common/sysinfo/QEnvironmentExample.dof
trunk/jcl/examples/common/sysinfo/QEnvironmentExample.dpr
trunk/jcl/examples/common/sysinfo/QEnvironmentExample.res
trunk/jcl/examples/common/sysinfo/QEnvironmentExampleMain.pas
trunk/jcl/examples/common/sysinfo/QEnvironmentExampleMain.xfm
Deleted: trunk/jcl/examples/common/expreval/QExprEvalExample.dof
===================================================================
--- trunk/jcl/examples/common/expreval/QExprEvalExample.dof 2008-07-27 14:56:45 UTC (rev 2398)
+++ trunk/jcl/examples/common/expreval/QExprEvalExample.dof 2008-07-29 16:27:29 UTC (rev 2399)
@@ -1,2 +0,0 @@
-[Directories]
-OutputDir=..\..\..\bin
Deleted: trunk/jcl/examples/common/expreval/QExprEvalExample.dpr
===================================================================
--- trunk/jcl/examples/common/expreval/QExprEvalExample.dpr 2008-07-27 14:56:45 UTC (rev 2398)
+++ trunk/jcl/examples/common/expreval/QExprEvalExample.dpr 2008-07-29 16:27:29 UTC (rev 2399)
@@ -1,16 +0,0 @@
-program QExprEvalExample;
-
-uses
- QForms,
- JclExprEval in '..\..\..\source\common\JclExprEval.pas',
- JclStrHashMap in '..\..\..\source\common\JclStrHashMap.pas',
- ExprEvalExampleLogic in 'ExprEvalExampleLogic.pas',
- QExprEvalExampleMain in 'QExprEvalExampleMain.pas' {Form1};
-
-{$R *.RES}
-
-begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-end.
Deleted: trunk/jcl/examples/common/expreval/QExprEvalExampleMain.pas
===================================================================
--- trunk/jcl/examples/common/expreval/QExprEvalExampleMain.pas 2008-07-27 14:56:45 UTC (rev 2398)
+++ trunk/jcl/examples/common/expreval/QExprEvalExampleMain.pas 2008-07-29 16:27:29 UTC (rev 2399)
@@ -1,62 +0,0 @@
-unit QExprEvalExampleMain;
-
-interface
-
-uses
- Types, SysUtils, Classes,
- QGraphics, QControls, QForms, QStdCtrls,
- JclExprEval;
-
-type
- TForm1 = class(TForm)
- ExpressionInput: TEdit;
- Memo1: TMemo;
- Label1: TLabel;
- EnterButton: TButton;
- FuncList: TComboBox;
- Label2: TLabel;
- procedure FormCreate(Sender: TObject);
- procedure FormDestroy(Sender: TObject);
- procedure EnterButtonClick(Sender: TObject);
- procedure FuncListClick(Sender: TObject);
- private
- { Private declarations }
- FEvaluator: TEvaluator;
- public
- { Public declarations }
- end;
-
-var
- Form1: TForm1;
-
-implementation
-
-{$R *.XFM}
-
-uses
- ExprEvalExampleLogic;
-
-procedure TForm1.FormCreate(Sender: TObject);
-begin
- FEvaluator := TEvaluator.Create;
- Init(FEvaluator, FuncList.Items);
-end;
-
-procedure TForm1.FormDestroy(Sender: TObject);
-begin
- FEvaluator.Free;
-end;
-
-procedure TForm1.EnterButtonClick(Sender: TObject);
-begin
- Memo1.Lines.Add(ResultAsText(FEvaluator, ExpressionInput.Text));
-end;
-
-procedure TForm1.FuncListClick(Sender: TObject);
-begin
- ExpressionInput.Text := ExpressionInput.Text + FuncList.Text;
- ActiveControl := ExpressionInput;
- ExpressionInput.SelStart := Length(ExpressionInput.Text);
-end;
-
-end.
Deleted: trunk/jcl/examples/common/expreval/QExprEvalExampleMain.xfm
===================================================================
--- trunk/jcl/examples/common/expreval/QExprEvalExampleMain.xfm 2008-07-27 14:56:45 UTC (rev 2398)
+++ trunk/jcl/examples/common/expreval/QExprEvalExampleMain.xfm 2008-07-29 16:27:29 UTC (rev 2399)
@@ -1,71 +0,0 @@
-object Form1: TForm1
- Left = 222
- Top = 107
- Width = 487
- Height = 357
- Caption = 'JclExprEval Example'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 12
- Top = 12
- Width = 54
- Height = 13
- Caption = 'E&xpression:'
- FocusControl = ExpressionInput
- end
- object Label2: TLabel
- Left = 12
- Top = 40
- Width = 44
- Height = 13
- Caption = 'Functions:'
- end
- object ExpressionInput: TEdit
- Left = 80
- Top = 8
- Width = 305
- Height = 21
- Anchors = [akLeft, akTop, akRight]
- TabOrder = 0
- end
- object Memo1: TMemo
- Left = 0
- Top = 60
- Width = 479
- Height = 270
- Anchors = [akLeft, akTop, akRight, akBottom]
- TabOrder = 1
- end
- object EnterButton: TButton
- Left = 396
- Top = 8
- Width = 75
- Height = 25
- Anchors = [akTop, akRight]
- Caption = 'Evaluate'
- Default = True
- TabOrder = 2
- OnClick = EnterButtonClick
- end
- object FuncList: TComboBox
- Left = 80
- Top = 36
- Width = 145
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Sorted = True
- TabOrder = 3
- OnClick = FuncListClick
- end
-end
Copied: trunk/jcl/examples/common/filesearch/FileSearchDemo.dof (from rev 2397, trunk/jcl/examples/common/filesearch/QFileSearchDemo.dof)
===================================================================
--- trunk/jcl/examples/common/filesearch/FileSearchDemo.dof (rev 0)
+++ trunk/jcl/examples/common/filesearch/FileSearchDemo.dof 2008-07-29 16:27:29 UTC (rev 2399)
@@ -0,0 +1,2 @@
+[Directories]
+OutputDir=../../../bin
Property changes on: trunk/jcl/examples/common/filesearch/FileSearchDemo.dof
___________________________________________________________________
Added: svn:mergeinfo
+
Added: svn:eol-style
+ native
Copied: trunk/jcl/examples/common/filesearch/FileSearchDemo.dpr (from rev 2397, trunk/jcl/examples/common/filesearch/QFileSearchDemo.dpr)
===================================================================
--- trunk/jcl/examples/common/filesearch/FileSearchDemo.dpr (rev 0)
+++ trunk/jcl/examples/common/filesearch/FileSearchDemo.dpr 2008-07-29 16:27:29 UTC (rev 2399)
@@ -0,0 +1,16 @@
+program FileSearchDemo;
+
+{$I jcl.inc}
+
+uses
+ Forms,
+ FileSearchDemoMain in 'FileSearchDemoMain.pas' {FileSearchForm};
+
+{$R *.res}
+{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res}
+
+begin
+ Application.Initialize;
+ Application.CreateForm(TFileSearchForm, FileSearchForm);
+ Application.Run;
+end.
Property changes on: trunk/jcl/examples/common/filesearch/FileSearchDemo.dpr
___________________________________________________________________
Added: svn:keywords
+ URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id
Added: svn:mergeinfo
+
Added: svn:eol-style
+ native
Property changes on: trunk/jcl/examples/common/filesearch/FileSearchDemo.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: svn:mergeinfo
+
Copied: trunk/jcl/examples/common/filesearch/FileSearchDemoMain.dfm (from rev 2397, trunk/jcl/examples/common/filesearch/QFileSearchDemoMain.dfm)
===================================================================
--- trunk/jcl/examples/common/filesearch/FileSearchDemoMain.dfm (rev 0)
+++ trunk/jcl/examples/common/filesearch/FileSearchDemoMain.dfm 2008-07-29 16:27:29 UTC (rev 2399)
@@ -0,0 +1,364 @@
+object FileSearchForm: TFileSearchForm
+ Left = 258
+ Top = 301
+ Width = 855
+ Height = 509
+ HorzScrollBar.Range = 378
+ VertScrollBar.Range = 252
+ ActiveControl = StartBtn
+ Caption = 'File Search Demo (TJclFileEnumerator)'
+ Color = clBtnFace
+ Constraints.MinHeight = 279
+ Constraints.MinWidth = 647
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clBlack
+ Font.Height = 12
+ Font.Name = 'MS Sans Serif'
+ Font.Pitch = fpVariable
+ Font.Style = []
+ OldCreateOrder = True
+ OnCreate = FormCreate
+ OnDestroy = FormDestroy
+ PixelsPerInch = 96
+ TextHeight = 13
+ object StatusBar: TStatusBar
+ Left = 0
+ Top = 461
+ Width = 847
+ Height = 21
+ Panels = <
+ item
+ Alignment = taRightJustify
+ Width = 100
+ end
+ item
+ Alignment = taRightJustify
+ Width = 100
+ end
+ item
+ Width = 50
+ end>
+ end
+ object FileList: TListView
+ Left = 0
+ Top = 181
+ Width = 847
+ Height = 280
+ Align = alClient
+ Columns = <
+ item
+ Caption = 'File'
+ Width = 360
+ end
+ item
+ Alignment = taRightJustify
+ AutoSize = True
+ Caption = 'Size'
+ end
+ item
+ Alignment = taCenter
+ AutoSize = True
+ Caption = 'Time'
+ end
+ item
+ Caption = 'Attr.'
+ Width = 60
+ end>
+ ReadOnly = True
+ TabOrder = 1
+ ViewStyle = vsReport
+ end
+ object Panel1: TPanel
+ Left = 0
+ Top = 0
+ Width = 847
+ Height = 49
+ Align = alTop
+ BevelOuter = bvNone
+ TabOrder = 2
+ object Label1: TLabel
+ Left = 14
+ Top = 14
+ Width = 16
+ Height = 13
+ Caption = 'List'
+ end
+ object Label2: TLabel
+ Left = 216
+ Top = 14
+ Width = 29
+ Height = 13
+ Caption = 'files in'
+ end
+ object RootDirInput: TEdit
+ Left = 256
+ Top = 10
+ Width = 248
+ Height = 21
+ TabOrder = 1
+ end
+ object StartBtn: TButton
+ Left = 524
+ Top = 10
+ Width = 61
+ Height = 25
+ Caption = 'Start'
+ TabOrder = 2
+ OnClick = StartBtnClick
+ end
+ object StopBtn: TButton
+ Left = 596
+ Top = 10
+ Width = 61
+ Height = 25
+ Caption = 'Stop'
+ Enabled = False
+ TabOrder = 3
+ OnClick = StopBtnClick
+ end
+ object DetailsBtn: TButton
+ Left = 668
+ Top = 10
+ Width = 77
+ Height = 25
+ Caption = 'More >>'
+ TabOrder = 4
+ OnClick = DetailsBtnClick
+ end
+ object FileMaskInput: TEdit
+ Left = 40
+ Top = 10
+ Width = 169
+ Height = 21
+ TabOrder = 0
+ Text = '*'
+ end
+ object SaveBtn: TButton
+ Left = 760
+ Top = 8
+ Width = 75
+ Height = 25
+ Caption = 'Save'
+ TabOrder = 5
+ OnClick = SaveBtnClick
+ end
+ end
+ object DetailsPanel: TPanel
+ Left = 0
+ Top = 49
+ Width = 847
+ Height = 132
+ Align = alTop
+ BevelOuter = bvNone
+ TabOrder = 3
+ Visible = False
+ object GroupBox1: TGroupBox
+ Left = 256
+ Top = 0
+ Width = 249
+ Height = 121
+ Caption = 'File attributes'
+ TabOrder = 0
+ object cbReadOnly: TCheckBox
+ Tag = 1
+ Left = 16
+ Top = 16
+ Width = 89
+ Height = 21
+ AllowGrayed = True
+ Caption = 'Read only'
+ State = cbGrayed
+ TabOrder = 0
+ OnClick = cbFileAttributeClick
+ end
+ object cbHidden: TCheckBox
+ Tag = 2
+ Left = 16
+ Top = 40
+ Width = 89
+ Height = 21
+ AllowGrayed = True
+ Caption = 'Hidden'
+ TabOrder = 1
+ OnClick = cbFileAttributeClick
+ end
+ object cbSystem: TCheckBox
+ Tag = 4
+ Left = 16
+ Top = 64
+ Width = 89
+ Height = 21
+ AllowGrayed = True
+ Caption = 'System'
+ TabOrder = 2
+ OnClick = cbFileAttributeClick
+ end
+ object cbDirectory: TCheckBox
+ Tag = 16
+ Left = 16
+ Top = 88
+ Width = 89
+ Height = 21
+ AllowGrayed = True
+ Caption = 'Directory'
+ TabOrder = 3
+ OnClick = cbFileAttributeClick
+ end
+ object cbSymLink: TCheckBox
+ Tag = 64
+ Left = 136
+ Top = 16
+ Width = 101
+ Height = 21
+ AllowGrayed = True
+ Caption = 'Symbolic link'
+ State = cbGrayed
+ TabOrder = 4
+ OnClick = cbFileAttributeClick
+ end
+ object cbNormal: TCheckBox
+ Tag = 128
+ Left = 136
+ Top = 88
+ Width = 89
+ Height = 21
+ AllowGrayed = True
+ Caption = 'Normal'
+ State = cbGrayed
+ TabOrder = 7
+ OnClick = cbFileAttributeClick
+ end
+ object cbArchive: TCheckBox
+ Tag = 32
+ Left = 136
+ Top = 16
+ Width = 89
+ Height = 21
+ AllowGrayed = True
+ Caption = 'Archive'
+ State = cbGrayed
+ TabOrder = 5
+ OnClick = cbFileAttributeClick
+ end
+ object cbVolumeID: TCheckBox
+ Tag = 8
+ Left = 136
+ Top = 40
+ Width = 89
+ Height = 21
+ AllowGrayed = True
+ Caption = 'Volume ID'
+ TabOrder = 6
+ OnClick = cbFileAttributeClick
+ end
+ end
+ object cbLastChangeAfter: TCheckBox
+ Left = 524
+ Top = 12
+ Width = 131
+ Height = 30
+ Caption = 'Last change after'
+ TabOrder = 1
+ end
+ object edLastChangeAfter: TEdit
+ Left = 656
+ Top = 16
+ Width = 113
+ Height = 21
+ MaxLength = 10
+ TabOrder = 2
+ end
+ object cbLastChangeBefore: TCheckBox
+ Left = 524
+ Top = 36
+ Width = 131
+ Height = 30
+ Caption = 'Last change before'
+ TabOrder = 3
+ end
+ object edLastChangeBefore: TEdit
+ Left = 656
+ Top = 40
+ Width = 113
+ Height = 21
+ MaxLength = 10
+ TabOrder = 4
+ end
+ object cbFileSizeMax: TCheckBox
+ Left = 524
+ Top = 60
+ Width = 131
+ Height = 30
+ Caption = 'Maximum size'
+ TabOrder = 5
+ end
+ object edFileSizeMax: TEdit
+ Left = 656
+ Top = 64
+ Width = 113
+ Height = 21
+ TabOrder = 6
+ Text = '$7FFFFFFFFFFFFFFF'
+ end
+ object cbFileSizeMin: TCheckBox
+ Left = 524
+ Top = 84
+ Width = 131
+ Height = 30
+ Caption = 'Minimum size'
+ TabOrder = 7
+ end
+ object edFileSizeMin: TEdit
+ Left = 656
+ Top = 88
+ Width = 113
+ Height = 21
+ TabOrder = 8
+ Text = '0'
+ end
+ object IncludeSubDirectories: TCheckBox
+ Left = 40
+ Top = 18
+ Width = 157
+ Height = 17
+ Caption = 'Include sub directories'
+ Checked = True
+ State = cbChecked
+ TabOrder = 9
+ OnClick = UpdateIncludeHiddenSubDirs
+ end
+ object IncludeHiddenSubDirs: TCheckBox
+ Left = 40
+ Top = 42
+ Width = 201
+ Height = 17
+ Caption = 'Include hidden sub directories'
+ TabOrder = 10
+ OnClick = IncludeHiddenSubDirsClick
+ end
+ object cbDisplayLiveUpdate: TCheckBox
+ Left = 40
+ Top = 90
+ Width = 189
+ Height = 17
+ Caption = '&Display live update'
+ Checked = True
+ State = cbChecked
+ TabOrder = 12
+ end
+ object cbCaseInsensitiveSearch: TCheckBox
+ Left = 40
+ Top = 66
+ Width = 177
+ Height = 17
+ Caption = 'Case insensitive search'
+ TabOrder = 11
+ end
+ end
+ object SaveDialog: TSaveDialog
+ DefaultExt = '*.txt'
+ Filter = 'Text files (*.txt)|*.txt|All files (*.*)|*.*'
+ Left = 216
+ Top = 96
+ end
+end
Property changes on: trunk/jcl/examples/common/filesearch/FileSearchDemoMain.dfm
___________________________________________________________________
Added: svn:mergeinfo
+
Added: svn:eol-style
+ native
Copied: trunk/jcl/examples/common/filesearch/FileSearchDemoMain.pas (from rev 2397, trunk/jcl/examples/common/filesearch/QFileSearchDemoMain.pas)
===================================================================
--- trunk/jcl/examples/common/filesearch/FileSearchDemoMain.pas (rev 0)
+++ trunk/jcl/examples/common/filesearch/FileSearchDemoMain.pas 2008-07-29 16:27:29 UTC (rev 2399)
@@ -0,0 +1,262 @@
+//
+// Robert Rossmair, 2003
+//
+unit FileSearchDemoMain;
+
+{$INCLUDE jcl.inc}
+
+interface
+
+uses
+ SysUtils, Classes,
+ Types, Graphics, StdCtrls, Controls, ExtCtrls, ComCtrls, Forms, Dialogs,
+ JclStrings, JclFileUtils;
+
+type
+ TFileSearchForm = class(TForm)
+ StatusBar: TStatusBar;
+ FileList: TListView;
+ Panel1: TPanel;
+ Label1: TLabel;
+ RootDirInput: TEdit;
+ StartBtn: TButton;
+ StopBtn: TButton;
+ Label2: TLabel;
+ DetailsPanel: TPanel;
+ GroupBox1: TGroupBox;
+ cbReadOnly: TCheckBox;
+ cbHidden: TCheckBox;
+ cbSystem: TCheckBox;
+ cbDirectory: TCheckBox;
+ cbSymLink: TCheckBox;
+ cbNormal: TCheckBox;
+ cbArchive: TCheckBox;
+ DetailsBtn: TButton;
+ FileMaskInput: TEdit;
+ cbLastChangeAfter: TCheckBox;
+ edLastChangeAfter: TEdit;
+ cbLastChangeBefore: TCheckBox;
+ edLastChangeBefore: TEdit;
+ cbFileSizeMax: TCheckBox;
+ edFileSizeMax: TEdit;
+ cbFileSizeMin: TCheckBox;
+ edFileSizeMin: TEdit;
+ IncludeSubDirectories: TCheckBox;
+ IncludeHiddenSubDirs: TCheckBox;
+ cbDisplayLiveUpdate: TCheckBox;
+ cbCaseInsensitiveSearch: TCheckBox;
+ SaveBtn: TButton;
+ SaveDialog: TSaveDialog;
+ procedure StartBtnClick(Sender: TObject);
+ procedure StopBtnClick(Sender: TObject);
+ procedure FormCreate(Sender: TObject);
+ procedure FormDestroy(Sender: TObject);
+ procedure cbFileAttributeClick(Sender: TObject);
+ procedure UpdateIncludeHiddenSubDirs(Sender: TObject);
+ procedure IncludeHiddenSubDirsClick(Sender: TObject);
+ procedure DetailsBtnClick(Sender: TObject);
+ procedure SaveBtnClick(Sender: TObject);
+ private
+ { Private declarations }
+ FFileEnumerator: TJclFileEnumerator;
+ FDirCount: Integer;
+ FTaskID: TFileSearchTaskID;
+ FT0: TDateTime;
+ FFileListLiveUpdate: Boolean;
+ procedure DirectoryEntered(const Directory: string);
+ procedure AddFile(const Directory: string; const FileInfo: TSearchRec);
+ procedure TaskDone(const ID: TFileSearchTaskID; const Aborted: Boolean);
+ end;
+
+var
+ FileSearchForm: TFileSearchForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TFileSearchForm.FormCreate(Sender: TObject);
+begin
+ FFileEnumerator := TJclFileEnumerator.Create;
+ FFileEnumerator.OnEnterDirectory := DirectoryEntered;
+ FFileEnumerator.OnTerminateTask := TaskDone;
+ FileMaskInput.Text := '*.pas;*.dfm;*.xfm;*.dpr;*.dpk*';
+ RootDirInput.Text := ExpandFileName(FFileEnumerator.RootDirectory);
+ edLastChangeAfter.Text := FFileEnumerator.LastChangeAfterAsString;
+ edLastChangeBefore.Text := FFileEnumerator.LastChangeBeforeAsString;
+ cbCaseInsensitiveSearch.Checked := not FFileEnumerator.CaseSensitiveSearch;
+ {$IFDEF MSWINDOWS}
+ cbSymLink.Visible := False;
+ {$ENDIF MSWINDOWS}
+ {$IFDEF UNIX}
+ FileList.Columns.Add.Caption := 'Link';
+ cbArchive.Visible := False;
+ {$ENDIF UNIX}
+end;
+
+procedure TFileSearchForm.FormDestroy(Sender: TObject);
+begin
+ FFileEnumerator.Free;
+ {
+ FileList.Items.BeginUpdate;
+ FileList.Items.Clear;
+ FileList.Items.EndUpdate;
+ }
+end;
+
+procedure TFileSearchForm.DirectoryEntered(const Directory: string);
+begin
+ Inc(FDirCount);
+ StatusBar.Panels[0].Text := Format('%d files', [FileList.Items.Count]);
+ StatusBar.Panels[1].Text := Format('%d directories', [FDirCount]);
+ StatusBar.Panels[2].Text := Format('Processing %s...', [Directory]);
+end;
+
+procedure TFileSearchForm.AddFile(const Directory: string; const FileInfo: TSearchRec);
+var
+ ListItem: TListItem;
+ S: string;
+begin
+ ListItem := FileList.Items.Add;
+ with ListItem do
+ begin
+ Caption := Directory + FileInfo.Name;
+ Str(GetSizeOfFile(FileInfo):13, S);
+ SubItems.Add(S);
+ SubItems.Add(FormatDateTime(' yyyy-mm-dd hh:nn:ss ', FileDateToDateTime(FileInfo.Time)));
+ SubItems.Add(FileAttributesStr(FileInfo));
+ {$IFDEF UNIX}
+ if (FileInfo.Attr and faSymLink) <> 0 then
+ SubItems.Add(SymbolicLinkTarget(Caption));
+ {$ENDIF UNIX}
+ SubItems.Add(FileGetOwnerName(Caption));
+ SubItems.Add(FileGetGroupName(Caption));
+ end;
+end;
+
+procedure TFileSearchForm.TaskDone(const ID: TFileSearchTaskID; const Aborted: Boolean);
+begin
+ if not FFileListLiveUpdate then
+ FileList.Items.EndUpdate;
+ StatusBar.Panels[0].Text := Format('%d files', [FileList.Items.Count]);
+ if Aborted then
+ StatusBar.Panels[2].Text := 'Prematurely aborted.'
+ else
+ StatusBar.Panels[2].Text := Format('...finished (%f seconds).', [(Now - FT0) * SecsPerDay]);
+ StartBtn.Enabled := True;
+ SaveBtn.Enabled := True;
+ StopBtn.Enabled := False;
+ ActiveControl := StartBtn;
+end;
+
+procedure TFileSearchForm.StartBtnClick(Sender: TObject);
+begin
+ RootDirInput.Text := PathCanonicalize(RootDirInput.Text);
+
+ FFileEnumerator.SearchOption[fsLastChangeAfter] := cbLastChangeAfter.Checked;
+ FFileEnumerator.SearchOption[fsLastChangeBefore] := cbLastChangeBefore.Checked;
+ if FFileEnumerator.SearchOption[fsLastChangeAfter] then
+ FFileEnumerator.LastChangeAfterAsString := edLastChangeAfter.Text;
+ if FFileEnumerator.SearchOption[fsLastChangeBefore] then
+ FFileEnumerator.LastChangeBeforeAsString := edLastChangeBefore.Text;
+ FFileEnumerator.RootDirectory := RootDirInput.Text;
+ FFileEnumerator.FileMask := FileMaskInput.Text;
+ FFileEnumerator.SearchOption[fsMinSize] := cbFileSizeMin.Checked;
+ FFileEnumerator.SearchOption[fsMaxSize] := cbFileSizeMax.Checked;
+ FFileEnumerator.FileSizeMin := StrToInt64(edFileSizeMin.Text);
+ FFileEnumerator.FileSizeMax := StrToInt64(edFileSizeMax.Text);
+ FFileEnumerator.IncludeSubDirectories := IncludeSubDirectories.Checked;
+ FFileEnumerator.IncludeHiddenSubDirectories := IncludeHiddenSubDirs.Checked;
+ FFileEnumerator.CaseSensitiveSearch := not cbCaseInsensitiveSearch.Checked;
+ FDirCount := 0;
+
+ StartBtn.Enabled := False;
+ StopBtn.Enabled := True;
+ SaveBtn.Enabled := False;
+ ActiveControl := StopBtn;
+
+ FFileListLiveUpdate := cbDisplayLiveUpdate.Checked;
+
+ FileList.Items.Clear;
+ if not FFileListLiveUpdate then
+ FileList.Items.BeginUpdate;
+
+ FT0 := Now;
+ FTaskID := FFileEnumerator.ForEach(AddFile);
+end;
+
+procedure TFileSearchForm.StopBtnClick(Sender: TObject);
+begin
+ FFileEnumerator.StopTask(FTaskID);
+end;
+
+procedure TFileSearchForm.cbFileAttributeClick(Sender: TObject);
+const
+ Interest: array[TCheckBoxState] of TAttributeInterest = (aiRejected, aiRequired, aiIgnored);
+ CBState: array[TAttributeInterest] of TCheckBoxState = (cbGrayed, cbUnchecked, cbChecked);
+begin
+ with FFileEnumerator.AttributeMask do
+ begin
+ with Sender as TCheckBox do
+ Attribute[Tag] := Interest[State];
+ cbReadOnly.State := CBState[ReadOnly];
+ cbHidden.State := CBState[Hidden];
+ cbSystem.State := CBState[System];
+ cbDirectory.State := CBState[Directory];
+ cbNormal.State := CBState[Normal];
+{$IFDEF UNIX}
+ cbSymLink.State := CBState[SymLink];
+{$ENDIF def UNIX}
+{$IFDEF MSWINDOWS}
+ cbArchive.State := CBState[Archive];
+{$ENDIF def MSWINDOWS}
+ end;
+end;
+
+procedure TFileSearchForm.UpdateIncludeHiddenSubDirs(Sender: TObject);
+begin
+ IncludeHiddenSubDirs.AllowGrayed := not IncludeSubDirectories.Checked;
+ if IncludeSubDirectories.Checked then
+ begin
+ if IncludeHiddenSubDirs.State = cbGrayed then
+ IncludeHiddenSubDirs.State := cbChecked;
+ end
+ else
+ begin
+ if IncludeHiddenSubDirs.State = cbChecked then
+ IncludeHiddenSubDirs.State := cbGrayed;
+ end;
+end;
+
+procedure TFileSearchForm.IncludeHiddenSubDirsClick(Sender: TObject);
+begin
+ if not IncludeSubDirectories.Checked then
+ if IncludeHiddenSubDirs.State = cbChecked then
+ IncludeHiddenSubDirs.State := cbUnchecked;
+end;
+
+procedure TFileSearchForm.DetailsBtnClick(Sender: TObject);
+const
+ DetailsBtnCaptions: array[Boolean] of string = ('More >>', 'Less <<');
+begin
+ DetailsPanel.Visible := not DetailsPanel.Visible;
+ DetailsBtn.Caption := DetailsBtnCaptions[DetailsPanel.Visible];
+end;
+
+procedure TFileSearchForm.SaveBtnClick(Sender: TObject);
+var
+ I: Integer;
+begin
+ if SaveDialog.Execute then
+ with TStringList.Create do
+ try
+ for I := 0 to FileList.Items.Count - 1 do
+ Add(FileList.Items[I].Caption);
+ SaveToFile(SaveDialog.FileName);
+ finally
+ Free;
+ end;
+end;
+
+end.
+
Property changes on: trunk/jcl/examples/common/filesearch/FileSearchDemoMain.pas
___________________________________________________________________
Added: svn:keywords
+ URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id
Added: svn:mergeinfo
+
Added: svn:eol-style
+ native
Deleted: trunk/jcl/examples/common/filesearch/QFileSearchDemo.dof
===================================================================
--- trunk/jcl/examples/common/filesearch/QFileSearchDemo.dof 2008-07-27 14:56:45 UTC (rev 2398)
+++ trunk/jcl/examples/common/filesearch/QFileSearchDemo.dof 2008-07-29 16:27:29 UTC (rev 2399)
@@ -1,2 +0,0 @@
-[Directories]
-OutputDir=../../../bin
Deleted: trunk/jcl/examples/common/filesearch/QFileSearchDemo.dpr
===================================================================
--- trunk/jcl/examples/common/filesearch/QFileSearchDemo.dpr 2008-07-27 14:56:45 UTC (rev 2398)
+++ trunk/jcl/examples/common/filesearch/QFileSearchDemo.dpr 2008-07-29 16:27:29 UTC (rev 2399)
@@ -1,16 +0,0 @@
-program QFileSearchDemo;
-
-{$I jcl.inc}
-
-uses
- QForms,
- QFileSearchDemoMain in 'QFileSearchDemoMain.pas' {FileSearchForm};
-
-{$R *.res}
-{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res}
-
-begin
- Application.Initialize;
- Application.CreateForm(TFileSearchForm, FileSearchForm);
- Application.Run;
-end.
Deleted: trunk/jcl/examples/common/filesearch/QFileSearchDemoMain.dfm
===================================================================
--- trunk/jcl/examples/common/filesearch/QFileSearchDemoMain.dfm 2008-07-27 14:56:45 UTC (rev 2398)
+++ trunk/jcl/examples/common/filesearch/QFileSearchDemoMain.dfm 2008-07-29 16:27:29 UTC (rev 2399)
@@ -1,352 +0,0 @@
-object FileSearchForm: TFileSearchForm
- Left = 258
- Top = 301
- ClientWidth = 779
- ClientHeight = 482
- HorzScrollBar.Range = 378
- VertScrollBar.Range = 252
- ActiveControl = StartBtn
- AutoScroll = False
- Caption = 'File Search Demo (TJclFileEnumerator)'
- Color = clBtnFace
- Constraints.MinHeight = 279
- Constraints.MinWidth = 647
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = 12
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- OldCreateOrder = True
- Position = poDefaultPosOnly
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object StatusBar: TStatusBar
- Left = 0
- Top = 460
- Width = 779
- Height = 21
- Panels = <
- item
- Alignment = taRightJustify
- Width = 100
- end
- item
- Alignment = taRightJustify
- Width = 100
- end
- item
- Width = 50
- end>
- end
- object FileList: TListView
- Left = 0
- Top = 181
- Width = 779
- Height = 279
- Align = alClient
- Columns = <
- item
- Caption = 'File'
- Width = 360
- end
- item
- Alignment = taRightJustify
- AutoSize = True
- Caption = 'Size'
- end
- item
- Alignment = taCenter
- AutoSize = True
- Caption = 'Time'
- end
- item
- Caption = 'Attr.'
- Width = 60
- end>
- ReadOnly = True
- TabOrder = 1
- ViewStyle = vsReport
- OnColumnClick = FileListColumnClick
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 779
- Height = 49
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 2
- object Label1: TLabel
- Left = 14
- Top = 14
- Width = 16
- Height = 13
- Caption = 'List'
- end
- object Label2: TLabel
- Left = 216
- Top = 14
- Width = 29
- Height = 13
- Caption = 'files in'
- end
- object RootDirInput: TEdit
- Left = 256
- Top = 10
- Width = 248
- Height = 21
- TabOrder = 1
- end
- object StartBtn: TButton
- Left = 524
- Top = 10
- Width = 61
- Height = 25
- Caption = 'Start'
- TabOrder = 2
- OnClick = StartBtnClick
- end
- object StopBtn: TButton
- Left = 596
- Top = 10
- Width = 61
- Height = 25
- Caption = 'Stop'
- Enabled = False
- TabOrder = 3
- OnClick = StopBtnClick
- end
- object DetailsBtn: TButton
- Left = 668
- Top = 10
- Width = 77
- Height = 25
- Caption = 'More >>'
- TabOrder = 4
- OnClick = DetailsBtnClick
- end
- object FileMaskInput: TEdit
- Left = 40
- Top = 10
- Width = 169
- Height = 21
- TabOrder = 0
- Text = '*'
- end
- end
- object DetailsPanel: TPanel
- Left = 0
- Top = 49
- Width = 779
- Height = 132
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 3
- Visible = False
- object GroupBox1: TGroupBox
- Left = 256
- Top = 0
- Width = 249
- Height = 121
- Caption = 'File attributes'
- TabOrder = 0
- object cbReadOnly: TCheckBox
- Tag = 1
- Left = 16
- Top = 16
- Width = 89
- Height = 21
- AllowGrayed = True
- Caption = 'Read only'
- State = cbGrayed
- TabOrder = 0
- OnClick = cbFileAttributeClick
- end
- object cbHidden: TCheckBox
- Tag = 2
- Left = 16
- Top = 40
- Width = 89
- Height = 21
- AllowGrayed = True
- Caption = 'Hidden'
- TabOrder = 1
- OnClick = cbFileAttributeClick
- end
- object cbSystem: TCheckBox
- Tag = 4
- Left = 16
- Top = 64
- Width = 89
- Height = 21
- AllowGrayed = True
- Caption = 'System'
- TabOrder = 2
- OnClick = cbFileAttributeClick
- end
- object cbDirectory: TCheckBox
- Tag = 16
- Left = 16
- Top = 88
- Width = 89
- Height = 21
- AllowGrayed = True
- Caption = 'Directory'
- TabOrder = 3
- OnClick = cbFileAttributeClick
- end
- object cbSymLink: TCheckBox
- Tag = 64
- Left = 136
- Top = 16
- Width = 101
- Height = 21
- AllowGrayed = True
- Caption = 'Symbolic link'
- State = cbGrayed
- TabOrder = 4
- OnClick = cbFileAttributeClick
- end
- object cbNormal: TCheckBox
- Tag = 128
- Left = 136
- Top = 88
- Width = 89
- Height = 21
- AllowGrayed = True
- Caption = 'Normal'
- State = cbGrayed
- TabOrder = 7
- OnClick = cbFileAttributeClick
- end
- object cbArchive: TCheckBox
- Tag = 32
- Left = 136
- Top = 16
- Width = 89
- Height = 21
- AllowGrayed = True
- Caption = 'Archive'
- State = cbGrayed
- TabOrder = 5
- OnClick = cbFileAttributeClick
- end
- object cbVolumeID: TCheckBox
- Tag = 8
- Left = 136
- Top = 40
- Width = 89
- Height = 21
- AllowGrayed = True
- Caption = 'Volume ID'
- TabOrder = 6
- OnClick = cbFileAttributeClick
- end
- end
- object cbLastChangeAfter: TCheckBox
- Left = 524
- Top = 12
- Width = 131
- Height = 30
- Caption = 'Last change after'
- TabOrder = 1
- end
- object edLastChangeAfter: TEdit
- Left = 656
- Top = 16
- Width = 113
- Height = 21
- MaxLength = 10
- TabOrder = 2
- end
- object cbLastChangeBefore: TCheckBox
- Left = 524
- Top = 36
- Width = 131
- Height = 30
- Caption = 'Last change before'
- TabOrder = 3
- end
- object edLastChangeBefore: TEdit
- Left = 656
- Top = 40
- Width = 113
- Height = 21
- MaxLength = 10
- TabOrder = 4
- end
- object cbFileSizeMax: TCheckBox
- Left = 524
- Top = 60
- Width = 131
- Height = 30
- Caption = 'Maximum size'
- TabOrder = 5
- end
- object edFileSizeMax: TEdit
- Left = 656
- Top = 64
- Width = 113
- Height = 21
- TabOrder = 6
- Text = '$7FFFFFFFFFFFFFFF'
- end
- object cbFileSizeMin: TCheckBox
- Left = 524
- Top = 84
- Width = 131
- Height = 30
- Caption = 'Minimum size'
- TabOrder = 7
- end
- object edFileSizeMin: TEdit
- Left = 656
- Top = 88
- Width = 113
- Height = 21
- TabOrder = 8
- Text = '0'
- end
- object IncludeSubDirectories: TCheckBox
- Left = 40
- Top = 18
- Width = 157
- Height = 17
- Caption = 'Include sub directories'
- Checked = True
- State = cbChecked
- TabOrder = 9
- OnClick = UpdateIncludeHiddenSubDirs
- end
- object IncludeHiddenSubDirs: TCheckBox
- Left = 40
- Top = 42
- Width = 201
- Height = 17
- Caption = 'Include hidden sub directories'
- TabOrder = 10
- OnClick = IncludeHiddenSubDirsClick
- end
- object cbDisplayLiveUpdate: TCheckBox
- Left = 40
- Top = 90
- Width = 189
- Height = 17
- Caption = '&Display live update'
- Checked = True
- State = cbChecked
- TabOrder = 12
- end
- object cbCaseInsensitiveSearch: TCheckBox
- Left = 40
- Top = 66
- Width = 177
- Height = 17
- Caption = 'Case insensitive search'
- TabOrder = 11
- end
- end
-end
Deleted: trunk/jcl/examples/common/filesearch/QFileSearchDemoMain.pas
===================================================================
--- trunk/jcl/examples/common/filesearch/QFileSearchDemoMain.pas 2008-07-27 14:56:45 UTC (rev 2398)
+++ trunk/jcl/examples/common/filesearch/QFileSearchDemoMain.pas 2008-07-29 16:27:29 UTC (rev 2399)
@@ -1,280 +0,0 @@
-//
-// Robert Rossmair, 2003
-//
-unit QFileSearchDemoMain;
-
-{$INCLUDE jcl.inc}
-
-interface
-
-uses
- SysUtils, Classes,
- Types, Qt, QGraphics, QStdCtrls, QControls, QExtCtrls, QComCtrls, QForms, QMask,
- JclStrings, JclFileUtils, QDialogs;
-
-type
- TFileSearchForm = class(TForm)
- StatusBar: TStatusBar;
- FileList: TListView;
- Panel1: TPanel;
- Label1: TLabel;
- RootDirInput: TEdit;
- StartBtn: TButton;
- StopBtn: TButton;
- Label2: TLabel;
- DetailsPanel: TPanel;
- GroupBox1: TGroupBox;
- cbReadOnly: TCheckBox;
- cbHidden: TCheckBox;
- cbSystem: TCheckBox;
- cbDirectory: TCheckBox;
- cbSymLink: TCheckBox;
- cbNormal: TCheckBox;
- cbArchive: TCheckBox;
- DetailsBtn: TButton;
- FileMaskInput: TEdit;
- cbLastChangeAfter: TCheckBox;
- edLastChangeAfter: TEdit;
- cbLastChangeBefore: TCheckBox;
- edLastChangeBefore: TEdit;
- cbFileSizeMax: TCheckBox;
- edFileSizeMax: TEdit;
- cbFileSizeMin: TCheckBox;
- edFileSizeMin: TEdit;
- IncludeSubDirectories: TCheckBox;
- IncludeHiddenSubDirs: TCheckBox;
- cbDisplayLiveUpdate: TCheckBox;
- cbCaseInsensitiveSearch: TCheckBox;
- SaveBtn: TButton;
- SaveDialog: TSaveDialog;
- procedure StartBtnClick(Sender: TObject);
- procedure StopBtnClick(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure FormDestroy(Sender: TObject);
- procedure FileListColumnClick(Sender: TObject; Column: TListColumn);
- procedure cbFileAttributeClick(Sender: TObject);
- procedure UpdateIncludeHiddenSubDirs(Sender: TObject);
- procedure IncludeHiddenSubDirsClick(Sender: TObject);
- procedure DetailsBtnClick(Sender: TObject);
- procedure SaveBtnClick(Sender: TObject);
- private
- { Private declarations }
- FFileEnumerator: TJclFileEnumerator;
- FDirCount: Integer;
- FColumnIndex: Integer;
- FTaskID: TFileSearchTaskID;
- FT0: TDateTime;
- FSortDirection: TSortDirection;
- FFileListLiveUpdate: Boolean;
- procedure DirectoryEntered(const Directory: string);
- procedure AddFile(const Directory: string; const FileInfo: TSearchRec);
- procedure TaskDone(const ID: TFileSearchTaskID; const Aborted: Boolean);
- end;
-
-var
- FileSearchForm: TFileSearchForm;
-
-implementation
-
-{$R *.xfm}
-
-procedure TFileSearchForm.FormCreate(Sender: TObject);
-begin
- FFileEnumerator := TJclFileEnumerator.Create;
- FFileEnumerator.OnEnterDirectory := DirectoryEntered;
- FFileEnumerator.OnTerminateTask := TaskDone;
- FileMaskInput.Text := '*.pas;*.dfm;*.xfm;*.dpr;*.dpk*';
- RootDirInput.Text := ExpandFileName(FFileEnumerator.RootDirectory);
- edLastChangeAfter.Text := FFileEnumerator.LastChangeAfterAsString;
- edLastChangeBefore.Text := FFileEnumerator.LastChangeBeforeAsString;
- cbCaseInsensitiveSearch.Checked := not FFileEnumerator.CaseSensitiveSearch;
- {$IFDEF MSWINDOWS}
- cbSymLink.Visible := False;
- {$ENDIF MSWINDOWS}
- {$IFDEF UNIX}
- FileList.Columns.Add.Caption := 'Link';
- cbArchive.Visible := False;
- {$ENDIF UNIX}
-end;
-
-procedure TFileSearchForm.FormDestroy(Sender: TObject);
-begin
- FFileEnumerator.Free;
- {
- FileList.Items.BeginUpdate;
- FileList.Items.Clear;
- FileList.Items.EndUpdate;
- }
-end;
-
-procedure TFileSearchForm.DirectoryEntered(const Directory: string);
-begin
- Inc(FDirCount);
- StatusBar.Panels[0].Text := Format('%d files', [FileList.Items.Count]);
- StatusBar.Panels[1].Text := Format('%d directories', [FDirCount]);
- StatusBar.Panels[2].Text := Format('Processing %s...', [Directory]);
-end;
-
-procedure TFileSearchForm.AddFile(const Directory: string; const FileInfo: TSearchRec);
-var
- ListItem: TListItem;
- S: string;
-begin
- ListItem := FileList.Items.Add;
- with ListItem do
- begin
- Caption := Directory + FileInfo.Name;
- Str(GetSizeOfFile(FileInfo):13, S);
- SubItems.Add(S);
- SubItems.Add(FormatDateTime(' yyyy-mm-dd hh:nn:ss ', FileDateToDateTime(FileInfo.Time)));
- SubItems.Add(FileAttributesStr(FileInfo));
- {$IFDEF UNIX}
- if (FileInfo.Attr and faSymLink) <> 0 then
- SubItems.Add(SymbolicLinkTarget(Caption));
- {$ENDIF UNIX}
- SubItems.Add(FileGetOwnerName(Caption));
- SubItems.Add(FileGetGroupName(Caption));
- end;
-end;
-
-procedure TFileSearchForm.TaskDone(const ID: TFileSearchTaskID; const Aborted: Boolean);
-begin
- if not FFileListLiveUpdate then
- FileList.Items.EndUpdate;
- StatusBar.Panels[0].Text := Format('%d files', [FileList.Items.Count]);
- if Aborted then
- StatusBar.Panels[2].Text := 'Prematurely aborted.'
- else
- StatusBar.Panels[2].Text := Format('...finished (%f seconds).', [(Now - FT0) * SecsPerDay]);
- FileList.Sorted := True;
- StartBtn.Enabled := True;
- SaveBtn.Enabled := True;
- StopBtn.Enabled := False;
- ActiveControl := StartBtn;
-end;
-
-procedure TFileSearchForm.StartBtnClick(Sender: TObject);
-begin
- RootDirInput.Text := PathCanonicalize(RootDirInput.Text);
-
- FFileEnumerator.SearchOption[fsLastChangeAfter] := cbLastChangeAfter.Checked;
- FFileEnumerator.SearchOption[fsLastChangeBefore] := cbLastChangeBefore.Checked;
- if FFileEnumerator.SearchOption[fsLastChangeAfter] then
- FFileEnumerator.LastChangeAfterAsString := edLastChangeAfter.Text;
- if FFileEnumerator.SearchOption[fsLastChangeBefore] then
- FFileEnumerator.LastChangeBeforeAsString := edLastChangeBefore.Text;
- FFileEnumerator.RootDirectory := RootDirInput.Text;
- FFileEnumerator.FileMask := FileMaskInput.Text;
- FFileEnumerator.SearchOption[fsMinSize] := cbFileSizeMin.Checked;
- FFileEnumerator.SearchOption[fsMaxSize] := cbFileSizeMax.Checked;
- FFileEnumerator.FileSizeMin := StrToInt64(edFileSizeMin.Text);
- FFileEnumerator.FileSizeMax := StrToInt64(edFileSizeMax.Text);
- FFileEnumerator.IncludeSubDirectories := IncludeSubDirectories.Checked;
- FFileEnumerator.IncludeHiddenSubDirectories := IncludeHiddenSubDirs.Checked;
- FFileEnumerator.CaseSensitiveSearch := not cbCaseInsensitiveSearch.Checked;
- FDirCount := 0;
-
- StartBtn.Enabled := False;
- StopBtn.Enabled := True;
- SaveBtn.Enabled := False;
- ActiveControl := StopBtn;
-
- FFileListLiveUpdate := cbDisplayLiveUpdate.Checked;
-
- FileList.Items.Clear;
- if not FFileListLiveUpdate then
- FileList.Items.BeginUpdate;
- FileList.Sorted := False;
-
- FT0 := Now;
- FTaskID := FFileEnumerator.ForEach(AddFile);
-end;
-
-procedure TFileSearchForm.StopBtnClick(Sender: TObject);
-begin
- FFileEnumerator.StopTask(FTaskID);
-end;
-
-procedure TFileSearchForm.FileListColumnClick(Sender: TObject; Column: TListColumn);
-const
- SD: array[TSortDirection] of TSortDirection = (sdDescending, sdAscending);
-begin
- if FColumnIndex = Column.Index then
- begin
- FSortDirection := SD[FSortDirection];
- FileList.SortDirection := FSortDirection;
- end
- else
- FColumnIndex := Column.Index;
-end;
-
-procedure TFileSearchForm.cbFileAttributeClick(Sender: TObject);
-const
- Interest: array[TCheckBoxState] of TAttributeInterest = (aiRejected, aiRequired, aiIgnored);
- CBState: array[TAttributeInterest] of TCheckBoxState = (cbGrayed, cbUnchecked, cbChecked);
-begin
- with FFileEnumerator.AttributeMask do
- begin
- with Sender as TCheckBox do
- Attribute[Tag] := Interest[State];
- cbReadOnly.State := CBState[ReadOnly];
- cbHidden.State := CBState[Hidden];
- cbSystem.State := CBState[System];
- cbDirectory.State := CBState[Directory];
- cbNormal.State := CBState[Normal];
-{$IFDEF UNIX}
- cbSymLink.State := CBState[SymLink];
-{$ENDIF def UNIX}
-{$IFDEF MSWINDOWS}
- cbArchive.State := CBState[Archive];
-{$ENDIF def MSWINDOWS}
- end;
-end;
-
-procedure TFileSearchForm.UpdateIncludeHiddenSubDirs(Sender: TObject);
-begin
- IncludeHiddenSubDirs.AllowGrayed := not IncludeSubDirectories.Checked;
- if IncludeSubDirectories.Checked then
- begin
- if IncludeHiddenSubDirs.State = cbGrayed then
- IncludeHiddenSubDirs.State := cbChecked;
- end
- else
- begin
- if IncludeHiddenSubDirs.State = cbChecked then
- IncludeHiddenSubDirs.State := cbGrayed;
- end;
-end;
-
-procedure TFileSearchForm.IncludeHiddenSubDirsClick(Sender: TObject);
-begin
- if not IncludeSubDirectories.Checked then
- if IncludeHiddenSubDirs.State = cbChecked then
- IncludeHiddenSubDirs.State := cbUnchecked;
-end;
-
-procedure TFileSearchForm.DetailsBtnClick(Sender: TObject);
-const
- DetailsBtnCaptions: array[Boolean] of string = ('More >>', 'Less <<');
-begin
- DetailsPanel.Visible := not DetailsPanel.Visible;
- DetailsBtn.Caption := DetailsBtnCaptions[DetailsPanel.Visible];
-end;
-
-procedure TFileSearchForm.SaveBtnClick(Sender: TObject);
-var
- I: Integer;
-begin
- if SaveDialog.Execute then
- with TStringList.Create do
- try
- for I := 0 to FileList.Items.Count - 1 do
- Add(FileList.Items[I].Caption);
- SaveToFile(SaveDialog.FileName);
- finally
- Free;
- end;
-end;
-
-end.
-
Deleted: trunk/jcl/examples/common/filesearch/QFileSearchDemoMain.xfm
===================================================================
--- trunk/jcl/examples/common/filesearch/QFileSearchDemoMain.xfm 2008-07-27 14:56:45 UTC (rev 2398)
+++ trunk/jcl/examples/common/filesearch/QFileSearchDemoMain.xfm 2008-07-29 16:27:29 UTC (rev 2399)
@@ -1,378 +0,0 @@
-object FileSearchForm: TFileSearchForm
- Left = 267
- Top = 302
- Width = 787
- Height = 509
- VertScrollBar.Range = 252
- HorzScrollBar.Range = 378
- ActiveControl = StartBtn
- AutoScroll = False
- Caption = 'File Search Demo (TJclFileEnumerator)'
- Color = clButton
- Constraints.MinHeight = 279
- Constraints.MinWidth = 647
- Font.Color = clBlack
- Font.Height = 12
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- Font.Weight = 40
- ParentFont = False
- Position = poDefaultPosOnly
- Scaled = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- object StatusBar: TStatusBar
- Left = 0
- Top = 488
- Width = 787
- Height = 21
- Panels = <
- item
- Alignment = taRightJustify
- Width = 100
- end
- item
- Alignment = taRightJustify
- Width = 100
- end
- item
- end>
- end
- object FileList: TListView
- Left = 0
- Top = 181
- Width = 787
- Height = 307
- Align = alClient
- Columns = <
- item
- Caption = 'File'
- Tag = 0
- Width = 360
- end
- item
- Alignment = taRightJustify
- AutoSize = True
- Caption = 'Size'
- Tag = 0
- Width = 50
- end
- item
- Alignment = taCenter
- AutoSize = True
- Caption = 'Time'
- Tag = 0
- Width = 50
- end
- item
- Caption = 'Attr.'
- Tag = 0
- Width = 60
- end
- item
- Caption = 'Owner'
- Tag = 0
- Width = 100
- end
- item
- Caption = 'Group'
- Tag = 0
- Width = 50
- end>
- ReadOnly = True
- ShowColumnSortIndicators = True
- Sorted = True
- TabOrder = 1
- ViewStyle = vsReport
- OnColumnClick = FileListColumnClick
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 787
- Height = 49
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 2
- object Label1: TLabel
- Left = 14
- Top = 14
- Width = 16
- Height = 13
- Caption = 'List'
- end
- object Label2: TLabel
- Left = 216
- Top = 14
- Width = 29
- Height = 13
- Caption = 'files in'
- end
- object RootDirInput: TEdit
- Left = 256
- Top = 10
- Width = 248
- Height = 21
- TabOrder = 1
- end
- object StartBtn: TButton
- Left = 524
- Top = 10
- Width = 47
- Height = 25
- Caption = 'Start'
- TabOrder = 2
- OnClick = StartBtnClick
- end
- object StopBtn: TButton
- Left = 576
- Top = 10
- Width = 47
- Height = 25
- Caption = 'Stop'
- Enabled = False
- TabOrder = 3
- OnClick = StopBtnClick
- end
- object DetailsBtn: TButton
- Left = 692
- Top = 10
- Width = 77
- Height = 25
- Caption = 'More >>'
- TabOrder = 5
- OnClick = DetailsBtnClick
- end
- object FileMaskInput: TEdit
- Left = 40
- Top = 10
- Width = 169
- Height = 21
- TabOrder = 0
- Text = '*'
- end
- object SaveBtn: TButton
- Left = 628
- Top = 10
- Width = 47
- Height = 25
- Caption = 'Save...'
- Enabled = False
- TabOrder = 4
- OnClick = SaveBtnClick
- end
- end
- object DetailsPanel: TPanel
- Left = 0
- Top = 49
- Width = 787
- Height = 132
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 3
- Visible = False
- object GroupBox1: TGroupBox
- Left = 256
- Top = 0
- Width = 249
- Height = 121
- Caption = 'File attributes'
- TabOrder = 0
- object cbReadOnly: TCheckBox
- Tag = 1
- Left = 16
- Top = 16
- Width = 89
- Height = 21
- AllowGrayed = True
- Caption = 'Read only'
- Checked = True
- State = cbGrayed
- TabOrder = 0
- OnClick = cbFileAttributeClick
- end
- object cbHidden: TCheckBox
- Tag = 2
- Left = 16
- Top = 40
- Width = 89
- Height = 21
- AllowGrayed = True
- Caption = 'Hidden'
- TabOrder = 1
- OnClick = cbFileAttributeClick
- end
- object cbSystem: TCheckBox
- Tag = 4
- Left = 16
- Top = 64
- Width = 89
- Height = 21
- AllowGrayed = True
- Caption = 'System'
- TabOrder = 2
- OnClick = cbFileAttributeClick
- end
- object cbDirectory: TCheckBox
- Tag = 16
- Left = 16
- Top = 88
- Width = 89
- Height = 21
- AllowGrayed = True
- Caption = 'Directory'
- TabOrder = 3
- OnClick = cbFileAttributeClick
- end
- object cbSymLink: TCheckBox
- Tag = 64
- Left = 136
- Top = 16
- Width = 101
- Height = 21
- AllowGrayed = True
- Caption = 'Symbolic link'
- Checked = True
- State = cbGrayed
- TabOrder = 4
- OnClick = cbFileAttributeClick
- end
- object cbNormal: TCheckBox
- Tag = 128
- Left = 136
- Top = 88
- Width = 89
- Height = 21
- AllowGrayed = True
- Caption = 'Normal'
- Checked = True
- State = cbGrayed
- TabOrder = 6
- OnClick = cbFileAttributeClick
- end
- object cbArchive: TCheckBox
- Tag = 32
- Left = 136
- Top = 16
- Width = 89
- Height = 21
- AllowGrayed = True
- Caption = 'Archive'
- Checked = True
- State = cbGrayed
- TabOrder = 5
- OnClick = cbFileAttributeClick
- end
- end
- object cbLastChangeAfter: TCheckBox
- Left = 524
- Top = 12
- Width = 131
- Height = 30
- Caption = 'Last change after'
- TabOrder = 1
- end
- object edLastChangeAfter: TEdit
- Left = 656
- Top = 16
- Width = 113
- Height = 21
- MaxLength = 10
- TabOrder = 2
- end
- object cbLastChangeBefore: TCheckBox
- Left = 524
- Top = 36
- Width = 131
- Height = 30
- Caption = 'Last change before'
- TabOrder = 3
- end
- object edLastChangeBefore: TEdit
- Left = 656
- Top = 40
- Width = 113
- Height = 21
- MaxLength = 10
- TabOrder = 4
- end
- object cbFileSizeMax: TCheckBox
- Left = 524
- Top = 60
- Width = 131
- Height = 30
- Caption = 'Maximum size'
- TabOrder = 5
- end
- object edFileSizeMax: TEdit
- Left = 656
- Top = 64
- Width = 113
- Height = 21
- TabOrder = 6
- Text = '$7FFFFFFFFFFFFFFF'
- end
- object cbFileSizeMin: TCheckBox
- Left = 524
- Top = 84
- Width = 131
- Height = 30
- Caption = 'Minimum size'
- TabOrder = 7
- end
- object edFileSizeMin: TEdit
- Left = 656
- Top = 88
- Width = 113
- Height = 21
- TabOrder = 8
- Text = '0'
- end
- object IncludeSubDirectories: TCheckBox
- Left = 40
- Top = 18
- Width = 157
- Height = 17
- Caption = 'Include sub directories'
- Checked = True
- State = cbChecked
- TabOrder = 9
- OnClick = UpdateIncludeHiddenSubDirs
- end
- object IncludeHiddenSubDirs: TCheckBox
- Left = 40
- Top = 42
- Width = 201
- Height = 17
- Caption = 'Include hidden sub directories'
- TabOrder = 10
- OnClick = IncludeHiddenSubDirsClick
- end
- object cbDisplayLiveUpdate: TCheckBox
- Left = 40
- Top = 90
- Width = 189
- Height = 17
- Caption = '&Display live update'
- TabOrder = 12
- end
- object cbCaseInsensitiveSearch: TCheckBox
- Left = 40
- Top = 66
- Width = 177
- Height = 17
- Caption = 'Case insensitive search'
- TabOrder = 11
- end
- end
- object SaveDialog: TSaveDialog
- FilterIndex = 0
- Height = 0
- Title = 'Save'
- Width = 0
- Left = 740
- Top = 36
- end
-end
Copied: trunk/jcl/examples/common/graphics/ClipLineDemo.dof (from rev 2397, trunk/jcl/examples/common/graphics/QClipLineDemo.dof)
===================================================================
--- trunk/jcl/examples/common/graphics/ClipLineDemo.dof (rev 0)
+++ trunk/jcl/examples/common/graphics/ClipLineDemo.dof 2008-07-29 16:27:29 UTC (rev 2399)
@@ -0,0 +1,3 @@
+[Directories]
+OutputDir=../../../bin
+
Property changes on: trunk/jcl/examples/common/graphics/ClipLineDemo.dof
___________________________________________________________________
Added: svn:mergeinfo
+
Added: svn:eol-style
+ native
Copied: trunk/jcl/examples/common/graphics/ClipLineDemo.dpr (from rev 2397, trunk/jcl/examples/common/graphics/QClipLineDemo.dpr)
===================================================================
--- trunk/jcl/examples/common/graphics/ClipLineDemo.dpr (rev 0)
+++ trunk/jcl/examples/common/graphics/ClipLineDemo.dpr 2008-07-29 16:27:29 UTC (rev 2399)
@@ -0,0 +1,16 @@
+program ClipLineDemo;
+
+{$I jcl.inc}
+
+uses
+ Forms,
+ ClipLineDemoMain in 'ClipLineDemoMain.pas' {Form1};
+
+{$R *.res}
+{$R ..\..\..\source\windows\JclCommCtrlAsInvoker.res}
+
+begin
+ Application.Initialize;
+ Application.CreateForm(TForm1, Form1);
+ Application.Run;
+end.
Property changes on: trunk/jcl/examples/common/graphics/ClipLineDemo.dpr
___________________________________________________________________
Added: svn:keywords
+ URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id
Added: svn:mergeinfo
+
Added: svn:eol-style
+ native
Property changes on: trunk/jcl/examples/common/graphics/ClipLineDemo.res
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Added: svn:mergeinfo
+
Copied: trunk/jcl/examples/common/graphics/ClipLineDemoMain.dfm (from rev 2397, trunk/jcl/examples/common/graphics/QClipLineDemoMain.dfm)
===================================================================
--- trunk/jcl/examples/common/graphics/ClipLineDemoMain.dfm (rev 0)
+++ trunk/jcl/examples/common/graphics/ClipLineDemoMain.dfm 2008-07-29 16:27:29 UTC (rev 2399)
@@ -0,0 +1,17 @@
+object Form1: TForm1
+ Left = 198
+ Top = 147
+ Width = 400
+ Height = 400
+ Caption = 'ClipLine Demo'
+ Color = 15790320
+ OnCreate = FormCreate
+ OnPaint = FormPaint
+ PixelsPerInch = 96
+ TextHeight = 13
+ object Timer1: TTimer
+ Enabled = False
+ Left = 32
+ Top = 24
+ end
+end
Property changes on: trunk/jcl/examples/common/graphics/ClipLineDemoMain.dfm
___________________________________________________________________
Added: svn:mergeinfo
+
Added: svn:eol-style
+ native
Copied: trunk/jcl/examples/common/graphics/ClipLineDemoMain.pas (from rev 2397, trunk/jcl/examples/common/graphics/QClipLineDemoMain.pas)
===================================================================
--- trunk/jcl/examples/common/graphics/ClipLineDemoMain.pas (rev 0)
+++ trunk/jcl/examples/common/graphics/ClipLineDemoMain.pas 2008-07-29 16:27:29 UTC (rev 2399)
@@ -0,0 +1,85 @@
+unit ClipLineDemoMain;
+
+{$I jcl.inc}
+
+interface
+
+uses
+ SysUtils, Types, Classes,
+{$IFDEF MSWINDOWS}
+ Windows,
+{$ENDIF}
+ Graphics, ExtCtrls, Forms, JclGraphUtils,
+ JclBase;
+
+type
+ TForm1 = class(TForm)
+ Timer1: TTimer;
+ procedure FormCreate(Sender: TObject);
+ procedure FormPaint(Sender: TObject);
+ procedure Timer1Timer(Sender: TObject);
+ private
+ { Private declarations }
+ R: TRect;
+ P: TPointArray;
+ FPenColor: TColor;
+ FPenColorLight: TColor;
+ procedure InitLines;
+ public
+ { Public declarations }
+ end;
+
+var
+ Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+ Randomize;
+ R.Left := 100;
+ R.Top := 100;
+ R.Right := 300;
+ R.Bottom := 300;
+ SetLength(P, 50);
+ InitLines;
+end;
+
+procedure TForm1.FormPaint(Sender: TObject);
+begin
+ Canvas.Brush.Color := clWhite;
+ Canvas.FillRect(R);
+ Canvas.Pen.Color := FPenColorLight;
+ Canvas.PolyLine(P);
+ Canvas.Pen.Color := FPenColor;
+ DrawPolyLine(Canvas, P, R);
+end;
+
+procedure TForm1.InitLines;
+var
+ i: Integer;
+ H, S, L: Single;
+begin
+ for i := 0 to Length(P)-1 do
+ begin
+ P[i].X := Random(Width);
+ P[i].Y := Random(Height);
+ end;
+ H := Random;
+ S := Random;
+ L := 0.4 * Random;
+
+ FPenColor := WinColor(HSLToRGB(H, S, L));
+ FPenColorLight := WinColor(HSLToRGB(H, S, 1 - 0.2 * (1 - L)));
+end;
+
+procedure TForm1.Timer1Timer(Sender: TObject);
+begin
+ InitLines;
+ Refresh;
+end;
+
+end.
+
Property changes on: trunk/jcl/examples/common/graphics/ClipLineDemoMain.pas
___________________________________________________________________
Added: svn:keywords
+ URL HeadURL Author LastChangedBy Date LastChangedDate Rev Revision LastChangedRevision Id
Added: svn:mergeinfo
+
Added: svn:eol-style
+ native
Deleted: trunk/jcl/examples/common/graphics/QClipLineDemo.dof
===================================================================
--- trunk/jcl/examples/common/graphics/QClipLineDemo.dof 2008-07-27 14:56:45 UTC (rev 2398)
+++ trunk/jcl/examples/common/graphics/QClipLineDemo.dof 2008-07-29 16:27:29 UTC (rev 2399)
@@ -1,4 +0,0 @@
-[Directories]
-OutputDir=../../../bin
-Conditionals=VisualCLX;MATH_SINGLE_PRECISION
-
Deleted: trunk/jcl/examples/common/graphics/QClipLineDemo.dpr
===================================================================
--- trunk/jcl/examples/common/graphics/QClipLineDemo.dpr 2008-07-27 14:56:45 UTC (rev 2398)
+++ trunk/jcl/examples/common/graphics/QClipLineDemo.dpr 2008-07-29 16:27:29 UTC (rev 2399)
@@ -1,17 +0,0...
[truncated message content] |
|
From: <ou...@us...> - 2008-07-27 14:56:50
|
Revision: 2398
http://jcl.svn.sourceforge.net/jcl/?rev=2398&view=rev
Author: outchy
Date: 2008-07-27 14:56:45 +0000 (Sun, 27 Jul 2008)
Log Message:
-----------
Styles cleaning from Ma?\195?\171l H?\195?\182rz in newsgroups.
Modified Paths:
--------------
trunk/jcl/examples/common/pcre/PCREDemoMain.pas
trunk/jcl/source/common/JclPCRE.pas
Modified: trunk/jcl/examples/common/pcre/PCREDemoMain.pas
===================================================================
--- trunk/jcl/examples/common/pcre/PCREDemoMain.pas 2008-07-20 20:13:14 UTC (rev 2397)
+++ trunk/jcl/examples/common/pcre/PCREDemoMain.pas 2008-07-27 14:56:45 UTC (rev 2398)
@@ -85,10 +85,7 @@
if RE = nil then
acFind.Execute
else
- begin
- Inc(FMatchIndex);
Match;
- end;
end;
procedure TfrmMain.SelectText(Range: TJclAnsiCaptureRange);
@@ -108,7 +105,7 @@
else
begin
SelectText(RE.CaptureRanges[0]);
- FMatchIndex := RE.CaptureRanges[0].LastPos;
+ FMatchIndex := RE.CaptureRanges[0].LastPos + 1;
end;
UpdateUIOptions;
end;
Modified: trunk/jcl/source/common/JclPCRE.pas
===================================================================
--- trunk/jcl/source/common/JclPCRE.pas 2008-07-20 20:13:14 UTC (rev 2397)
+++ trunk/jcl/source/common/JclPCRE.pas 2008-07-27 14:56:45 UTC (rev 2398)
@@ -153,7 +153,7 @@
property ErrorMessage: AnsiString read FErrorMessage;
property ErrorOffset: Integer read FErrorOffset;
- property oncallout: TJclAnsiRegExCallout
+ property OnCallout: TJclAnsiRegExCallout
read FOnCallout write FOnCallout;
end;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2008-07-20 20:13:19
|
Revision: 2397
http://jcl.svn.sourceforge.net/jcl/?rev=2397&view=rev
Author: outchy
Date: 2008-07-20 20:13:14 +0000 (Sun, 20 Jul 2008)
Log Message:
-----------
The command line parameter to enable the output of package hpp files to a dedicated directory is set only if selected.
Modified Paths:
--------------
trunk/jcl/install/JclInstall.pas
trunk/jcl/source/common/JclBorlandTools.pas
Modified: trunk/jcl/install/JclInstall.pas
===================================================================
--- trunk/jcl/install/JclInstall.pas 2008-07-20 15:17:43 UTC (rev 2396)
+++ trunk/jcl/install/JclInstall.pas 2008-07-20 20:13:14 UTC (rev 2397)
@@ -1603,6 +1603,11 @@
begin
MarkOptionBegin(joDualPackages);
TJclBDSInstallation(Target).DualPackageInstallation := True;
+ if OptionChecked[joCopyPackagesHppFiles] then
+ begin
+ MarkOptionBegin(joCopyPackagesHppFiles);
+ MarkOptionEnd(joCopyPackagesHppFiles, True);
+ end;
MarkOptionEnd(joDualPackages, True);
end
else
@@ -2821,6 +2826,8 @@
Compiler.AddPathOption('N0', UnitOutputDir); // .dcu files
//Compiler.AddPathOption('NH', FIncludeDir); // .hpp files
Compiler.AddPathOption('NO', UnitOutputDir); // .obj files
+ if TJclBDSInstallation(Target).DualPackageInstallation and OptionChecked[joCopyPackagesHppFiles] then
+ Compiler.AddPathOption('N1',Target.VclIncludeDir);
end
else
begin
Modified: trunk/jcl/source/common/JclBorlandTools.pas
===================================================================
--- trunk/jcl/source/common/JclBorlandTools.pas 2008-07-20 15:17:43 UTC (rev 2396)
+++ trunk/jcl/source/common/JclBorlandTools.pas 2008-07-20 20:13:14 UTC (rev 2397)
@@ -4894,10 +4894,9 @@
if not (bpBCBuilder32 in Personalities) then
raise EJclBorRadException.CreateResFmt(@RsEDualPackageNotSupported, [Name]);
- NewOptions := Format('%s -JL -NB"%s" -NO"%s" -N1"%s"',
+ NewOptions := Format('%s -JL -NB"%s" -NO"%s"',
[ExtraOptions, PathRemoveSeparator(DcpPath),
- PathRemoveSeparator(DcpPath),
- PathRemoveSeparator(VclIncludeDir)]);
+ PathRemoveSeparator(DcpPath)]);
end
else
NewOptions := ExtraOptions;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2008-07-20 15:18:55
|
Revision: 2396
http://jcl.svn.sourceforge.net/jcl/?rev=2396&view=rev
Author: outchy
Date: 2008-07-20 15:17:43 +0000 (Sun, 20 Jul 2008)
Log Message:
-----------
mantis 4388: PCRE wrapper is buggy
fixed access violation due to wrong call conventions and corrupter memory management.
updated JclPCRE to recognize PCRE 7.7 error codes and configuration words.
fixed dll name to pcre3.dll.
fixed wrong prototypes of functions pcre_free_substring and pcre_free_substring_list.
Modified Paths:
--------------
trunk/jcl/examples/common/pcre/PCREDemoMain.pas
trunk/jcl/source/common/JclPCRE.pas
trunk/jcl/source/common/JclResources.pas
trunk/jcl/source/common/pcre.pas
Modified: trunk/jcl/examples/common/pcre/PCREDemoMain.pas
===================================================================
--- trunk/jcl/examples/common/pcre/PCREDemoMain.pas 2008-07-20 12:01:06 UTC (rev 2395)
+++ trunk/jcl/examples/common/pcre/PCREDemoMain.pas 2008-07-20 15:17:43 UTC (rev 2396)
@@ -85,13 +85,16 @@
if RE = nil then
acFind.Execute
else
+ begin
+ Inc(FMatchIndex);
Match;
+ end;
end;
procedure TfrmMain.SelectText(Range: TJclAnsiCaptureRange);
begin
- reFile.SelStart := Range.FirstPos;
- reFile.SelLength := Range.LastPos - Range.FirstPos;
+ reFile.SelStart := Range.FirstPos - 1;
+ reFile.SelLength := Range.LastPos - Range.FirstPos + 1;
end;
procedure TfrmMain.Match;
Modified: trunk/jcl/source/common/JclPCRE.pas
===================================================================
--- trunk/jcl/source/common/JclPCRE.pas 2008-07-20 12:01:06 UTC (rev 2395)
+++ trunk/jcl/source/common/JclPCRE.pas 2008-07-20 15:17:43 UTC (rev 2396)
@@ -78,7 +78,8 @@
roAnchored, roDollarEndOnly, roExtra, roNotBOL, roNotEOL, roUnGreedy,
roNotEmpty, roUTF8, roNoAutoCapture, roNoUTF8Check, roAutoCallout,
roPartial, roDfaShortest, roDfaRestart, roDfaFirstLine, roDupNames,
- roNewLineCR, roNewLineLF, roNewLineCRLF, roNewLineAny);
+ roNewLineCR, roNewLineLF, roNewLineCRLF, roNewLineAny, roBSRAnyCRLF,
+ roBSRUnicode, roJavascriptCompat);
TJclAnsiRegExOptions = set of TJclAnsiRegExOption;
TJclAnsiCaptureRange = record
FirstPos: Integer;
@@ -247,6 +248,10 @@
PErr := @RsErrDfaRecurse;
PCRE_ERROR_RECURSIONLIMIT:
PErr := @RsErrRecursionLimit;
+ PCRE_ERROR_NULLWSLIMIT:
+ PErr := @RsErrNullWsLimit;
+ PCRE_ERROR_BADNEWLINE:
+ PErr := @RsErrBadNewLine;
JCL_PCRE_ERROR_STUDYFAILED:
PErr := @RsErrStudyFailed;
JCL_PCRE_ERROR_CALLOUTERROR:
@@ -292,7 +297,8 @@
if FPattern = '' then
raise EPCREError.CreateRes(@RsErrNull, PCRE_ERROR_NULL);
- if Assigned(FCode) then CallPCREFree(FCode);
+ if Assigned(FCode) then
+ CallPCREFree(FCode);
FCode := pcre_compile2(PChar(FPattern), GetAPIOptions(False),
@FErrorCode, @ErrMsgPtr, @FErrorOffset, Tables);
Inc(FErrorOffset);
@@ -335,11 +341,13 @@
PCRE_DOLLAR_ENDONLY, PCRE_EXTRA, 0, 0, PCRE_UNGREEDY, 0, PCRE_UTF8,
PCRE_NO_AUTO_CAPTURE, PCRE_NO_UTF8_CHECK, PCRE_AUTO_CALLOUT, 0, 0, 0, 0,
PCRE_DUPNAMES, PCRE_NEWLINE_CR, PCRE_NEWLINE_LF, PCRE_NEWLINE_CRLF,
- PCRE_NEWLINE_ANY);
+ PCRE_NEWLINE_ANY, PCRE_BSR_ANYCRLF, PCRE_BSR_UNICODE,
+ PCRE_JAVASCRIPT_COMPAT);
cRunOptions: array [TJclAnsiRegExOption] of Integer =
(0, 0, 0, 0, 0, 0, 0, PCRE_NOTBOL, PCRE_NOTEOL, 0, PCRE_NOTEMPTY, 0, 0,
PCRE_NO_UTF8_CHECK, 0, PCRE_PARTIAL, 0, 0, 0, 0, PCRE_NEWLINE_CR,
- PCRE_NEWLINE_LF, PCRE_NEWLINE_CRLF, PCRE_NEWLINE_ANY);
+ PCRE_NEWLINE_LF, PCRE_NEWLINE_CRLF, PCRE_NEWLINE_ANY, PCRE_BSR_ANYCRLF,
+ PCRE_BSR_UNICODE, PCRE_JAVASCRIPT_COMPAT);
var
I: TJclAnsiRegExOption;
begin
Modified: trunk/jcl/source/common/JclResources.pas
===================================================================
--- trunk/jcl/source/common/JclResources.pas 2008-07-20 12:01:06 UTC (rev 2395)
+++ trunk/jcl/source/common/JclResources.pas 2008-07-20 15:17:43 UTC (rev 2396)
@@ -1401,6 +1401,8 @@
RsErrDfaWSSize = 'DFA WSSize';
RsErrDfaRecurse = 'DFA Recurse';
RsErrRecursionLimit = 'Recursion limit';
+ RsErrNullWsLimit = 'Null WS limit';
+ RsErrBadNewLine = 'Bad new line';
RsErrLibNotLoaded = 'PCRE library not loaded';
RsErrMemFuncNotSet = 'PCRE memory management functions not set';
RsErrStudyFailed = 'Study failed';
Modified: trunk/jcl/source/common/pcre.pas
===================================================================
--- trunk/jcl/source/common/pcre.pas 2008-07-20 12:01:06 UTC (rev 2395)
+++ trunk/jcl/source/common/pcre.pas 2008-07-20 15:17:43 UTC (rev 2396)
@@ -118,6 +118,14 @@
{$EXTERNALSYM PCRE_NEWLINE_CRLF}
PCRE_NEWLINE_ANY = $00400000;
{$EXTERNALSYM PCRE_NEWLINE_ANY}
+ PCRE_NEWLINE_ANYCRLF = $00500000;
+ {$EXTERNALSYM PCRE_NEWLINE_ANYCRLF}
+ PCRE_BSR_ANYCRLF = $00800000;
+ {$EXTERNALSYM PCRE_BSR_ANYCRLF}
+ PCRE_BSR_UNICODE = $01000000;
+ {$EXTERNALSYM PCRE_BSR_UNICODE}
+ PCRE_JAVASCRIPT_COMPAT = $02000000;
+ {$EXTERNALSYM PCRE_JAVASCRIPT_COMPAT}
(* Exec-time and get-time error codes *)
@@ -163,6 +171,10 @@
{$EXTERNALSYM PCRE_ERROR_DFA_RECURSE}
PCRE_ERROR_RECURSIONLIMIT = -21;
{$EXTERNALSYM PCRE_ERROR_RECURSIONLIMIT}
+ PCRE_ERROR_NULLWSLIMIT = -22; (* No longer actually used *)
+ {$EXTERNALSYM PCRE_ERROR_NULLWSLIMIT}
+ PCRE_ERROR_BADNEWLINE = -23;
+ {$EXTERNALSYM PCRE_ERROR_BADNEWLINE}
(* Request types for pcre_fullinfo() *)
@@ -190,6 +202,12 @@
{$EXTERNALSYM PCRE_INFO_STUDYSIZE}
PCRE_INFO_DEFAULT_TABLES = 11;
{$EXTERNALSYM PCRE_INFO_DEFAULT_TABLES}
+ PCRE_INFO_OKPARTIAL = 12;
+ {$EXTERNALSYM PCRE_INFO_OKPARTIAL}
+ PCRE_INFO_JCHANGED = 13;
+ {$EXTERNALSYM PCRE_INFO_JCHANGED}
+ PCRE_INFO_HASCRORLF = 14;
+ {$EXTERNALSYM PCRE_INFO_HASCRORLF}
(* Request types for pcre_config() *)
PCRE_CONFIG_UTF8 = 0;
@@ -208,6 +226,8 @@
{$EXTERNALSYM PCRE_CONFIG_UNICODE_PROPERTIES}
PCRE_CONFIG_MATCH_LIMIT_RECURSION = 7;
{$EXTERNALSYM PCRE_CONFIG_MATCH_LIMIT_RECURSION}
+ PCRE_CONFIG_BSR = 8;
+ {$EXTERNALSYM PCRE_CONFIG_BSR}
(* Bit flags for the pcre_extra structure *)
@@ -231,7 +251,7 @@
PInteger = ^Integer;
{$EXTERNALSYM PInteger}
- real_pcre = record
+ real_pcre = packed record
{magic_number: Longword;
size: Integer;
tables: PChar;
@@ -245,7 +265,7 @@
TPCRE = real_pcre;
PPCRE = ^TPCRE;
- real_pcre_extra = record
+ real_pcre_extra = packed record
{options: PChar;
start_bits: array [0..31] of Char;}
flags: Cardinal; (* Bits for which fields are set *)
@@ -258,7 +278,7 @@
TPCREExtra = real_pcre_extra;
PPCREExtra = ^TPCREExtra;
- pcre_callout_block = record
+ pcre_callout_block = packed record
version: Integer; (* Identifies version of block *)
(* ------------------------ Version 0 ------------------------------- *)
callout_number: Integer; (* Number compiled into pattern *)
@@ -379,10 +399,10 @@
length, startoffset, options: Integer; ovector: PInteger; ovecsize: Integer): Integer;
{$IFDEF PCRE_EXPORT_CDECL} cdecl; {$ENDIF PCRE_EXPORT_CDECL}
{$EXTERNALSYM pcre_exec}
-procedure pcre_free_substring(var stringptr: PChar);
+procedure pcre_free_substring(stringptr: PChar);
{$IFDEF PCRE_EXPORT_CDECL} cdecl; {$ENDIF PCRE_EXPORT_CDECL}
{$EXTERNALSYM pcre_free_substring}
-procedure pcre_free_substring_list(var stringptr: PChar);
+procedure pcre_free_substring_list(stringlistptr: PPChar);
{$IFDEF PCRE_EXPORT_CDECL} cdecl; {$ENDIF PCRE_EXPORT_CDECL}
{$EXTERNALSYM pcre_free_substring_list}
function pcre_fullinfo(const code: PPCRE; const extra: PPCREExtra;
@@ -455,10 +475,10 @@
length, startoffset, options: Integer; ovector: PInteger; ovecsize: Integer): Integer;
{$IFDEF PCRE_EXPORT_CDECL} cdecl; {$ENDIF PCRE_EXPORT_CDECL}
{$EXTERNALSYM pcre_exec_func}
- pcre_free_substring_func = procedure(var stringptr: PChar);
+ pcre_free_substring_func = procedure(stringptr: PChar);
{$IFDEF PCRE_EXPORT_CDECL} cdecl; {$ENDIF PCRE_EXPORT_CDECL}
{$EXTERNALSYM pcre_free_substring_func}
- pcre_free_substring_list_func = procedure(var stringptr: PChar);
+ pcre_free_substring_list_func = procedure(stringptr: PPChar);
{$IFDEF PCRE_EXPORT_CDECL} cdecl; {$ENDIF PCRE_EXPORT_CDECL}
{$EXTERNALSYM pcre_free_substring_list_func}
pcre_fullinfo_func = function(const code: PPCRE; const extra: PPCREExtra;
@@ -621,171 +641,73 @@
const
szMSVCRT = 'MSVCRT.DLL';
-function memcpy(dest, src: Pointer; count: size_t): Pointer; cdecl; external szMSVCRT name 'memcpy';
-function _memcpy(dest, src: Pointer; count: size_t): Pointer;
-begin
- Result := memcpy(dest, src, count);
-end;
+function _memcpy(dest, src: Pointer; count: size_t): Pointer; cdecl; external szMSVCRT name 'memcpy';
+function _memmove(dest, src: Pointer; count: size_t): Pointer; cdecl; external szMSVCRT name 'memmove';
+function _memset(dest: Pointer; val: Integer; count: size_t): Pointer; cdecl; external szMSVCRT name 'memset';
+function _strncmp(s1: PAnsiChar; s2: PAnsiChar; n: size_t): Integer; cdecl; external szMSVCRT name 'strncmp';
+function _memcmp(s1: Pointer; s2: Pointer; n: size_t): Integer; cdecl; external szMSVCRT name 'memcmp';
+function _strlen(s: PAnsiChar): size_t; cdecl; external szMSVCRT name 'strlen';
+function __ltolower(__ch: Integer): Integer; cdecl; external szMSVCRT name 'tolower';
+function __ltoupper(__ch: Integer): Integer; cdecl; external szMSVCRT name 'toupper';
+function _isalnum(__ch: Integer): Integer; cdecl; external szMSVCRT name 'isalnum';
+function _isalpha(__ch: Integer): Integer; cdecl; external szMSVCRT name 'isalpha';
+function _iscntrl(__ch: Integer): Integer; cdecl; external szMSVCRT name 'iscntrl';
+function _isdigit(__ch: Integer): Integer; cdecl; external szMSVCRT name 'isdigit';
+function _isgraph(__ch: Integer): Integer; cdecl; external szMSVCRT name 'isgraph';
+function _islower(__ch: Integer): Integer; cdecl; external szMSVCRT name 'islower';
+function _isprint(__ch: Integer): Integer; cdecl; external szMSVCRT name 'isprint';
+function _ispunct(__ch: Integer): Integer; cdecl; external szMSVCRT name 'ispunct';
+function _isspace(__ch: Integer): Integer; cdecl; external szMSVCRT name 'isspace';
+function _isupper(__ch: Integer): Integer; cdecl; external szMSVCRT name 'isupper';
+function _isxdigit(__ch: Integer): Integer; cdecl; external szMSVCRT name 'isxdigit';
+function _strchr(__s: PChar; __c: Integer): PAnsiChar; cdecl; external szMSVCRT name 'strchr';
-function memmove(dest, src: Pointer; count: size_t): Pointer; cdecl; external szMSVCRT name 'memmove';
-function _memmove(dest, src: Pointer; count: size_t): Pointer;
+function malloc(size: size_t): Pointer; cdecl; external szMSVCRT name 'malloc';
+
+function pcre_malloc(Size: Integer): Pointer;
begin
- Result := memmove(dest, src, count);
+ if Assigned(pcre_malloc_user) then
+ Result := pcre_malloc_user(Size)
+ else
+ Result := malloc(Size);
end;
-function memset(dest: Pointer; val: Integer; count: size_t): Pointer; cdecl; external szMSVCRT name 'memset';
-function _memset(dest: Pointer; val: Integer; count: size_t): Pointer;
+function pcre_stack_malloc(Size: Integer): Pointer;
begin
- Result := memset(dest, val, count);
+ if Assigned(pcre_stack_malloc_user) then
+ Result := pcre_stack_malloc_user(Size)
+ else
+ Result := malloc(Size);
end;
-function malloc(size: size_t): Pointer; cdecl; external szMSVCRT name 'malloc';
function _malloc(size: size_t): Pointer;
begin
- Result := malloc(size);
+ Result := pcre_malloc(size);
end;
procedure free(pBlock: Pointer); cdecl; external szMSVCRT name 'free';
-procedure _free(pBlock: Pointer);
-begin
- free(pBlock);
-end;
-function strncmp(s1: PAnsiChar; s2: PAnsiChar; n: size_t): Integer; cdecl; external szMSVCRT name 'strncmp';
-function _strncmp(s1: PAnsiChar; s2: PAnsiChar; n: size_t): Integer;
+procedure pcre_free(P: Pointer);
begin
- Result := strncmp(s1, s2, n);
-end;
-
-function memcmp(s1: Pointer; s2: Pointer; n: size_t): Integer; cdecl; external szMSVCRT name 'memcmp';
-function _memcmp(s1: Pointer; s2: Pointer; n: size_t): Integer;
-begin
- Result := memcmp(s1, s2, n);
-end;
-
-function strlen(s: PAnsiChar): size_t; cdecl; external szMSVCRT name 'strlen';
-function _strlen(s: PAnsiChar): size_t;
-begin
- Result := strlen(s);
-end;
-
-function tolower(__ch: Integer): Integer; cdecl; external szMSVCRT name 'tolower';
-function __ltolower(__ch: Integer): Integer;
-begin
- Result := tolower(__ch);
-end;
-
-function toupper(__ch: Integer): Integer; cdecl; external szMSVCRT name 'toupper';
-function __ltoupper(__ch: Integer): Integer;
-begin
- Result := toupper(__ch);
-end;
-
-function isalnum(__ch: Integer): Integer; cdecl; external szMSVCRT name 'isalnum';
-function _isalnum(__ch: Integer): Integer;
-begin
- Result := isalnum(__ch);
-end;
-
-function isalpha(__ch: Integer): Integer; cdecl; external szMSVCRT name 'isalpha';
-function _isalpha(__ch: Integer): Integer;
-begin
- Result := isalpha(__ch);
-end;
-
-function iscntrl(__ch: Integer): Integer; cdecl; external szMSVCRT name 'iscntrl';
-function _iscntrl(__ch: Integer): Integer;
-begin
- Result := iscntrl(__ch);
-end;
-
-function isdigit(__ch: Integer): Integer; cdecl; external szMSVCRT name 'isdigit';
-function _isdigit(__ch: Integer): Integer;
-begin
- Result := isdigit(__ch);
-end;
-
-function isgraph(__ch: Integer): Integer; cdecl; external szMSVCRT name 'isgraph';
-function _isgraph(__ch: Integer): Integer;
-begin
- Result := isgraph(__ch);
-end;
-
-function islower(__ch: Integer): Integer; cdecl; external szMSVCRT name 'islower';
-function _islower(__ch: Integer): Integer;
-begin
- Result := islower(__ch);
-end;
-
-function isprint(__ch: Integer): Integer; cdecl; external szMSVCRT name 'isprint';
-function _isprint(__ch: Integer): Integer;
-begin
- Result := isprint(__ch);
-end;
-
-function ispunct(__ch: Integer): Integer; cdecl; external szMSVCRT name 'ispunct';
-function _ispunct(__ch: Integer): Integer;
-begin
- Result := ispunct(__ch);
-end;
-
-function isspace(__ch: Integer): Integer; cdecl; external szMSVCRT name 'isspace';
-function _isspace(__ch: Integer): Integer;
-begin
- Result := isspace(__ch);
-end;
-
-function isupper(__ch: Integer): Integer; cdecl; external szMSVCRT name 'isupper';
-function _isupper(__ch: Integer): Integer;
-begin
- Result := isupper(__ch);
-end;
-
-function isxdigit(__ch: Integer): Integer; cdecl; external szMSVCRT name 'isxdigit';
-function _isxdigit(__ch: Integer): Integer;
-begin
- Result := isxdigit(__ch);
-end;
-
-//int _RTLENTRY _EXPFUNC isascii (int __c);
-function strchr(__s: PChar; __c: Integer): PAnsiChar; cdecl; external szMSVCRT name 'strchr';
-function _strchr(__s: PChar; __c: Integer): PAnsiChar;
-begin
- Result := strchr(__s, __c);
-end;
-
-function pcre_malloc(Size: Integer): Pointer; cdecl;
-begin
- if Assigned(pcre_malloc_user) then
- Result := pcre_malloc_user(Size)
- else
- Result := _malloc(Size);
-end;
-
-procedure pcre_free(P: Pointer); cdecl;
-begin
if Assigned(pcre_free_user) then
pcre_free_user(P)
else
- _free(P);
+ free(P);
end;
-function pcre_stack_malloc(Size: Integer): Pointer; cdecl;
+procedure pcre_stack_free(P: Pointer);
begin
- if Assigned(pcre_stack_malloc_user) then
- Result := pcre_stack_malloc_user(Size)
- else
- Result := _malloc(Size);
-end;
-
-procedure pcre_stack_free(P: Pointer); cdecl;
-begin
if Assigned(pcre_stack_free_user) then
pcre_stack_free_user(P)
else
- _free(P);
+ free(P);
end;
+procedure _free(pBlock: Pointer);
+begin
+ pcre_free(pBlock);
+end;
+
function pcre_callout(var callout_block: pcre_callout_block): Integer; cdecl;
begin
if Assigned(pcre_callout_user) then
@@ -806,7 +728,7 @@
const
{$IFDEF MSWINDOWS}
- libpcremodulename = 'pcre.dll';
+ libpcremodulename = 'pcre3.dll';
{$ENDIF MSWINDOWS}
{$IFDEF UNIX}
libpcremodulename = 'libpcre.so.0';
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2008-07-20 12:01:55
|
Revision: 2395
http://jcl.svn.sourceforge.net/jcl/?rev=2395&view=rev
Author: outchy
Date: 2008-07-20 12:01:06 +0000 (Sun, 20 Jul 2008)
Log Message:
-----------
updated to PCRE 7.7.
Modified Paths:
--------------
trunk/jcl/source/windows/obj/pcre/makefile.mak
trunk/jcl/source/windows/obj/pcre/pcre_compile.obj
trunk/jcl/source/windows/obj/pcre/pcre_config.obj
trunk/jcl/source/windows/obj/pcre/pcre_default_tables.obj
trunk/jcl/source/windows/obj/pcre/pcre_dfa_exec.obj
trunk/jcl/source/windows/obj/pcre/pcre_exec.obj
trunk/jcl/source/windows/obj/pcre/pcre_fullinfo.obj
trunk/jcl/source/windows/obj/pcre/pcre_get.obj
trunk/jcl/source/windows/obj/pcre/pcre_globals.obj
trunk/jcl/source/windows/obj/pcre/pcre_info.obj
trunk/jcl/source/windows/obj/pcre/pcre_maketables.obj
trunk/jcl/source/windows/obj/pcre/pcre_newline.obj
trunk/jcl/source/windows/obj/pcre/pcre_ord2utf8.obj
trunk/jcl/source/windows/obj/pcre/pcre_refcount.obj
trunk/jcl/source/windows/obj/pcre/pcre_study.obj
trunk/jcl/source/windows/obj/pcre/pcre_tables.obj
trunk/jcl/source/windows/obj/pcre/pcre_try_flipped.obj
trunk/jcl/source/windows/obj/pcre/pcre_ucp_searchfuncs.obj
trunk/jcl/source/windows/obj/pcre/pcre_valid_utf8.obj
trunk/jcl/source/windows/obj/pcre/pcre_version.obj
trunk/jcl/source/windows/obj/pcre/pcre_xclass.obj
Added Paths:
-----------
trunk/thirdparty/pcre/pcre-7.7.tar.gz
Removed Paths:
-------------
trunk/thirdparty/pcre/pcre-7.0.tar.gz
Modified: trunk/jcl/source/windows/obj/pcre/makefile.mak
===================================================================
--- trunk/jcl/source/windows/obj/pcre/makefile.mak 2008-07-20 09:18:19 UTC (rev 2394)
+++ trunk/jcl/source/windows/obj/pcre/makefile.mak 2008-07-20 12:01:06 UTC (rev 2395)
@@ -2,7 +2,7 @@
# makefile to make pcre .obj files using Borland's C++ compiler bcc32
# derived from a makefile generated by BCB6' bpr2mak
#
-# if pcre source directory is different from $(JLC)\source\pcre-7.0, use
+# if pcre source directory is different from $(JCL)\source\pcre-7.7, use
# "make -Dpcresrc=<path to pcre sources>" to tell make where to find the
# source files
#
@@ -33,7 +33,7 @@
# Robert Rossmair, 2004-10-16
#
-CallingConvention = -pr -DVPCOMPAT
+CallingConvention = -pr
!if !$d(BCB)
BCB = $(MAKEDIR)\..
@@ -42,7 +42,7 @@
BCC = $(BCB)
!if !$d(pcresrc)
-pcresrc = ..\..\..\pcre-7.0
+pcresrc = ..\..\..\pcre-7.7
!endif
!if !$d(CPU)
@@ -79,7 +79,7 @@
# PATHOBJ = .;$(LIBPATH)
ALLLIB = import32.lib cw32i.lib
# ---------------------------------------------------------------------------
-CFLAG1 = -O2 -Ve -X- -a8 -$(CPU) -b -d -k- -vi -tWM-
+CFLAG1 = -O2 -Ve -X- -a8 -$(CPU) -b -d -k- -vi -tWM- -DHAVE_CONFIG_H
LFLAGS = -D"" -ap -Tpe -x -Gn
# ---------------------------------------------------------------------------
@@ -106,13 +106,16 @@
!endif
# ---------------------------------------------------------------------------
-pcre: INCLUDES TABLES $(OBJFILES)
+pcre: includes tables $(OBJFILES)
# ---------------------------------------------------------------------------
.c.obj:
$(BCC)\BIN\$(BCC32) -c $(CFLAG1) $(CallingConvention) $(WARNINGS) -I$(INCLUDEPATH) -D$(USERDEFINES);$(SYSDEFINES) -n$(@D) {$< }
+
includes:
- @copy /Y $(pcresrc)\config.h.in $(pcresrc)\config.h
+ copy /Y $(pcresrc)\pcre.h.generic $(pcresrc)\pcre.h
+ copy /Y $(pcresrc)\config.h.generic $(pcresrc)\config.h
+
tables:
$(BCC)\BIN\$(BCC32) -c -tWC $(CFLAG1) $(WARNINGS) -I$(INCLUDEPATH) -D$(USERDEFINES);$(SYSDEFINES) -n.\ $(pcresrc)\dftables.c
$(BCC)\BIN\$(LINKER) $(LFLAGS) -L$(LIBPATH) c0x32.obj .\dftables.obj, .\dftables.exe,, $(ALLLIB),,
Property changes on: trunk/thirdparty/pcre/pcre-7.7.tar.gz
___________________________________________________________________
Added: svn:mime-type
+ application/x-compressed-tar
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2008-07-20 09:18:54
|
Revision: 2394
http://jcl.svn.sourceforge.net/jcl/?rev=2394&view=rev
Author: outchy
Date: 2008-07-20 09:18:19 +0000 (Sun, 20 Jul 2008)
Log Message:
-----------
disabling build of EDI units.
Modified Paths:
--------------
trunk/jcl/lib/d10.net/common.exc
trunk/jcl/lib/d11.net/common.exc
trunk/jcl/lib/d9.net/common.exc
Modified: trunk/jcl/lib/d10.net/common.exc
===================================================================
--- trunk/jcl/lib/d10.net/common.exc 2008-07-20 09:13:23 UTC (rev 2393)
+++ trunk/jcl/lib/d10.net/common.exc 2008-07-20 09:18:19 UTC (rev 2394)
@@ -2,6 +2,14 @@
Jcl8087.pas
JclBorlandTools.pas
JclCompression.pas
+JclEDI.pas
+JclEDI_ANSIX12.pas
+JclEDI_ANSIX12_Ext.pas
+JclEDI_UNEDIFACT.pas
+JclEDI_UNEDIFACT_Ext.pas
+JclEDISEF.pas
+JclEDITranslators.pas
+JclEDIXML.pas
JclExprEval.pas
JclMIDI.pas
JclPCRE.pas
Modified: trunk/jcl/lib/d11.net/common.exc
===================================================================
--- trunk/jcl/lib/d11.net/common.exc 2008-07-20 09:13:23 UTC (rev 2393)
+++ trunk/jcl/lib/d11.net/common.exc 2008-07-20 09:18:19 UTC (rev 2394)
@@ -2,6 +2,14 @@
Jcl8087.pas
JclBorlandTools.pas
JclCompression.pas
+JclEDI.pas
+JclEDI_ANSIX12.pas
+JclEDI_ANSIX12_Ext.pas
+JclEDI_UNEDIFACT.pas
+JclEDI_UNEDIFACT_Ext.pas
+JclEDISEF.pas
+JclEDITranslators.pas
+JclEDIXML.pas
JclExprEval.pas
JclMIDI.pas
JclPCRE.pas
Modified: trunk/jcl/lib/d9.net/common.exc
===================================================================
--- trunk/jcl/lib/d9.net/common.exc 2008-07-20 09:13:23 UTC (rev 2393)
+++ trunk/jcl/lib/d9.net/common.exc 2008-07-20 09:18:19 UTC (rev 2394)
@@ -2,6 +2,14 @@
Jcl8087.pas
JclBorlandTools.pas
JclCompression.pas
+JclEDI.pas
+JclEDI_ANSIX12.pas
+JclEDI_ANSIX12_Ext.pas
+JclEDI_UNEDIFACT.pas
+JclEDI_UNEDIFACT_Ext.pas
+JclEDISEF.pas
+JclEDITranslators.pas
+JclEDIXML.pas
JclExprEval.pas
JclMIDI.pas
JclPCRE.pas
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2008-07-20 09:14:20
|
Revision: 2393
http://jcl.svn.sourceforge.net/jcl/?rev=2393&view=rev
Author: outchy
Date: 2008-07-20 09:13:23 +0000 (Sun, 20 Jul 2008)
Log Message:
-----------
fixing wrong prototypes for "Insert" method.
Modified Paths:
--------------
trunk/jcl/source/common/JclArraySets.pas
trunk/jcl/source/common/JclHashMaps.pas
trunk/jcl/source/common/JclHashSets.pas
trunk/jcl/source/common/JclLinkedLists.pas
trunk/jcl/source/common/JclQueues.pas
trunk/jcl/source/common/JclSortedMaps.pas
trunk/jcl/source/common/JclStacks.pas
trunk/jcl/source/common/JclTrees.pas
trunk/jcl/source/prototypes/containers/JclArraySets.imp
trunk/jcl/source/prototypes/containers/JclArraySets.int
Modified: trunk/jcl/source/common/JclArraySets.pas
===================================================================
--- trunk/jcl/source/common/JclArraySets.pas 2008-07-20 09:01:02 UTC (rev 2392)
+++ trunk/jcl/source/common/JclArraySets.pas 2008-07-20 09:13:23 UTC (rev 2393)
@@ -53,6 +53,7 @@
JclAlgorithms,
{$ENDIF SUPPORTS_GENERICS}
JclBase, JclAbstractContainers, JclContainerIntf, JclArrayLists, JclSynch;
+
type
TJclIntfArraySet = class(TJclIntfArrayList, {$IFDEF THREADSAFE} IJclLockable, {$ENDIF THREADSAFE}
IJclIntfCloneable, IJclCloneable, IJclPackable, IJclGrowable, IJclContainer, IJclIntfEqualityComparer, IJclIntfComparer,
@@ -69,7 +70,7 @@
function AddAll(const ACollection: IJclIntfCollection): Boolean;
function Contains(const AInterface: IInterface): Boolean;
{ IJclIntfList }
- procedure Insert(Index: Integer; const AInterface: IInterface); overload;
+ function Insert(Index: Integer; const AInterface: IInterface): Boolean; overload;
{ IJclIntfSet }
procedure Intersect(const ACollection: IJclIntfCollection);
procedure Subtract(const ACollection: IJclIntfCollection);
@@ -93,7 +94,7 @@
function AddAll(const ACollection: IJclAnsiStrCollection): Boolean; override;
function Contains(const AString: AnsiString): Boolean; override;
{ IJclAnsiStrList }
- procedure Insert(Index: Integer; const AString: AnsiString); overload;
+ function Insert(Index: Integer; const AString: AnsiString): Boolean; overload;
{ IJclAnsiStrSet }
procedure Intersect(const ACollection: IJclAnsiStrCollection);
procedure Subtract(const ACollection: IJclAnsiStrCollection);
@@ -117,7 +118,7 @@
function AddAll(const ACollection: IJclWideStrCollection): Boolean; override;
function Contains(const AString: WideString): Boolean; override;
{ IJclWideStrList }
- procedure Insert(Index: Integer; const AString: WideString); overload;
+ function Insert(Index: Integer; const AString: WideString): Boolean; overload;
{ IJclWideStrSet }
procedure Intersect(const ACollection: IJclWideStrCollection);
procedure Subtract(const ACollection: IJclWideStrCollection);
@@ -148,7 +149,7 @@
function AddAll(const ACollection: IJclSingleCollection): Boolean;
function Contains(const AValue: Single): Boolean;
{ IJclSingleList }
- procedure Insert(Index: Integer; const AValue: Single); overload;
+ function Insert(Index: Integer; const AValue: Single): Boolean; overload;
{ IJclSingleSet }
procedure Intersect(const ACollection: IJclSingleCollection);
procedure Subtract(const ACollection: IJclSingleCollection);
@@ -172,7 +173,7 @@
function AddAll(const ACollection: IJclDoubleCollection): Boolean;
function Contains(const AValue: Double): Boolean;
{ IJclDoubleList }
- procedure Insert(Index: Integer; const AValue: Double); overload;
+ function Insert(Index: Integer; const AValue: Double): Boolean; overload;
{ IJclDoubleSet }
procedure Intersect(const ACollection: IJclDoubleCollection);
procedure Subtract(const ACollection: IJclDoubleCollection);
@@ -196,7 +197,7 @@
function AddAll(const ACollection: IJclExtendedCollection): Boolean;
function Contains(const AValue: Extended): Boolean;
{ IJclExtendedList }
- procedure Insert(Index: Integer; const AValue: Extended); overload;
+ function Insert(Index: Integer; const AValue: Extended): Boolean; overload;
{ IJclExtendedSet }
procedure Intersect(const ACollection: IJclExtendedCollection);
procedure Subtract(const ACollection: IJclExtendedCollection);
@@ -230,7 +231,7 @@
function AddAll(const ACollection: IJclIntegerCollection): Boolean;
function Contains(AValue: Integer): Boolean;
{ IJclIntegerList }
- procedure Insert(Index: Integer; AValue: Integer); overload;
+ function Insert(Index: Integer; AValue: Integer): Boolean; overload;
{ IJclIntegerSet }
procedure Intersect(const ACollection: IJclIntegerCollection);
procedure Subtract(const ACollection: IJclIntegerCollection);
@@ -254,7 +255,7 @@
function AddAll(const ACollection: IJclCardinalCollection): Boolean;
function Contains(AValue: Cardinal): Boolean;
{ IJclCardinalList }
- procedure Insert(Index: Integer; AValue: Cardinal); overload;
+ function Insert(Index: Integer; AValue: Cardinal): Boolean; overload;
{ IJclCardinalSet }
procedure Intersect(const ACollection: IJclCardinalCollection);
procedure Subtract(const ACollection: IJclCardinalCollection);
@@ -278,7 +279,7 @@
function AddAll(const ACollection: IJclInt64Collection): Boolean;
function Contains(const AValue: Int64): Boolean;
{ IJclInt64List }
- procedure Insert(Index: Integer; const AValue: Int64); overload;
+ function Insert(Index: Integer; const AValue: Int64): Boolean; overload;
{ IJclInt64Set }
procedure Intersect(const ACollection: IJclInt64Collection);
procedure Subtract(const ACollection: IJclInt64Collection);
@@ -303,7 +304,7 @@
function AddAll(const ACollection: IJclPtrCollection): Boolean;
function Contains(APtr: Pointer): Boolean;
{ IJclPtrList }
- procedure Insert(Index: Integer; APtr: Pointer); overload;
+ function Insert(Index: Integer; APtr: Pointer): Boolean; overload;
{ IJclPtrSet }
procedure Intersect(const ACollection: IJclPtrCollection);
procedure Subtract(const ACollection: IJclPtrCollection);
@@ -328,7 +329,7 @@
function AddAll(const ACollection: IJclCollection): Boolean;
function Contains(AObject: TObject): Boolean;
{ IJclList }
- procedure Insert(Index: Integer; AObject: TObject); overload;
+ function Insert(Index: Integer; AObject: TObject): Boolean; overload;
{ IJclSet }
procedure Intersect(const ACollection: IJclCollection);
procedure Subtract(const ACollection: IJclCollection);
@@ -353,7 +354,7 @@
function AddAll(const ACollection: IJclCollection<T>): Boolean;
function Contains(const AItem: T): Boolean;
{ IJclList<T> }
- procedure Insert(Index: Integer; const AItem: T); overload;
+ function Insert(Index: Integer; const AItem: T): Boolean; overload;
{ IJclSet<T> }
procedure Intersect(const ACollection: IJclCollection<T>);
procedure Subtract(const ACollection: IJclCollection<T>);
@@ -551,7 +552,7 @@
AssignPropertiesTo(Result);
end;
-procedure TJclIntfArraySet.Insert(Index: Integer; const AInterface: IInterface);
+function TJclIntfArraySet.Insert(Index: Integer; const AInterface: IInterface): Boolean;
begin
raise EJclOperationNotSupportedError.Create;
end;
@@ -693,7 +694,7 @@
AssignPropertiesTo(Result);
end;
-procedure TJclAnsiStrArraySet.Insert(Index: Integer; const AString: AnsiString);
+function TJclAnsiStrArraySet.Insert(Index: Integer; const AString: AnsiString): Boolean;
begin
raise EJclOperationNotSupportedError.Create;
end;
@@ -835,7 +836,7 @@
AssignPropertiesTo(Result);
end;
-procedure TJclWideStrArraySet.Insert(Index: Integer; const AString: WideString);
+function TJclWideStrArraySet.Insert(Index: Integer; const AString: WideString): Boolean;
begin
raise EJclOperationNotSupportedError.Create;
end;
@@ -977,7 +978,7 @@
AssignPropertiesTo(Result);
end;
-procedure TJclSingleArraySet.Insert(Index: Integer; const AValue: Single);
+function TJclSingleArraySet.Insert(Index: Integer; const AValue: Single): Boolean;
begin
raise EJclOperationNotSupportedError.Create;
end;
@@ -1119,7 +1120,7 @@
AssignPropertiesTo(Result);
end;
-procedure TJclDoubleArraySet.Insert(Index: Integer; const AValue: Double);
+function TJclDoubleArraySet.Insert(Index: Integer; const AValue: Double): Boolean;
begin
raise EJclOperationNotSupportedError.Create;
end;
@@ -1261,7 +1262,7 @@
AssignPropertiesTo(Result);
end;
-procedure TJclExtendedArraySet.Insert(Index: Integer; const AValue: Extended);
+function TJclExtendedArraySet.Insert(Index: Integer; const AValue: Extended): Boolean;
begin
raise EJclOperationNotSupportedError.Create;
end;
@@ -1403,7 +1404,7 @@
AssignPropertiesTo(Result);
end;
-procedure TJclIntegerArraySet.Insert(Index: Integer; AValue: Integer);
+function TJclIntegerArraySet.Insert(Index: Integer; AValue: Integer): Boolean;
begin
raise EJclOperationNotSupportedError.Create;
end;
@@ -1545,7 +1546,7 @@
AssignPropertiesTo(Result);
end;
-procedure TJclCardinalArraySet.Insert(Index: Integer; AValue: Cardinal);
+function TJclCardinalArraySet.Insert(Index: Integer; AValue: Cardinal): Boolean;
begin
raise EJclOperationNotSupportedError.Create;
end;
@@ -1687,7 +1688,7 @@
AssignPropertiesTo(Result);
end;
-procedure TJclInt64ArraySet.Insert(Index: Integer; const AValue: Int64);
+function TJclInt64ArraySet.Insert(Index: Integer; const AValue: Int64): Boolean;
begin
raise EJclOperationNotSupportedError.Create;
end;
@@ -1830,7 +1831,7 @@
AssignPropertiesTo(Result);
end;
-procedure TJclPtrArraySet.Insert(Index: Integer; APtr: Pointer);
+function TJclPtrArraySet.Insert(Index: Integer; APtr: Pointer): Boolean;
begin
raise EJclOperationNotSupportedError.Create;
end;
@@ -1973,7 +1974,7 @@
AssignPropertiesTo(Result);
end;
-procedure TJclArraySet.Insert(Index: Integer; AObject: TObject);
+function TJclArraySet.Insert(Index: Integer; AObject: TObject): Boolean;
begin
raise EJclOperationNotSupportedError.Create;
end;
@@ -2111,7 +2112,7 @@
end;
-procedure TJclArraySet<T>.Insert(Index: Integer; const AItem: T);
+function TJclArraySet<T>.Insert(Index: Integer; const AItem: T): Boolean;
begin
raise EJclOperationNotSupportedError.Create;
end;
Modified: trunk/jcl/source/common/JclHashMaps.pas
===================================================================
--- trunk/jcl/source/common/JclHashMaps.pas 2008-07-20 09:01:02 UTC (rev 2392)
+++ trunk/jcl/source/common/JclHashMaps.pas 2008-07-20 09:13:23 UTC (rev 2393)
@@ -53,6 +53,7 @@
JclAlgorithms,
{$ENDIF SUPPORTS_GENERICS}
JclBase, JclAbstractContainers, JclContainerIntf, JclSynch;
+
type
// Hash Function
// Result must be in 0..Range-1
Modified: trunk/jcl/source/common/JclHashSets.pas
===================================================================
--- trunk/jcl/source/common/JclHashSets.pas 2008-07-20 09:01:02 UTC (rev 2392)
+++ trunk/jcl/source/common/JclHashSets.pas 2008-07-20 09:13:23 UTC (rev 2393)
@@ -53,6 +53,7 @@
JclAlgorithms,
{$ENDIF SUPPORTS_GENERICS}
JclBase, JclAbstractContainers, JclContainerIntf, JclHashMaps, JclSynch;
+
type
{$IFDEF SUPPORTS_GENERICS}
TRefUnique = class;
Modified: trunk/jcl/source/common/JclLinkedLists.pas
===================================================================
--- trunk/jcl/source/common/JclLinkedLists.pas 2008-07-20 09:01:02 UTC (rev 2392)
+++ trunk/jcl/source/common/JclLinkedLists.pas 2008-07-20 09:13:23 UTC (rev 2393)
@@ -53,6 +53,7 @@
{$ENDIF SUPPORTS_GENERICS}
Classes,
JclBase, JclAbstractContainers, JclContainerIntf, JclSynch;
+
type
TJclIntfLinkedListItem = class
public
Modified: trunk/jcl/source/common/JclQueues.pas
===================================================================
--- trunk/jcl/source/common/JclQueues.pas 2008-07-20 09:01:02 UTC (rev 2392)
+++ trunk/jcl/source/common/JclQueues.pas 2008-07-20 09:13:23 UTC (rev 2393)
@@ -53,6 +53,7 @@
{$ENDIF SUPPORTS_GENERICS}
JclBase, JclAbstractContainers, JclContainerIntf, JclSynch;
+
type
TJclIntfQueue = class(TJclIntfAbstractContainer, {$IFDEF THREADSAFE} IJclLockable, {$ENDIF THREADSAFE}
IJclIntfCloneable, IJclCloneable, IJclPackable, IJclGrowable, IJclContainer, IJclIntfEqualityComparer,
Modified: trunk/jcl/source/common/JclSortedMaps.pas
===================================================================
--- trunk/jcl/source/common/JclSortedMaps.pas 2008-07-20 09:01:02 UTC (rev 2392)
+++ trunk/jcl/source/common/JclSortedMaps.pas 2008-07-20 09:13:23 UTC (rev 2393)
@@ -52,6 +52,7 @@
JclAlgorithms,
{$ENDIF SUPPORTS_GENERICS}
JclBase, JclAbstractContainers, JclContainerIntf, JclSynch;
+
type
TJclIntfIntfSortedEntry = record
Key: IInterface;
Modified: trunk/jcl/source/common/JclStacks.pas
===================================================================
--- trunk/jcl/source/common/JclStacks.pas 2008-07-20 09:01:02 UTC (rev 2392)
+++ trunk/jcl/source/common/JclStacks.pas 2008-07-20 09:13:23 UTC (rev 2393)
@@ -52,6 +52,7 @@
JclAlgorithms,
{$ENDIF SUPPORTS_GENERICS}
JclBase, JclAbstractContainers, JclContainerIntf, JclSynch;
+
type
TJclIntfStack = class(TJclIntfAbstractContainer, {$IFDEF THREADSAFE} IJclLockable, {$ENDIF THREADSAFE}
IJclIntfCloneable, IJclCloneable, IJclPackable, IJclGrowable, IJclContainer, IJclIntfEqualityComparer,
Modified: trunk/jcl/source/common/JclTrees.pas
===================================================================
--- trunk/jcl/source/common/JclTrees.pas 2008-07-20 09:01:02 UTC (rev 2392)
+++ trunk/jcl/source/common/JclTrees.pas 2008-07-20 09:13:23 UTC (rev 2393)
@@ -53,6 +53,7 @@
{$ENDIF SUPPORTS_GENERICS}
JclBase, JclAbstractContainers, JclContainerIntf, JclSynch;
+
type
TJclIntfTreeNode = class
public
Modified: trunk/jcl/source/prototypes/containers/JclArraySets.imp
===================================================================
--- trunk/jcl/source/prototypes/containers/JclArraySets.imp 2008-07-20 09:01:02 UTC (rev 2392)
+++ trunk/jcl/source/prototypes/containers/JclArraySets.imp 2008-07-20 09:13:23 UTC (rev 2393)
@@ -76,7 +76,7 @@
end;
{$JPPEXPANDMACRO CREATEEMPTYCONTAINER}
-procedure SELFCLASSNAME.Insert(Index: Integer; CONSTKEYWORDPARAMETERNAME: TYPENAME);
+function SELFCLASSNAME.Insert(Index: Integer; CONSTKEYWORDPARAMETERNAME: TYPENAME): Boolean;
begin
raise EJclOperationNotSupportedError.Create;
end;
Modified: trunk/jcl/source/prototypes/containers/JclArraySets.int
===================================================================
--- trunk/jcl/source/prototypes/containers/JclArraySets.int 2008-07-20 09:01:02 UTC (rev 2392)
+++ trunk/jcl/source/prototypes/containers/JclArraySets.int 2008-07-20 09:13:23 UTC (rev 2393)
@@ -16,7 +16,7 @@
function AddAll(const ACollection: COLLECTIONINTERFACENAME): Boolean;COLLECTIONFLAGS
function Contains(CONSTKEYWORDPARAMETERNAME: TYPENAME): Boolean;COLLECTIONFLAGS
{ LISTINTERFACENAME }
- procedure Insert(Index: Integer; CONSTKEYWORDPARAMETERNAME: TYPENAME); overload;
+ function Insert(Index: Integer; CONSTKEYWORDPARAMETERNAME: TYPENAME): Boolean; overload;
{ SETINTERFACENAME }
procedure Intersect(const ACollection: COLLECTIONINTERFACENAME);
procedure Subtract(const ACollection: COLLECTIONINTERFACENAME);
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2008-07-20 09:01:29
|
Revision: 2392
http://jcl.svn.sourceforge.net/jcl/?rev=2392&view=rev
Author: outchy
Date: 2008-07-20 09:01:02 +0000 (Sun, 20 Jul 2008)
Log Message:
-----------
Disabling EDI for Delphi.net (it causes linkage issue of projects requiring Jedi.Jcl with some versions of Delphi.net).
Modified Paths:
--------------
trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj
trunk/jcl/packages/d10.net/Jedi.Jcl.dpk
trunk/jcl/packages/d11.net/Jedi.Jcl.dpk
trunk/jcl/packages/d11.net/Jedi.Jcl.dproj
trunk/jcl/packages/d9.net/Jedi.Jcl.bdsproj
trunk/jcl/packages/d9.net/Jedi.Jcl.dpk
trunk/jcl/packages/xml/Jcl-R.xml
Modified: trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj
===================================================================
--- trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj 2008-07-17 06:48:34 UTC (rev 2391)
+++ trunk/jcl/packages/d10.net/Jedi.Jcl.bdsproj 2008-07-20 09:01:02 UTC (rev 2392)
@@ -184,14 +184,6 @@
<File FileName="..\..\source\common\JclComplex.pas" ContainerId="" ModuleName="JclComplex"/>
<File FileName="..\..\source\common\JclCounter.pas" ContainerId="" ModuleName="JclCounter"/>
<File FileName="..\..\source\common\JclDateTime.pas" ContainerId="" ModuleName="JclDateTime"/>
- <File FileName="..\..\source\common\JclEDI.pas" ContainerId="" ModuleName="JclEDI"/>
- <File FileName="..\..\source\common\JclEDISEF.pas" ContainerId="" ModuleName="JclEDISEF"/>
- <File FileName="..\..\source\common\JclEDITranslators.pas" ContainerId="" ModuleName="JclEDITranslators"/>
- <File FileName="..\..\source\common\JclEDIXML.pas" ContainerId="" ModuleName="JclEDIXML"/>
- <File FileName="..\..\source\common\JclEDI_ANSIX12.pas" ContainerId="" ModuleName="JclEDI_ANSIX12"/>
- <File FileName="..\..\source\common\JclEDI_ANSIX12_Ext.pas" ContainerId="" ModuleName="JclEDI_ANSIX12_Ext"/>
- <File FileName="..\..\source\common\JclEDI_UNEDIFACT.pas" ContainerId="" ModuleName="JclEDI_UNEDIFACT"/>
- <File FileName="..\..\source\common\JclEDI_UNEDIFACT_Ext.pas" ContainerId="" ModuleName="JclEDI_UNEDIFACT_Ext"/>
<File FileName="..\..\source\common\JclFileUtils.pas" ContainerId="" ModuleName="JclFileUtils"/>
<File FileName="..\..\source\common\JclIniFiles.pas" ContainerId="" ModuleName="JclIniFiles"/>
<File FileName="..\..\source\common\JclLogic.pas" ContainerId="" ModuleName="JclLogic"/>
Modified: trunk/jcl/packages/d10.net/Jedi.Jcl.dpk
===================================================================
--- trunk/jcl/packages/d10.net/Jedi.Jcl.dpk 2008-07-17 06:48:34 UTC (rev 2391)
+++ trunk/jcl/packages/d10.net/Jedi.Jcl.dpk 2008-07-20 09:01:02 UTC (rev 2392)
@@ -4,7 +4,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (Jcl-R.xml)
- Last generated: 26-01-2008 18:54:27 UTC
+ Last generated: 20-07-2008 08:39:24 UTC
-----------------------------------------------------------------------------
}
@@ -45,14 +45,6 @@
JclComplex in '..\..\source\common\JclComplex.pas' ,
JclCounter in '..\..\source\common\JclCounter.pas' ,
JclDateTime in '..\..\source\common\JclDateTime.pas' ,
- JclEDI in '..\..\source\common\JclEDI.pas' ,
- JclEDISEF in '..\..\source\common\JclEDISEF.pas' ,
- JclEDITranslators in '..\..\source\common\JclEDITranslators.pas' ,
- JclEDIXML in '..\..\source\common\JclEDIXML.pas' ,
- JclEDI_ANSIX12 in '..\..\source\common\JclEDI_ANSIX12.pas' ,
- JclEDI_ANSIX12_Ext in '..\..\source\common\JclEDI_ANSIX12_Ext.pas' ,
- JclEDI_UNEDIFACT in '..\..\source\common\JclEDI_UNEDIFACT.pas' ,
- JclEDI_UNEDIFACT_Ext in '..\..\source\common\JclEDI_UNEDIFACT_Ext.pas' ,
JclFileUtils in '..\..\source\common\JclFileUtils.pas' ,
JclIniFiles in '..\..\source\common\JclIniFiles.pas' ,
JclLogic in '..\..\source\common\JclLogic.pas' ,
Modified: trunk/jcl/packages/d11.net/Jedi.Jcl.dpk
===================================================================
--- trunk/jcl/packages/d11.net/Jedi.Jcl.dpk 2008-07-17 06:48:34 UTC (rev 2391)
+++ trunk/jcl/packages/d11.net/Jedi.Jcl.dpk 2008-07-20 09:01:02 UTC (rev 2392)
@@ -4,7 +4,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (Jcl-R.xml)
- Last generated: 26-01-2008 11:41:50 UTC
+ Last generated: 20-07-2008 08:39:24 UTC
-----------------------------------------------------------------------------
}
@@ -44,14 +44,6 @@
JclComplex in '..\..\source\common\JclComplex.pas' ,
JclCounter in '..\..\source\common\JclCounter.pas' ,
JclDateTime in '..\..\source\common\JclDateTime.pas' ,
- JclEDI in '..\..\source\common\JclEDI.pas' ,
- JclEDISEF in '..\..\source\common\JclEDISEF.pas' ,
- JclEDITranslators in '..\..\source\common\JclEDITranslators.pas' ,
- JclEDIXML in '..\..\source\common\JclEDIXML.pas' ,
- JclEDI_ANSIX12 in '..\..\source\common\JclEDI_ANSIX12.pas' ,
- JclEDI_ANSIX12_Ext in '..\..\source\common\JclEDI_ANSIX12_Ext.pas' ,
- JclEDI_UNEDIFACT in '..\..\source\common\JclEDI_UNEDIFACT.pas' ,
- JclEDI_UNEDIFACT_Ext in '..\..\source\common\JclEDI_UNEDIFACT_Ext.pas' ,
JclFileUtils in '..\..\source\common\JclFileUtils.pas' ,
JclIniFiles in '..\..\source\common\JclIniFiles.pas' ,
JclLogic in '..\..\source\common\JclLogic.pas' ,
Modified: trunk/jcl/packages/d11.net/Jedi.Jcl.dproj
===================================================================
--- trunk/jcl/packages/d11.net/Jedi.Jcl.dproj 2008-07-17 06:48:34 UTC (rev 2391)
+++ trunk/jcl/packages/d11.net/Jedi.Jcl.dproj 2008-07-20 09:01:02 UTC (rev 2392)
@@ -117,14 +117,6 @@
<DCCReference Include="..\..\source\common\JclComplex.pas"/>
<DCCReference Include="..\..\source\common\JclCounter.pas"/>
<DCCReference Include="..\..\source\common\JclDateTime.pas"/>
- <DCCReference Include="..\..\source\common\JclEDI.pas"/>
- <DCCReference Include="..\..\source\common\JclEDISEF.pas"/>
- <DCCReference Include="..\..\source\common\JclEDITranslators.pas"/>
- <DCCReference Include="..\..\source\common\JclEDIXML.pas"/>
- <DCCReference Include="..\..\source\common\JclEDI_ANSIX12.pas"/>
- <DCCReference Include="..\..\source\common\JclEDI_ANSIX12_Ext.pas"/>
- <DCCReference Include="..\..\source\common\JclEDI_UNEDIFACT.pas"/>
- <DCCReference Include="..\..\source\common\JclEDI_UNEDIFACT_Ext.pas"/>
<DCCReference Include="..\..\source\common\JclFileUtils.pas"/>
<DCCReference Include="..\..\source\common\JclIniFiles.pas"/>
<DCCReference Include="..\..\source\common\JclLogic.pas"/>
Modified: trunk/jcl/packages/d9.net/Jedi.Jcl.bdsproj
===================================================================
--- trunk/jcl/packages/d9.net/Jedi.Jcl.bdsproj 2008-07-17 06:48:34 UTC (rev 2391)
+++ trunk/jcl/packages/d9.net/Jedi.Jcl.bdsproj 2008-07-20 09:01:02 UTC (rev 2392)
@@ -184,14 +184,6 @@
<File FileName="..\..\source\common\JclComplex.pas" ContainerId="" ModuleName="JclComplex"/>
<File FileName="..\..\source\common\JclCounter.pas" ContainerId="" ModuleName="JclCounter"/>
<File FileName="..\..\source\common\JclDateTime.pas" ContainerId="" ModuleName="JclDateTime"/>
- <File FileName="..\..\source\common\JclEDI.pas" ContainerId="" ModuleName="JclEDI"/>
- <File FileName="..\..\source\common\JclEDISEF.pas" ContainerId="" ModuleName="JclEDISEF"/>
- <File FileName="..\..\source\common\JclEDITranslators.pas" ContainerId="" ModuleName="JclEDITranslators"/>
- <File FileName="..\..\source\common\JclEDIXML.pas" ContainerId="" ModuleName="JclEDIXML"/>
- <File FileName="..\..\source\common\JclEDI_ANSIX12.pas" ContainerId="" ModuleName="JclEDI_ANSIX12"/>
- <File FileName="..\..\source\common\JclEDI_ANSIX12_Ext.pas" ContainerId="" ModuleName="JclEDI_ANSIX12_Ext"/>
- <File FileName="..\..\source\common\JclEDI_UNEDIFACT.pas" ContainerId="" ModuleName="JclEDI_UNEDIFACT"/>
- <File FileName="..\..\source\common\JclEDI_UNEDIFACT_Ext.pas" ContainerId="" ModuleName="JclEDI_UNEDIFACT_Ext"/>
<File FileName="..\..\source\common\JclFileUtils.pas" ContainerId="" ModuleName="JclFileUtils"/>
<File FileName="..\..\source\common\JclIniFiles.pas" ContainerId="" ModuleName="JclIniFiles"/>
<File FileName="..\..\source\common\JclLogic.pas" ContainerId="" ModuleName="JclLogic"/>
Modified: trunk/jcl/packages/d9.net/Jedi.Jcl.dpk
===================================================================
--- trunk/jcl/packages/d9.net/Jedi.Jcl.dpk 2008-07-17 06:48:34 UTC (rev 2391)
+++ trunk/jcl/packages/d9.net/Jedi.Jcl.dpk 2008-07-20 09:01:02 UTC (rev 2392)
@@ -4,7 +4,7 @@
DO NOT EDIT THIS FILE, IT IS GENERATED BY THE PACKAGE GENERATOR
ALWAYS EDIT THE RELATED XML FILE (Jcl-R.xml)
- Last generated: 26-01-2008 18:54:27 UTC
+ Last generated: 20-07-2008 08:39:24 UTC
-----------------------------------------------------------------------------
}
@@ -45,14 +45,6 @@
JclComplex in '..\..\source\common\JclComplex.pas' ,
JclCounter in '..\..\source\common\JclCounter.pas' ,
JclDateTime in '..\..\source\common\JclDateTime.pas' ,
- JclEDI in '..\..\source\common\JclEDI.pas' ,
- JclEDISEF in '..\..\source\common\JclEDISEF.pas' ,
- JclEDITranslators in '..\..\source\common\JclEDITranslators.pas' ,
- JclEDIXML in '..\..\source\common\JclEDIXML.pas' ,
- JclEDI_ANSIX12 in '..\..\source\common\JclEDI_ANSIX12.pas' ,
- JclEDI_ANSIX12_Ext in '..\..\source\common\JclEDI_ANSIX12_Ext.pas' ,
- JclEDI_UNEDIFACT in '..\..\source\common\JclEDI_UNEDIFACT.pas' ,
- JclEDI_UNEDIFACT_Ext in '..\..\source\common\JclEDI_UNEDIFACT_Ext.pas' ,
JclFileUtils in '..\..\source\common\JclFileUtils.pas' ,
JclIniFiles in '..\..\source\common\JclIniFiles.pas' ,
JclLogic in '..\..\source\common\JclLogic.pas' ,
Modified: trunk/jcl/packages/xml/Jcl-R.xml
===================================================================
--- trunk/jcl/packages/xml/Jcl-R.xml 2008-07-17 06:48:34 UTC (rev 2391)
+++ trunk/jcl/packages/xml/Jcl-R.xml 2008-07-20 09:01:02 UTC (rev 2392)
@@ -28,14 +28,14 @@
<File Name="..\..\source\common\JclCompression.pas" Targets="JclDev" Formname="" Condition=""/>
<File Name="..\..\source\common\JclCounter.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
<File Name="..\..\source\common\JclDateTime.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
- <File Name="..\..\source\common\JclEDI.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
- <File Name="..\..\source\common\JclEDISEF.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
- <File Name="..\..\source\common\JclEDITranslators.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
- <File Name="..\..\source\common\JclEDIXML.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
- <File Name="..\..\source\common\JclEDI_ANSIX12.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
- <File Name="..\..\source\common\JclEDI_ANSIX12_Ext.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
- <File Name="..\..\source\common\JclEDI_UNEDIFACT.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
- <File Name="..\..\source\common\JclEDI_UNEDIFACT_Ext.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
+ <File Name="..\..\source\common\JclEDI.pas" Targets="JclDev" Formname="" Condition=""/>
+ <File Name="..\..\source\common\JclEDISEF.pas" Targets="JclDev" Formname="" Condition=""/>
+ <File Name="..\..\source\common\JclEDITranslators.pas" Targets="JclDev" Formname="" Condition=""/>
+ <File Name="..\..\source\common\JclEDIXML.pas" Targets="JclDev" Formname="" Condition=""/>
+ <File Name="..\..\source\common\JclEDI_ANSIX12.pas" Targets="JclDev" Formname="" Condition=""/>
+ <File Name="..\..\source\common\JclEDI_ANSIX12_Ext.pas" Targets="JclDev" Formname="" Condition=""/>
+ <File Name="..\..\source\common\JclEDI_UNEDIFACT.pas" Targets="JclDev" Formname="" Condition=""/>
+ <File Name="..\..\source\common\JclEDI_UNEDIFACT_Ext.pas" Targets="JclDev" Formname="" Condition=""/>
<File Name="..\..\source\common\JclExprEval.pas" Targets="JclDev" Formname="" Condition=""/>
<File Name="..\..\source\common\JclFileUtils.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
<File Name="..\..\source\common\JclIniFiles.pas" Targets="JclDev,JclDotNet" Formname="" Condition=""/>
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2008-07-17 06:48:37
|
Revision: 2391
http://jcl.svn.sourceforge.net/jcl/?rev=2391&view=rev
Author: outchy
Date: 2008-07-17 06:48:34 +0000 (Thu, 17 Jul 2008)
Log Message:
-----------
Mantis 4402: donation from Terry Yapt: service start name.
Modified Paths:
--------------
trunk/jcl/source/windows/JclSvcCtrl.pas
Modified: trunk/jcl/source/windows/JclSvcCtrl.pas
===================================================================
--- trunk/jcl/source/windows/JclSvcCtrl.pas 2008-07-06 21:06:16 UTC (rev 2390)
+++ trunk/jcl/source/windows/JclSvcCtrl.pas 2008-07-17 06:48:34 UTC (rev 2391)
@@ -23,6 +23,7 @@
{ Rik Barker (rikbarker) }
{ Robert Rossmair (rrossmair) }
{ Warren Postma }
+{ Terry Yapt }
{ }
{**************************************************************************************************}
{ }
@@ -186,6 +187,7 @@
FDisplayName: string;
FDescription: string;
FFileName: TFileName;
+ FServiceStartName: string;
FDependentServices: TList;
FDependentGroups: TList;
FDependentByServices: TList;
@@ -236,6 +238,7 @@
property DesiredAccess: DWORD read FDesiredAccess;
property Description: string read FDescription; // Win2K or later
property FileName: TFileName read FFileName;
+ property ServiceStartName: string read FServiceStartName;
property DependentServices[const Idx: Integer]: TJclNtService read GetDependentService;
property DependentServiceCount: Integer read GetDependentServiceCount;
property DependentGroups[const Idx: Integer]: TJclServiceGroup read GetDependentGroup;
@@ -599,6 +602,7 @@
begin
FFileName := lpBinaryPathName;
FStartType := TJclServiceStartType(dwStartType);
+ FServiceStartName := lpServiceStartName;
FErrorControlType := TJclServiceErrorControlType(dwErrorControl);
UpdateLoadOrderGroup;
UpdateDependencies;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <usc...@us...> - 2008-07-06 21:06:18
|
Revision: 2390
http://jcl.svn.sourceforge.net/jcl/?rev=2390&view=rev
Author: uschuster
Date: 2008-07-06 14:06:16 -0700 (Sun, 06 Jul 2008)
Log Message:
-----------
fixed TJclSimpleXMLElem.GetBinaryValue for file streams (setting the size of a TFileStream increases the position in contrast to TMemoryStream)
Modified Paths:
--------------
trunk/jcl/source/common/JclSimpleXml.pas
Modified: trunk/jcl/source/common/JclSimpleXml.pas
===================================================================
--- trunk/jcl/source/common/JclSimpleXml.pas 2008-06-29 13:08:25 UTC (rev 2389)
+++ trunk/jcl/source/common/JclSimpleXml.pas 2008-07-06 21:06:16 UTC (rev 2390)
@@ -1356,6 +1356,8 @@
end;
end;
+var
+ CurrentStreamPosition: Integer;
begin
PrepareNibbleCharMapping;
I := 1;
@@ -1363,7 +1365,11 @@
ValueLength := Length(Value);
RequiredStreamSize := Stream.Position + ValueLength div 2;
if Stream.Size < RequiredStreamSize then
+ begin
+ CurrentStreamPosition := Stream.Position;
Stream.Size := RequiredStreamSize;
+ Stream.Seek(CurrentStreamPosition, {$IFDEF COMPILER6_UP}soBeginning{$ELSE ~COMPILER6_UP}soFromBeginning{$ENDIF ~COMPILER6_UP});
+ end;
while I < ValueLength do
begin
if J = cBufferSize - 1 then //Buffered write to speed up the process a little
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ah...@us...> - 2008-06-29 13:08:28
|
Revision: 2389
http://jcl.svn.sourceforge.net/jcl/?rev=2389&view=rev
Author: ahuser
Date: 2008-06-29 06:08:25 -0700 (Sun, 29 Jun 2008)
Log Message:
-----------
Updated Installer (changes from JclBorlandTools.pas).
Modified Paths:
--------------
trunk/thirdparty/InnoSetup/CompInstall/CompInst.pas
trunk/thirdparty/InnoSetup/CompInstall/CompInstall.dproj
trunk/thirdparty/InnoSetup/CompInstall.dll
trunk/thirdparty/InnoSetup/ComponentInstallerScript.iss
trunk/thirdparty/InnoSetup/IdeComponents.iss
trunk/thirdparty/InnoSetup/Install.iss
Modified: trunk/thirdparty/InnoSetup/CompInstall/CompInst.pas
===================================================================
--- trunk/thirdparty/InnoSetup/CompInstall/CompInst.pas 2008-06-28 20:50:25 UTC (rev 2388)
+++ trunk/thirdparty/InnoSetup/CompInstall/CompInst.pas 2008-06-29 13:08:25 UTC (rev 2389)
@@ -94,11 +94,17 @@
I: Integer;
Inst: TJclBorRADToolInstallation;
VStr: string;
+ ConfigDataLocation: string;
begin
Result := Installations.Count;
for I := 0 to Installations.Count - 1 do
begin
Inst := Installations[I];
+
+ ConfigDataLocation := Inst.ConfigDataLocation;
+ if (ConfigDataLocation <> '') and (ConfigDataLocation[1] = PathDelim) then
+ ConfigDataLocation := Copy(ConfigDataLocation, 2, MaxInt); // there is no such thing as am absolute "\Software" registry key
+
case Inst.RadToolKind of
brDelphi:
begin
@@ -106,7 +112,7 @@
SetEnvironmentVariable(PChar('DELPHI' + VStr), PChar(Inst.RootDir));
SetEnvironmentVariable(PChar('DELPHI' + VStr + 'BPL'), PChar(Inst.BPLOutputPath));
SetEnvironmentVariable(PChar('DELPHI' + VStr + 'DCP'), PChar(Inst.DCPOutputPath));
- SetEnvironmentVariable(PChar('DELPHI' + VStr + 'RegKey'), PChar(Inst.ConfigDataLocation));
+ SetEnvironmentVariable(PChar('DELPHI' + VStr + 'RegKey'), PChar(ConfigDataLocation));
end;
brCppBuilder:
begin
@@ -114,7 +120,7 @@
SetEnvironmentVariable(PChar('BCB' + VStr), PChar(Inst.RootDir));
SetEnvironmentVariable(PChar('BCB' + VStr + 'BPL'), PChar(Inst.BPLOutputPath));
SetEnvironmentVariable(PChar('BCB' + VStr + 'DCP'), PChar(Inst.DCPOutputPath));
- SetEnvironmentVariable(PChar('BCB' + VStr + 'RegKey'), PChar(Inst.ConfigDataLocation));
+ SetEnvironmentVariable(PChar('BCB' + VStr + 'RegKey'), PChar(ConfigDataLocation));
end;
brBorlandDevStudio:
begin
@@ -124,14 +130,14 @@
SetEnvironmentVariable(PChar('DELPHI' + VStr), PChar(Inst.RootDir));
SetEnvironmentVariable(PChar('DELPHI' + VStr + 'BPL'), PChar(Inst.BPLOutputPath));
SetEnvironmentVariable(PChar('DELPHI' + VStr + 'DCP'), PChar(Inst.DCPOutputPath));
- SetEnvironmentVariable(PChar('DELPHI' + VStr + 'RegKey'), PChar(Inst.ConfigDataLocation));
+ SetEnvironmentVariable(PChar('DELPHI' + VStr + 'RegKey'), PChar(ConfigDataLocation));
end;
if bpBCBuilder32 in Inst.Personalities then
begin
SetEnvironmentVariable(PChar('BCB' + VStr), PChar(Inst.RootDir));
SetEnvironmentVariable(PChar('BCB' + VStr + 'BPL'), PChar(Inst.BPLOutputPath));
SetEnvironmentVariable(PChar('BCB' + VStr + 'DCP'), PChar(Inst.DCPOutputPath));
- SetEnvironmentVariable(PChar('BCB' + VStr + 'RegKey'), PChar(Inst.ConfigDataLocation));
+ SetEnvironmentVariable(PChar('BCB' + VStr + 'RegKey'), PChar(ConfigDataLocation));
end;
end;
end;
Modified: trunk/thirdparty/InnoSetup/CompInstall/CompInstall.dproj
===================================================================
--- trunk/thirdparty/InnoSetup/CompInstall/CompInstall.dproj 2008-06-28 20:50:25 UTC (rev 2388)
+++ trunk/thirdparty/InnoSetup/CompInstall/CompInstall.dproj 2008-06-29 13:08:25 UTC (rev 2389)
@@ -1,4 +1,5 @@
-<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{1e742bfd-8538-4b78-8715-0c8ccf190ba4}</ProjectGuid>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
@@ -13,6 +14,10 @@
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_Define>RELEASE</DCC_Define>
+ <DCC_ExeOutput>..\</DCC_ExeOutput>
+ <DCC_DcuOutput>.</DCC_DcuOutput>
+ <DCC_ObjOutput>.</DCC_ObjOutput>
+ <DCC_HppOutput>.</DCC_HppOutput>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
@@ -31,6 +36,42 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Beispiele für gekapselte Komponenten für Automation Server</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Beispiele für gekapselte Komponenten für Automation Server</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
Modified: trunk/thirdparty/InnoSetup/CompInstall.dll
===================================================================
(Binary files differ)
Modified: trunk/thirdparty/InnoSetup/ComponentInstallerScript.iss
===================================================================
--- trunk/thirdparty/InnoSetup/ComponentInstallerScript.iss 2008-06-28 20:50:25 UTC (rev 2388)
+++ trunk/thirdparty/InnoSetup/ComponentInstallerScript.iss 2008-06-29 13:08:25 UTC (rev 2389)
@@ -342,7 +342,7 @@
ExpertList := TStringList.Create;
IdeExpertList := TStringList.Create;
- ComponentsFilename := ExpandConstant('{app}\unins00c.dat');
+ ComponentsFilename := ExpandConstant('{app}\uninscmp.dat');
if Installing then
Components.CommaText := WizardSelectedComponents(False)
Modified: trunk/thirdparty/InnoSetup/IdeComponents.iss
===================================================================
--- trunk/thirdparty/InnoSetup/IdeComponents.iss 2008-06-28 20:50:25 UTC (rev 2388)
+++ trunk/thirdparty/InnoSetup/IdeComponents.iss 2008-06-29 13:08:25 UTC (rev 2389)
@@ -1,6 +1,6 @@
[Components]
; IDE selection
-Name: "IDE"; Description: "Install for IDE"
+Name: "IDE"; Description: "Install for Professional/Enterprise/Architect IDE"
#ifdef Include_Delphi5
Name: "IDE\Delphi5"; Description: "Install for Delphi 5"; Types: full prefered; Check: IsDelphiInstalled(5)
#endif
Modified: trunk/thirdparty/InnoSetup/Install.iss
===================================================================
--- trunk/thirdparty/InnoSetup/Install.iss 2008-06-28 20:50:25 UTC (rev 2388)
+++ trunk/thirdparty/InnoSetup/Install.iss 2008-06-29 13:08:25 UTC (rev 2389)
@@ -217,45 +217,45 @@
[Registry]
#ifdef Include_Delphi5
; Delphi 5
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|5}\Jedi\JCL"; ValueType: string; ValueName: "BplDir"; ValueData: {code:GetDelphiBplDir|5}; Components: "IDE\Delphi5"; Flags: uninsdeletevalue
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|5}\Jedi\JCL"; ValueType: string; ValueName: "DcpDir"; ValueData: {app}\lib\d5; Components: "IDE\Delphi5"; Flags: uninsdeletevalue
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|5}\Jedi\JCL"; ValueType: string; ValueName: "RootDir"; ValueData: {app}; Components: "IDE\Delphi5"; Flags: uninsdeletevalue
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|5}\Jedi\JCL"; ValueType: string; ValueName: "Version"; ValueData: {#JclVersionStr}; Components: "IDE\Delphi5"; Flags: uninsdeletevalue
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|5}\Jedi\JCL"; ValueType: string; ValueName: "BplDir"; ValueData: {code:GetDelphiBplDir|5}; Components: "IDE\Delphi5"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(5)
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|5}\Jedi\JCL"; ValueType: string; ValueName: "DcpDir"; ValueData: {app}\lib\d5; Components: "IDE\Delphi5"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(5)
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|5}\Jedi\JCL"; ValueType: string; ValueName: "RootDir"; ValueData: {app}; Components: "IDE\Delphi5"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(5)
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|5}\Jedi\JCL"; ValueType: string; ValueName: "Version"; ValueData: {#JclVersionStr}; Components: "IDE\Delphi5"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(5)
#endif
#ifdef Include_Delphi6
; Delphi 6
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|6}\Jedi\JCL"; ValueType: string; ValueName: "BplDir"; ValueData: {code:GetDelphiBplDir|6}; Components: "IDE\Delphi6"; Flags: uninsdeletevalue
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|6}\Jedi\JCL"; ValueType: string; ValueName: "DcpDir"; ValueData: {app}\lib\d6; Components: "IDE\Delphi6"; Flags: uninsdeletevalue
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|6}\Jedi\JCL"; ValueType: string; ValueName: "RootDir"; ValueData: {app}; Components: "IDE\Delphi6"; Flags: uninsdeletevalue
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|6}\Jedi\JCL"; ValueType: string; ValueName: "Version"; ValueData: {#JclVersionStr}; Components: "IDE\Delphi6"; Flags: uninsdeletevalue
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|6}\Jedi\JCL"; ValueType: string; ValueName: "BplDir"; ValueData: {code:GetDelphiBplDir|6}; Components: "IDE\Delphi6"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(6)
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|6}\Jedi\JCL"; ValueType: string; ValueName: "DcpDir"; ValueData: {app}\lib\d6; Components: "IDE\Delphi6"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(6)
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|6}\Jedi\JCL"; ValueType: string; ValueName: "RootDir"; ValueData: {app}; Components: "IDE\Delphi6"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(6)
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|6}\Jedi\JCL"; ValueType: string; ValueName: "Version"; ValueData: {#JclVersionStr}; Components: "IDE\Delphi6"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(6)
#endif
#ifdef Include_Delphi7
; Delphi 7
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|7}\Jedi\JCL"; ValueType: string; ValueName: "BplDir"; ValueData: {code:GetDelphiBplDir|7}; Components: "IDE\Delphi7"; Flags: uninsdeletevalue
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|7}\Jedi\JCL"; ValueType: string; ValueName: "DcpDir"; ValueData: {app}\lib\d7; Components: "IDE\Delphi7"; Flags: uninsdeletevalue
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|7}\Jedi\JCL"; ValueType: string; ValueName: "RootDir"; ValueData: {app}; Components: "IDE\Delphi7"; Flags: uninsdeletevalue
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|7}\Jedi\JCL"; ValueType: string; ValueName: "Version"; ValueData: {#JclVersionStr}; Components: "IDE\Delphi7"; Flags: uninsdeletevalue
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|7}\Jedi\JCL"; ValueType: string; ValueName: "BplDir"; ValueData: {code:GetDelphiBplDir|7}; Components: "IDE\Delphi7"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(7)
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|7}\Jedi\JCL"; ValueType: string; ValueName: "DcpDir"; ValueData: {app}\lib\d7; Components: "IDE\Delphi7"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(7)
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|7}\Jedi\JCL"; ValueType: string; ValueName: "RootDir"; ValueData: {app}; Components: "IDE\Delphi7"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(7)
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|7}\Jedi\JCL"; ValueType: string; ValueName: "Version"; ValueData: {#JclVersionStr}; Components: "IDE\Delphi7"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(7)
#endif
#ifdef Include_Delphi9
; Delphi 2005
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|9}\Jedi\JCL"; ValueType: string; ValueName: "BplDir"; ValueData: {code:GetDelphiBplDir|9}; Components: "IDE\Delphi9"; Flags: uninsdeletevalue
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|9}\Jedi\JCL"; ValueType: string; ValueName: "DcpDir"; ValueData: {app}\lib\d9; Components: "IDE\Delphi9"; Flags: uninsdeletevalue
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|9}\Jedi\JCL"; ValueType: string; ValueName: "RootDir"; ValueData: {app}; Components: "IDE\Delphi9"; Flags: uninsdeletevalue
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|9}\Jedi\JCL"; ValueType: string; ValueName: "Version"; ValueData: {#JclVersionStr}; Components: "IDE\Delphi9"; Flags: uninsdeletevalue
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|9}\Jedi\JCL"; ValueType: string; ValueName: "BplDir"; ValueData: {code:GetDelphiBplDir|9}; Components: "IDE\Delphi9"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(9)
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|9}\Jedi\JCL"; ValueType: string; ValueName: "DcpDir"; ValueData: {app}\lib\d9; Components: "IDE\Delphi9"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(9)
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|9}\Jedi\JCL"; ValueType: string; ValueName: "RootDir"; ValueData: {app}; Components: "IDE\Delphi9"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(9)
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|9}\Jedi\JCL"; ValueType: string; ValueName: "Version"; ValueData: {#JclVersionStr}; Components: "IDE\Delphi9"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(9)
#endif
#ifdef Include_Delphi10
; Delphi 2006
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|10}\Jedi\JCL"; ValueType: string; ValueName: "BplDir"; ValueData: {code:GetDelphiBplDir|10}; Components: "IDE\Delphi10"; Flags: uninsdeletevalue
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|10}\Jedi\JCL"; ValueType: string; ValueName: "DcpDir"; ValueData: {app}\lib\d10; Components: "IDE\Delphi10"; Flags: uninsdeletevalue
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|10}\Jedi\JCL"; ValueType: string; ValueName: "RootDir"; ValueData: {app}; Components: "IDE\Delphi10"; Flags: uninsdeletevalue
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|10}\Jedi\JCL"; ValueType: string; ValueName: "Version"; ValueData: {#JclVersionStr}; Components: "IDE\Delphi10"; Flags: uninsdeletevalue
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|10}\Jedi\JCL"; ValueType: string; ValueName: "BplDir"; ValueData: {code:GetDelphiBplDir|10}; Components: "IDE\Delphi10"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(10)
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|10}\Jedi\JCL"; ValueType: string; ValueName: "DcpDir"; ValueData: {app}\lib\d10; Components: "IDE\Delphi10"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(10)
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|10}\Jedi\JCL"; ValueType: string; ValueName: "RootDir"; ValueData: {app}; Components: "IDE\Delphi10"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(10)
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|10}\Jedi\JCL"; ValueType: string; ValueName: "Version"; ValueData: {#JclVersionStr}; Components: "IDE\Delphi10"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(10)
#endif
#ifdef Include_Delphi11
; Delphi 2007
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|11}\Jedi\JCL"; ValueType: string; ValueName: "BplDir"; ValueData: {code:GetDelphiBplDir|11}; Components: "IDE\Delphi11"; Flags: uninsdeletevalue
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|11}\Jedi\JCL"; ValueType: string; ValueName: "DcpDir"; ValueData: {app}\lib\d11; Components: "IDE\Delphi11"; Flags: uninsdeletevalue
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|11}\Jedi\JCL"; ValueType: string; ValueName: "RootDir"; ValueData: {app}; Components: "IDE\Delphi11"; Flags: uninsdeletevalue
-Root: HKCU; Subkey: "{code:GetDelphiRegKey|11}\Jedi\JCL"; ValueType: string; ValueName: "Version"; ValueData: {#JclVersionStr}; Components: "IDE\Delphi11"; Flags: uninsdeletevalue
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|11}\Jedi\JCL"; ValueType: string; ValueName: "BplDir"; ValueData: {code:GetDelphiBplDir|11}; Components: "IDE\Delphi11"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(11)
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|11}\Jedi\JCL"; ValueType: string; ValueName: "DcpDir"; ValueData: {app}\lib\d11; Components: "IDE\Delphi11"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(11)
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|11}\Jedi\JCL"; ValueType: string; ValueName: "RootDir"; ValueData: {app}; Components: "IDE\Delphi11"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(11)
+Root: HKCU; Subkey: "{code:GetDelphiRegKey|11}\Jedi\JCL"; ValueType: string; ValueName: "Version"; ValueData: {#JclVersionStr}; Components: "IDE\Delphi11"; Flags: uninsdeletevalue; Check: IsDelphiInstalled(11)
#endif
#endif
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
|
From: <ou...@us...> - 2008-06-28 20:50:28
|
Revision: 2388
http://jcl.svn.sourceforge.net/jcl/?rev=2388&view=rev
Author: outchy
Date: 2008-06-28 13:50:25 -0700 (Sat, 28 Jun 2008)
Log Message:
-----------
replicated changes made to jcl/source/windows/JclWin32.pas into prototypes.
regenerated jcl/source/prototypes/JclWin32.pas from prototypes.
Modified Paths:
--------------
trunk/jcl/source/prototypes/JclWin32.pas
trunk/jcl/source/prototypes/win32api/LmCons.int
trunk/jcl/source/prototypes/win32api/WinNT.int
trunk/jcl/source/windows/JclWin32.pas
Removed Paths:
-------------
trunk/jcl/source/prototypes/win32api/fpc.inc
Modified: trunk/jcl/source/prototypes/JclWin32.pas
===================================================================
--- trunk/jcl/source/prototypes/JclWin32.pas 2008-06-25 19:42:08 UTC (rev 2387)
+++ trunk/jcl/source/prototypes/JclWin32.pas 2008-06-28 20:50:25 UTC (rev 2388)
@@ -49,16 +49,6 @@
{$I jcl.inc}
-{$DEFINE STRICT}
-{$DEFINE WINVER_0400_UP}
-{$DEFINE WINVER_0500_GREATER}
-{$DEFINE WINVER_0400_GREATER}
-{$DEFINE WINNT}
-{$DEFINE WINNT_0400_UP}
-{$DEFINE WINNT_0400_GREATER}
-{$DEFINE WINNT_0500_GREATER}
-{$DEFINE WINDOWS_0400_GREATER}
-
{$MINENUMSIZE 4}
{$ALIGN ON}
{$WARNINGS OFF}
@@ -124,11 +114,6 @@
PByte = IntPtr;
{$ENDIF CLR}
-{$IFDEF FPC}
-// include file for FPC compatibility
-{$I win32api\fpc.inc}
-{$ENDIF FPC}
-
{$I win32api\WinDef.int}
{$I win32api\WinNT.int}
{$I win32api\WinBase.int}
Modified: trunk/jcl/source/prototypes/win32api/LmCons.int
===================================================================
--- trunk/jcl/source/prototypes/win32api/LmCons.int 2008-06-25 19:42:08 UTC (rev 2387)
+++ trunk/jcl/source/prototypes/win32api/LmCons.int 2008-06-28 20:50:25 UTC (rev 2388)
@@ -177,10 +177,6 @@
{$DEFINE LM_USE_UNICODE}
{$ENDIF}
-{$IFDEF WINNT}
-{$DEFINE LM_USE_UNICODE}
-{$ENDIF}
-
{$IFDEF FORCE_UNICODE}
{$DEFINE LM_USE_UNICODE}
{$ENDIF}
@@ -205,8 +201,6 @@
{$ENDIF}
-{$UNDEF LM_USE_UNICODE}
-
//
// Message File Names
//
Modified: trunk/jcl/source/prototypes/win32api/WinNT.int
===================================================================
--- trunk/jcl/source/prototypes/win32api/WinNT.int 2008-06-25 19:42:08 UTC (rev 2387)
+++ trunk/jcl/source/prototypes/win32api/WinNT.int 2008-06-28 20:50:25 UTC (rev 2388)
@@ -1133,23 +1133,6 @@
// Directory format.
//
-{$IFDEF FPC}
-
-type
- PIMAGE_DATA_DIRECTORY = ^IMAGE_DATA_DIRECTORY;
- {$EXTERNALSYM PIMAGE_DATA_DIRECTORY}
- _IMAGE_DATA_DIRECTORY = record
- VirtualAddress: DWORD;
- Size: DWORD;
- end;
- {$EXTERNALSYM _IMAGE_DATA_DIRECTORY}
- IMAGE_DATA_DIRECTORY = _IMAGE_DATA_DIRECTORY;
- {$EXTERNALSYM IMAGE_DATA_DIRECTORY}
- TImageDataDirectory = IMAGE_DATA_DIRECTORY;
- PImageDataDirectory = PIMAGE_DATA_DIRECTORY;
-
-{$ENDIF FPC}
-
const
IMAGE_NUMBEROF_DIRECTORY_ENTRIES = 16;
{$EXTERNALSYM IMAGE_NUMBEROF_DIRECTORY_ENTRIES}
@@ -1162,51 +1145,6 @@
PIMAGE_OPTIONAL_HEADER32 = ^IMAGE_OPTIONAL_HEADER32;
{$EXTERNALSYM PIMAGE_OPTIONAL_HEADER32}
-{$IFDEF FPC}
-
- _IMAGE_OPTIONAL_HEADER = record
- //
- // Standard fields.
- //
- Magic: Word;
- MajorLinkerVersion: Byte;
- MinorLinkerVersion: Byte;
- SizeOfCode: DWORD;
- SizeOfInitializedData: DWORD;
- SizeOfUninitializedData: DWORD;
- AddressOfEntryPoint: DWORD;
- BaseOfCode: DWORD;
- BaseOfData: DWORD;
- //
- // NT additional fields.
- //
- ImageBase: DWORD;
- SectionAlignment: DWORD;
- FileAlignment: DWORD;
- MajorOperatingSystemVersion: Word;
- MinorOperatingSystemVersion: Word;
- MajorImageVersion: Word;
- MinorImageVersion: Word;
- MajorSubsystemVersion: Word;
- MinorSubsystemVersion: Word;
- Win32VersionValue: DWORD;
- SizeOfImage: DWORD;
- SizeOfHeaders: DWORD;
- CheckSum: DWORD;
- Subsystem: Word;
- DllCharacteristics: Word;
- SizeOfStackReserve: DWORD;
- SizeOfStackCommit: DWORD;
- SizeOfHeapReserve: DWORD;
- SizeOfHeapCommit: DWORD;
- LoaderFlags: DWORD;
- NumberOfRvaAndSizes: DWORD;
- DataDirectory: array [0..IMAGE_NUMBEROF_DIRECTORY_ENTRIES - 1] of IMAGE_DATA_DIRECTORY;
- end;
- {$EXTERNALSYM _IMAGE_OPTIONAL_HEADER}
-
-{$ENDIF FPC}
-
IMAGE_OPTIONAL_HEADER32 = _IMAGE_OPTIONAL_HEADER;
{$EXTERNALSYM IMAGE_OPTIONAL_HEADER32}
TImageOptionalHeader32 = IMAGE_OPTIONAL_HEADER32;
@@ -1333,29 +1271,6 @@
TImageNtHeaders32 = IMAGE_NT_HEADERS32;
PImageNtHeaders32 = PIMAGE_NT_HEADERS32;
-{$IFDEF FPC}
-
- PIMAGE_ROM_HEADERS = ^IMAGE_ROM_HEADERS;
- {$EXTERNALSYM PIMAGE_ROM_HEADERS}
- _IMAGE_ROM_HEADERS = record
- FileHeader: IMAGE_FILE_HEADER;
- OptionalHeader: IMAGE_ROM_OPTIONAL_HEADER;
- end;
- {$EXTERNALSYM _IMAGE_ROM_HEADERS}
- IMAGE_ROM_HEADERS = _IMAGE_ROM_HEADERS;
- {$EXTERNALSYM IMAGE_ROM_HEADERS}
- TImageRomHeaders = IMAGE_ROM_HEADERS;
- PImageRomHeaders = PIMAGE_ROM_HEADERS;
-
- IMAGE_NT_HEADERS = IMAGE_NT_HEADERS32;
- {$EXTERNALSYM IMAGE_NT_HEADERS}
- PIMAGE_NT_HEADERS = PIMAGE_NT_HEADERS32;
- {$EXTERNALSYM PIMAGE_NT_HEADERS}
-
- PImageNtHeaders = PIMAGE_NT_HEADERS;
-
-{$ENDIF FPC}
-
// Subsystem Values
const
@@ -1472,36 +1387,6 @@
{$EXTERNALSYM IMAGE_SIZEOF_SHORT_NAME}
type
-{$IFDEF FPC}
-
- TImgSecHdrMisc = record
- case Integer of
- 0: (PhysicalAddress: DWORD);
- 1: (VirtualSize: DWORD);
- end;
-
- PIMAGE_SECTION_HEADER = ^IMAGE_SECTION_HEADER;
- {$EXTERNALSYM PIMAGE_SECTION_HEADER}
- _IMAGE_SECTION_HEADER = record
- Name: array [0..IMAGE_SIZEOF_SHORT_NAME - 1] of BYTE;
- Misc: TImgSecHdrMisc;
- VirtualAddress: DWORD;
- SizeOfRawData: DWORD;
- PointerToRawData: DWORD;
- PointerToRelocations: DWORD;
- PointerToLinenumbers: DWORD;
- NumberOfRelocations: WORD;
- NumberOfLinenumbers: WORD;
- Characteristics: DWORD;
- end;
- {$EXTERNALSYM _IMAGE_SECTION_HEADER}
- IMAGE_SECTION_HEADER = _IMAGE_SECTION_HEADER;
- {$EXTERNALSYM IMAGE_SECTION_HEADER}
- TImageSectionHeader = IMAGE_SECTION_HEADER;
- PImageSectionHeader = PIMAGE_SECTION_HEADER;
-
-{$ENDIF FPC}
-
PPImageSectionHeader = ^PImageSectionHeader;
// IMAGE_FIRST_SECTION doesn't need 32/64 versions since the file header is the same either way.
Deleted: trunk/jcl/source/prototypes/win32api/fpc.inc
===================================================================
--- trunk/jcl/source/prototypes/win32api/fpc.inc 2008-06-25 19:42:08 UTC (rev 2387)
+++ trunk/jcl/source/prototypes/win32api/fpc.inc 2008-06-28 20:50:25 UTC (rev 2388)
@@ -1,71 +0,0 @@
-// JclWin32 include file for FPC compatibility
-
-// from unit Windows
-const
-
- // from WinReg.h
- HKEY_CLASSES_ROOT = DWORD($80000000);
- HKEY_CURRENT_USER = DWORD($80000001);
- HKEY_LOCAL_MACHINE = DWORD($80000002);
- HKEY_USERS = DWORD($80000003);
- HKEY_PERFORMANCE_DATA = DWORD($80000004);
- HKEY_CURRENT_CONFIG = DWORD($80000005);
- HKEY_DYN_DATA = DWORD($80000006);
-
- // from WinVer.h
- VOS__BASE = 0;
- VOS__WINDOWS16 = 1;
- VOS__PM16 = 2;
- VOS__PM32 = 3;
- VOS__WINDOWS32 = 4;
-
-{ VS_VERSION.dwFileSubtype for VFT_WINDOWS_DRV }
-
- VFT2_UNKNOWN = 0;
- VFT2_DRV_PRINTER = 1;
- VFT2_DRV_KEYBOARD = 2;
- VFT2_DRV_LANGUAGE = 3;
- VFT2_DRV_DISPLAY = 4;
- VFT2_DRV_MOUSE = 5;
- VFT2_DRV_NETWORK = 6;
- VFT2_DRV_SYSTEM = 7;
- VFT2_DRV_INSTALLABLE = 8;
- VFT2_DRV_SOUND = 9;
- VFT2_DRV_COMM = 10;
-
-type
- // from WinBase.h
- _GET_FILEEX_INFO_LEVELS = (GetFileExInfoStandard, GetFileExMaxInfoLevel);
- TGetFileExInfoLevels = _GET_FILEEX_INFO_LEVELS;
- GET_FILEEX_INFO_LEVELS = _GET_FILEEX_INFO_LEVELS;
-
-type
- PKeyboardState = ^TKeyboardState;
- TKeyboardState = array [0..255] of Byte;
-
-// from unit AccCtrl
-type
- SE_OBJECT_TYPE = (
- SE_UNKNOWN_OBJECT_TYPE,
- SE_FILE_OBJECT,
- SE_SERVICE,
- SE_PRINTER,
- SE_REGISTRY_KEY,
- SE_LMSHARE,
- SE_KERNEL_OBJECT,
- SE_WINDOW_OBJECT,
- SE_DS_OBJECT,
- SE_DS_OBJECT_ALL,
- SE_PROVIDER_DEFINED_OBJECT,
- SE_WMIGUID_OBJECT
- );
-
-// from ActiveX
-const
- // from OleIdl.h, OleIdl.Idl
- DROPEFFECT_NONE = 0;
- DROPEFFECT_COPY = 1;
- DROPEFFECT_MOVE = 2;
- DROPEFFECT_LINK = 4;
- DROPEFFECT_SCROLL = DWORD($80000000);
-
Modified: trunk/jcl/source/windows/JclWin32.pas
===================================================================
--- trunk/jcl/source/windows/JclWin32.pas 2008-06-25 19:42:08 UTC (rev 2387)
+++ trunk/jcl/source/windows/JclWin32.pas 2008-06-28 20:50:25 UTC (rev 2388)
@@ -53,7 +53,6 @@
{$I jcl.inc}
-
{$MINENUMSIZE 4}
{$ALIGN ON}
{$WARNINGS OFF}
@@ -119,8 +118,8 @@
PByte = IntPtr;
{$ENDIF CLR}
-
type
+
//
// Unsigned Basics
//
@@ -1264,7 +1263,6 @@
// Directory format.
//
-
const
IMAGE_NUMBEROF_DIRECTORY_ENTRIES = 16;
{$EXTERNALSYM IMAGE_NUMBEROF_DIRECTORY_ENTRIES}
@@ -1277,7 +1275,6 @@
PIMAGE_OPTIONAL_HEADER32 = ^IMAGE_OPTIONAL_HEADER32;
{$EXTERNALSYM PIMAGE_OPTIONAL_HEADER32}
-
IMAGE_OPTIONAL_HEADER32 = _IMAGE_OPTIONAL_HEADER;
{$EXTERNALSYM IMAGE_OPTIONAL_HEADER32}
TImageOptionalHeader32 = IMAGE_OPTIONAL_HEADER32;
@@ -1404,7 +1401,6 @@
TImageNtHeaders32 = IMAGE_NT_HEADERS32;
PImageNtHeaders32 = PIMAGE_NT_HEADERS32;
-
// Subsystem Values
const
@@ -1521,7 +1517,6 @@
{$EXTERNALSYM IMAGE_SIZEOF_SHORT_NAME}
type
-
PPImageSectionHeader = ^PImageSectionHeader;
// IMAGE_FIRST_SECTION doesn't need 32/64 versions since the file header is the same either way.
@@ -4253,7 +4248,6 @@
{$DEFINE LM_USE_UNICODE}
{$ENDIF}
-
{$IFDEF FORCE_UNICODE}
{$DEFINE LM_USE_UNICODE}
{$ENDIF}
@@ -4278,7 +4272,6 @@
{$ENDIF}
-
//
// Message File Names
//
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.
