Remove OMultiPanel to fix issue #10. Use a simpler Layout component instead.

Author: wp-xyz

README.md

@@ -19,9 +19,8 @@ Tested on Windows 32bit/64 bit and Linux 64 bit, but it should work also on othe
 
 ## Acknowledgements
 
-Besides the Lazarus LCL, the application uses the following third-party components
+Besides the Lazarus LCL, the application uses the following third-party component
 
-* OMultiPanel: http://www.kluug.net/omultipanel.php
 * MPHexEditor: https://github.com/michalgw/mphexeditor/blob/master/hexeditor.html
 
 Most of the icons are taken from https://icons8.com, style "Office" (https://icons8.com/icons/office) and style "Simple small" (https://icons8.com/icons/small).

source/Hex.lpi

@@ -21,8 +21,8 @@
     <VersionInfo>
       <UseVersionInfo Value="True"/>
       <MajorVersionNr Value="1"/>
-      <MinorVersionNr Value="2"/>
-      <StringTable LegalCopyright="(c) 2021-2024, Werner Pamler" OriginalFilename="hex" ProductName="Hex" ProductVersion="1.2.0.0"/>
+      <MinorVersionNr Value="3"/>
+      <StringTable LegalCopyright="(c) 2021-2024, Werner Pamler" OriginalFilename="hex" ProductName="Hex" ProductVersion="1.3.0.0"/>
     </VersionInfo>
     <BuildModes Count="3">
       <Item1 Name="Default" Default="True"/>
@@ -112,7 +112,7 @@
         <PackageName Value="LCL"/>
       </Item2>
     </RequiredPackages>
-    <Units Count="25">
+    <Units Count="26">
       <Unit0>
         <Filename Value="Hex.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -278,6 +278,11 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="hxUtils_NonGui"/>
       </Unit24>
+      <Unit25>
+        <Filename Value="units\hxlayout.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="hxLayout"/>
+      </Unit25>
     </Units>
   </ProjectOptions>
   <CompilerOptions>

source/Hex.lpr

@@ -11,7 +11,7 @@
   hxDataModule, hxViewerItems, hxViewerGrids, hxBasicViewerFrame,
   hxDataViewerFrame, hxRecordViewerFrame, hxObjectViewerFrame, hxSettingsDlg,
   hxGotoDlg, hxRecordEditorForm, hxGridViewerFrame, hxAbout, hxPascalRecordForm,
-  hxSearchReplaceDlg, hxHexEditor, hxUtils_NonGui;
+  hxSearchReplaceDlg, hxHexEditor, hxUtils_NonGui, hxLayout;
 
 {$R *.res}
 

source/Hex.res

@@ -69,15 +69,15 @@ object AboutForm: TAboutForm
     AnchorSideTop.Control = lblAcknowledgements
     AnchorSideTop.Side = asrBottom
     Left = 12
-    Height = 110
+    Height = 95
     Top = 183
     Width = 346
     AutoSize = True
     BorderSpacing.Top = 4
     BorderSpacing.Right = 12
     BevelOuter = bvNone
     BorderStyle = bsSingle
-    ClientHeight = 106
+    ClientHeight = 91
     ClientWidth = 342
     Color = clWindow
     ParentBackground = False
@@ -186,59 +186,28 @@ object AboutForm: TAboutForm
       OnMouseEnter = lblURLMouseEnter
       OnMouseLeave = lblURLMouseLeave
     end
