ver. 2.3.0

- Use of TFormTabsBar component (Delphi 12) for paging
- Use of Styled Message Dialogs
- Updated Setup to show errors registering dlls

Ext/HTMLViewer/Source/HTMLSubs.pas

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

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