Add changes version 2.61

2020-09-21 23:31:56 +00:00 · 2020-09-21 23:31:56 +00:00 · dc4e9a3a68
parent fa01ec3931
commit dc4e9a3a68
21 changed files with 258 additions and 223 deletions
--- a/Demo/AboutDlgUnit.ddp
+++ b/Demo/AboutDlgUnit.ddp
--- a/Demo/AboutDlgUnit.dfm
+++ b/Demo/AboutDlgUnit.dfm
--- a/Demo/AboutDlgUnit.pas
+++ b/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);
--- a/Demo/ReSource.cfg
+++ b/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"
--- a/Demo/ReSource.dof
+++ b/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
--- a/Demo/ReSource.dpr
+++ b/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);
--- a/Demo/ReSource.dsk
+++ b/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
--- a/Demo/main.ddp
+++ b/Demo/main.ddp
--- a/Demo/main.pas
+++ b/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
--- a/Demo/reSource.res
+++ b/Demo/reSource.res
--- a/Demo2/Main.ddp
+++ b/Demo2/Main.ddp
--- a/Demo2/reSourceDemo2.cfg
+++ b/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\"
--- a/Demo2/reSourceDemo2.dof
+++ b/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
--- a/Demo2/reSourceDemo2.dsk
+++ b/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
--- 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
--- 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
--- 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',
--- 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

--- 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
--- 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
 -------------------------------------------------------


--- 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