28 Febbraio 2025 - Versione 2.4.0

- Aggiunta opzione "A capo automatico" per l'editor (attiva di default)
- Aggiornato componente "Editor"

Ext/HTMLViewer/Source/HTMLSubs.pas

@@ -176,15 +176,15 @@   TFontObj = class(TFontObjBase) {font information}
   // BG, 10.02.2013: owns its objects.
   TFontList = class(TFontObjBaseList) {a list of TFontObj's}
   private
-    function GetFont(Index: Integer): TFontObj; {$ifdef UseInline} inline; {$endif}
+    function GetFont(Index: TListSize): TFontObj; {$ifdef UseInline} inline; {$endif}
   public
     constructor CreateCopy(ASection: TSection; T: TFontList);
     function GetFontAt(Posn: Integer; out OHang: Integer): ThtFont;
 //    function GetFontCountAt(Posn, Leng: Integer): Integer;
     function GetFontObjAt(Posn: Integer): TFontObj; overload;
     function GetFontObjAt(Posn, Leng: Integer; out Obj: TFontObj): Integer; overload;
     procedure Decrement(N: Integer; Document: ThtDocument);
-    property Items[Index: Integer]: TFontObj read GetFont; default;
+    property Items[Index: TListSize]: TFontObj read GetFont; default;
   end;
 
   // BG, 10.02.2013: does not own its font objects.
@@ -1093,11 +1093,11 @@   TFormControlObj = class(TFloatingObj)
   //BG, 15.01.2011:
   TFormControlObjList = class(TFloatingObjList)
   private
-    function GetItem(Index: Integer): TFormControlObj; {$ifdef UseInline} inline; {$endif}
+    function GetItem(Index: TListSize): TFormControlObj; {$ifdef UseInline} inline; {$endif}
   public
     procedure ActivateTabbing;
     procedure DeactivateTabbing;
-    property Items[Index: Integer]: TFormControlObj read GetItem; default;
+    property Items[Index: TListSize]: TFormControlObj read GetItem; default;
   end;
 
   TImageFormControlObj = class(TFormControlObj)
@@ -1749,7 +1749,7 @@   ThtDocument = class(TCell) {a list of all the sections -- the html document}
     function GetURL(Canvas: TCanvas; X, Y: Integer; out UrlTarg: TUrlTarget; out FormControl: TIDObject {TImageFormControlObj}; out ATitle: ThtString): ThtguResultType; override;
     procedure CancelActives;
     procedure CheckGIFList(Sender: TObject);
-    procedure Clear; virtual;
+    procedure Clear; {$ifndef Compiler34_Plus}override;{$endif}
     procedure ClearLists;
     procedure GetBackgroundImage;
     procedure HideControls;
@@ -2696,7 +2696,7 @@ constructor TFontList.CreateCopy(ASection: TSection; T: TFontList);
 end;
 
 //-- BG ---------------------------------------------------------- 10.02.2013 --
-function TFontList.GetFont(Index: Integer): TFontObj;
+function TFontList.GetFont(Index: TListSize): TFontObj;
 begin
   Result := TFontObj(inherited Items[Index]);
 end;
@@ -13411,7 +13411,7 @@ function TSection.Draw1(Canvas: TCanvas; const ARect: TRect;
     NewCP := True;
     CPy := Y + LR.DrawY;  //Todo: Someone needs to find a sensible default value.
     CPx := X + LR.LineIndent;
-    {$IFNDEF Compiler32_Plus}CP1x := CPx;{$ENDIF}
+    {$IFNDEF Compiler31_Plus}CP1x := CPx;{$ENDIF}
     LR.DrawY := Y - LR.LineHt;
     LR.DrawXX := CPx;
     AdjustDrawRect( LR.DrawY, LR.DrawXX, LR.DrawWidth, LR.LineHt ); //>-- DZ 19.09.2012
@@ -15593,7 +15593,7 @@ procedure TFormControlObjList.DeactivateTabbing;
 end;
 
 //-- BG ---------------------------------------------------------- 15.01.2011 --
-function TFormControlObjList.GetItem(Index: Integer): TFormControlObj;
+function TFormControlObjList.GetItem(Index: TListSize): TFormControlObj;
 begin
 {$ifdef UseGenerics}
   Result := inherited Items[Index] as TFormControlObj;

Ext/HTMLViewer/Source/HTMLUn2.pas

@@ -276,9 +276,9 @@   TIndentRec = class
 
   TIndentRecList = class(TObjectList)
   private
-    function Get(Index: Integer): TIndentRec; {$ifdef UseInline} inline; {$endif}
+    function Get(Index: TListSize): TIndentRec; {$ifdef UseInline} inline; {$endif}
   public
-    property Items[Index: Integer]: TIndentRec read Get; default;
+    property Items[Index: TListSize]: TIndentRec read Get; default;
   end;
 
   TIndentManager = class
@@ -3779,7 +3779,7 @@ procedure ThvMeter.SetHighColor(const value: TColor);
 { TIndentRecList }
 
 //-- BG ---------------------------------------------------------- 06.10.2016 --
-function TIndentRecList.Get(Index: Integer): TIndentRec;
+function TIndentRecList.Get(Index: TListSize): TIndentRec;
 begin
   Result := inherited Get(Index);
 end;

Ext/HTMLViewer/Source/HtmlBuffer.pas

@@ -199,15 +199,15 @@   TBuffConvInfo = class
   TBuffConvInfoList = class(TList)
   private
     FSorted: Boolean;
-    function GetItem(Index: Integer): TBuffConvInfo;
+    function GetItem(Index: TListSize): TBuffConvInfo;
   protected
     procedure Notify(Ptr: Pointer; Action: TListNotification); override;
   public
     constructor Create;
     procedure Add(Item: TBuffConvInfo);
     function Find(CodePage: TBuffCodePage): Integer;
     procedure Sort;
-    property Items[Index: Integer]: TBuffConvInfo read GetItem; default;
+    property Items[Index: TListSize]: TBuffConvInfo read GetItem; default;
     property Sorted: Boolean read FSorted;
   end;
 
@@ -640,7 +640,7 @@ function TBuffConvInfoList.Find(CodePage: TBuffCodePage): Integer;
 end;
 
 //-- BG ---------------------------------------------------------- 12.10.2012 --
-function TBuffConvInfoList.GetItem(Index: Integer): TBuffConvInfo;
+function TBuffConvInfoList.GetItem(Index: TListSize): TBuffConvInfo;
 begin
   Result := Get(Index);
 end;

Ext/HTMLViewer/Source/HtmlGlobals.pas

@@ -116,6 +116,8 @@ interface
 
 
 type
+{$IF (CompilerVersion >= 36)}TListSize = NativeInt;{$ELSE}TListSize = Integer;{$IFEND}
+
 {$IFNDEF DOTNET}
   {$IFNDEF FPC}
     {$ifndef PtrInt_defined}

Ext/HTMLViewer/Source/framview.pas

@@ -378,7 +378,7 @@   TFrameBase = class(THtmlFrameBase) {base class for other classes}
     UnLoaded: Boolean;
     LocalCharSet: TFontCharset;
     LocalCodePage: TBuffCodePage;
-    function GetPixelsPerInch: Integer; override;
+    function GetPixelsPerInch: Integer; {$ifdef Compiler35_Plus}override;{$endif}
     procedure SetQuirksMode(const AValue: THtQuirksMode); virtual;
     procedure FVMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); virtual; abstract;
     procedure FVMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); virtual; abstract;