-    object lblOMultiPanelComponent: TLabel
-      AnchorSideTop.Control = lblMichal
-      AnchorSideTop.Side = asrBottom
-      AnchorSideRight.Control = lblMPHexEditor
-      AnchorSideRight.Side = asrBottom
-      Left = 16
-      Height = 15
-      Top = 68
-      Width = 134
-      Anchors = [akTop, akRight]
-      Caption = 'OMultiPanel component:'
-      ParentColor = False
-    end
-    object lblOndrej: TLabel
-      AnchorSideLeft.Control = lblMarkus
-      AnchorSideTop.Control = lblMichal
-      AnchorSideTop.Side = asrBottom
-      Cursor = crHandPoint
-      Left = 166
-      Height = 15
-      Hint = 'http://www.kluug.net/omultipanel.php'
-      Top = 68
-      Width = 80
-      Caption = 'www.kluug.net'
-      Font.Color = clBlue
-      ParentColor = False
-      ParentFont = False
-      OnClick = lblURLClick
-      OnMouseEnter = lblURLMouseEnter
-      OnMouseLeave = lblURLMouseLeave
-    end
     object lblIcons: TLabel
-      AnchorSideTop.Control = lblOMultiPanelComponent
-      AnchorSideTop.Side = asrBottom
+      AnchorSideTop.Control = lblIcons8
+      AnchorSideTop.Side = asrCenter
       AnchorSideRight.Control = lblMPHexEditor
       AnchorSideRight.Side = asrBottom
       Left = 77
       Height = 15
-      Top = 83
+      Top = 68
       Width = 73
       Anchors = [akTop, akRight]
       Caption = 'Toolbar icons:'
       ParentColor = False
     end
     object lblIcons8: TLabel
       AnchorSideLeft.Control = lblMarkus
-      AnchorSideTop.Control = lblOndrej
+      AnchorSideTop.Control = lblMichal
       AnchorSideTop.Side = asrBottom
       Cursor = crHandPoint
       Left = 166
       Height = 15
       Hint = 'https://icons8.com'
-      Top = 83
+      Top = 68
       Width = 61
       BorderSpacing.Bottom = 8
       Caption = 'icons8.com'
@@ -257,7 +226,7 @@ object AboutForm: TAboutForm
     AnchorSideRight.Side = asrBottom
     Left = 283
     Height = 26
-    Top = 301
+    Top = 286
     Width = 75
     Anchors = [akTop, akRight]
     AutoSize = True

source/forms/hxabout.lfm

@@ -18,7 +18,6 @@   TAboutForm = class(TForm)
     Image1: TImage;
     lblVersion: TLabel;
     lblCopyright: TLabel;
-    lblOMultiPanelComponent: TLabel;
     lblIcons: TLabel;
     lblMarkus: TLabel;
     lblMPHexEditor: TLabel;
@@ -30,7 +29,6 @@   TAboutForm = class(TForm)
     lblIDE: TLabel;
     lblHex: TLabel;
     lblMichal: TLabel;
-    lblOndrej: TLabel;
     lblIcons8: TLabel;
     Panel1: TPanel;
     procedure FormCreate(Sender: TObject);
@@ -69,7 +67,6 @@ procedure TAboutForm.FormCreate(Sender: TObject);
   lblFPC.Font.Color := LINK_COLOR[mode];
   lblLazarus.Font.Color := LINK_COLOR[mode];
   lblMichal.Font.Color := LINK_COLOR[mode];
-  lblOndrej.Font.Color := LINK_COLOR[mode];
   lblIcons8.Font.Color := LINK_COLOR[mode];
 end;
 

source/forms/hxabout.pas

@@ -5,6 +5,7 @@ object BasicViewerFrame: TBasicViewerFrame
   Width = 320
   ClientHeight = 240
   ClientWidth = 320
+  LCLVersion = '4.99.0.0'
   TabOrder = 0
   DesignLeft = 340
   DesignTop = 128

source/frames/hxbasicviewerframe.lfm

@@ -5,7 +5,7 @@
 interface
 
 uses
-  Classes, SysUtils, Forms, Controls, StdCtrls,
+  Classes, SysUtils, IniFiles, Forms, Controls, StdCtrls,
   HxHexEditor;
 
 type
@@ -21,12 +21,10 @@   TBasicViewerFrame = class(TFrame)
   end;
 
 
-
 implementation
 
 {$R *.lfm}
 
-
 { TBasicViewerFrame }
 
 constructor TBasicViewerFrame.Create(AOwner: TComponent);