- Autoload local markdown files when clicked into Preview

- The editor can open all markdown extensions: .md, .mkd, .mdwn, .mdown, .mdtxt, .mdtext, .markdown, .txt, .text'
- Stopped image rendering during editing to speed-up
- Added useful close button on Tabs
- Hint full filename on Tabs
- Save/Discard messaged default response inverted
- Removed Settings "Search In Folder"

Author: carloBarazzetta

Ext/HTMLViewer/Source/BegaHtmlPrintPreviewForm.pas

@@ -24,14 +24,16 @@
 {$include htmlcons.inc}
 
 interface
+{$ifndef NoFlatScrollbars}
+{$ifndef NoMetaFile}
 
 uses
 {$ifdef LCL}
   LclIntf, LclType, PrintersDlgs,
 {$else}
   Windows,
 {$endif}
-  Graphics, Controls, Forms, Types, Printers, //Math,
+  Controls, Forms, Types, Printers, //Math,
   // shared units
   HtmlView,
   FramView,
@@ -58,7 +60,11 @@   TBegaHtmlPrintPreviewForm = class(TBegaCustomPrintPreviewForm)
     property HtmlViewer: THtmlViewer read FHtmlViewer write setHtmlViewer;
   end;
 
+{$endif NoMetaFile}
+{$endif NoFlatScrollbars}
 implementation
+{$ifndef NoFlatScrollbars}
+{$ifndef NoMetaFile}
 
 //- BG ----------------------------------------------------------- 26.03.2007 --
 function TBegaHtmlPrintPreviewForm.canPrint: Boolean;
@@ -79,8 +85,6 @@ function TBegaHtmlPrintPreviewForm.CurrentViewer: THtmlViewer;
 
 //- BG ----------------------------------------------------------- 26.03.2007 --
 procedure TBegaHtmlPrintPreviewForm.PreviewCreatePages(Sender: TObject; MFPrinter: TBegaMetaFilePrinter; var Done: Boolean);
-const
-  PrintMarginFactor = 10.0;
 var
   OldCursor: TCursor;
   Viewer: THtmlViewer;
@@ -92,10 +96,10 @@ procedure TBegaHtmlPrintPreviewForm.PreviewCreatePages(Sender: TObject; MFPrinte
     Screen.Cursor := crHourGlass;
     try
       MFPrinter.PrintMargins := Rect(
-        round(Viewer.PrintMarginLeft   * PrintMarginFactor),
-        round(Viewer.PrintMarginTop    * PrintMarginFactor),
-        round(Viewer.PrintMarginRight  * PrintMarginFactor),
-        round(Viewer.PrintMarginBottom * PrintMarginFactor));
+        round(Viewer.PrintMarginLeft   * 10.0),
+        round(Viewer.PrintMarginTop    * 10.0),
+        round(Viewer.PrintMarginRight  * 10.0),
+        round(Viewer.PrintMarginBottom * 10.0));
       Viewer.PrintScale := 1.0 / MFPrinter.PrintScale;
       Viewer.PrintPreview(MFPrinter);
       Done := True;
