Changeset 460 for trunk/Packages/CevoComponents/DrawDlg.pas

Timestamp:

Nov 28, 2023, 3:16:24 PM (6 months ago)

Author:

chronos

Message:

• Modified: Do not initialize all local player windows at the start of the game but later when they are really opened. This also fixes window initialization under Qt5 widgetset.

File:

• trunk/Packages/CevoComponents/DrawDlg.pas (modified) (11 diffs)

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -46 +46 @@
     Lines: Integer;
     TopSpace: Integer;
-    procedure SplitText(preview: boolean);
+    procedure SplitText(Preview: Boolean);
     procedure CorrectHeight;
   end;
@@ -206 +206 @@
 procedure TDrawDlg.InitButtons;
 var
-  cix: integer;
+  cix: Integer;
   // ButtonDownSound, ButtonUpSound: string;
 begin
@@ -228 +228 @@
 procedure TDrawDlg.SmartInvalidate;
 var
-  i: integer;
+  i: Integer;
   r0, r1: HRgn;
 begin
@@ -240 +240 @@
       DeleteObject(r1);
     end;
-  InvalidateRgn(Handle, r0, false);
+  InvalidateRgn(Handle, r0, False);
   DeleteObject(r0);
 end;
@@ -260 +260 @@
 procedure TBaseMessgDlg.FormPaint(Sender: TObject);
 var
-  i, cix: integer;
+  i, cix: Integer;
 begin
   if csDesigning in ComponentState then Exit;
-  PaintBackground(self, 3 + Border, 3 + Border, ClientWidth - (6 + 2 * Border),
+  PaintBackground(Self, 3 + Border, 3 + Border, ClientWidth - (6 + 2 * Border),
     ClientHeight - (6 + 2 * Border));
   for i := 0 to Border do
@@ -274 +274 @@
     ClientHeight - (3 + Border), MainTexture.ColorBevelLight,
     MainTexture.ColorBevelShade);
-  SplitText(false);
+  SplitText(False);
 
   for cix := 0 to ControlCount - 1 do
@@ -281 +281 @@
 end;
 
-procedure TBaseMessgDlg.SplitText(preview: boolean);
-var
-  Start, Stop, OrdinaryStop, LinesCount: integer;
+procedure TBaseMessgDlg.SplitText(Preview: Boolean);
+var
+  Start, Stop, OrdinaryStop, LinesCount: Integer;
   s: string;
 begin
@@ -294 +294 @@
       (BiColorTextWidth(Canvas, Copy(MessgText, Start, Stop - Start + 1)) <
       ClientWidth - 56) do
-      inc(Stop);
+      Inc(Stop);
     if Stop <> Length(MessgText) then
     begin
@@ -303 +303 @@
         (MessgText[OrdinaryStop + 1] = '\');
       if (OrdinaryStop + 1 - Start) * 2 >= Stop - Start then
-        Stop := OrdinaryStop
-    end;
-    if not preview then
+        Stop := OrdinaryStop;
+    end;
+    if not Preview then
     begin
       s := Copy(MessgText, Start, Stop - Start + 1);
@@ -313 +313 @@
     end;
     Start := Stop + 2;
-    inc(LinesCount)
-  end;
-  if preview then
+    inc(LinesCount);
+  end;
+  if Preview then
     Lines := LinesCount;
 end;
@@ -321 +321 @@
 procedure TBaseMessgDlg.CorrectHeight;
 var
-  i: integer;
+  i: Integer;
 begin
   ClientHeight := 72 + Border + TopSpace + Lines * MessageLineSpacing;