Add changes version 2.61

2020-09-21 23:31:56 +00:00
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