Browse Source

#515 runtime fix for Qt

Johann ELSASS 1 year ago
parent
commit
11b9c647dd
2 changed files with 3 additions and 0 deletions
  1. 1 0
      lazpaint/lazpaintmainform.lfm
  2. 2 0
      lazpaint/lazpaintmainform.pas

+ 1 - 0
lazpaint/lazpaintmainform.lfm

@@ -5769,6 +5769,7 @@ object FMain: TFMain
     Top = 514
   end
   object TimerUpdate: TTimer
+    Enabled = False
     Interval = 50
     OnTimer = TimerUpdateTimer
     Left = 653

+ 2 - 0
lazpaint/lazpaintmainform.pas

@@ -1251,6 +1251,7 @@ begin
   UpdateToolBar;
   FShouldArrange := true;
   QueryArrange;
+  TimerUpdate.Enabled := true;
 end;
 
 procedure TFMain.OnLatestVersionUpdate(ANewVersion: string);
@@ -2593,6 +2594,7 @@ end;
 
 procedure TFMain.FormHide(Sender: TObject);
 begin
+  TimerUpdate.Enabled := false;
   FShouldArrange := false;
   FTopMostInfo := LazPaintInstance.HideTopmost;
   LazPaintInstance.SaveMainWindowPosition;