From fcd1afc44465230c756eef05df66d9b3d53562ad Mon Sep 17 00:00:00 2001
From: pyscripter <pyscripter@gmail.com>
Date: Fri, 23 Dec 2022 01:27:57 +0200
Subject: [PATCH 1/4] Fix #37 Fix #38

---
 Source/zObjInspector.pas | 78 ++++++++++++++++++++++++++++------------
 1 file changed, 55 insertions(+), 23 deletions(-)

diff --git a/Source/zObjInspector.pas b/Source/zObjInspector.pas
index a4da6e3..a610c69 100644
--- a/Source/zObjInspector.pas
+++ b/Source/zObjInspector.pas
@@ -75,10 +75,8 @@ interface
   vtDouble = 15;
   vtExtended = 16;
 
-  dcInit = 0;
-  dcBeforeDestroying = 1;
-  dcShow = 2;
-  dcFinished = 3;
+type
+  TzDialogState = (dcInit, dcBeforeDestroying, dcShow, dcFinished);
 
 type
   TzObjInspectorBase = class;
@@ -219,7 +217,8 @@   TzCustomValueManager = class
     /// <summary> Get customized dialog for current item .
     /// </summary>
     class function GetDialog(const PItem: PPropItem): TComponentClass; virtual;
-    class procedure DialogCode(const PItem: PPropItem; Dialog: TComponent; Code: Integer); virtual;
+    class function DialogCode(const PItem: PPropItem; Dialog: TComponent; DlgState:
+        TzDialogState): Boolean; virtual;
     /// <summary> Get the value returned after editing from the dialog .
     /// </summary>
     class function DialogResultValue(const PItem: PPropItem; Dialog: TComponent): TValue; virtual;
@@ -496,6 +495,7 @@   TzScrollObjInspectorList = class(TzObjInspectorHeader)
     FSI: TScrollInfo;
     FPrevScrollPos: Integer;
     procedure CMFONTCHANGED(var Message: TMessage); message CM_FONTCHANGED;
+    procedure CMParentFontChanged(var Message: TCMParentFontChanged); message CM_PARENTFONTCHANGED;
     procedure WMSize(var Message: TWMSize); message WM_SIZE;
     procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
     procedure WMWINDOWPOSCHANGED(var Message: TWMWindowPosChanged); message WM_WINDOWPOSCHANGED;
@@ -710,6 +710,8 @@   TzObjectInspector = class(TzCustomObjInspector)
     property HeaderValueText;
     property ObjectVisibility;
     property FloatPreference;
+    property ParentFont;
+    property DoubleBuffered;
     property OnClick;
     property OnContextPopup;
     property OnDragDrop;
@@ -2109,6 +2111,17 @@ procedure TzScrollObjInspectorList.CMFONTCHANGED(var Message: TMessage);
   FItemHeight := Canvas.TextHeight('WA') + 4; // 17;
 end;
 
+procedure TzScrollObjInspectorList.CMParentFontChanged(
+  var Message: TCMParentFontChanged);
+begin
+  inherited;
+  if ParentFont then
+  begin
+    Canvas.Font.Assign(Font);
+    FItemHeight := Canvas.TextHeight('WA') + 4;
+  end;
+end;
+
 constructor TzScrollObjInspectorList.Create(AOwner: TComponent);
 begin
   inherited;
@@ -3883,11 +3896,8 @@ procedure TzPropInspEdit.ShowModalDialog;
 var
   DialogClass: TComponentClass;
   Dialog: TComponent;
-  mr: Integer;
   Value: TValue;
 begin
-  if not FPropItem^.Prop.IsWritable then
-    Exit;
   DialogClass := nil;
   with DefaultValueManager do
   begin
@@ -3895,25 +3905,17 @@ procedure TzPropInspEdit.ShowModalDialog;
       DialogClass := GetDialog(FPropItem);
     if Assigned(DialogClass) then
     begin
-      mr := 0;
-      Dialog := DialogClass.Create(Self);
-      if (not(Dialog is TCommonDialog)) and (not(Dialog is TzInspDialog)) then
+      if not (DialogClass.InheritsFrom(TCommonDialog) or DialogClass.InheritsFrom(TzInspDialog)) then
         raise DialogDerivedError.CreateRes(@SDialogDerivedErr);
