Upgraded to Lazarus IDE v3.4. Added compiled libwebp-1.4.0 dlls.

Author: torum

files/libwebp/x64/libwebp.dll

@@ -23,6 +23,13 @@
       <EnableI18N Value="True"/>
       <OutDir Value="po_files"/>
     </i18n>
+    <VersionInfo>
+      <UseVersionInfo Value="True"/>
+      <MajorVersionNr Value="1"/>
+      <MinorVersionNr Value="3"/>
+      <RevisionNr Value="9"/>
+      <StringTable FileDescription="Image Viewer" InternalName="ImageViewer" LegalCopyright="torum" OriginalFilename="ImageViewer.exe" ProductName="Simple Image Viewer"/>
+    </VersionInfo>
     <BuildModes Count="1">
       <Item1 Name="Default" Default="True"/>
     </BuildModes>

files/libwebp/x86/libwebp.dll

@@ -8,7 +8,7 @@
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
   Forms, UMain, Ufullscreen, UAbout,
-  LCLTranslator, lazutf8{$ifdef windows}, Windows{$endif};
+  LCLTranslator, lazutf8, Translations{$ifdef windows}, Windows{$endif};
 
 {$R *.res}
 
@@ -18,25 +18,32 @@
 procedure TranslateLCL;
 var
   Lang,FallbackLang: String;
+  LangID: TLanguageID;
 begin
   // On windows, you have to call GetUserDefaultUILanguage() API to get UI languages.
-  // But GetLanguageIDs calls GetUserDefaultLCID.
+  // But GetLanguageIDs calls GetUserDefaultLCID...
 
-  Lang:='';
+  Lang:='en';
   FallbackLang:='';
-  LazGetLanguageIDs(Lang,FallbackLang);
+  //LazGetLanguageIDs(Lang,FallbackLang); // This is now deprecated.
+  LangID := GetLanguageID;
+  Lang := LangID.LanguageID;
+  FallbackLang:=LangID.LanguageCode;
+  // OutputDebugString(PChar(LangID.CountryCode)); // JP
+  // OutputDebugString(PChar(LangID.LanguageCode)); // ja
+  // OutputDebugString(PChar(LangID.LanguageID)); // ja_JP
 
   if (Lang = 'en') or (Lang = 'en_US') or (Lang = 'us')
   or (FallbackLang = 'us') or (FallbackLang = 'US') or (FallbackLang = 'en') then
     Lang := 'en';
 
   if (Lang = 'ja') or (Lang = 'ja_jp') or (Lang = 'jp_JP') or (Lang = 'jp')
   or (FallbackLang = 'jp') or (FallbackLang = 'JP') or (FallbackLang = 'ja') then
-    Lang := 'ja_JP';
+    Lang := 'ja';//'ja_JP';
 
   if (Lang = 'ru') or (Lang = 'ru_RU') or (Lang = 'RU')
   or (FallbackLang = 'ru') or (FallbackLang = 'RU') then
-    Lang := 'ru_RU';
+    Lang := 'ru';//'ru_RU';
 
   SetDefaultLang(Lang,'','',false);
 

src/ImageViewer.lpi

@@ -1,14 +1,14 @@
 object frmAbout: TfrmAbout
-  Left = 1707
+  Left = 515
   Height = 234
-  Top = 849
+  Top = 336
   Width = 320
   BorderStyle = bsToolWindow
   ClientHeight = 234
   ClientWidth = 320
   OnClose = FormClose
   Position = poOwnerFormCenter
-  LCLVersion = '2.2.2.0'
+  LCLVersion = '3.4.0.0'
   object Image1: TImage
     Left = 19
     Height = 90
@@ -503,10 +503,10 @@ object frmAbout: TfrmAbout
     Top = 144
     Width = 281
     Caption = 'https://torum.github.io/Image-viewer/'
+    TabOrder = 2
     OnClick = StaticTextWebSiteClick
     OnMouseEnter = StaticTextWebSiteMouseEnter
     OnMouseLeave = StaticTextWebSiteMouseLeave
-    TabOrder = 2
   end
   object LabelWebsite: TLabel
     Left = 26
@@ -524,8 +524,8 @@ object frmAbout: TfrmAbout
     Caption = 'Close'
     Default = True
     ModalResult = 1
-    OnClick = ButtonCloseClick
     TabOrder = 3
