ver. 2.2.2

- Fixed Explorer Preview for Chinese chars
- Added use of StyledComponents and Rounded Buttons in Explorer Preview
- Fixed Initialization of GDI+

Debug/Preview Handlers/PreviewHandler Host/PreviewHost.dproj

@@ -1,14 +1,15 @@
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
     <PropertyGroup>
         <ProjectGuid>{b3898e3b-28c0-4d98-8436-5a69b8915599}</ProjectGuid>
-        <ProjectVersion>19.5</ProjectVersion>
+        <ProjectVersion>20.1</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <MainSource>PreviewHost.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <TargetedPlatforms>3</TargetedPlatforms>
         <AppType>Application</AppType>
+        <ProjectName Condition="'$(ProjectName)'==''">PreviewHost</ProjectName>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
         <Base>true</Base>

Debug/Preview Handlers/PreviewHandler Host/uMain.dfm

@@ -10,10 +10,8 @@ object FrmMain: TFrmMain
   Font.Height = -11
   Font.Name = 'Tahoma'
   Font.Style = []
-  OldCreateOrder = False
   OnCreate = FormCreate
   OnDestroy = FormDestroy
-  PixelsPerInch = 96
   TextHeight = 13
   object Splitter1: TSplitter
     Left = 417
@@ -45,7 +43,7 @@ object FrmMain: TFrmMain
       Width = 415
       Height = 557
       ObjectTypes = [otFolders, otNonFolders]
-      Root = 'D:\ETHEA\GitHub_EtheaDev'
+      Root = 'D:\Users\Carlo\Downloads\Test'
       Sorted = True
       Align = alClient
       ReadOnly = False

README.htm

@@ -30,7 +30,7 @@
 }
 </style>
 <h1>Markdown Editor and Shell Extensions <a href="https://opensource.org/licenses/Apache-2.0"><img src="https://img.shields.io/badge/License-Apache%202.0-yellowgreen.svg" alt="License"/></a></h1>
-<p><strong>Latest Version 2.2.1 - 09 May 2023</strong></p>
+<p><strong>Latest Version 2.2.2 - 10 May 2023</strong></p>
 <p><strong>A collection of tools for markdown files, to edit and view content:</strong></p>
 <ul>
 <li><p>A <strong>Markdown Text Editor</strong> to manually edit a markdown file, with instant preview of the output in a HTML Viewer.</p>
@@ -81,6 +81,12 @@ <h3>Manual Build and Installation (only for Delphi developers)</h3>
 </li>
 </ol>
 <h2>Release Notes</h2>
+<p>10 May 2024: ver. 2.2.2</p>
+<ul>
+<li>Fixed Explorer Preview for Chinese chars</li>
+<li>Added use of StyledComponents and Rounded Buttons in Explorer Preview</li>
+<li>Fixed Initialization of GDI+</li>
+</ul>
 <p>09 May 2024: ver. 2.2.1</p>
 <ul>
 <li>Added File Changed notification and reload</li>

README.md

@@ -1,6 +1,6 @@
 # Markdown Editor and Shell Extensions [![License](https://img.shields.io/badge/License-Apache%202.0-yellowgreen.svg)](https://opensource.org/licenses/Apache-2.0)
 
-**Latest Version 2.2.1 - 09 May 2023**
+**Latest Version 2.2.2 - 10 May 2023**
 
 **A collection of tools for markdown files, to edit and view content:**
 
@@ -67,6 +67,11 @@ To manually install the SVGShellExtensions.dll follow these steps:
 
 ## Release Notes ##
 
+10 May 2024: ver. 2.2.2
+- Fixed Explorer Preview for Chinese chars
+- Added use of StyledComponents and Rounded Buttons in Explorer Preview
+- Fixed Initialization of GDI+
+
 09 May 2024: ver. 2.2.1
 - Added File Changed notification and reload
 - Fixed Preview for Chinese chars

Source/MDShellEx.About.dfm

@@ -243,7 +243,7 @@ object FrmAbout: TFrmAbout
       'Author:'
       'Carlo Barazzetta'
       'https://github.com/EtheaDev/MarkdownShellExtensions'
-      'Copyright '#169' 2021-2023 all rights reserved.'
+      'Copyright '#169' 2021-2024 all rights reserved.'
       'Contributors:'
       'Ariel Montes'
       ''

