Changeset 565 for trunk/Start.pas

Timestamp:

May 1, 2024, 12:08:20 PM (7 months ago)

Author:

chronos

Message:

• Modified: Start form changed to use Offscreen bitmap for drawing as Qt5 doesn't support copying from form canvas.

File:

• trunk/Start.pas (modified) (11 diffs)

trunk/Start.pas

@@ -6 +6 @@
 uses
   GameServer, Messg, ButtonBase, ButtonA, ButtonC, ButtonB, Area, Types,
-  LCLIntf, LCLType, SysUtils, Classes,
+  LCLIntf, LCLType, SysUtils, Classes, BaseWin,
   Registry, DrawDlg, Generics.Collections, Protocol, MiniMap, Brain, Translator,
   {$IFDEF DPI}System.UITypes, Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.StdCtrls,
@@ -42 +42 @@
   { TStartDlg }
 
-  TStartDlg = class(TDrawDlg)
+  TStartDlg = class(TBufferedDrawDlg)
     PopupMenu1: TPopupMenu;
     StartBtn: TButtonA;
@@ -62 +62 @@
     procedure ListKeyPress(Sender: TObject; var Key: Char);
     procedure StartBtnClick(Sender: TObject);
-    procedure FormPaint(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure FormHide(Sender: TObject);
@@ -131 +130 @@
     procedure UnlistBackupFile(FileName: string);
     procedure SmartInvalidate(x0, y0, x1, y1: Integer;
-      invalidateTab0: Boolean = False); overload;
+      InvalidateTab0: Boolean = False); overload;
     procedure LoadConfig;
     procedure SaveConfig;
@@ -138 +137 @@
     procedure UpdateInterface;
     procedure ShowSettings;
+  protected
+    procedure OffscreenPaint; override;
   public
     EmptyPicture: TBitmap;
@@ -338 +339 @@
 var
   I: Integer;
-  r0, r1: HRgn;
-begin
-  r0 := CreateRectRgn(x0, y0, x1, y1);
+  R0, R1: HRgn;
+begin
+  OffscreenUser := nil;
+  R0 := CreateRectRgn(x0, y0, x1, y1);
   for I := 0 to ControlCount - 1 do
     if not (Controls[I] is TArea) and Controls[I].Visible then
     begin
       with Controls[I].BoundsRect do
-        r1 := CreateRectRgn(Left, Top, Right, Bottom);
-      CombineRgn(r0, r0, r1, RGN_DIFF);
-      DeleteObject(r1);
-    end;
-  if not invalidateTab0 then begin
-    r1 := CreateRectRgn(0, 0, 6 + 36, 3 + 38); // tab 0 icon
-    CombineRgn(r0, r0, r1, RGN_DIFF);
-    DeleteObject(r1);
-  end;
-  InvalidateRgn(Handle, r0, False);
-  DeleteObject(r0);
+        R1 := CreateRectRgn(Left, Top, Right, Bottom);
+      CombineRgn(R0, R0, R1, RGN_DIFF);
+      DeleteObject(R1);
+    end;
+  if not InvalidateTab0 then begin
+    R1 := CreateRectRgn(0, 0, 6 + 36, 3 + 38); // tab 0 icon
+    CombineRgn(R0, R0, R1, RGN_DIFF);
+    DeleteObject(R1);
+  end;
+  InvalidateRgn(Handle, R0, False);
+  DeleteObject(R0);
 end;
 
@@ -536 +538 @@
 procedure TStartDlg.DrawAction(Y, IconIndex: Integer; HeaderItem, TextItem: string);
 begin