@@ -107,8 +111,6 @@ procedure TBegaHtmlPrintPreviewForm.PreviewCreatePages(Sender: TObject; MFPrinte
 
 //- BG ----------------------------------------------------------- 14.03.2006 --
 function TBegaHtmlPrintPreviewForm.PreviewGetSize(Sender: TObject; MFPrinter: TBegaMetaFilePrinter; out Width, Height: Integer): Boolean;
-const
-  MarginFactor = 10.0;
 var
   OldCursor: TCursor;
   Viewer: THtmlViewer;
@@ -121,10 +123,10 @@ function TBegaHtmlPrintPreviewForm.PreviewGetSize(Sender: TObject; MFPrinter: TB
     Screen.Cursor := crHourGlass;
     try
       MFPrinter.PrintMargins := Rect(
-        round(Viewer.PrintMarginLeft   * MarginFactor),
-        round(Viewer.PrintMarginTop    * MarginFactor),
-        round(Viewer.PrintMarginRight  * MarginFactor),
-        round(Viewer.PrintMarginBottom * MarginFactor));
+        round(Viewer.PrintMarginLeft   * 10.0),
+        round(Viewer.PrintMarginTop    * 10.0),
+        round(Viewer.PrintMarginRight  * 10.0),
+        round(Viewer.PrintMarginBottom * 10.0));
       Viewer.PrintScale := 1.0 / MFPrinter.PrintScale;
       Viewer.NumPrinterPages(MFPrinter, Width, Height);
     finally
@@ -191,4 +193,6 @@ procedure TBegaHtmlPrintPreviewForm.updateEvents;
   end;
 end;
 
+{$endif NoMetaFile}
+{$endif NoFlatScrollbars}
 end.

Ext/HTMLViewer/Source/BegaPreview.dfm

@@ -503,6 +503,7 @@ object BegaCustomPreviewFrame: TBegaCustomPreviewFrame
       Height = 403
       BevelOuter = bvNone
       BevelWidth = 0
+      Color = clBtnShadow
       CommonColumnWidth = 0
       CommonRowHeight = 0
       TabOrder = 0

Ext/HTMLViewer/Source/BegaPreview.pas

@@ -42,7 +42,7 @@ interface
   // own units
   BegaMetaFilePrinter,
   BegaPreviewPanel,
-  BegaZoom, BegaScrollBox, System.ImageList;
+  BegaZoom, BegaScrollBox;
 
 const
    crZoom = 40;

Ext/HTMLViewer/Source/BegaPreviewForm.pas

@@ -24,6 +24,8 @@
 unit BegaPreviewForm;
 
 interface
+{$ifndef NoFlatScrollbars}
+{$ifndef NoMetaFile}
 
 uses
   Classes, SysUtils,
@@ -68,8 +70,11 @@   TBegaMetaFilePrintPreviewForm = class(TBegaCustomPrintPreviewForm)
     property MetafilePrinter: TBegaMetaFilePrinter read FMetafilePrinter write setMetafilePrinter;
   end;
 
-
+{$endif NoMetaFile}
+{$endif NoFlatScrollbars}
 implementation
+{$ifndef NoFlatScrollbars}
+{$ifndef NoMetaFile}
 
 {$ifdef LCL}
   {$R *.lfm}
@@ -164,4 +169,6 @@ procedure TBegaMetaFilePrintPreviewForm.setMetafilePrinter(
   Preview.createPages;
 end;
 
+{$endif NoMetaFile}
+{$endif NoFlatScrollbars}
 end.

Ext/HTMLViewer/Source/BegaZoom.pas

@@ -24,6 +24,7 @@
 unit BegaZoom;
 
 interface
+{$ifndef NoFlatScrollbars}
 
 uses
   Classes, Controls, ExtCtrls, Math, Types,
@@ -80,7 +81,9 @@   TBegaZoomBox = class(TBegaZoomingScrollBox)
 procedure begaZoomControlAroundPoint(ZoomedControl: TControl; Zoom: Double; Around: TPoint);
 function begaZoomFactorToMode(Factor: Double): TBegaZoomMode;
 
+{$endif NoFlatScrollbars}
 implementation
+{$ifndef NoFlatScrollbars}
 
 //- BG ----------------------------------------------------------- 12.11.2006 --
 procedure begaZoomControlAroundPoint(ZoomedControl: TControl; Zoom: Double; Around: TPoint);
@@ -235,4 +238,5 @@ function TBegaZoomBox.getZoomedControl: TControl;
     Result := nil;
 end;
 
+{$endif NoFlatScrollbars}
 end.

Ext/HTMLViewer/Source/BuffConv.pas

@@ -1,6 +1,6 @@
 {
-HtmlViewer Version 11.7
-Copyright (c) 2010-2016 by Bernd Gabriel
+HtmlViewer Version 11.9
+Copyright (c) 2010-2018 by Bernd Gabriel
 
 This source module is based on code of CodeChangerDecode.pas written by SchwarzKopf-M ([email protected])
 and the source code library libiconv, which is published under the GNU Library General Public License.
@@ -1839,7 +1839,6 @@ procedure TBuffConvUTF7.Assign(Source: TBuffConverter);
   end;
 end;
 
-{$HINTS OFF}
 //-- BG ---------------------------------------------------------- 06.10.2012 --
 function TBuffConvUTF7.NextChar: TBuffChar;
 // Specification: RFC 2152 (and old RFC 1641, RFC 1642)
@@ -1931,7 +1930,7 @@ function TBuffConvUTF7.NextChar: TBuffChar;
   kmax := 2;
   k := 0;
   base64count := 0;
-  i := 0; // valium for the compiler
+  {$IFNDEF Compiler32_Plus}i := 0;{$ENDIF} // valium for the compiler
   while c1 <> 0 do
   begin
     case c1 of

Ext/HTMLViewer/Source/HTMLUn2.pas

@@ -2935,7 +2935,7 @@ procedure DrawBorder(Canvas: TCanvas; ORect, IRect: TRect; const C: ThtColorArra
 //-- BG ---------------------------------------------------------- 24.11.2011 --
 constructor TViewerBase.Create(AOwner: TComponent);
 const
-  defaultPrintMargin = 0.8;//1.0;
+  defaultPrintMargin = 0.8;//2.0;
 begin
   inherited;
   PrintMarginLeft := defaultPrintMargin;