Source/MDShellEx.PreviewForm.dfm

@@ -1,18 +1,19 @@
 inherited FrmPreview: TFrmPreview
   Left = 522
   Top = 286
-  ClientHeight = 617
-  ClientWidth = 617
+  ClientHeight = 616
+  ClientWidth = 613
   DoubleBuffered = True
   Font.Name = 'Segoe UI'
+  StyleElements = [seFont, seClient, seBorder]
   OnResize = FormResize
-  ExplicitWidth = 633
-  ExplicitHeight = 656
+  ExplicitWidth = 629
+  ExplicitHeight = 655
   TextHeight = 13
   object Splitter: TSplitter
     Left = 0
-    Top = 180
-    Width = 617
+    Top = 145
+    Width = 613
     Height = 6
     Cursor = crVSplit
     Align = alTop
@@ -25,110 +26,96 @@ inherited FrmPreview: TFrmPreview
   object PanelTop: TPanel
     Left = 0
     Top = 0
-    Width = 617
+    Width = 613
     Height = 35
     Align = alTop
     BevelOuter = bvNone
     TabOrder = 2
-    ExplicitWidth = 656
-    object ToolBar: TToolBar
+    object StyledToolBar: TStyledToolbar
       Left = 0
       Top = 0
-      Width = 656
+      Width = 613
       Height = 35
       Align = alClient
       AutoSize = True
       ButtonHeight = 30
-      ButtonWidth = 86
-      EdgeInner = esNone
-      EdgeOuter = esNone
+      ButtonWidth = 87
       Images = SVGIconImageList
       List = True
       ShowCaptions = True
       TabOrder = 0
-      object ToolButtonShowText: TToolButton
+      object ToolButtonShowText: TStyledToolButton
         Left = 0
         Top = 0
-        Cursor = crHandPoint
-        AutoSize = True
+        OnMouseEnter = ToolButtonMouseEnter
+        OnMouseLeave = ToolButtonMouseLeave
+        OnClick = ToolButtonShowTextClick
+        Visible = False
         Caption = 'Hide text'
         ImageIndex = 1
         ImageName = 'Hide-Text'
-        Visible = False
-        OnClick = ToolButtonShowTextClick
-        OnMouseEnter = ToolButtonMouseEnter
-        OnMouseLeave = ToolButtonMouseLeave
       end
-      object ToolButtonZoomIn: TToolButton
-        Left = 85
+      object ToolButtonZoomIn: TStyledToolButton
+        Left = 87
         Top = 0
-        Cursor = crHandPoint
         Hint = 'Zoom in (increase font size)'
-        AutoSize = True
+        OnMouseEnter = ToolButtonMouseEnter
+        OnMouseLeave = ToolButtonMouseLeave
+        OnClick = ToolButtonZoomInClick
         Caption = 'Zoom In'
         ImageIndex = 6
         ImageName = 'plus'
-        OnClick = ToolButtonZoomInClick
-        OnMouseEnter = ToolButtonMouseEnter
-        OnMouseLeave = ToolButtonMouseLeave
       end
-      object ToolButtonZoomOut: TToolButton
-        Left = 164
+      object ToolButtonZoomOut: TStyledToolButton
+        Left = 174
         Top = 0
-        Cursor = crHandPoint
         Hint = 'Zoom out (decrease font size)'
-        AutoSize = True
+        OnMouseEnter = ToolButtonMouseEnter
+        OnMouseLeave = ToolButtonMouseLeave
+        OnClick = ToolButtonZoomOutClick
         Caption = 'Zoom Out'
         ImageIndex = 7
         ImageName = 'minus'
-        OnClick = ToolButtonZoomOutClick
-        OnMouseEnter = ToolButtonMouseEnter
-        OnMouseLeave = ToolButtonMouseLeave
       end
-      object ToolButtonSettings: TToolButton
-        Left = 239
+      object ToolButtonSettings: TStyledToolButton
+        Left = 261
         Top = 0
-        Cursor = crHandPoint
         Hint = 'Preview settings...'
-        AutoSize = True
+        OnMouseEnter = ToolButtonMouseEnter
+        OnMouseLeave = ToolButtonMouseLeave
+        OnClick = ToolButtonSettingsClick
+        Visible = False
         Caption = 'Settings...'
         ImageIndex = 12
         ImageName = 'preferences-desktop'
