ADD: Cleanup for better informations

PascalCorpsman · PascalCorpsman · commit 21fa7bfad0ed · 2023-11-07T12:36:57.000+01:00
diff --git a/data_control/LZW/Readme.md b/data_control/LZW/Readme.md
@@ -0,0 +1,10 @@
+# Lempel-Ziv-Welch (LZW)
+
+This Demo shows how the ulzw.pas can be used.
+
+![](preview.png)
+
+
+Features:
+ - load and compress a single file with the LZW algorithm (including some statistics)
+ - load and uncompress a compressed file
diff --git a/data_control/LZW/Unit1.lfm b/data_control/LZW/Unit1.lfm
@@ -1,14 +1,14 @@
 object Form1: TForm1
-  Left = 237
-  Height = 155
-  Top = 122
-  Width = 330
+  Left = 347
+  Height = 209
+  Top = 107
+  Width = 335
   ActiveControl = Button1
   BorderIcons = [biSystemMenu, biMinimize]
   BorderStyle = bsSingle
   Caption = 'Form1'
-  ClientHeight = 155
-  ClientWidth = 330
+  ClientHeight = 209
+  ClientWidth = 335
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
   OnCreate = FormCreate
@@ -29,7 +29,7 @@ object Form1: TForm1
       Height = 25
       Top = 4
       Width = 137
-      Caption = '&Open File'
+      Caption = '&Open file'
       OnClick = Button1Click
       TabOrder = 0
     end
@@ -48,15 +48,15 @@ object Form1: TForm1
       Height = 25
       Top = 4
       Width = 137
-      Caption = 'O&pen File'
+      Caption = 'O&pen file'
       OnClick = Button3Click
       TabOrder = 0
     end
   end
   object Button5: TButton
     Left = 16
     Height = 25
-    Top = 120
+    Top = 168
     Width = 297
     Caption = '&Close'
     OnClick = Button5Click
@@ -65,21 +65,28 @@ object Form1: TForm1
   object Button6: TButton
     Left = 16
     Height = 25
-    Top = 80
+    Top = 128
     Width = 297
     Caption = '&Help / Support'
     OnClick = Button6Click
     TabOrder = 3
   end
+  object Label1: TLabel
+    Left = 8
+    Height = 14
+    Top = 72
+    Width = 37
+    Caption = 'Label1'
+  end
   object OpenDialog1: TOpenDialog
-    Left = 24
-    Top = 32
+    Left = 32
+    Top = 40
   end
   object SaveDialog1: TSaveDialog
     DefaultExt = '.LZW'
     Filter = 'LZW-File|*.LZW|All|*.*'
-    Left = 120
-    Top = 32
+    Left = 96
+    Top = 40
   end
   object OpenDialog2: TOpenDialog
     DefaultExt = '.LZW'
diff --git a/data_control/LZW/Unit1.pas b/data_control/LZW/Unit1.pas
@@ -1,7 +1,7 @@
 (******************************************************************************)
 (* Lempel-Ziv-Welch Demo                                          28.03.2009  *)
 (*                                                                            *)
-(* Version     : 0.01                                                         *)
+(* Version     : 0.03                                                         *)
 (*                                                                            *)
 (* Author      : Uwe Schächterle (Corpsman)                                   *)
 (*                                                                            *)
@@ -23,6 +23,8 @@
 (* Known Issues: none                                                         *)
 (*                                                                            *)
 (* History     : 0.01 - Initial version                                       *)
+(*               0.02 - Rework code internals, and Update help                *)
+(*               0.03 - replace messagebox by label                           *)
 (*                                                                            *)
 (******************************************************************************)
 Unit Unit1;
@@ -36,13 +38,17 @@
   StdCtrls, uLZW, LCLIntf, LCLType;
 
 Type
+
+  { TForm1 }
+
   TForm1 = Class(TForm)
     GroupBox1: TGroupBox;
     Button1: TButton;
     GroupBox2: TGroupBox;
     Button3: TButton;
     Button5: TButton;
     Button6: TButton;
+    Label1: TLabel;
     OpenDialog1: TOpenDialog;
     SaveDialog1: TSaveDialog;
     OpenDialog2: TOpenDialog;
@@ -102,15 +108,12 @@
 
 Procedure TForm1.FormCreate(Sender: TObject);
 Begin
-  (*
-   * Historie: 0.01 = Initialversion
-   *           0.02 = Rework code internals, and Update help
-   *)
-  caption := 'LZW ver. 0.02 by Corpsman';
+  caption := 'LZW ver. 0.03 by Corpsman';
   lzw := TLZW.create;
   OpenDialog1.initialdir := ExtractFilePath(paramstr(0));
   saveDialog1.initialdir := ExtractFilePath(paramstr(0));
   OpenDialog2.initialdir := ExtractFilePath(paramstr(0));
+  label1.caption := 'Click "Open file"';
 End;
 
 Procedure TForm1.FormDestroy(Sender: TObject);
@@ -128,7 +131,7 @@
 End;
 
 Procedure TForm1.Button1Click(Sender: TObject);