-  Canvas.Font.Assign(UniFont[ftCaption]);
-  Canvas.Font.Style := Canvas.Font.Style + [TFontStyle.fsUnderline];
-  RisedTextOut(Canvas, xAction, Y - 3, Phrases2.Lookup(HeaderItem));
-  Canvas.Font.Assign(UniFont[ftNormal]);
-  BiColorTextOut(Canvas, Colors.Canvas.Pixels[clkAge0 - 1, cliDimmedText],
-    $000000, xAction, Y + 21, Phrases2.Lookup(TextItem));
-
-  UnshareBitmap(DrawBuffer);
-  DrawBufferEnsureSize(50, 50);
-  BitBltCanvas(DrawBuffer.Canvas, 0, 0, 50, 50, Canvas,
-    xActionIcon - 2, Y - 2);
-  GlowFrame(DrawBuffer, 8, 8, 34, 34, $202020);
-  BitBltCanvas(Canvas, xActionIcon - 2, Y - 2, 50, 50,
-    DrawBuffer.Canvas, 0, 0);
-  BitBltCanvas(Canvas, xActionIcon, Y, 40, 40, BigImp.Canvas,
-    (IconIndex mod 7) * xSizeBig + 8, (IconIndex div 7) * ySizeBig);
-  RFrame(Canvas, xActionIcon - 1, Y - 1, xActionIcon + 40, Y + 40,
-    $000000, $000000);
-end;
-
-procedure TStartDlg.FormPaint(Sender: TObject);
+  with Offscreen do begin
+    Canvas.Font.Assign(UniFont[ftCaption]);
+    Canvas.Font.Style := Canvas.Font.Style + [TFontStyle.fsUnderline];
+    RisedTextOut(Canvas, xAction, Y - 3, Phrases2.Lookup(HeaderItem));
+    Canvas.Font.Assign(UniFont[ftNormal]);
+    BiColorTextOut(Canvas, Colors.Canvas.Pixels[clkAge0 - 1, cliDimmedText],
+      $000000, xAction, Y + 21, Phrases2.Lookup(TextItem));
+
+    UnshareBitmap(DrawBuffer);
+    DrawBufferEnsureSize(50, 50);
+    BitBltCanvas(DrawBuffer.Canvas, 0, 0, 50, 50, Canvas,
+      xActionIcon - 2, Y - 2);
+    GlowFrame(DrawBuffer, 8, 8, 34, 34, $202020);
+    BitBltCanvas(Canvas, xActionIcon - 2, Y - 2, 50, 50,
+      DrawBuffer.Canvas, 0, 0);
+    BitBltCanvas(Canvas, xActionIcon, Y, 40, 40, BigImp.Canvas,
+      (IconIndex mod 7) * xSizeBig + 8, (IconIndex div 7) * ySizeBig);
+    RFrame(Canvas, xActionIcon - 1, Y - 1, xActionIcon + 40, Y + 40,
+      $000000, $000000);
+  end;
+end;
+
+procedure TStartDlg.OffscreenPaint;
 const
   TabNames: array[TStartTab] of Integer = (0, 11, 3, 4);
@@ -565 +569 @@
   MainAction: TMainAction;
 begin
-  PaintBackground(Self, 3, 3, TabOffset + 4 * TabSize - 4, TabHeight - 3);
-  PaintBackground(Self, 3, TabHeight + 3, ClientWidth - 6,
-    ClientHeight - TabHeight - 6);
+  inherited;
+
+  with Offscreen do begin
+  PaintBackground(Canvas, 3, 3, TabOffset + 4 * TabSize - 4, TabHeight - 3,
+    ClientWidth, ClientHeight);
+  PaintBackground(Canvas, 3, TabHeight + 3, ClientWidth - 6,
+    ClientHeight - TabHeight - 6, ClientWidth, ClientHeight);
   with Canvas do
   begin
@@ -626 +634 @@
   if Tab = tbMain then
   begin
-    PaintBackground(Self, 3, TabHeight - 1, TabSize - 4 - 3 + TabOffset + 3, 4);
+    PaintBackground(Canvas, 3, TabHeight - 1, TabSize - 4 - 3 + TabOffset + 3, 4,
+      ClientWidth, ClientHeight);
     Canvas.Pixels[2, TabHeight] := MainTexture.ColorBevelLight;
   end
   else
   begin
-    PaintBackground(Self, TabOffset + 3 + Integer(Tab) * TabSize, TabHeight - 1,
-      TabSize - 4, 4);
+    PaintBackground(Canvas, TabOffset + 3 + Integer(Tab) * TabSize, TabHeight - 1,
+      TabSize - 4, 4, ClientWidth, ClientHeight);
     Canvas.Pixels[TabOffset + Integer(Tab) * TabSize + 2, TabHeight] :=
       MainTexture.ColorBevelLight;
@@ -904 +913 @@
         y0Mini - 8, S);
   end;
+  end;
+  MarkUsedOffscreen(ClientWidth, ClientHeight);
 end;
 
@@ -1438 +1449 @@
     ReplayBtn.Visible := MiniMap.Mode <> mmMultiPlayer;
   List.Invalidate;
-  SmartInvalidate(0, 0, ClientWidth, ClientHeight, invalidateTab0);
+  SmartInvalidate(0, 0, ClientWidth, ClientHeight, InvalidateTab0);
 end;