Browse Source

Add changes version 2.61

master
S Groesz 2 years ago
parent
commit
dc4e9a3a68
  1. BIN
      Archiver Demo/AboutDlgUnit.ddp
  2. BIN
      Archiver Demo/AboutDlgUnit.dfm
  3. 2
      Archiver Demo/AboutDlgUnit.pas
  4. 6
      Archiver Demo/ReSource.cfg
  5. 27
      Archiver Demo/ReSource.dof
  6. 2
      Archiver Demo/ReSource.dpr
  7. 97
      Archiver Demo/ReSource.dsk
  8. BIN
      Archiver Demo/main.ddp
  9. 9
      Archiver Demo/main.pas
  10. BIN
      Archiver Demo/reSource.res
  11. BIN
      Archiver Demo2/Main.ddp
  12. 12
      Archiver Demo2/reSourceDemo2.cfg
  13. 22
      Archiver Demo2/reSourceDemo2.dof
  14. 130
      Archiver Demo2/reSourceDemo2.dsk
  15. 6
      Component/ResourcePack.cfg
  16. 20
      Component/ResourcePack.dof
  17. 10
      Component/ResourcePack.dpk
  18. 127
      Component/ResourcePack.dsk
  19. 2
      Component/StructsUnit.pas
  20. 3
      install.txt
  21. 6
      version.txt

BIN
Archiver Demo/AboutDlgUnit.ddp

Binary file not shown.

BIN
Archiver Demo/AboutDlgUnit.dfm

Binary file not shown.

2
Archiver Demo/AboutDlgUnit.pas

@ -55,7 +55,7 @@ end; @@ -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);

6
Archiver Demo/ReSource.cfg

@ -1,4 +1,4 @@ @@ -1,4 +1,4 @@
-$A+
-$A8
-$B-
-$C+
-$D+
@ -31,5 +31,5 @@ @@ -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"

27
Archiver Demo/ReSource.dof

@ -1,5 +1,7 @@ @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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

2
Archiver Demo/ReSource.dpr

@ -19,7 +19,7 @@ uses @@ -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);

97
Archiver Demo/ReSource.dsk

@ -1,26 +1,30 @@ @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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

BIN
Archiver Demo/main.ddp

Binary file not shown.

9
Archiver Demo/main.pas

@ -5,7 +5,7 @@ unit main; @@ -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: @@ -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; @@ -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

BIN
Archiver Demo/reSource.res

Binary file not shown.

BIN
Archiver Demo2/Main.ddp

Binary file not shown.

12
Archiver Demo2/reSourceDemo2.cfg

@ -1,4 +1,4 @@ @@ -1,4 +1,4 @@
-$A+
-$A8
-$B-
-$C+
-$D+
@ -31,5 +31,11 @@ @@ -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\"

22
Archiver Demo2/reSourceDemo2.dof

@ -1,5 +1,8 @@ @@ -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 @@ -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 @@ -54,6 +57,9 @@ UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
@ -92,9 +98,11 @@ Count=1 @@ -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

130
Archiver Demo2/reSourceDemo2.dsk

@ -1,33 +1,51 @@ @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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

6
Component/ResourcePack.cfg

@ -1,4 +1,4 @@ @@ -1,4 +1,4 @@
-$A+
-$A8
-$B-
-$C+
-$D+
@ -32,6 +32,6 @@ @@ -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

20
Component/ResourcePack.dof

@ -1,5 +1,7 @@ @@ -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 @@ -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 @@ -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 @@ -74,7 +74,6 @@ Private=0
DLL=0
Locale=1033
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
@ -86,24 +85,19 @@ OriginalFilename= @@ -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

10
Component/ResourcePack.dpk

@ -1,8 +1,8 @@ @@ -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; @@ -27,9 +27,9 @@ package ResourcePack;
{$IMPLICITBUILD OFF}
requires
vcl50,
VCLX50,
VCLSMP50;
vcl,
vclx,
vclsmp;
contains
ArchiveManagerUnit in 'ArchiveManagerUnit.pas',

127
Component/ResourcePack.dsk

@ -11,57 +11,25 @@ File_8=SourceModule,'C:\Save\Delphi\resource\Component\MTFEncoderUnit.pas',0,1,1 @@ -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=0
FormOnTop=1
[C:\Save\Delphi\resource\Component\ProjectGroup1.bpg]
[C:\Save\Delphi\resource\Archiver Demo\ReSource.dpr]
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
[C:\Save\Delphi\resource\Archiver Demo\ProjectGroup1.bpg]
FormState=0
FormOnTop=0
[PackageWindow0]
Create=1
Visible=0
Visible=1
State=0
Left=202
Top=147
@ -70,7 +38,7 @@ Height=398 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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 @@ -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

2
Component/StructsUnit.pas

@ -17,7 +17,7 @@ Contains: @@ -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

3
install.txt

@ -3,14 +3,13 @@ reSource @@ -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
-------------------------------------------------------

6
version.txt

@ -1,4 +1,4 @@ @@ -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 @@ -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

Loading…
Cancel
Save