Changeset 227 for trunk/LocalPlayer/MessgEx.pas

Timestamp:

May 14, 2020, 9:31:00 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Wrong timeout calculation in movie mode.
• Fixed: City dialog sound index out of range.

File:

• trunk/LocalPlayer/MessgEx.pas (modified) (2 diffs)

trunk/LocalPlayer/MessgEx.pas

@@ -212 +212 @@
         Sleep(1);
         Ticks := NowPrecise;
-      until MovieCancelled or (MillisecondOf(Ticks - Ticks0) >= 1500);
+      until MovieCancelled or (Round((Ticks - Ticks0) / OneMillisecond) >= 1500);
       Hide;
     end;
@@ -373 +373 @@
       begin
         p1 := MyRO.Wonder[IconIndex].EffectiveOwner;
+        // TODO: Explicitly clear background to black but in fact BitBlt SRCCOPY should do it
+        Buffer.Canvas.FillRect(0, 0, 1, 1);
         BitBltCanvas(Buffer.Canvas, 0, 0, xSizeBig + 2 * GlowRange,
           ySizeBig + 2 * GlowRange, Canvas,