15 Sep 2024: ver. 2.3.1

- Built with Delphi 12.2

Docs/MarkDown Support Test.md

@@ -0,0 +1,50 @@
+Markdown support test
+=====================
+
+![Markdown logo](markdownlogo.png)
+
+This page is a small demonstration of Markdown support.
+
+From [CommonMark]:
+>Markdown is a plain text format for writing structured documents,
+>based on conventions for indicating formatting in email and Usenet posts.
+>It was developed by John Gruber (with help from Aaron Swartz)
+>and released in 2004 in the form of a syntax description and a
+>Perl script (Markdown.pl) for converting Markdown to HTML.
+>In the next decade, dozens of implementations were developed in many languages. 
+
+[CommonMark]:http://spec.commonmark.org/0.28/
+
+*Italic* or _Italic_  
+**Bold** or __Bold__  
+
+`<Code SPAN>`  
+~~Strike~~  
+++Ins++  
+Subscript <sub>text</sub>
+
+Superscript <sup>text</sup>
+
+==Mark==  
+
+Tables
+------
+| First Header | Second Header | Third Header |
+| :----------- | :-----------: | -----------: |
+| Left         |    Center     |        Right |
+| Second row   |  **strong**   |     *italic* |
+
+Formulas
+--------
+It is possible to use the [Google Chart API] using `TeX` language,
+but the translated formula can only to be seen using a browser,
+for insert a formula using `TeX` enclose the code between `$`
+without `spaces`: 
+
+Quadratic formula          |Zeta formula
+---------------------------|-----------------------------
+$x=\frac{-b\pm\sqrt{b^2-4ac}}{2a}$ | $\zeta(s)=\sum_{n=1}^\infty\frac{1}{n^s}$
+
+[Google Chart API]:https://developers.google.com/chart/infographics/docs/formulas
+
+

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)
@@ -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;
@@ -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}