-        Visible = False
-        OnClick = ToolButtonSettingsClick
-        OnMouseEnter = ToolButtonMouseEnter
-        OnMouseLeave = ToolButtonMouseLeave
       end
-      object ToolButtonAbout: TToolButton
-        Left = 329
+      object ToolButtonAbout: TStyledToolButton
+        Left = 348
         Top = 0
-        Cursor = crHandPoint
         Hint = 'Show about...'
-        AutoSize = True
+        OnMouseEnter = ToolButtonMouseEnter
+        OnMouseLeave = ToolButtonMouseLeave
+        OnClick = ToolButtonAboutClick
+        Visible = False
         Caption = 'About...'
         ImageIndex = 2
         ImageName = 'about'
-        Visible = False
-        OnClick = ToolButtonAboutClick
-        OnMouseEnter = ToolButtonMouseEnter
-        OnMouseLeave = ToolButtonMouseLeave
       end
     end
   end
   object PanelMD: TPanel
     Left = 0
-    Top = 70
-    Width = 617
+    Top = 35
+    Width = 613
     Height = 110
     Align = alTop
     BevelOuter = bvNone
     TabOrder = 1
     Visible = False
-    ExplicitWidth = 656
     object SynEdit: TSynEdit
       Left = 0
       Top = 0
-      Width = 656
+      Width = 613
       Height = 110
       Align = alClient
       Font.Charset = DEFAULT_CHARSET
@@ -159,51 +146,44 @@ inherited FrmPreview: TFrmPreview
   end
   object StatusBar: TStatusBar
     Left = 0
-    Top = 596
-    Width = 617
+    Top = 595
+    Width = 613
     Height = 21
     Panels = <>
     ParentFont = True
     SimplePanel = True
-    SimpleText = ' Mardown file Preview - Copyright '#169' 2021-2022 - Ethea S.r.l.'
+    SimpleText = ' Markdown file Preview - Copyright '#169' 2021-2024 - Ethea S.r.l.'
     SizeGrip = False
     UseSystemFont = False
-    ExplicitTop = 629
-    ExplicitWidth = 656
   end
   object PanelBottom: TPanel
     Left = 0
-    Top = 566
-    Width = 617
+    Top = 565
+    Width = 613
     Height = 30
     Align = alBottom
     BevelOuter = bvNone
     TabOrder = 0
-    ExplicitTop = 599
-    ExplicitWidth = 656
-    object ToolBarAllegati: TToolBar
+    object ToolBarAllegati: TStyledToolbar
       Left = 0
       Top = 0
-      Width = 656
+      Width = 613
       Height = 30
       Align = alClient
       AutoSize = True
       ButtonHeight = 30
       ButtonWidth = 81
-      EdgeInner = esNone
-      EdgeOuter = esNone
       Images = SVGIconImageList
       List = True
       ShowCaptions = True
       TabOrder = 0
-      Transparent = True
     end
   end
   object HtmlViewer: THtmlViewer
     Left = 0
-    Top = 186
-    Width = 617
-    Height = 380
+    Top = 151
+    Width = 613
+    Height = 414
     BorderStyle = htFocused
     HistoryMaxCount = 0
     NoSelect = False
@@ -218,38 +198,6 @@ inherited FrmPreview: TFrmPreview
     TabOrder = 4
     Touch.InteractiveGestures = [igPan]
     Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia]
-    ExplicitWidth = 656
-    ExplicitHeight = 413
-  end
-  object paTop: TPanel
-    Left = 0
-    Top = 35
-    Width = 617
-    Height = 35
-    Align = alTop
-    TabOrder = 5
-    ExplicitWidth = 656
-    object ProcessorDialectLabel: TLabel
-      Left = 8
-      Top = 11
-      Width = 55
-      Height = 15
-      Alignment = taRightJustify
-      AutoSize = False
-      Caption = 'Dialect:'
-    end
-    object ProcessorDialectComboBox: TComboBox
-      Left = 69
-      Top = 8
-      Width = 170
-      Height = 21
-      Style = csDropDownList
-      TabOrder = 0
-      OnSelect = ProcessorDialectComboBoxSelect
-      Items.Strings = (
-        'DaringFireball'
-        'CommonMark')
-    end
   end
   object SVGIconImageList: TVirtualImageList
     Images = <