Changeset 514 for trunk/LocalPlayer/MessgEx.pas

Timestamp:

Jan 3, 2024, 3:05:32 PM (4 months ago)

Author:

chronos

Message:

• Modified: LogoBuffer is in fact general DrawBuffer. Use single DrawBuffer for all units.
• Modified: Improved fractional scaling.

File:

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

trunk/LocalPlayer/MessgEx.pas

@@ -45 +45 @@
   private
     MovieCancelled: Boolean;
-    procedure PaintBook(ca: TCanvas; X, Y, clPage, clCover: Integer);
+    procedure PaintBook(Canvas: TCanvas; X, Y, clPage, clCover: Integer);
     procedure PaintMyArmy;
     procedure PaintEnemyArmy;
@@ -221 +221 @@
 end;
 
-procedure TMessgExDlg.PaintBook(ca: TCanvas; X, Y, clPage, clCover: Integer);
+procedure TMessgExDlg.PaintBook(Canvas: TCanvas; X, Y, clPage, clCover: Integer);
 const
   xScrewed = 77;
@@ -238 +238 @@
   Height: Integer;
 begin
-  Width := 56;
-  Height := 40;
+  Width := xSizeBig;
+  Height := ySizeBig;
   if IconIndex >= 0 then begin
     xIcon := IconIndex mod 7 * xSizeBig;
@@ -292 +292 @@
 
   // paint
-  UnshareBitmap(LogoBuffer);
-  BitBltCanvas(LogoBuffer.Canvas, 0, 0, BookRect.Width, BookRect.Height, ca, X, Y);
+  UnshareBitmap(DrawBuffer);
+  DrawBufferEnsureSize(BookRect.Width, BookRect.Height);
+  BitBltCanvas(DrawBuffer.Canvas, 0, 0, BookRect.Width, BookRect.Height, Canvas, X, Y);
 
   if IconIndex >= 0 then
@@ -299 +300 @@
       for ix := 0 to wScrewed - 1 do
         if Screwed[ix, iy, 3] > 0.01 then
-          LogoBuffer.Canvas.Pixels[xScrewed + ix, yScrewed + iy] :=
+          DrawBuffer.Canvas.Pixels[xScrewed + ix, yScrewed + iy] :=
             Trunc(Screwed[ix, iy, 2] / Screwed[ix, iy, 3]) +
             Trunc(Screwed[ix, iy, 1] / Screwed[ix, iy, 3]) shl 8 +
             Trunc(Screwed[ix, iy, 0] / Screwed[ix, iy, 3]) shl 16;
 
-  ImageOp_BCC(LogoBuffer, Templates.Data, Point(0, 0), BookRect, clCover, clPage);
-
-  BitBltCanvas(ca, X, Y, BookRect.Width, BookRect.Height, LogoBuffer.Canvas, 0, 0);
+  ImageOp_BCC(DrawBuffer, Templates.Data, Point(0, 0), BookRect, clCover, clPage);
+
+  BitBltCanvas(Canvas, X, Y, BookRect.Width, BookRect.Height, DrawBuffer.Canvas, 0, 0);
 end;