-      if Dialog is TzInspDialog then
-        TzInspDialog(Dialog).PropItem := FPropItem;
-      DialogCode(FPropItem, Dialog, dcInit);
-      DialogCode(FPropItem, Dialog, dcShow);
-      if Dialog is TCommonDialog then
-        mr := Integer(TCommonDialog(Dialog).Execute)
-      else if Dialog is TzInspDialog then
-        mr := TzInspDialog(Dialog).ShowModal;
-      PostMessage(Handle, WM_LBUTTONUP, 0, 0);
-      if mr = mrOk then
+      Dialog := DialogClass.Create(Self);
+      if DialogCode(FPropItem, Dialog, dcInit) and
+        DialogCode(FPropItem, Dialog, dcShow) then
       begin
         DialogCode(FPropItem, Dialog, dcFinished);
         Value := DialogResultValue(FPropItem, Dialog);
         FInspector.DoSetValue(FPropItem, Value);
       end;
+      PostMessage(Handle, WM_LBUTTONUP, 0, 0);
       DialogCode(FPropItem, Dialog, dcBeforeDestroying);
       FreeAndNil(Dialog);
     end;
@@ -4180,9 +4182,39 @@ procedure TzPropInspEdit.WMSETFOCUS(var Msg: TWMSetFocus);
   TzCustomValueManager.FloatPreference.Free;
 end;
 
-class procedure TzCustomValueManager.DialogCode(const PItem: PPropItem; Dialog: TComponent; Code: Integer);
+class function TzCustomValueManager.DialogCode(const PItem: PPropItem; Dialog:
+    TComponent; DlgState: TzDialogState): Boolean;
 begin
-
+  case DlgState of
+    dcInit:
+      begin
+        Result := True;
+        if Dialog is TzInspDialog then
+          TzInspDialog(Dialog).PropItem := PItem
+        else
+          case GetValueType(PItem) of
+            vtColor:
+              TColorDialog(Dialog).Color := TColor(PItem.Value.AsInteger);
+            vtFont:
+              TFontDialog(Dialog).Font := TFont(PItem.Value.AsObject);
+          else
+            Result := False;
+          end;
+      end;
+    dcBeforeDestroying:
+      Result := True;
+    dcShow:
+      if Dialog is TCommonDialog then
+         Result := TCommonDialog(Dialog).Execute
+      else if Dialog is TzInspDialog then
+        Result := TzInspDialog(Dialog).ShowModal = mrOK
+      else
+        Result := False;
+    dcFinished:
+      Result := True;
+  else
+    Result := False; // To avoid stupid warning
+  end;
 end;
 
 class function TzCustomValueManager.DialogResultValue(const PItem: PPropItem; Dialog: TComponent): TValue;

From 12688d2ae1c0856dc2cf6972aa46acb02f635f60 Mon Sep 17 00:00:00 2001
From: pyscripter <pyscripter@gmail.com>
Date: Thu, 9 Nov 2023 03:19:54 +0200
Subject: [PATCH 2/4] Added packages with LIBSUFFIX

---
 Packages/Delphi 10_4+/zControls.groupproj |  48 +++++++
 Packages/Delphi 10_4+/zControls_D.dpk     |  41 ++++++
 Packages/Delphi 10_4+/zControls_D.dproj   | 153 ++++++++++++++++++++
 Packages/Delphi 10_4+/zControls_D.res     | Bin 0 -> 96 bytes
 Packages/Delphi 10_4+/zControls_R.dpk     |  51 +++++++
 Packages/Delphi 10_4+/zControls_R.dproj   | 168 ++++++++++++++++++++++
 Packages/Delphi 10_4+/zControls_R.res     | Bin 0 -> 96 bytes
 7 files changed, 461 insertions(+)
 create mode 100644 Packages/Delphi 10_4+/zControls.groupproj
 create mode 100644 Packages/Delphi 10_4+/zControls_D.dpk
 create mode 100644 Packages/Delphi 10_4+/zControls_D.dproj
 create mode 100644 Packages/Delphi 10_4+/zControls_D.res
 create mode 100644 Packages/Delphi 10_4+/zControls_R.dpk
 create mode 100644 Packages/Delphi 10_4+/zControls_R.dproj
 create mode 100644 Packages/Delphi 10_4+/zControls_R.res

