v1.2.18

Fixed a few bugs and tested Linux and Windows.

Author: torum

ImageViewer.lpi

@@ -1,11 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="11"/>
+    <Version Value="12"/>
     <PathDelim Value="\"/>
     <General>
+      <Flags>
+        <CompatibilityMode Value="True"/>
+      </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
       <Title Value="ImageViewer"/>
       <Scaled Value="True"/>
       <ResourceType Value="res"/>
@@ -89,6 +91,7 @@
     <Linking>
       <Debugging>
         <GenerateDebugInfo Value="False"/>
+        <DebugInfoType Value="dsDwarf2Set"/>
       </Debugging>
       <Options>
         <Win32>

ImageViewer.lpr

@@ -58,7 +58,7 @@ procedure TranslateLCL;
   or (FallbackLang = 'ru') or (FallbackLang = 'RU') then
     Lang := 'ru_RU';
 
-  SetDefaultLang(Lang,'',false);
+  SetDefaultLang(Lang,'','',false);
 
 end;
 

ImageViewer.res

@@ -1,17 +1,16 @@
 object frmFullscreen: TfrmFullscreen
   Left = 2246
-  Height = 301
-  Top = 771
-  Width = 400
+  Height = 241
+  Top = 1437
+  Width = 320
   Align = alClient
   AlphaBlend = True
   BorderIcons = []
   BorderStyle = bsNone
   Caption = 'Fullscreen'
-  ClientHeight = 301
-  ClientWidth = 400
+  ClientHeight = 241
+  ClientWidth = 320
   Color = clBlack
-  DesignTimePPI = 120
   OnClose = FormClose
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
@@ -24,12 +23,12 @@ object frmFullscreen: TfrmFullscreen
   OnShow = FormShow
   PopupMenu = PopupMenu1
   Position = poOwnerFormCenter
-  LCLVersion = '2.0.10.0'
+  LCLVersion = '2.2.0.4'
   object Image1: TImage
     Left = 0
-    Height = 301
+    Height = 241
     Top = 0
-    Width = 400
+    Width = 320
     AntialiasingMode = amOn
     Align = alClient
     AutoSize = True
@@ -47,21 +46,21 @@ object frmFullscreen: TfrmFullscreen
     Enabled = False
     Interval = 1
     OnTimer = TimerFadeOutTimer
-    Left = 336
-    Top = 16
+    Left = 269
+    Top = 13
   end
   object TimerFadeIn: TTimer
     Enabled = False
     Interval = 1
     OnTimer = TimerFadeInTimer
-    Left = 280
-    Top = 16
+    Left = 224
+    Top = 13
   end
   object PopupMenu1: TPopupMenu
     OnPopup = PopupMenu1Popup
     OnClose = PopupMenu1Close
-    Left = 176
-    Top = 136
+    Left = 141
+    Top = 109
     object MenuItemPlayback: TMenuItem
       Caption = '&Playback'
       object MenuItemNext: TMenuItem
@@ -150,13 +149,13 @@ object frmFullscreen: TfrmFullscreen
     Enabled = False
     Interval = 3000
     OnTimer = TimerIntervalTimer
-    Left = 16
-    Top = 16
+    Left = 13
+    Top = 13
   end
   object IdleTimerMouseHide: TIdleTimer
     AutoEnabled = True
     OnTimer = IdleTimerMouseHideTimer
-    Left = 23
-    Top = 255
+    Left = 18
+    Top = 204
   end
 end

ufullscreen.lfm

@@ -375,6 +375,7 @@ procedure TfrmFullscreen.FormClose(Sender: TObject;
 
   IdleTimerMouseHide.Enabled:=false;
   Screen.Cursor:=crDefault;
+  Self.Cursor:=crDefault;
 
   // Apply chagens in options.
   frmMain.OptTransitEffect := FEffect;
@@ -1109,6 +1110,7 @@ procedure TfrmFullscreen.Image1MouseMove(Sender: TObject; Shift: TShiftState;
   X, Y: Integer);
 begin
   Screen.Cursor:= crDefault;
+  Self.Cursor:=crDefault;
   if FisInFrame then
   begin
     If FisMoving then
@@ -1633,6 +1635,7 @@ procedure TfrmFullscreen.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer);
 begin
   Screen.Cursor:= crDefault;
+  Self.Cursor:=crDefault;
   // Do the same at Image1.
 end;
 
@@ -1659,6 +1662,7 @@ procedure TfrmFullscreen.IdleTimerMouseHideTimer(Sender: TObject);
   if not FisPopupMenuShowing then
   begin
     Screen.Cursor:= crNone;
+    Self.Cursor:=crNone;
   end;
 end;
 

