Fixed draw buffer pause

The draw buffer now caches Home and Search pages as well.

MainUI.pas

@@ -3465,6 +3465,15 @@ procedure TUIForm.HomeDrawPaint(Sender: TObject);
       ScrollPosition.PageSize := 0;
       ScrollPosition.Max := MaxScroll - HomeDraw.Height;
     end;
+
+  // Copy draw buffer
+  with TPaintBox(Sender).Canvas do
+    begin
+      LastDrawBuffer.Width := ClipRect.Width;
+      LastDrawBuffer.Height := ClipRect.Height;
+
+      LastDrawBuffer.Canvas.CopyRect(ClipRect, TPaintBox(Sender).Canvas, ClipRect);
+    end;
 end;
 
 procedure TUIForm.PopupGeneralInfo(Sender: TObject);
@@ -6655,6 +6664,15 @@ procedure TUIForm.SearchDrawPaint(Sender: TObject);
       ScrollPosition.PageSize := 0;
       ScrollPosition.Max := Y + ScrollPosition.Position;
     end;
+
+  // Copy draw buffer
+  with TPaintBox(Sender).Canvas do
+    begin
+      LastDrawBuffer.Width := ClipRect.Width;
+      LastDrawBuffer.Height := ClipRect.Height;
+
+      LastDrawBuffer.Canvas.CopyRect(ClipRect, TPaintBox(Sender).Canvas, ClipRect);
+    end;
 end;
 
 procedure TUIForm.Search_ButtonClick(Sender: TObject);