ver. 2.2.1

- Added File Changed notification and reload
- Fixed Preview for Chinese chars
- Added use of StyledComponents and Rounded Buttons
- Built with Delphi 12.1
- Built with Latest Image32 Library
- Built with Latest Skia4Delphi 6.1 Library

ver. 2.2.0
- Fixed resize content when changing Monitor
- Updated to latest version of HTMLViewer

Ext/HTMLViewer/Source/BegaHtmlPrintPreviewForm.pas

@@ -1,5 +1,5 @@
 {-------------------------------------------------------------------------------
-Copyright (C) 2006-2012 by Bernd Gabriel.
+Copyright (C) 2006-2023 by Bernd Gabriel.
 
 Permission is hereby granted, free of charge, to any person obtaining a copy of
 this software and associated documentation files (the "Software"), to deal in
@@ -47,14 +47,14 @@   TBegaHtmlPrintPreviewForm = class(TBegaCustomPrintPreviewForm)
   private
     FFrameViewer: TFVBase; // TFrameViewer or TFrameBrowser
     FHtmlViewer: THtmlViewer;
-    function canPrint: Boolean;
+    function CanPrint: Boolean;
     function CurrentViewer: THtmlViewer;
     function PreviewGetSize(Sender: TObject; MFPrinter: TBegaMetaFilePrinter; out Width, Height: Integer): Boolean;
     procedure PreviewCreatePages(Sender: TObject; MFPrinter: TBegaMetaFilePrinter; var Done: Boolean);
     procedure PreviewPrintPages(Sender: TObject; MFPrinter: TBegaMetaFilePrinter; FirstPage, LastPage, Copies: Integer);
-    procedure setFrameViewer(const Value: TFVBase);
-    procedure setHtmlViewer(const Value: THtmlViewer);
-    procedure updateEvents;
+    procedure SetFrameViewer(const Value: TFVBase);
+    procedure SetHtmlViewer(const Value: THtmlViewer);
+    procedure UpdateEvents;
   public
     property FrameViewer: TFVBase read FFrameViewer write setFrameViewer;
     property HtmlViewer: THtmlViewer read FHtmlViewer write setHtmlViewer;
@@ -158,26 +158,26 @@ procedure TBegaHtmlPrintPreviewForm.PreviewPrintPages(Sender: TObject;
 end;
 
 //- BG ----------------------------------------------------------- 26.03.2007 --
-procedure TBegaHtmlPrintPreviewForm.setFrameViewer(const Value: TFVBase);
+procedure TBegaHtmlPrintPreviewForm.SetFrameViewer(const Value: TFVBase);
 begin
   FFrameViewer := Value;
   FHtmlViewer := nil;
-  updateEvents;
+  UpdateEvents;
   Preview.createPages;
 end;
 
 //- BG ----------------------------------------------------------- 26.03.2007 --
-procedure TBegaHtmlPrintPreviewForm.setHtmlViewer(
+procedure TBegaHtmlPrintPreviewForm.SetHtmlViewer(
   const Value: THtmlViewer);
 begin
   FFrameViewer := nil;
   FHtmlViewer := Value;
-  updateEvents;
+  UpdateEvents;
   Preview.createPages;
 end;
 
 //- BG ----------------------------------------------------------- 27.03.2007 --
-procedure TBegaHtmlPrintPreviewForm.updateEvents;
+procedure TBegaHtmlPrintPreviewForm.UpdateEvents;
 begin
   if CurrentViewer <> nil then
   begin