ufullscreen.pas

@@ -1,15 +1,14 @@
 object frmMain: TfrmMain
-  Left = 977
-  Height = 301
-  Top = 765
-  Width = 400
+  Left = 1683
+  Height = 241
+  Top = 1067
+  Width = 320
   AlphaBlend = True
   AlphaBlendValue = 20
   Caption = 'Image Viewer Main'
-  ClientHeight = 301
-  ClientWidth = 400
+  ClientHeight = 241
+  ClientWidth = 320
   Color = clSilver
-  DesignTimePPI = 120
   OnActivate = FormActivate
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
@@ -20,12 +19,12 @@ object frmMain: TfrmMain
   OnShow = FormShow
   PopupMode = pmAuto
   Position = poScreenCenter
-  LCLVersion = '2.0.10.0'
+  LCLVersion = '2.2.2.0'
   object Image1: TImage
     Left = 0
-    Height = 301
+    Height = 241
     Top = 0
-    Width = 400
+    Width = 320
     Align = alClient
     AutoSize = True
     Center = True
@@ -39,35 +38,35 @@ object frmMain: TfrmMain
   end
   object ScrollBox1: TScrollBox
     Left = 0
-    Height = 301
+    Height = 241
     Top = 0
-    Width = 400
-    HorzScrollBar.Page = 131
+    Width = 320
+    HorzScrollBar.Page = 320
     HorzScrollBar.Tracking = True
-    VertScrollBar.Page = 131
+    VertScrollBar.Page = 241
     VertScrollBar.Tracking = True
     Align = alClient
     BorderStyle = bsNone
-    ClientHeight = 301
-    ClientWidth = 400
+    ClientHeight = 241
+    ClientWidth = 320
     TabOrder = 0
     Visible = False
     OnMouseWheelDown = ScrollBox1MouseWheelDown
     OnMouseWheelUp = ScrollBox1MouseWheelUp
     object PaintBox1: TPaintBox
       Left = 0
-      Height = 301
+      Height = 241
       Top = 0
-      Width = 400
+      Width = 320
       OnPaint = PaintBox1Paint
     end
   end
   object TimerEffectStart: TTimer
     Enabled = False
     Interval = 1
     OnTimer = TimerEffectStartTimer
-    Left = 176
-    Top = 128
+    Left = 141
+    Top = 102
   end
   object TrayIcon1: TTrayIcon
     PopUpMenu = PopupMenuSystem
@@ -9438,13 +9437,13 @@ object frmMain: TfrmMain
       426082
     }
     OnDblClick = TrayIcon1DblClick
-    Left = 353
-    Top = 248
+    Left = 282
+    Top = 198
   end
   object PopupMenuMain: TPopupMenu
     OnPopup = PopupMenuMainPopup
-    Left = 248
-    Top = 128
+    Left = 198
+    Top = 102
     object MenuItemNext: TMenuItem
       Caption = 'Next'
       ShortCut = 39
@@ -9522,27 +9521,27 @@ object frmMain: TfrmMain
     ExceptionDialog = aedOkMessageBox
     ShowMainForm = False
     OnException = ApplicationProperties1Exception
-    Left = 353
-    Top = 16
+    Left = 282
+    Top = 13
   end
   object OpenPictureDialog1: TOpenPictureDialog
     Title = 'Open picture(s)'
     Filter = 'Graphic (*.jpeg;*.jpg;*.jpe;*.png;*.gif)|*.jpeg;*.jpg;*.jpe;*.png;*.gif|Portable Network Graphic (*.png)|*.png|Joint Picture Expert Group (*.jpeg;*.jpg;*.jpe;*.jfif)|*.jpeg;*.jpg;*.jpe;*.jfif|Graphics Interchange Format (*.gif)|*.gif'
-    Options = [ofAllowMultiSelect, ofFileMustExist, ofNoTestFileCreate, ofEnableSizing, ofDontAddToRecent, ofAutoPreview]
-    Left = 64
-    Top = 24
+    Options = [ofFileMustExist, ofNoTestFileCreate, ofEnableSizing, ofDontAddToRecent, ofAutoPreview]
+    Left = 51
+    Top = 19
   end
   object XMLConfig: TXMLConfig
     StartEmpty = False
     RootName = 'Application'
     ReadOnly = False
-    Left = 105
-    Top = 208
+    Left = 84
+    Top = 166
   end
   object PopupMenuSystem: TPopupMenu
     OnPopup = PopupMenuSystemPopup
-    Left = 288
-    Top = 248
+    Left = 230
+    Top = 198
     object MenuItemSysAbout: TMenuItem
       Caption = 'About'
       OnClick = MenuItemSysAboutClick