Ext/HTMLViewer/Source/htmlcons.inc

@@ -58,6 +58,7 @@ are covered by separate copyright notices located in those modules.
 { Identify Delphi Compiler Version:
 
   #   Compiler      Version Compiler Defined Symbol Codename
+  D29 Delphi 12       36    VER360                  Athens
   D28 Delphi 11       35    VER350                  Alexandria
   D27 Delphi 10.4     34    VER340                  Sydney
   D26 Delphi 10.3     33    VER330                  Rio
@@ -173,6 +174,10 @@ are covered by separate copyright notices located in those modules.
                                               {$define Compiler35_Plus}
                                               {$ifdef ver350}
                                               {$else}
+                                                {$define Compiler36_Plus}
+                                                {$ifdef ver360}
+                                                {$else}
+                                                {$endif}
                                               {$endif}
                                             {$endif}
                                           {$endif}

Ext/HTMLViewer/Source/htmlview.pas

@@ -5075,7 +5075,7 @@ function THtmlViewer.GetSelHtml: UTF8String;
       LTML: ThtString;
       C: ThtChar;
     begin
-      {$IFNDEF Compiler32_Plus}C := #0;{$ENDIF} // valium for Delphi 2009+
+      {$IFNDEF Compiler31_Plus}C := #0;{$ENDIF} // valium for Delphi 2009+
       LTML := htLowerCase(HTML);
       repeat
         I := Pos(Tag, LTML);

Ext/SVGIconImageList/Image32/ChangeLog.txt

@@ -1,17 +1,33 @@
 
-Image32 - 2D graphics library for Delphi Pascal
-Latest version: 4.3
-Released: 27 September 2022
-
-Copyright © 2019-2022 Angus Johnson
+Image32 - a 2D graphics library for Delphi Pascal
+Latest version: 4.8
+Released: 18 January 2024
+Copyright © 2019-2025 Angus Johnson
 Freeware released under Boost Software License
 https://www.boost.org/LICENSE_1_0.txt
 
-Documentation : http://www.angusj.com/delphi/image32/Docs/
-Download      : https://sourceforge.net/projects/image32/files/
+Documentation : https://www.angusj.com/image32/Docs/Overview.htm
+Download      : https://github.com/AngusJohnson/Image32
 
 Recent changes:
 
+Version 4.8 
+* This version contains further improvements in text rendering.
+  CAUTION: Some function and method renaming too in Img32.Text.pas.
+* Minor bug fixes too (issues #128..#130 in the GitHub repository).
+
+Version 4.7 
+* There have been significant improvements in SVG file reading
+* There have also been significant improvements in managing text rendering.
+  These include a new TChunkedText class and changes in the TFontManager class.
+* Andreas Hausladen has continued to contribute changes that improve performance.
+* Additional bug fixes (see issues #102..#125 in the GitHub repository).
+Version 4.6 
+* This release contains many bug fixes (see issues #10..#101) in the 
+GitHub repository.
+* Andreas Hausladen has also made multiple contributions to
+the library that that have very significantly improved its performance.
+
 Version 4.3 
   Numerous minor bugfixes
 

Ext/SVGIconImageList/Image32/Readme.md

@@ -13,7 +13,7 @@ Image32 is a comprehensive 2D graphics library written entirely in Delphi Pascal
 
 Extensive documentation can be found [**here**](http://www.angusj.com/image32/Docs/_Body.htm).
 
-### Images from demo sample applications
+### Images & videos from demo sample applications
 
 ![Layers201](https://user-images.githubusercontent.com/5280692/170442888-f64c2a1b-c99d-46fa-8e76-210706b484b0.png)<br>
 <a href="http://www.angusj.com/image32/Videos/layers201.mp4" target="_blank"><b>Layers201 video</b></a><br>
@@ -24,6 +24,10 @@ Extensive documentation can be found [**here**](http://www.angusj.com/image32/Do
 ![svg1](https://user-images.githubusercontent.com/5280692/170443316-f5c88659-c0cd-4e68-8933-ddcfd2aa4b8a.png)<br>
 <a href="http://www.angusj.com/image32/Videos/svg101.mp4" target="_blank"><b>SVG101 video</b></a><br>
 
+![image32_text](https://github.com/user-attachments/assets/b37c5590-ea5d-49ec-b13c-6053986b181d)<br>
+
 ![Vectorize](https://user-images.githubusercontent.com/5280692/180627317-5a10f862-6070-4753-ac3d-c714dfa4dc8f.png)<br>
 <a href="http://www.angusj.com/image32/Videos/vectorize.mp4" target="_blank"><b>Vectorize video</b></a><br>
 
+![drawing](https://github.com/user-attachments/assets/7682e9bf-bbc6-4ad0-8988-b5bf9eb982ab)<br>
+<a href="http://www.angusj.com/image32/Videos/drawing.mp4" target="_blank"><b>Drawing video</b></a><br>