diff --git a/Packages/Delphi 10_4+/zControls.groupproj b/Packages/Delphi 10_4+/zControls.groupproj
new file mode 100644
index 0000000..c6c6ff0
--- /dev/null
+++ b/Packages/Delphi 10_4+/zControls.groupproj	
@@ -0,0 +1,48 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{164AB00E-993A-46B2-9519-5B76EDE39E45}</ProjectGuid>
+    </PropertyGroup>
+    <ItemGroup>
+        <Projects Include="zControls_R.dproj">
+            <Dependencies/>
+        </Projects>
+        <Projects Include="zControls_D.dproj">
+            <Dependencies/>
+        </Projects>
+    </ItemGroup>
+    <ProjectExtensions>
+        <Borland.Personality>Default.Personality.12</Borland.Personality>
+        <Borland.ProjectType/>
+        <BorlandProject>
+            <Default.Personality/>
+        </BorlandProject>
+    </ProjectExtensions>
+    <Target Name="zControls_R">
+        <MSBuild Projects="zControls_R.dproj"/>
+    </Target>
+    <Target Name="zControls_R:Clean">
+        <MSBuild Projects="zControls_R.dproj" Targets="Clean"/>
+    </Target>
+    <Target Name="zControls_R:Make">
+        <MSBuild Projects="zControls_R.dproj" Targets="Make"/>
+    </Target>
+    <Target Name="zControls_D">
+        <MSBuild Projects="zControls_D.dproj"/>
+    </Target>
+    <Target Name="zControls_D:Clean">
+        <MSBuild Projects="zControls_D.dproj" Targets="Clean"/>
+    </Target>
+    <Target Name="zControls_D:Make">
+        <MSBuild Projects="zControls_D.dproj" Targets="Make"/>
+    </Target>
+    <Target Name="Build">
+        <CallTarget Targets="zControls_R;zControls_D"/>
+    </Target>
+    <Target Name="Clean">
+        <CallTarget Targets="zControls_R:Clean;zControls_D:Clean"/>
+    </Target>
+    <Target Name="Make">
+        <CallTarget Targets="zControls_R:Make;zControls_D:Make"/>
+    </Target>
+    <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
+</Project>
diff --git a/Packages/Delphi 10_4+/zControls_D.dpk b/Packages/Delphi 10_4+/zControls_D.dpk
new file mode 100644
index 0000000..f08ed30
--- /dev/null
+++ b/Packages/Delphi 10_4+/zControls_D.dpk	
@@ -0,0 +1,41 @@
+package zControls_D;
+
+{$R *.res}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
+{$LIBSUFFIX AUTO}
+{$DESIGNONLY}
+{$IMPLICITBUILD ON}
+
+requires
+  rtl,
+  vcl,
+  zControls_R;
+
+contains
+  zControlsReg in '..\Source\zControlsReg.pas';
+
+end.
+
diff --git a/Packages/Delphi 10_4+/zControls_D.dproj b/Packages/Delphi 10_4+/zControls_D.dproj
new file mode 100644
index 0000000..b28effc
--- /dev/null
+++ b/Packages/Delphi 10_4+/zControls_D.dproj	
@@ -0,0 +1,153 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <Base>True</Base>
+        <AppType>Package</AppType>
+        <Config Condition="'$(Config)'==''">Debug</Config>
+        <FrameworkType>VCL</FrameworkType>
+        <MainSource>zControls_D.dpk</MainSource>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+        <ProjectGuid>{BF2C4A5F-B6E3-44DF-A9B7-957B4D8C2B75}</ProjectGuid>
+        <ProjectVersion>19.5</ProjectVersion>
+        <TargetedPlatforms>1</TargetedPlatforms>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+        <Base_Win32>true</Base_Win32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
+        <Cfg_1>true</Cfg_1>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
+        <Cfg_1_Win32>true</Cfg_1_Win32>
+        <CfgParent>Cfg_1</CfgParent>
+        <Cfg_1>true</Cfg_1>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
+        <Cfg_2>true</Cfg_2>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base)'!=''">
+        <SanitizedProjectName>zControls_D</SanitizedProjectName>
+        <DCC_CBuilderOutput>All</DCC_CBuilderOutput>
+        <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
+        <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
+        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
+        <DesignOnlyPackage>true</DesignOnlyPackage>
+        <DllSuffix>$(Auto)</DllSuffix>
+        <GenDll>true</GenDll>
+        <GenPackage>true</GenPackage>
+        <VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
+        <VerInfo_Locale>2057</VerInfo_Locale>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+        <DCC_UsePackage>rtl;vcl;zControls_R;$(DCC_UsePackage)</DCC_UsePackage>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1)'!=''">
+        <DCC_DebugDCUs>true</DCC_DebugDCUs>
+        <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
+        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+        <DCC_Optimize>false</DCC_Optimize>
+        <DCC_RemoteDebug>true</DCC_RemoteDebug>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
+        <DCC_CBuilderOutput>None</DCC_CBuilderOutput>
+        <DCC_RemoteDebug>false</DCC_RemoteDebug>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2)'!=''">
+        <DCC_DebugInformation>0</DCC_DebugInformation>
+        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    </PropertyGroup>
+    <ItemGroup>
+        <DelphiCompile Include="$(MainSource)">
+            <MainSource>MainSource</MainSource>
+        </DelphiCompile>
+        <DCCReference Include="rtl.dcp"/>
+        <DCCReference Include="vcl.dcp"/>
+        <DCCReference Include="zControls_R.dcp"/>
+        <DCCReference Include="..\Source\zControlsReg.pas"/>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Debug">
+            <Key>Cfg_1</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Release">
+            <Key>Cfg_2</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+    </ItemGroup>
+    <ProjectExtensions>
+        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+        <Borland.ProjectType>Package</Borland.ProjectType>
+        <BorlandProject>
+            <Delphi.Personality>
+                <Source>
+                    <Source Name="MainSource">zControls_D.dpk</Source>
+                </Source>
+                <Excluded_Packages/>
+                <VersionInfo>
+                    <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+                    <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+                    <VersionInfo Name="MajorVer">1</VersionInfo>
+                    <VersionInfo Name="MinorVer">0</VersionInfo>
+                    <VersionInfo Name="Release">0</VersionInfo>
+                    <VersionInfo Name="Build">0</VersionInfo>
+                    <VersionInfo Name="Debug">False</VersionInfo>
+                    <VersionInfo Name="PreRelease">False</VersionInfo>
+                    <VersionInfo Name="Special">False</VersionInfo>
+                    <VersionInfo Name="Private">False</VersionInfo>
+                    <VersionInfo Name="DLL">False</VersionInfo>
+                    <VersionInfo Name="Locale">5121</VersionInfo>
+                    <VersionInfo Name="CodePage">1256</VersionInfo>
+                </VersionInfo>
+                <VersionInfoKeys>
+                    <VersionInfoKeys Name="CompanyName"/>
+                    <VersionInfoKeys Name="FileDescription"/>
+                    <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+                    <VersionInfoKeys Name="InternalName"/>
+                    <VersionInfoKeys Name="LegalCopyright"/>
+                    <VersionInfoKeys Name="LegalTrademarks"/>
+                    <VersionInfoKeys Name="OriginalFilename"/>
+                    <VersionInfoKeys Name="ProductName"/>
+                    <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+                    <VersionInfoKeys Name="Comments"/>
+                    <VersionInfoKeys Name="CFBundleName"/>
+                    <VersionInfoKeys Name="CFBundleDisplayName"/>
+                    <VersionInfoKeys Name="UIDeviceFamily"/>
+                    <VersionInfoKeys Name="CFBundleIdentifier"/>
+                    <VersionInfoKeys Name="CFBundleVersion"/>
+                    <VersionInfoKeys Name="CFBundlePackageType"/>
+                    <VersionInfoKeys Name="CFBundleSignature"/>
+                    <VersionInfoKeys Name="CFBundleAllowMixedLocalizations"/>
+                    <VersionInfoKeys Name="UISupportedInterfaceOrientations"/>
+                    <VersionInfoKeys Name="CFBundleExecutable"/>
+                    <VersionInfoKeys Name="CFBundleResourceSpecification"/>
+                    <VersionInfoKeys Name="LSRequiresIPhoneOS"/>
+                    <VersionInfoKeys Name="CFBundleInfoDictionaryVersion"/>
+                    <VersionInfoKeys Name="CFBundleDevelopmentRegion"/>
+                </VersionInfoKeys>
+            </Delphi.Personality>
+            <Platforms>
+                <Platform value="Win32">True</Platform>
+                <Platform value="Win64">False</Platform>
+            </Platforms>
+        </BorlandProject>
+        <ProjectFileVersion>12</ProjectFileVersion>
+    </ProjectExtensions>
+    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
+    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
+</Project>
diff --git a/Packages/Delphi 10_4+/zControls_D.res b/Packages/Delphi 10_4+/zControls_D.res
new file mode 100644
index 0000000000000000000000000000000000000000..743599575b02e97248bade49ed2e3eabafe25a0a
GIT binary patch
literal 96
zcmZQzU|>)H;{X347|28cOhBFu5dZ(r#Sp;Y!{Epe!r;c>&k)4m3uHM0X?F%!AS)QE
O%YcEC1!e#vkO2UW7YiT&

literal 0
HcmV?d00001

diff --git a/Packages/Delphi 10_4+/zControls_R.dpk b/Packages/Delphi 10_4+/zControls_R.dpk
new file mode 100644
index 0000000..43ee4ee
--- /dev/null
+++ b/Packages/Delphi 10_4+/zControls_R.dpk	
@@ -0,0 +1,51 @@
+package zControls_R;
+
+{$R *.res}
+{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO OFF}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION OFF}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO ON}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES ON}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$DEFINE DEBUG}
+{$ENDIF IMPLICITBUILDING}
+{$LIBSUFFIX AUTO}
+{$RUNONLY}
+{$IMPLICITBUILD ON}
+
+requires
+  rtl,
+  vcl;
+
+contains
+  zBase in '..\..\Source\zBase.pas',
+  zCanvasStack in '..\..\Source\zCanvasStack.pas',
+  zGraphicDialog in '..\..\Source\zGraphicDialog.pas' {GraphicDialog},
+  zObjInspDialogs in '..\..\Source\zObjInspDialogs.pas',
+  zObjInspector in '..\..\Source\zObjInspector.pas',
+  zObjInspList in '..\..\Source\zObjInspList.pas',
+  zRecList in '..\..\Source\zRecList.pas',
+  zStringsDialog in '..\..\Source\zStringsDialog.pas' {StringsDialog},
+  zUtils in '..\..\Source\zUtils.pas',
+  FloatConv in '..\..\Source\FloatConv\FloatConv.pas',
+  FloatConv.Double in '..\..\Source\FloatConv\FloatConv.Double.pas',
+  FloatConv.Extended in '..\..\Source\FloatConv\FloatConv.Extended.pas',
+  FloatConv.Single in '..\..\Source\FloatConv\FloatConv.Single.pas';
+
+end.
diff --git a/Packages/Delphi 10_4+/zControls_R.dproj b/Packages/Delphi 10_4+/zControls_R.dproj
new file mode 100644
index 0000000..5097d7e
--- /dev/null
+++ b/Packages/Delphi 10_4+/zControls_R.dproj	
@@ -0,0 +1,168 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <Base>True</Base>
+        <AppType>Package</AppType>
+        <Config Condition="'$(Config)'==''">Debug</Config>
+        <FrameworkType>VCL</FrameworkType>
+        <MainSource>zControls_R.dpk</MainSource>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+        <ProjectGuid>{5FC6A95F-C14E-4F26-A168-6C62E8E5183C}</ProjectGuid>
+        <ProjectVersion>19.5</ProjectVersion>
+        <TargetedPlatforms>1</TargetedPlatforms>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+        <Base_Win32>true</Base_Win32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
+        <Cfg_1>true</Cfg_1>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
+        <Cfg_1_Win32>true</Cfg_1_Win32>
+        <CfgParent>Cfg_1</CfgParent>
+        <Cfg_1>true</Cfg_1>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
+        <Cfg_2>true</Cfg_2>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base)'!=''">
+        <SanitizedProjectName>zControls_R</SanitizedProjectName>
+        <DCC_CBuilderOutput>All</DCC_CBuilderOutput>
+        <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
+        <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
+        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
+        <DllSuffix>$(Auto)</DllSuffix>
+        <GenDll>true</GenDll>
+        <GenPackage>true</GenPackage>
+        <RuntimeOnlyPackage>true</RuntimeOnlyPackage>
+        <VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
+        <VerInfo_Locale>2057</VerInfo_Locale>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1)'!=''">
+        <DCC_DebugDCUs>true</DCC_DebugDCUs>
+        <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
+        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+        <DCC_Optimize>false</DCC_Optimize>
+        <DCC_RemoteDebug>true</DCC_RemoteDebug>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
+        <DCC_CBuilderOutput>None</DCC_CBuilderOutput>
+        <DCC_RemoteDebug>false</DCC_RemoteDebug>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2)'!=''">
+        <DCC_DebugInformation>0</DCC_DebugInformation>
+        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    </PropertyGroup>
+    <ItemGroup>
+        <DelphiCompile Include="$(MainSource)">
+            <MainSource>MainSource</MainSource>
+        </DelphiCompile>
+        <DCCReference Include="rtl.dcp"/>
+        <DCCReference Include="vcl.dcp"/>
+        <DCCReference Include="..\..\Source\zBase.pas"/>
+        <DCCReference Include="..\..\Source\zCanvasStack.pas"/>
+        <DCCReference Include="..\..\Source\zGraphicDialog.pas">
+            <Form>GraphicDialog</Form>
+        </DCCReference>
+        <DCCReference Include="..\..\Source\zObjInspDialogs.pas"/>
+        <DCCReference Include="..\..\Source\zObjInspector.pas"/>
+        <DCCReference Include="..\..\Source\zObjInspList.pas"/>
+        <DCCReference Include="..\..\Source\zRecList.pas"/>
+        <DCCReference Include="..\..\Source\zStringsDialog.pas">
+            <Form>StringsDialog</Form>
+        </DCCReference>
+        <DCCReference Include="..\..\Source\zUtils.pas"/>
+        <DCCReference Include="..\..\Source\FloatConv\FloatConv.pas"/>
+        <DCCReference Include="..\..\Source\FloatConv\FloatConv.Double.pas"/>
+        <DCCReference Include="..\..\Source\FloatConv\FloatConv.Extended.pas"/>
+        <DCCReference Include="..\..\Source\FloatConv\FloatConv.Single.pas"/>
+        <None Include="..\Source\FloatConv\FloatConv_impl.inc"/>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Debug">
+            <Key>Cfg_1</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Release">
+            <Key>Cfg_2</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+    </ItemGroup>
+    <ProjectExtensions>
+        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+        <Borland.ProjectType>Package</Borland.ProjectType>
+        <BorlandProject>
+            <Delphi.Personality>
+                <Source>
+                    <Source Name="MainSource">zControls_R.dpk</Source>
+                </Source>
+                <Excluded_Packages/>
+                <VersionInfo>
+                    <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+                    <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+                    <VersionInfo Name="MajorVer">1</VersionInfo>
+                    <VersionInfo Name="MinorVer">0</VersionInfo>
+                    <VersionInfo Name="Release">0</VersionInfo>
+                    <VersionInfo Name="Build">0</VersionInfo>
+                    <VersionInfo Name="Debug">False</VersionInfo>
+                    <VersionInfo Name="PreRelease">False</VersionInfo>
+                    <VersionInfo Name="Special">False</VersionInfo>
+                    <VersionInfo Name="Private">False</VersionInfo>
+                    <VersionInfo Name="DLL">False</VersionInfo>
+                    <VersionInfo Name="Locale">5121</VersionInfo>
+                    <VersionInfo Name="CodePage">1256</VersionInfo>
+                </VersionInfo>
+                <VersionInfoKeys>
+                    <VersionInfoKeys Name="CompanyName"/>
+                    <VersionInfoKeys Name="FileDescription"/>
+                    <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+                    <VersionInfoKeys Name="InternalName"/>
+                    <VersionInfoKeys Name="LegalCopyright"/>
+                    <VersionInfoKeys Name="LegalTrademarks"/>
+                    <VersionInfoKeys Name="OriginalFilename"/>
+                    <VersionInfoKeys Name="ProductName"/>
+                    <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+                    <VersionInfoKeys Name="Comments"/>
+                    <VersionInfoKeys Name="CFBundleName"/>
+                    <VersionInfoKeys Name="CFBundleDisplayName"/>
+                    <VersionInfoKeys Name="UIDeviceFamily"/>
+                    <VersionInfoKeys Name="CFBundleIdentifier"/>
+                    <VersionInfoKeys Name="CFBundleVersion"/>
+                    <VersionInfoKeys Name="CFBundlePackageType"/>
+                    <VersionInfoKeys Name="CFBundleSignature"/>
+                    <VersionInfoKeys Name="CFBundleAllowMixedLocalizations"/>
+                    <VersionInfoKeys Name="UISupportedInterfaceOrientations"/>
+                    <VersionInfoKeys Name="CFBundleExecutable"/>
+                    <VersionInfoKeys Name="CFBundleResourceSpecification"/>
+                    <VersionInfoKeys Name="LSRequiresIPhoneOS"/>
+                    <VersionInfoKeys Name="CFBundleInfoDictionaryVersion"/>
+                    <VersionInfoKeys Name="CFBundleDevelopmentRegion"/>
+                </VersionInfoKeys>
+            </Delphi.Personality>
+            <Platforms>
+                <Platform value="Win32">True</Platform>
+                <Platform value="Win64">False</Platform>
+            </Platforms>
+        </BorlandProject>
+        <ProjectFileVersion>12</ProjectFileVersion>
+    </ProjectExtensions>
+    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
+    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
+</Project>
diff --git a/Packages/Delphi 10_4+/zControls_R.res b/Packages/Delphi 10_4+/zControls_R.res
new file mode 100644
index 0000000000000000000000000000000000000000..743599575b02e97248bade49ed2e3eabafe25a0a
GIT binary patch
literal 96
zcmZQzU|>)H;{X347|28cOhBFu5dZ(r#Sp;Y!{Epe!r;c>&k)4m3uHM0X?F%!AS)QE
O%YcEC1!e#vkO2UW7YiT&

literal 0
HcmV?d00001


From 092e0acff02c0c083e4c943adc919abf6741702e Mon Sep 17 00:00:00 2001
From: pyscripter <pyscripter@gmail.com>
Date: Mon, 13 Nov 2023 02:21:39 +0200
Subject: [PATCH 3/4] Removed hints

---
 Source/zRecList.pas | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/Source/zRecList.pas b/Source/zRecList.pas
index 2e27710..1cc206d 100644
--- a/Source/zRecList.pas
+++ b/Source/zRecList.pas
@@ -111,8 +111,8 @@ destructor TzRecordList<T, P>.Destroy;
 end;
 
 function TzRecordList<T, P>.Add(const Rec: T): Integer;
-var
-  PRec: PByte;
+(* var
+  PRec: PByte; *)
 begin
   (* PRec := AllocMem(SizeOf(T));
     FList.Add(PRec);
@@ -149,7 +149,6 @@ function TzRecordList<T, P>.Delete(const Index: Integer): Boolean;
 var
   PRec: Pointer;
 begin
-  Result := False;
   if (Index > -1) and (Index < FCount) then
   begin
     PRec := FList.Items[Index];
@@ -206,7 +205,6 @@ procedure TzRecordList<T, P>.FreeRecord(PRec: Pointer);
 
 function TzRecordList<T, P>.Get(const Index: Integer): P;
 begin
-  Result := P(nil);
   if (Index > -1) and (Index < FCount) then
   begin
     Result := PointerToP(FList.Items[Index]);

From 3a6bd456a09eae2a9986cfef70dbed8e074d0154 Mon Sep 17 00:00:00 2001
From: pyscripter <pyscripter@gmail.com>
Date: Sun, 8 Sep 2024 14:19:22 +0300
Subject: [PATCH 4/4] Fix 10.4+ packages

---
 Packages/Delphi 10_4+/zControls_D.dpk | 3 ++-
 Packages/Delphi 10_4+/zControls_R.dpk | 1 +
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/Packages/Delphi 10_4+/zControls_D.dpk b/Packages/Delphi 10_4+/zControls_D.dpk
index f08ed30..ae57439 100644
--- a/Packages/Delphi 10_4+/zControls_D.dpk	
+++ b/Packages/Delphi 10_4+/zControls_D.dpk	
@@ -25,6 +25,7 @@ package zControls_D;
 {$IMAGEBASE $400000}
 {$DEFINE DEBUG}
 {$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'zControls'}
 {$LIBSUFFIX AUTO}
 {$DESIGNONLY}
 {$IMPLICITBUILD ON}
@@ -35,7 +36,7 @@ requires
   zControls_R;
 
 contains
-  zControlsReg in '..\Source\zControlsReg.pas';
+  zControlsReg in '..\..\Source\zControlsReg.pas';
 
 end.
 
diff --git a/Packages/Delphi 10_4+/zControls_R.dpk b/Packages/Delphi 10_4+/zControls_R.dpk
index 43ee4ee..c586889 100644
--- a/Packages/Delphi 10_4+/zControls_R.dpk	
+++ b/Packages/Delphi 10_4+/zControls_R.dpk	
@@ -25,6 +25,7 @@ package zControls_R;
 {$IMAGEBASE $400000}
 {$DEFINE DEBUG}
 {$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'zControls - Run-time Package'}
 {$LIBSUFFIX AUTO}
 {$RUNONLY}
 {$IMPLICITBUILD ON}