ver. 2.0.0

- Added use of Skia4Delphi
- Added support for new image format (webp and wbmp)
- Uses AnimatedStyledDialogs for messages
- Added toolbar for markdown commands
- Added dialog for input of hyperlink for Images and Files
- Updated Markdown library with best support for CommonMark transformation
  - Subscript text and Superscript text
  - Formulas (using Google Chart API)
  - Markers
  - Reference-style Links

Author: carloBarazzetta

Ext/External Projects.md

@@ -1,21 +1,25 @@
-# External projects
+# External projects
 
 ***This project uses some External Projects, located into Ext Path***
 
-- [SVGIconImageList][1]
+- [Ethea SVGIconImageList][1]
 
-- [Synedit][2]
+- [Ethea MarkdownProcessor][2]
 
-- [VCL-Style-Utils][3]
+- [Synedit][3]
 
-- [delphi-markdown][4]
+- [VCL-Style-Utils][4]
 
-  ***Per comodità di ricompilazione sono stati aggiunti in questa cartella***
+- [dzlib][5]
+
+***For simplify compilation they are added to this folder***
 
 [1]: https://github.com/EtheaDev/SVGIconImageList
 
-[2]: https://github.com/SynEdit/SynEdit
+[2]: https://github.com/EtheaDev/MarkdownProcessor
+
+[3]: https://github.com/SynEdit/SynEdit
 
-[3]: https://github.com/RRUZ/vcl-styles-utils
+[4]: https://github.com/RRUZ/vcl-styles-utils
 
-[4]: https://github.com/grahamegrieve/delphi-markdown
+[5]: https://sourceforge.net/projects/dzlib/

Ext/HTMLViewer/Source/HTMLSubs.pas

@@ -172,15 +172,23 @@   TFontObj = class(TFontObjBase) {font information}
   // BG, 10.02.2013: owns its objects.
   TFontList = class(TFontObjBaseList) {a list of TFontObj's}
   private
+    {$if compilerversion > 35}
+    function GetFont(Index: NativeInt): TFontObj; {$ifdef UseInline} inline; {$endif}
+    {$else}
     function GetFont(Index: Integer): TFontObj; {$ifdef UseInline} inline; {$endif}
+    {$ifend}
   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);
+    {$if compilerversion > 35}
+    property Items[Index: NativeInt]: TFontObj read GetFont; default;
+    {$else}
     property Items[Index: Integer]: TFontObj read GetFont; default;
+    {$ifend}
   end;
 
   // BG, 10.02.2013: does not own its font objects.
@@ -2605,7 +2613,11 @@ constructor TFontList.CreateCopy(ASection: TSection; T: TFontList);
 end;
 
 //-- BG ---------------------------------------------------------- 10.02.2013 --
+{$if compilerversion > 35}
+function TFontList.GetFont(Index: NativeInt): TFontObj;
+{$else}
 function TFontList.GetFont(Index: Integer): TFontObj;
+{$ifend}
 begin
   Result := inherited Get(Index);
 end;

Ext/HTMLViewer/Source/HTMLUn2.pas

@@ -227,9 +227,17 @@   TFontObjBase = class {font information}
 
   TFontObjBaseList = class(TObjectList)
   private
+    {$if compilerversion > 35}
+    function GetBase(Index: NativeInt): TFontObjBase; {$ifdef UseInline} inline; {$endif}
+    {$else}
     function GetBase(Index: Integer): TFontObjBase; {$ifdef UseInline} inline; {$endif}
+    {$ifend}
   public
+    {$if compilerversion > 35}
+    property Items[Index: NativeInt]: TFontObjBase read GetBase; default;
+    {$else}
     property Items[Index: Integer]: TFontObjBase read GetBase; default;
+    {$ifend}
   end;
 
 //------------------------------------------------------------------------------
@@ -3594,7 +3602,11 @@ function ThtMap.Get(Index: Integer): TMapItem;
 { TFontObjBaseList }
 
 //-- BG ---------------------------------------------------------- 06.10.2016 --
+{$if compilerversion > 35}
+function TFontObjBaseList.GetBase(Index: NativeInt): TFontObjBase;
+{$else}
 function TFontObjBaseList.GetBase(Index: Integer): TFontObjBase;
+{$ifend}
 begin
   Result := inherited Get(Index);
 end;

Ext/HTMLViewer/Source/htmlcons.inc

@@ -55,6 +55,9 @@ are covered by separate copyright notices located in those modules.
 { Identify Delphi Compiler Version:
 
   #   Compiler          Version Compiler Defined Symbol
+  D29 Delphi 12.0         36    VER360
+  D28 Delphi 11.3         35    VER350
+  D27 Delphi 10.4         34    VER340
   D26 Delphi 10.3 Rio     33    VER330
   D25 Delphi 10.2 Tokyo   32    VER320
   D24 Delphi 10.1 Berlin  31    VER310

Ext/MarkdownProcessor/source/MarkdownCommonMark.pas

@@ -0,0 +1,94 @@
+{******************************************************************************}
+{                                                                              }
+{       MarkDown Processor                                                     }
+{       Delphi version of FPC-markdown by Miguel A. Risco-Castillo             }
+{                                                                              }
+{       Copyright (c) 2022-2023 (Ethea S.r.l.)                                 }
+{       Author: Carlo Barazzetta                                               }
+{                                                                              }
+{       https://github.com/EtheaDev/MarkdownProcessor                          }
+{                                                                              }
+{******************************************************************************}
+{                                                                              }
+{  Licensed under the Apache License, Version 2.0 (the "License");             }
+{  you may not use this file except in compliance with the License.            }
+{  You may obtain a copy of the License at                                     }
+{                                                                              }
+{      http://www.apache.org/licenses/LICENSE-2.0                              }
+{                                                                              }
+{  Unless required by applicable law or agreed to in writing, software         }
+{  distributed under the License is distributed on an "AS IS" BASIS,           }
+{  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.    }
+{  See the License for the specific language governing permissions and         }
+{  limitations under the License.                                              }
+{                                                                              }
+{******************************************************************************}
+Unit MarkdownCommonMark;
+
+{
+Copyright (c) 2011+, Health Intersections Pty Ltd (http://www.healthintersections.com.au)
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without modification,
+are permitted provided that the following conditions are met:
+
+ * Redistributions of source code must retain the above copyright notice, this
+   list of conditions and the following disclaimer.
+ * Redistributions in binary form must reproduce the above copyright notice,
+   this list of conditions and the following disclaimer in the documentation
+   and/or other materials provided with the distribution.
+ * Neither the name of HL7 nor the names of its contributors may be used to
+   endorse or promote products derived from this software without specific
+   prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 'AS IS' AND
+ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
+INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGE.
+}
+interface
+
+uses
+  SysUtils, Classes, TypInfo,
+  MarkdownProcessor, MarkdownDaringFireball, MarkdownUtils;
+
+Type
+
+  TMarkdownCommonMark = class(TMarkdownDaringFireball)
+  private
+  protected
+  public
+    Constructor Create;
+    Destructor Destroy; override;
+    function process(source: String): String; override;
+  end;
+
+implementation
+
+
+{ TMarkdownCommonMark }
+
+constructor TMarkdownCommonMark.Create;
+begin
+  inherited;
+  Config.Dialect:=mdCommonMark;
+end;
+
+destructor TMarkdownCommonMark.Destroy;
+begin
+  inherited;
+end;
+
+function TMarkdownCommonMark.process(source: String): String;
+begin
+  result:=inherited process(source);
+end;
+
+
+end.