+    OnClick = ButtonCloseClick
   end
   object Bevel1: TBevel
     Left = 19

src/ImageViewer.lpr

@@ -27,7 +27,7 @@ object frmMain: TfrmMain
   OnShow = FormShow
   PopupMode = pmAuto
   Position = poScreenCenter
-  LCLVersion = '2.2.4.0'
+  LCLVersion = '3.4.0.0'
   object Image1: TImage
     Left = 0
     Height = 354
@@ -58,6 +58,7 @@ object frmMain: TfrmMain
     BorderStyle = bsNone
     ClientHeight = 354
     ClientWidth = 426
+    ParentBackground = False
     TabOrder = 0
     Visible = False
     OnMouseWheelDown = ScrollBox1MouseWheelDown

src/ImageViewer.res

@@ -32,6 +32,7 @@
  Cocoa based 64bit apps for macOS may not be ready some time soon...
 
 ### TODO:
+* StayOnTop on/off when inFrame mode.
 * Blur effect on/off option. Need to find a way to enable on fullscreen with a modal window first...
 * WebP support.
 * Better zooming.
@@ -304,7 +305,7 @@ procedure TfrmMain.FormCreate(Sender: TObject);
   i,f:integer;
   configFile:string;
 begin
-  FstrAppVer:='1.3.8.0';
+  FstrAppVer:='1.3.9.0';
 
   // Init Main form properties.
   self.Caption:=ReplaceStr(ExtractFileName(ParamStr(0)),ExtractFileExt(ParamStr(0)),'');
@@ -1703,9 +1704,9 @@ procedure TfrmMain.MenuItemSlideshowInFrameClick(Sender: TObject);
     // Background blur when background color is set to clBlack.
     if (Win32MajorVersion>=10) then
     begin
-      self.color := clBlack;  // Temp set to black
+      self.color := clBlack; // Temp set to black
       DoubleBuffered := True;
-      EnableBlur;
+      EnableBlur; // TODO: make this an option.
     end;
 
     {$else}
@@ -1861,8 +1862,8 @@ procedure TfrmMain.SetCaption(strCaption:string);
 
 procedure TfrmMain.SetStayOnTop(bln:Boolean);
 {$ifdef windows}
-var
-  BeforeBounds : TRect;
+//var
+  //BeforeBounds : TRect;
 {$endif}
 begin
   if bln then
@@ -1874,10 +1875,11 @@ procedure TfrmMain.SetStayOnTop(bln:Boolean);
   begin
     if (self.FormStyle = fsSystemStayOnTop) then
     begin
-
       {$ifdef windows}
       if FisInFrame then
       begin
+        // TODO: This is not working...
+
         // "FormStyle:=fsNormal" causes window pos to move to 0,0 so..
         //BeforeBounds:= BoundsRect;
 
@@ -2432,7 +2434,7 @@ procedure TfrmMain.SetFullScreen_Win32(blnOn: boolean);
       FOrigWndState:= WindowState;
       FOrigBounds:= BoundsRect;
       // Must be this order
-      WindowState:=wsFullScreen; //1
+      WindowState:= wsFullScreen; //1
       BorderStyle:= bsNone;      //2
     end;
 
@@ -2531,7 +2533,7 @@ procedure TfrmMain.EnableBlur;
 const
   WCA_ACCENT_POLICY = 19;
   ACCENT_ENABLE_BLURBEHIND = 3;
-  //ACCENT_ENABLE_ACRYLICBLURBEHIND = 4;
+  //ACCENT_ENABLE_ACRYLICBLURBEHIND = 4; // Windows 10 April 2018 Update
   DrawLeftBorder = $20;
   DrawTopBorder = $40;
   DrawRightBorder = $80;
@@ -2551,7 +2553,7 @@ procedure TfrmMain.EnableBlur;
     begin
       accent.AccentState := ACCENT_ENABLE_BLURBEHIND;
       //accent.AccentState := ACCENT_ENABLE_ACRYLICBLURBEHIND;
-      accent.GradientColor := (100 SHL 24) or ($FFE3E0DE);
+      accent.GradientColor := (100 SHL 24)  or ($00E3E0DE);//or ($FFE3E0DE);
       accent.AccentFlags := DrawLeftBorder or DrawTopBorder or DrawRightBorder or DrawBottomBorder;
 
       data.Attribute := WCA_ACCENT_POLICY;