Fixed delayed image display

Author: AngusJohnson

SvgShellExtensions.dll

@@ -0,0 +1,37 @@
+# SvgShellExtensions.dll
+
+
+Windows (64bit) Explorer Shell Extensions for SVG files      
+Preview Handler and Thumbnail Provider
+
+----------
+Install:
+----------
+
+1. Right click Windows' Start Button<br>
+2. Select Windows PowerShell (Admin)<br>
+In Windows PowerShell ...<br>
+**cd** path_to_SvgShellExtensions<br>
+**regsvr32** SvgShellExtensions.dll<br>
+exit<br><br>
+
+----------
+Uninstall:
+----------
+
+1. Right click Windows' Start Button<br>
+2. Select Windows PowerShell (Admin)<br>
+In Windows PowerShell ...<br>
+**cd** path_to_SvgShellExtensions<br>
+**regsvr32 /u** SvgShellExtensions.dll<br>
+exit<br><br>
+
+----------
+
+
+![Preview](https://user-images.githubusercontent.com/5280692/150119503-11700028-4dcf-4eca-aeaf-a787c4339a28.png)
+
+![Thumbnail](https://user-images.githubusercontent.com/5280692/150119536-2b499495-f0dd-42e8-9e99-367657e3d783.png)
+
+
+

dll_binary/README.md

@@ -259,8 +259,7 @@ function TSvgShellExt.DoPreview: HRESULT;
   if fSvgRead.IsEmpty then Exit;
 
   //create the display dialog containing an image control
-  fDialog := CreateDialog(hInstance,
-    MAKEINTRESOURCE(1), fParent, @DlgProc);
+  fDialog := CreateDialog(hInstance, MAKEINTRESOURCE(1), fParent, @DlgProc);
   SetWindowLongPtr(fDialog, GWLP_USERDATA, NativeInt(self));
   if fDarkModeEnabled then
     fDarkBrush := CreateSolidBrush(darkBkColor);
@@ -379,10 +378,18 @@ procedure LoadFonts;
 end;
 //------------------------------------------------------------------------------
 
+var
+  res: HRESULT;
+
 initialization
-  LoadFonts; //needed when displaying SVG text
+  res := OleInitialize(nil);
 
+  LoadFonts; //needed when displaying SVG text
   TComObjectFactory.Create(ComServer,
     TSvgShellExt, IID_EXT_ShellExtensions,
     appId, appDescription, ciMultiInstance, tmApartment);
+
+finalization
+  if res = S_OK then OleUninitialize();
+
 end.