"X" Update, recreate project files and more...

Author: errorcalc

ChangeLog.txt

@@ -171,5 +171,14 @@ Support DoubleBufferedMode for Delphi 12.
 
 [09.12.2023]
 - Add lost  mouse wheel properties for controls
-- fix version const
-- refactor 
+- Fix version const
+- Refactor 
+
+[31.03.2024]
+- Recreate project files
+- Refactoring ES.BaseControls
+- Improved focus behavior for TEsImageControl, TEsVirtualImageControl and TEsPaintBox. 
+Now, activate AllowFocus property makes TEsImageControl and TEsVirtualImageControl as full focus supported controls!
+(See Image Demo)
+- Improved keyboard support for TEsPaintBox.
+- Add lost published props

EsCore.dpk

@@ -25,7 +25,7 @@ package EsCore;
 {$IMAGEBASE $400000}
 {$DEFINE DEBUG}
 {$ENDIF IMPLICITBUILDING}
-{$DESCRIPTION 'errorsoft library core'}
+{$DESCRIPTION 'Errorsoft EsCore'}
 {$RUNONLY}
 {$IMPLICITBUILD ON}
 

EsCore.dproj

@@ -1,11 +1,5 @@
 package EsVclComponents;
 
-// For Sydney support
-{$IF Defined(VER210) or Defined(VER220) or Defined(VER230) or Defined(VER240) or
-  Defined(VER250) or Defined(VER260) or Defined(VER270) or Defined(VER280) or
-  Defined(VER290) or Defined(VER300) or Defined(VER310) or Defined(VER320) or
-  Defined(VER330)}{$DEFINE VCLWINX_NO_NEEDED}{$IFEND}
-
 {$R *.res}
 {$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
 {$ALIGN 8}
@@ -31,19 +25,19 @@ package EsVclComponents;
 {$IMAGEBASE $400000}
 {$DEFINE DEBUG}
 {$ENDIF IMPLICITBUILDING}
-{$DESCRIPTION 'errorsoft free vcl components'}
+{$DESCRIPTION 'Errorsoft EsVclComponents'}
 {$RUNONLY}
 {$IMPLICITBUILD ON}
 
 requires
   rtl,
-  vclimg,
-  vcl,
-  {$IFNDEF VCLWINX_NO_NEEDED}vclwinx,{$ENDIF}
   EsVclCore,
-  EsCore;
+  EsCore,
+  vclwinx,
+  vclimg;
 
 contains
+  ES.ControlListControls in 'Source\ES.ControlListControls.pas',
   ES.Hints in 'Source\ES.Hints.pas',
   ES.Images in 'Source\ES.Images.pas',
   ES.Indicators in 'Source\ES.Indicators.pas',
@@ -53,7 +47,6 @@ contains
   ES.PaintBox in 'Source\ES.PaintBox.pas',
   ES.RegExControls in 'Source\ES.RegExControls.pas',
   ES.Shapes in 'Source\ES.Shapes.pas',
-  ES.Switch in 'Source\ES.Switch.pas',
-  ES.ControlListControls in 'Source\ES.ControlListControls.pas';
+  ES.Switch in 'Source\ES.Switch.pas';
 
 end.

EsVclComponents.dpk

@@ -25,12 +25,14 @@ package EsVclComponentsDesign;
 {$IMAGEBASE $400000}
 {$DEFINE DEBUG}
 {$ENDIF IMPLICITBUILDING}
-{$DESCRIPTION 'errorsoft free vcl library designtime'}
+{$DESCRIPTION 'Errorsoft EsVclComponentsDesign'}
 {$DESIGNONLY}
 {$IMPLICITBUILD ON}
 
 requires
   rtl,
+  EsCore,
+  EsVclCore,
   EsVclComponents,
   designide;
 

EsVclComponents.dproj

@@ -25,23 +25,25 @@ package EsVclCore;
 {$IMAGEBASE $400000}
 {$DEFINE DEBUG}
 {$ENDIF IMPLICITBUILDING}
-{$DESCRIPTION 'errorsoft vcl library core'}
+{$DESCRIPTION 'Errorsoft EsVclCore'}
 {$RUNONLY}
 {$IMPLICITBUILD ON}
 
 requires
   rtl,
+  EsCore,
   vclimg,
   vcl;
 
 contains
   ES.BaseControls in 'Source\ES.BaseControls.pas',
+  ES.BitmapPixels in 'Source\ES.BitmapPixels.pas',
   ES.CfxClasses in 'Source\ES.CfxClasses.pas',
   ES.ExGdiPlus in 'Source\ES.ExGdiPlus.pas',
   ES.ExGraphics in 'Source\ES.ExGraphics.pas',
   ES.StyleHooks in 'Source\ES.StyleHooks.pas',
   ES.Utils in 'Source\ES.Utils.pas',
-  ES.VclFix in 'Source\ES.VclFix.pas',
-  ES.BitmapPixels in 'Source\ES.BitmapPixels.pas';
+  ES.VclFix in 'Source\ES.VclFix.pas';
 
 end.
+

EsVclComponentsDesign.dpk

@@ -1 +1,36 @@
-PackagesGenerator -config PackagesGenerator.ini -hide -skip
+PackagesGenerator -config PackagesGenerator.ini -hide -skip
+
+rem fix vclwinx package requires (need before Sydney)
+set package=XE2
+call :vclwinx_fix
+set package=XE3
+call :vclwinx_fix
+set package=XE4
+call :vclwinx_fix
+set package=XE5
+call :vclwinx_fix
+set package=XE6
+call :vclwinx_fix
+set package=XE7
+call :vclwinx_fix
+set package=XE8
+call :vclwinx_fix
+set package=RX10Seattle
+call :vclwinx_fix
+set package=RX10Berlin
+call :vclwinx_fix
+set package=RX10Tokyo
+call :vclwinx_fix
+set package=RX10Rio
+call :vclwinx_fix
+
+goto :end
+
+:vclwinx_fix
+rem set %package% var!
+type %package%\EsVclComponents.dpk | findstr /v vclwinx > %package%\temp.dpk
+del %package%\EsVclComponents.dpk
+rename %package%\temp.dpk EsVclComponents.dpk
+exit /b
+
+:end