From dc4e9a3a688191c8df9062c2d9158ec04e8da926 Mon Sep 17 00:00:00 2001 From: S Groesz Date: Mon, 21 Sep 2020 23:31:56 +0000 Subject: [PATCH] Add changes version 2.61 --- Archiver Demo/AboutDlgUnit.ddp | Bin 0 -> 51 bytes Archiver Demo/AboutDlgUnit.dfm | Bin 1478 -> 1463 bytes Archiver Demo/AboutDlgUnit.pas | 2 +- Archiver Demo/ReSource.cfg | 6 +- Archiver Demo/ReSource.dof | 27 +++---- Archiver Demo/ReSource.dpr | 2 +- Archiver Demo/ReSource.dsk | 97 +++++++++++++---------- Archiver Demo/main.ddp | Bin 0 -> 51 bytes Archiver Demo/main.pas | 9 ++- Archiver Demo/reSource.res | Bin 1688 -> 1688 bytes Archiver Demo2/Main.ddp | Bin 0 -> 53 bytes Archiver Demo2/reSourceDemo2.cfg | 12 ++- Archiver Demo2/reSourceDemo2.dof | 22 ++++-- Archiver Demo2/reSourceDemo2.dsk | 130 ++++++++++++++++++++++--------- Component/ResourcePack.cfg | 6 +- Component/ResourcePack.dof | 20 ++--- Component/ResourcePack.dpk | 10 +-- Component/ResourcePack.dsk | 127 ++++++++++-------------------- Component/StructsUnit.pas | 2 +- install.txt | 3 +- version.txt | 6 +- 21 files changed, 258 insertions(+), 223 deletions(-) create mode 100644 Archiver Demo/AboutDlgUnit.ddp create mode 100644 Archiver Demo/main.ddp create mode 100644 Archiver Demo2/Main.ddp diff --git a/Archiver Demo/AboutDlgUnit.ddp b/Archiver Demo/AboutDlgUnit.ddp new file mode 100644 index 0000000000000000000000000000000000000000..cdc0ee8c2b54a98895d906932c4351134611c8d5 GIT binary patch literal 51 zcmZRVaB=ks@bJ`g@pN<#a`e>;@DB=c^Y`)e=VxFz;K0Pl$;KI)SCUzhlbT}4#=r!G E07AM8lK=n! literal 0 HcmV?d00001 diff --git a/Archiver Demo/AboutDlgUnit.dfm b/Archiver Demo/AboutDlgUnit.dfm index 587ddfbee826b12d7e5274b19f6a859e4c0f41f6..3f1cfaab3219fdfa442655eabfef31c1e8a16c51 100644 GIT binary patch delta 53 zcmX@cy`5X&KNmxYqmzGVh>MRqgMq-3jRGf`nJzL+zRj%0s6Cm9MTs+CuOweTy{NQo JvkglZBLKE}5Dx$V delta 68 zcmdnaeT-Y+KNmxYqmzGVh>MRqgMq;2jRGf`nWPyf-)2^0w3^Jsq9jpNTBcW0lv$9U YqL-YXt6!8_oL^d$oT|TBm!*pl0LgR}RR910 diff --git a/Archiver Demo/AboutDlgUnit.pas b/Archiver Demo/AboutDlgUnit.pas index aab29db..1605789 100644 --- a/Archiver Demo/AboutDlgUnit.pas +++ b/Archiver Demo/AboutDlgUnit.pas @@ -55,7 +55,7 @@ end; procedure TAboutDlg.Label2Click(Sender: TObject); begin - ShellExecute(0, Nil, 'http://gruv.tripod.com/resource/', Nil, Nil, SW_NORMAL); + ShellExecute(0, Nil, 'http://go.to/gruv', Nil, Nil, SW_NORMAL); end; procedure TAboutDlg.Button1Click(Sender: TObject); diff --git a/Archiver Demo/ReSource.cfg b/Archiver Demo/ReSource.cfg index af01711..1a8580a 100644 --- a/Archiver Demo/ReSource.cfg +++ b/Archiver Demo/ReSource.cfg @@ -1,4 +1,4 @@ --$A+ +-$A8 -$B- -$C+ -$D+ @@ -31,5 +31,5 @@ -M -$M16384,1048576 -K$00400000 --LE"c:\borland\delphi5\Projects\Bpl" --LN"c:\borland\delphi5\Projects\Bpl" +-LE"c:\delphi\Projects\Bpl" +-LN"c:\delphi\Projects\Bpl" diff --git a/Archiver Demo/ReSource.dof b/Archiver Demo/ReSource.dof index bfc2419..466457e 100644 --- a/Archiver Demo/ReSource.dof +++ b/Archiver Demo/ReSource.dof @@ -1,5 +1,7 @@ +[FileVersion] +Version=6.0 [Compiler] -A=1 +A=8 B=0 C=1 D=1 @@ -28,7 +30,6 @@ Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - [Linker] MapFile=0 OutputObjs=0 @@ -39,7 +40,6 @@ MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription= - [Directories] OutputDir= UnitOutputDir= @@ -50,22 +50,22 @@ Packages=VCL50;VCLX50;VCLSMP50;VCLDB50;VCLADO50;ibevnt50;VCLBDE50;VCLDBX50;QRPT5 Conditionals= DebugSourceDirs= UsePackages=0 - [Parameters] RunParams= HostApplication= - +Launcher= +UseLauncher=0 +DebugCWD= [Language] ActiveLang= ProjectLang=$00000409 RootDir= - [Version Info] IncludeVerInfo=1 AutoIncBuild=0 MajorVer=2 MinorVer=6 -Release=0 +Release=1 Build=0 Debug=0 PreRelease=1 @@ -74,11 +74,10 @@ Private=0 DLL=0 Locale=1033 CodePage=1252 - [Version Info Keys] CompanyName= FileDescription=Resource -FileVersion=2.6.0.0 +FileVersion=2.6.1.0 InternalName=Resource experimental LegalCopyright=Victor K LegalTrademarks= @@ -86,24 +85,20 @@ OriginalFilename=Resource ProductName=Resource ProductVersion=1.0.0.0 Comments=The BWT Block compressor - [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - [HistoryLists\hlSearchPath] -Count=1 -Item0=C:\Save\Delphi\resource\Component - +Count=2 +Item0=..\component\ +Item1=C:\Save\Delphi\resource\Component [HistoryLists\hlUnitOutputDirectory] Count=1 Item0=C:\temp\rs - [HistoryLists\hlOutputDirectorry] Count=2 Item0=C:\temp\rs Item1=c:\temp\cg - [HistoryLists\hlBPLOutput] Count=1 Item0=c:\temp\rs diff --git a/Archiver Demo/ReSource.dpr b/Archiver Demo/ReSource.dpr index d5b0646..d5647dc 100644 --- a/Archiver Demo/ReSource.dpr +++ b/Archiver Demo/ReSource.dpr @@ -19,7 +19,7 @@ uses begin Application.Initialize; - Application.Title := 'reSource v2.6'; + Application.Title := 'reSource v2.61'; Application.CreateForm(TMainForm, MainForm); Application.CreateForm(TExtractOptionsDlg, ExtractOptionsDlg); Application.CreateForm(TAddOptionsDlg, AddOptionsDlg); diff --git a/Archiver Demo/ReSource.dsk b/Archiver Demo/ReSource.dsk index cae25cf..aee9b10 100644 --- a/Archiver Demo/ReSource.dsk +++ b/Archiver Demo/ReSource.dsk @@ -1,26 +1,30 @@ [Closed Files] -File_0=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\ProgStatsDlgUnit.pas',0,1,1,1,13,1,0 -File_1=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\main.pas',0,1,1,1,13,1,0 -File_2=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\FileAttrDlgUnit.pas',0,1,1,1,12,1,0 -File_3=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\ExtractOptionsDlgUnit.pas',0,1,1,1,12,1,0 -File_4=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\DebugFormUnit.pas',0,1,1,1,12,1,0 -File_5=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\CreditFormUnit.pas',0,1,1,1,12,0,0 -File_6=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\ConfigUnit.pas',0,1,1,1,12,0,0 -File_7=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\ConfigDlgUnit.pas',0,1,1,1,12,0,0 -File_8=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\CompressionStatsDlgUnit.pas',0,1,1,1,12,0,0 -File_9=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\BrowseForDirUnit.pas',0,1,1,1,14,1,0 +File_0=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\CompressionStatsDlgUnit.pas',0,1,163,94,12,1,0 +File_1=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\AboutDlgUnit.pas',0,1,36,29,46,1,0 +File_2=SourceModule,'C:\Save\Delphi\resource\component\StructsUnit.pas',0,1,1,15,10,0,0 +File_3=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\ProgStatsDlgUnit.pas',0,1,1,1,13,1,0 +File_4=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\FileAttrDlgUnit.pas',0,1,1,1,12,1,0 +File_5=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\ExtractOptionsDlgUnit.pas',0,1,1,1,12,1,0 +File_6=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\DebugFormUnit.pas',0,1,1,1,12,1,0 +File_7=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\CreditFormUnit.pas',0,1,1,1,12,0,0 +File_8=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\ConfigUnit.pas',0,1,1,1,12,0,0 +File_9=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\ConfigDlgUnit.pas',0,1,1,1,12,0,0 [Modules] -Module0=C:\Save\Delphi\resource\Archiver Demo\ReSource.dpr +Module0=C:\Save\Delphi\resource\Archiver Demo\main.pas Count=1 EditWindowCount=1 -[C:\Save\Delphi\resource\Archiver Demo\ReSource.dpr] +[C:\Save\Delphi\resource\Archiver Demo\main.pas] ModuleType=SourceModule FormState=0 FormOnTop=0 -[C:\Save\Delphi\resource\Archiver Demo\ProjectGroup1.bpg] +[C:\Delphi\Projects\ProjectGroup1.bpg] +FormState=0 +FormOnTop=0 + +[C:\Save\Delphi\resource\Archiver Demo\ReSource.dpr] FormState=0 FormOnTop=0 @@ -35,27 +39,27 @@ Visible=1 State=2 Left=229 Top=232 -Width=564 +Width=795 Height=334 MaxLeft=-4 -MaxTop=100 -MaxWidth=808 -MaxHeight=476 -ClientWidth=800 -ClientHeight=449 +MaxTop=97 +MaxWidth=1032 +MaxHeight=622 +ClientWidth=1024 +ClientHeight=595 LeftPanelSize=0 LeftPanelClients=CodeExplorer@EditWindow0 LeftPanelData=00000400010000000C000000436F64654578706C6F7265720000000000000000000000000000000000FFFFFFFF RightPanelSize=0 -BottomPanelSize=77 +BottomPanelSize=0 BottomPanelClients=CallStackWindow,WatchWindow,MessageView@EditWindow0 -BottomPanelData=00000400020000000F00000043616C6C537461636B57696E646F770B000000576174636857696E646F772003000000000000004D000000000000000100000000200300000B0000004D65737361676556696577FFFFFFFF +BottomPanelData=00000400030000000F00000043616C6C537461636B57696E646F770B000000576174636857696E646F770B0000004D657373616765566965772003000000000000004D0000000000000001000000002003000000000000FFFFFFFF [View0] -Module=C:\Save\Delphi\resource\Archiver Demo\ReSource.dpr -CursorX=59 -CursorY=9 -TopLine=1 +Module=C:\Save\Delphi\resource\Archiver Demo\main.pas +CursorX=87 +CursorY=24 +TopLine=22 LeftCol=1 [Watches] @@ -74,18 +78,18 @@ Visible=1 State=2 Left=0 Top=28 -Width=777 +Width=1024 Height=105 MaxLeft=-1 MaxTop=-1 -MaxWidth=808 +MaxWidth=1032 MaxHeight=105 -ClientWidth=800 +ClientWidth=1024 ClientHeight=78 [ProjectManager] Create=1 -Visible=0 +Visible=1 State=0 Left=155 Top=124 @@ -94,7 +98,7 @@ Height=413 MaxLeft=-1 MaxTop=-1 ClientWidth=440 -ClientHeight=391 +ClientHeight=389 TBDockHeight=303 LRDockWidth=510 Dockable=1 @@ -123,7 +127,7 @@ State=0 Left=50 Top=119 Width=156 -Height=80 +Height=82 MaxLeft=-1 MaxTop=-1 ClientWidth=150 @@ -139,7 +143,7 @@ Width=236 Height=303 MaxLeft=-1 MaxTop=-1 -ClientWidth=226 +ClientWidth=228 ClientHeight=279 TBDockHeight=494 LRDockWidth=164 @@ -149,7 +153,6 @@ ArrangeBy=Name SelectedItem= ExpandedItems=BorderIcons,Brush,Dragtypes,Font.Style,Options,Pen HiddenCategories=Legacy -ShowStatusBar=1 [WatchWindow] Create=1 @@ -178,7 +181,7 @@ Height=197 MaxLeft=-1 MaxTop=-1 ClientWidth=445 -ClientHeight=175 +ClientHeight=173 TBDockHeight=197 LRDockWidth=453 Dockable=1 @@ -205,6 +208,22 @@ TBDockHeight=77 LRDockWidth=379 Dockable=1 +[ObjectTree] +Create=1 +Visible=0 +State=0 +Left=0 +Top=105 +Width=190 +Height=242 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=182 +ClientHeight=218 +TBDockHeight=242 +LRDockWidth=190 +Dockable=1 + [LocalVarsWindow] Create=1 Visible=0 @@ -216,7 +235,7 @@ Height=192 MaxLeft=-1 MaxTop=-1 ClientWidth=413 -ClientHeight=170 +ClientHeight=168 TBDockHeight=192 LRDockWidth=421 Dockable=1 @@ -232,7 +251,7 @@ Height=250 MaxLeft=-1 MaxTop=-1 ClientWidth=462 -ClientHeight=228 +ClientHeight=226 TBDockHeight=250 LRDockWidth=470 Dockable=1 @@ -263,15 +282,15 @@ Dockable=1 [MessageView@EditWindow0] Create=1 -Visible=1 +Visible=0 State=0 Left=12 Top=0 -Width=788 +Width=1012 Height=77 MaxLeft=-1 MaxTop=-1 -ClientWidth=788 +ClientWidth=1012 ClientHeight=77 TBDockHeight=77 LRDockWidth=443 diff --git a/Archiver Demo/main.ddp b/Archiver Demo/main.ddp new file mode 100644 index 0000000000000000000000000000000000000000..cdc0ee8c2b54a98895d906932c4351134611c8d5 GIT binary patch literal 51 zcmZRVaB=ks@bJ`g@pN<#a`e>;@DB=c^Y`)e=VxFz;K0Pl$;KI)SCUzhlbT}4#=r!G E07AM8lK=n! literal 0 HcmV?d00001 diff --git a/Archiver Demo/main.pas b/Archiver Demo/main.pas index effb5c6..96172fb 100644 --- a/Archiver Demo/main.pas +++ b/Archiver Demo/main.pas @@ -5,7 +5,7 @@ unit main; the main interface. --------------------------------------------- -reSource v2.6 +reSource v2.61 Copyright (C) 1998-2001 Victor Kasenda / gruv http://go.to/gruv email: vickas@singnet.com.sg @@ -27,6 +27,11 @@ Desc: properties can also be changed (right click on the FileList) +Changes: +Version 2.61: (15/10) + - fixed a bug in the GetCompressionRatio function which caused the calculation + overflow when calculating for larger files. (credits: Richard Sutcliffe) + -------------------------------------------------------------------------------} @@ -279,7 +284,7 @@ end; function GetCompressionRatio(compressed, uncompressed: integer): integer; begin if Uncompressed > 0 then - result := 100 - (compressed * 100 div uncompressed) + result := 100 - (INT64(compressed) * 100 div INT64(uncompressed)) else result := 0; {try diff --git a/Archiver Demo/reSource.res b/Archiver Demo/reSource.res index f2eb6851a6f65c78b367e226c9cfed0d82af732c..540e93bca8b14c6e06d1b66323a42ae82dc28c36 100644 GIT binary patch delta 28 kcmbQiJA-$_A!bfS1~vvJ1_lPk$)}kgG8%4P%kr8L0A&sbmjD0& delta 28 icmbQiJA-$_A!ben1~vvJ1|XPxn)xB4!RECruNeVk=m(Sl diff --git a/Archiver Demo2/Main.ddp b/Archiver Demo2/Main.ddp new file mode 100644 index 0000000000000000000000000000000000000000..c5add639be1bc2680ff94388e6b1da488a1b03d1 GIT binary patch literal 53 zcmZRVaB=ks@bJ`g@pN<#a`e>;@DB=c^Y`)e=VxFz;K0Pl$;KI)SCUzhlbT}4#*~)A I#K6P=0A4-}UjP6A literal 0 HcmV?d00001 diff --git a/Archiver Demo2/reSourceDemo2.cfg b/Archiver Demo2/reSourceDemo2.cfg index 5079b08..51a65cf 100644 --- a/Archiver Demo2/reSourceDemo2.cfg +++ b/Archiver Demo2/reSourceDemo2.cfg @@ -1,4 +1,4 @@ --$A+ +-$A8 -$B- -$C+ -$D+ @@ -31,5 +31,11 @@ -M -$M16384,1048576 -K$00400000 --LE"c:\borland\delphi5\Projects\Bpl" --LN"c:\borland\delphi5\Projects\Bpl" +-E"c:\temp\rs" +-N"c:\temp\rs" +-LE"c:\program files\borland\delphi6\Projects\Bpl" +-LN"c:\program files\borland\delphi6\Projects\Bpl" +-U"..\component\" +-O"..\component\" +-I"..\component\" +-R"..\component\" diff --git a/Archiver Demo2/reSourceDemo2.dof b/Archiver Demo2/reSourceDemo2.dof index 3d7cc7f..8e702ca 100644 --- a/Archiver Demo2/reSourceDemo2.dof +++ b/Archiver Demo2/reSourceDemo2.dof @@ -1,5 +1,8 @@ +[FileVersion] +Version=6.0 + [Compiler] -A=1 +A=8 B=0 C=1 D=1 @@ -41,11 +44,11 @@ ImageBase=4194304 ExeDescription= [Directories] -OutputDir= -UnitOutputDir= +OutputDir=c:\temp\rs +UnitOutputDir=c:\temp\rs PackageDLLOutputDir= PackageDCPOutputDir= -SearchPath= +SearchPath=..\component\ Packages=VCL50;VCLX50;VCLSMP50;VCLDB50;VCLADO50;ibevnt50;VCLBDE50;VCLDBX50;QRPT50;TEEUI50;TEEDB50;TEE50;DSS50;TEEQR50;VCLIB50;VCLMID50;VCLIE50;INETDB50;INET50;NMFAST50;WEBMID50;dclocx50;dclaxserver50;ColorPicker;preview;Icsdel50;galoled;NtfyIcon Conditionals= DebugSourceDirs= @@ -54,6 +57,9 @@ UsePackages=0 [Parameters] RunParams= HostApplication= +Launcher= +UseLauncher=0 +DebugCWD= [Language] ActiveLang= @@ -92,9 +98,11 @@ Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] -Count=2 -Item0=c:\temp\rs -Item1=C:\Save\Delphi\resource\Component +Count=4 +Item0=..\component\ +Item1=..\components\ +Item2=c:\temp\rs +Item3=C:\Save\Delphi\resource\Component [HistoryLists\hlUnitOutputDirectory] Count=1 diff --git a/Archiver Demo2/reSourceDemo2.dsk b/Archiver Demo2/reSourceDemo2.dsk index 32387de..82be1c0 100644 --- a/Archiver Demo2/reSourceDemo2.dsk +++ b/Archiver Demo2/reSourceDemo2.dsk @@ -1,33 +1,51 @@ [Closed Files] -File_0=SourceModule,'C:\Save\Delphi\resource\Archiver Demo2\Main.pas',0,1,14,3,23,0,0 -File_1=SourceModule,'C:\Save\Delphi\resource\Component\BWTExpandUnit.pas',0,1,226,35,234,0,0 -File_2=SourceModule,'C:\Save\Delphi\resource\Component\ResourceCompUnit.pas',0,1,268,2,274,0,0 -File_3=SourceModule,'C:\Save\Delphi\resource\Component\ArchiveManagerUnit.pas',0,1,479,30,479,0,0 -File_4=SourceModule,'C:\Save\Delphi\resource\Component\BWTBaseUnit.pas',0,1,1,1,1,0,0 -File_5=SourceModule,'C:\Save\Delphi\resource\Component\BWTCompressUnit.pas',0,1,1,1,1,0,0 -File_6=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\main.pas',0,1,1956,14,1959,1,0 -File_7=SourceModule,'C:\Save\Delphi\newr2\Component\StructsUnit.pas',0,1,1,1,7,0,0 -File_8=SourceModule,'C:\Save\Delphi\newr2\Component\StrucAriEncoderUnit.pas',0,1,1,1,9,0,0 -File_9=SourceModule,'C:\Save\Delphi\newr2\Component\StrucAriDecoderUnit.pas',0,1,1,1,9,0,0 +File_0=SourceModule,'C:\Save\Delphi\resource\Component\BWTExpandUnit.pas',0,1,226,35,234,0,0 +File_1=SourceModule,'C:\Save\Delphi\resource\Component\BWTBaseUnit.pas',0,1,1,1,1,0,0 +File_2=SourceModule,'C:\Save\Delphi\resource\Component\BWTCompressUnit.pas',0,1,1,1,1,0,0 +File_3=SourceModule,'C:\Save\Delphi\resource\Archiver Demo\main.pas',0,1,1956,14,1959,1,0 +File_4=SourceModule,'C:\Save\Delphi\newr2\Component\StructsUnit.pas',0,1,1,1,7,0,0 +File_5=SourceModule,'C:\Save\Delphi\newr2\Component\StrucAriEncoderUnit.pas',0,1,1,1,9,0,0 +File_6=SourceModule,'C:\Save\Delphi\newr2\Component\StrucAriDecoderUnit.pas',0,1,1,1,9,0,0 [Modules] -Module0=C:\Save\Delphi\resource\Archiver Demo2\reSourceDemo2.dpr -Count=1 +Module0=C:\Save\Delphi\resource\Archiver Demo2\Main.pas +Module1=C:\Save\Delphi\resource\component\ArchiveManagerUnit.pas +Module2=C:\Save\Delphi\resource\component\ResourceCompUnit.pas +Module3=C:\Save\Delphi\resource\Archiver Demo2\reSourceDemo2.dpr +Count=4 EditWindowCount=1 +[C:\Save\Delphi\resource\Archiver Demo2\Main.pas] +ModuleType=SourceModule +FormState=1 +FormOnTop=0 + +[C:\Save\Delphi\resource\component\ArchiveManagerUnit.pas] +ModuleType=SourceModule +FormState=0 +FormOnTop=0 + +[C:\Save\Delphi\resource\component\ResourceCompUnit.pas] +ModuleType=SourceModule +FormState=0 +FormOnTop=0 + [C:\Save\Delphi\resource\Archiver Demo2\reSourceDemo2.dpr] ModuleType=SourceModule FormState=0 FormOnTop=0 -[C:\Save\Delphi\resource\Archiver Demo2\ProjectGroup1.bpg] +[C:\Save\Delphi\test\r1\ProjectGroup1.bpg] FormState=0 FormOnTop=0 [EditWindow0] -ViewCount=1 -CurrentView=0 +ViewCount=4 +CurrentView=1 View0=0 +View1=1 +View2=2 +View3=3 CodeExplorer=CodeExplorer@EditWindow0 MessageView=MessageView@EditWindow0 Create=1 @@ -35,29 +53,50 @@ Visible=1 State=2 Left=229 Top=232 -Width=564 +Width=795 Height=334 MaxLeft=-4 MaxTop=100 -MaxWidth=808 -MaxHeight=476 -ClientWidth=800 -ClientHeight=449 +MaxWidth=1032 +MaxHeight=619 +ClientWidth=1024 +ClientHeight=592 LeftPanelSize=0 LeftPanelClients=CodeExplorer@EditWindow0 LeftPanelData=00000400010000000C000000436F64654578706C6F7265720000000000000000000000000000000000FFFFFFFF RightPanelSize=0 -BottomPanelSize=0 +BottomPanelSize=77 BottomPanelClients=CallStackWindow,WatchWindow,MessageView@EditWindow0 -BottomPanelData=00000400030000000F00000043616C6C537461636B57696E646F770B000000576174636857696E646F770B0000004D657373616765566965772003000000000000004D00000000000000FFFFFFFF +BottomPanelData=00000400020000000F00000043616C6C537461636B57696E646F770B000000576174636857696E646F772003000000000000004D000000000000000100000000200300000B0000004D65737361676556696577FFFFFFFF [View0] Module=C:\Save\Delphi\resource\Archiver Demo2\reSourceDemo2.dpr -CursorX=52 -CursorY=10 +CursorX=60 +CursorY=9 TopLine=1 LeftCol=1 +[View1] +Module=C:\Save\Delphi\resource\Archiver Demo2\Main.pas +CursorX=47 +CursorY=82 +TopLine=77 +LeftCol=1 + +[View2] +Module=C:\Save\Delphi\resource\component\ResourceCompUnit.pas +CursorX=20 +CursorY=208 +TopLine=206 +LeftCol=1 + +[View3] +Module=C:\Save\Delphi\resource\component\ArchiveManagerUnit.pas +CursorX=11 +CursorY=197 +TopLine=192 +LeftCol=1 + [Watches] Count=2 Watch0='CFH.FileName',256,0,18,1,0 @@ -75,13 +114,13 @@ Visible=1 State=2 Left=0 Top=28 -Width=777 +Width=1024 Height=105 MaxLeft=-1 MaxTop=-1 -MaxWidth=808 +MaxWidth=1032 MaxHeight=105 -ClientWidth=800 +ClientWidth=1024 ClientHeight=78 [ProjectManager] @@ -95,7 +134,7 @@ Height=413 MaxLeft=-1 MaxTop=-1 ClientWidth=440 -ClientHeight=391 +ClientHeight=389 TBDockHeight=303 LRDockWidth=510 Dockable=1 @@ -124,7 +163,7 @@ State=0 Left=50 Top=119 Width=156 -Height=80 +Height=82 MaxLeft=-1 MaxTop=-1 ClientWidth=150 @@ -140,17 +179,16 @@ Width=236 Height=303 MaxLeft=-1 MaxTop=-1 -ClientWidth=226 +ClientWidth=228 ClientHeight=279 TBDockHeight=494 LRDockWidth=164 Dockable=0 SplitPos=108 ArrangeBy=Name -SelectedItem= +SelectedItem=Caption ExpandedItems=BorderIcons,Brush,Dragtypes,Font.Style,Options,Pen HiddenCategories=Legacy -ShowStatusBar=1 [WatchWindow] Create=1 @@ -179,7 +217,7 @@ Height=197 MaxLeft=-1 MaxTop=-1 ClientWidth=445 -ClientHeight=175 +ClientHeight=173 TBDockHeight=197 LRDockWidth=453 Dockable=1 @@ -206,6 +244,22 @@ TBDockHeight=77 LRDockWidth=379 Dockable=1 +[ObjectTree] +Create=1 +Visible=0 +State=0 +Left=0 +Top=105 +Width=190 +Height=242 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=182 +ClientHeight=218 +TBDockHeight=242 +LRDockWidth=190 +Dockable=1 + [LocalVarsWindow] Create=1 Visible=0 @@ -217,7 +271,7 @@ Height=192 MaxLeft=-1 MaxTop=-1 ClientWidth=413 -ClientHeight=170 +ClientHeight=168 TBDockHeight=192 LRDockWidth=421 Dockable=1 @@ -233,7 +287,7 @@ Height=250 MaxLeft=-1 MaxTop=-1 ClientWidth=462 -ClientHeight=228 +ClientHeight=226 TBDockHeight=250 LRDockWidth=470 Dockable=1 @@ -264,15 +318,15 @@ Dockable=1 [MessageView@EditWindow0] Create=1 -Visible=0 +Visible=1 State=0 Left=12 Top=0 -Width=788 +Width=1012 Height=77 MaxLeft=-1 MaxTop=-1 -ClientWidth=788 +ClientWidth=1012 ClientHeight=77 TBDockHeight=77 LRDockWidth=443 diff --git a/Component/ResourcePack.cfg b/Component/ResourcePack.cfg index 9c0565b..bf61812 100644 --- a/Component/ResourcePack.cfg +++ b/Component/ResourcePack.cfg @@ -1,4 +1,4 @@ --$A+ +-$A8 -$B- -$C+ -$D+ @@ -32,6 +32,6 @@ -$M16384,1048576 -K$00400000 -E"c:\temp\cg" --LE"c:\borland\delphi5\Projects\Bpl" --LN"c:\borland\delphi5\Projects\Bpl" +-LE"c:\delphi\Projects\Bpl" +-LN"c:\delphi\Projects\Bpl" -Z diff --git a/Component/ResourcePack.dof b/Component/ResourcePack.dof index 1147110..ae28a85 100644 --- a/Component/ResourcePack.dof +++ b/Component/ResourcePack.dof @@ -1,5 +1,7 @@ +[FileVersion] +Version=6.0 [Compiler] -A=1 +A=8 B=0 C=1 D=1 @@ -28,7 +30,6 @@ Z=1 ShowHints=1 ShowWarnings=1 UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - [Linker] MapFile=0 OutputObjs=0 @@ -39,27 +40,26 @@ MinStackSize=16384 MaxStackSize=1048576 ImageBase=4194304 ExeDescription=reSource Compression Component - [Directories] OutputDir=c:\temp\cg UnitOutputDir= PackageDLLOutputDir= PackageDCPOutputDir= SearchPath= -Packages=VCL50;VCLX50;VCLSMP50;VCLDB50;VCLADO50;ibevnt50;VCLBDE50;VCLDBX50;QRPT50;TEEUI50;TEEDB50;TEE50;DSS50;TEEQR50;VCLIB50;VCLMID50;VCLIE50;INETDB50;INET50;NMFAST50;WEBMID50;dclocx50;dclaxserver50;DragDropD5;ColorPicker;preview;Icsdel50;galoled +Packages=vcl;vclx;vclsmp;vcldb;adortl;ibevnt;bdertl;vcldbx;qrpt;teeui;teedb;tee;dss;teeqr;ibxpress;dsnap;vclie;inetdb;inet;nmfast;webdsnap;dclocx;dclaxserver;DragDropD5;ColorPicker;preview;Icsdel50;galoled Conditionals= DebugSourceDirs= UsePackages=0 - [Parameters] RunParams= HostApplication= - +Launcher= +UseLauncher=0 +DebugCWD= [Language] ActiveLang= ProjectLang=$00000409 RootDir= - [Version Info] IncludeVerInfo=1 AutoIncBuild=0 @@ -74,7 +74,6 @@ Private=0 DLL=0 Locale=1033 CodePage=1252 - [Version Info Keys] CompanyName= FileDescription= @@ -86,24 +85,19 @@ OriginalFilename= ProductName= ProductVersion=1.0.0.0 Comments= - [HistoryLists\hlUnitAliases] Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; - [HistoryLists\hlSearchPath] Count=1 Item0=C:\Save\Delphi\resource\Component - [HistoryLists\hlUnitOutputDirectory] Count=1 Item0=C:\temp\rs - [HistoryLists\hlOutputDirectorry] Count=2 Item0=c:\temp\cg Item1=C:\temp\rs - [HistoryLists\hlBPLOutput] Count=1 Item0=c:\temp\rs diff --git a/Component/ResourcePack.dpk b/Component/ResourcePack.dpk index 1f3c9d2..bb90cae 100644 --- a/Component/ResourcePack.dpk +++ b/Component/ResourcePack.dpk @@ -1,8 +1,8 @@ package ResourcePack; -{$R *.RES} +{$R *.res} {$R 'ResourceCompUnit.dcr'} -{$ALIGN ON} +{$ALIGN 8} {$ASSERTIONS ON} {$BOOLEVAL OFF} {$DEBUGINFO ON} @@ -27,9 +27,9 @@ package ResourcePack; {$IMPLICITBUILD OFF} requires - vcl50, - VCLX50, - VCLSMP50; + vcl, + vclx, + vclsmp; contains ArchiveManagerUnit in 'ArchiveManagerUnit.pas', diff --git a/Component/ResourcePack.dsk b/Component/ResourcePack.dsk index 9c2b7e5..b8e7999 100644 --- a/Component/ResourcePack.dsk +++ b/Component/ResourcePack.dsk @@ -11,57 +11,25 @@ File_8=SourceModule,'C:\Save\Delphi\resource\Component\MTFEncoderUnit.pas',0,1,1 File_9=SourceModule,'C:\Save\Delphi\resource\Component\MTFDecoderUnit.pas',0,1,1,1,9,0,0 [Modules] -Module0=C:\Save\Delphi\resource\Component\ResourcePack.dpk -Count=1 -EditWindowCount=1 +Count=0 +EditWindowCount=0 PackageWindowCount=1 [C:\Save\Delphi\resource\Component\ResourcePack.dpk] -ModuleType=PackageEditModule +FormState=0 +FormOnTop=1 + +[C:\Save\Delphi\resource\Archiver Demo\ReSource.dpr] FormState=0 FormOnTop=0 -[C:\Save\Delphi\resource\Component\ProjectGroup1.bpg] +[C:\Save\Delphi\resource\Archiver Demo\ProjectGroup1.bpg] FormState=0 FormOnTop=0 -[EditWindow0] -ViewCount=1 -CurrentView=0 -View0=0 -CodeExplorer=CodeExplorer@EditWindow0 -MessageView=MessageView@EditWindow0 -Create=1 -Visible=1 -State=2 -Left=229 -Top=232 -Width=564 -Height=334 -MaxLeft=-4 -MaxTop=97 -MaxWidth=808 -MaxHeight=479 -ClientWidth=800 -ClientHeight=452 -LeftPanelSize=0 -LeftPanelClients=CodeExplorer@EditWindow0 -LeftPanelData=00000400010000000C000000436F64654578706C6F7265720000000000000000000000000000000000FFFFFFFF -RightPanelSize=0 -BottomPanelSize=0 -BottomPanelClients=CallStackWindow,WatchWindow,MessageView@EditWindow0 -BottomPanelData=00000400030000000F00000043616C6C537461636B57696E646F770B000000576174636857696E646F770B0000004D657373616765566965772003000000000000004D00000000000000FFFFFFFF - -[View0] -Module=C:\Save\Delphi\resource\Component\ResourcePack.dpk -CursorX=1 -CursorY=1 -TopLine=1 -LeftCol=1 - [PackageWindow0] Create=1 -Visible=0 +Visible=1 State=0 Left=202 Top=147 @@ -70,7 +38,7 @@ Height=398 MaxLeft=-1 MaxTop=-1 ClientWidth=414 -ClientHeight=376 +ClientHeight=374 TBDockHeight=284 LRDockWidth=421 Dockable=1 @@ -116,7 +84,7 @@ Height=413 MaxLeft=-1 MaxTop=-1 ClientWidth=440 -ClientHeight=391 +ClientHeight=389 TBDockHeight=303 LRDockWidth=510 Dockable=1 @@ -145,7 +113,7 @@ State=0 Left=50 Top=119 Width=156 -Height=80 +Height=82 MaxLeft=-1 MaxTop=-1 ClientWidth=150 @@ -161,7 +129,7 @@ Width=236 Height=303 MaxLeft=-1 MaxTop=-1 -ClientWidth=226 +ClientWidth=228 ClientHeight=279 TBDockHeight=494 LRDockWidth=164 @@ -171,16 +139,15 @@ ArrangeBy=Name SelectedItem= ExpandedItems=BorderIcons,Brush,Dragtypes,Font.Style,Options,Pen HiddenCategories=Legacy -ShowStatusBar=1 [WatchWindow] Create=1 Visible=0 State=0 -Left=12 -Top=0 -Width=788 -Height=77 +Left=0 +Top=638 +Width=796 +Height=101 MaxLeft=-1 MaxTop=-1 ClientWidth=788 @@ -200,7 +167,7 @@ Height=197 MaxLeft=-1 MaxTop=-1 ClientWidth=445 -ClientHeight=175 +ClientHeight=173 TBDockHeight=197 LRDockWidth=453 Dockable=1 @@ -215,10 +182,10 @@ Column5Width=75 Create=1 Visible=0 State=0 -Left=412 -Top=0 -Width=388 -Height=77 +Left=0 +Top=638 +Width=396 +Height=101 MaxLeft=-1 MaxTop=-1 ClientWidth=388 @@ -227,6 +194,22 @@ TBDockHeight=77 LRDockWidth=379 Dockable=1 +[ObjectTree] +Create=1 +Visible=0 +State=0 +Left=0 +Top=105 +Width=190 +Height=242 +MaxLeft=-1 +MaxTop=-1 +ClientWidth=182 +ClientHeight=218 +TBDockHeight=242 +LRDockWidth=190 +Dockable=1 + [LocalVarsWindow] Create=1 Visible=0 @@ -238,7 +221,7 @@ Height=192 MaxLeft=-1 MaxTop=-1 ClientWidth=413 -ClientHeight=170 +ClientHeight=168 TBDockHeight=192 LRDockWidth=421 Dockable=1 @@ -254,7 +237,7 @@ Height=250 MaxLeft=-1 MaxTop=-1 ClientWidth=462 -ClientHeight=228 +ClientHeight=226 TBDockHeight=250 LRDockWidth=470 Dockable=1 @@ -267,38 +250,6 @@ SortOrder=4 ShowHints=1 ShowChecked=1 -[CodeExplorer@EditWindow0] -Create=1 -Visible=0 -State=0 -Left=0 -Top=12 -Width=200 -Height=348 -MaxLeft=-1 -MaxTop=-1 -ClientWidth=200 -ClientHeight=348 -TBDockHeight=305 -LRDockWidth=200 -Dockable=1 - -[MessageView@EditWindow0] -Create=1 -Visible=0 -State=0 -Left=12 -Top=0 -Width=788 -Height=77 -MaxLeft=-1 -MaxTop=-1 -ClientWidth=788 -ClientHeight=77 -TBDockHeight=77 -LRDockWidth=443 -Dockable=1 - [DockHosts] DockHostCount=0 diff --git a/Component/StructsUnit.pas b/Component/StructsUnit.pas index 26ad542..6d60d3e 100644 --- a/Component/StructsUnit.pas +++ b/Component/StructsUnit.pas @@ -17,7 +17,7 @@ Contains: var reSourceIDStr: string = 'reSource - BWT Compressor'; - reSourceVerStr: string = 'reSource v2.6'; + reSourceVerStr: string = 'reSource v2.61'; reSourceCopyrightStr: string = 'Copyright (C) 1998-2000 Victor Kasenda / gruv'; type diff --git a/install.txt b/install.txt index 62d8324..f87448f 100644 --- a/install.txt +++ b/install.txt @@ -3,14 +3,13 @@ reSource installation/getting to know/compiling and running --------------------------------------------- -reSource v2.6 +reSource v2.61 Copyright (C) 1998-2001 Victor Kasenda / gruv reSource support site: http://go.to/gruv email: vickas@singnet.com.sg --------------------------------------------- This file last updated on 08 May 2001 -reSource version 2.6 ------------------------------------------------------- diff --git a/version.txt b/version.txt index 3e45de1..9d32b17 100644 --- a/version.txt +++ b/version.txt @@ -1,4 +1,4 @@ -reSource version 2.6 public release full source +reSource version 2.61 public release full source copyright (C) 1998-2001 Victor Kasenda / gruv email: vickas@singnet.com.sg icq: 6505245 @@ -7,6 +7,10 @@ icq: 6505245 HISTORY ------- +Version 2.61: (15/10) + - fixed a bug in the GetCompressionRatio function which caused the calculation + overflow when calculating for larger files. (credits: Richard Sutcliffe) + Version 2.6 - Fixed ShellTypeName and ShellSmallImageIndex in TCentralFileHeader. Now implemented as properties and it will read itself when data is requested. - Added 2 new functions: TResource.CompressToArchive and TResource.DecompressFromArchive