-{.$DEFINE EXACKTINFO}
+{$DEFINE EXACKTINFO}
 Var
 {$IFDEF EXACKTINFO}
   SizeBefore, SizeAfter,
@@ -163,16 +166,21 @@
       f2.CopyFrom(m2, m2.size);
       m2.free;
       f2.free;
-      showmessage(
-        'Ready ' + LineEnding
-        + 'Time :' + FloattostrF((d2 - d) / 1000, FFFixed, 7, 3)
+      label1.caption :=
+        'Time :' + FloattostrF((d2 - d) / 1000, FFFixed, 7, 3)
 {$IFDEF EXACKTINFO}
-        + LineEnding + 'Compression Rate :' + FloattostrF((SizeBefore / SizeAfter) * 100, FFFixed, 7, 2) + '%' + LineEnding +
-        'M/sec :' + floattostrf(SizeBefore / (d2 - d), fffixed, 7, 3)
+      + LineEnding + 'Compression Rate :' + FloattostrF((SizeBefore / SizeAfter) * 100, FFFixed, 7, 2) + '%' + LineEnding +
+        'Byte/sec :' + floattostrf(SizeBefore / (d2 - d), fffixed, 7, 3)
 {$ENDIF EXACKTINFO}
-        );
+      ;
       button1.enabled := True;
+    End
+    Else Begin
+      label1.caption := '';
     End;
+  End
+  Else Begin
+    label1.caption := '';
   End;
 End;
 
@@ -202,9 +210,15 @@
       f2 := TFileStream.create(IncludeTrailingBackslash(Path) + s, fmcreate Or fmopenwrite);
       f2.CopyFrom(m2, m2.size);
       f2.free;
-      showmessage('Ready [ Time :' + FloattostrF((d2 - d) / 1000, FFFixed, 7, 3) + ' ].');
+      label1.caption := 'Ready [ Time :' + FloattostrF((d2 - d) / 1000, FFFixed, 7, 3) + ' ].';
       button3.enabled := True;
+    End
+    Else Begin
+      label1.caption := '';
     End;
+  End
+  Else Begin
+    label1.caption := '';
   End;
 End;
 
diff --git a/data_control/LZW/lzw.lpi b/data_control/LZW/lzw.lpi
@@ -53,8 +53,7 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="76"/>
-        <CursorPos X="73" Y="104"/>
+        <CursorPos X="22" Y="4"/>
         <UsageCount Value="26"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -93,7 +92,7 @@
         <UsageCount Value="10"/>
       </Unit6>
     </Units>
-    <JumpHistory Count="10" HistoryIndex="9">
+    <JumpHistory Count="18" HistoryIndex="17">
       <Position1>
         <Filename Value="Unit1.pas"/>
         <Caret Line="60" Column="16"/>
@@ -116,24 +115,55 @@
       </Position5>
       <Position6>
         <Filename Value="Unit1.pas"/>
-        <Caret Line="2" Column="20" TopLine="4"/>
+        <Caret Line="6" Column="38" TopLine="4"/>
       </Position6>
       <Position7>
         <Filename Value="Unit1.pas"/>
-        <Caret Line="6" Column="38" TopLine="4"/>
+        <Caret Line="117" Column="39" TopLine="76"/>
       </Position7>
       <Position8>
         <Filename Value="Unit1.pas"/>
-        <Caret Line="117" Column="39" TopLine="76"/>
+        <Caret Line="125" Column="37" TopLine="76"/>
       </Position8>
       <Position9>
         <Filename Value="Unit1.pas"/>
-        <Caret Line="125" Column="37" TopLine="76"/>
+        <Caret Line="2" Column="9"/>
       </Position9>
       <Position10>
         <Filename Value="Unit1.pas"/>
-        <Caret Line="2" Column="9"/>
+        <Caret Line="104" Column="73" TopLine="76"/>
       </Position10>
+      <Position11>
+        <Filename Value="Unit1.pas"/>
+        <Caret Line="140" Column="3" TopLine="130"/>
+      </Position11>
+      <Position12>
+        <Filename Value="Unit1.pas"/>
+        <Caret Line="183" Column="20" TopLine="134"/>
+      </Position12>
+      <Position13>
+        <Filename Value="Unit1.pas"/>
+        <Caret Line="174" Column="46" TopLine="150"/>
+      </Position13>
+      <Position14>
+        <Filename Value="Unit1.pas"/>
+        <Caret Line="118" Column="41" TopLine="107"/>
+      </Position14>
+      <Position15>
+        <Filename Value="Unit1.pas"/>
+        <Caret Line="145" Column="3" TopLine="135"/>
+      </Position15>
+      <Position16>
+        <Filename Value="Unit1.pas"/>
+        <Caret Line="112" Column="20" TopLine="107"/>
+      </Position16>
+      <Position17>
+        <Filename Value="Unit1.pas"/>
+      </Position17>
+      <Position18>
+        <Filename Value="Unit1.pas"/>
+        <Caret Line="109" TopLine="107"/>
+      </Position18>
     </JumpHistory>
   </ProjectOptions>
   <CompilerOptions>
diff --git a/data_control/LZW/preview.png b/data_control/LZW/preview.png
