Changeset 673 for trunk/LocalPlayer/Draft.pas

Timestamp:

Jul 25, 2025, 5:55:22 PM (27 hours ago)

Author:

chronos

Message:

• Fixed: Black strip on the bottom of Draft dialog.
• Fixed: Make selected book or map visible in the list on application start.

File:

• trunk/LocalPlayer/Draft.pas (modified) (3 diffs)

trunk/LocalPlayer/Draft.pas

@@ -234 +234 @@
   UnshareBitmap(Back);
 
-  ClientHeight := Template.Height - Cut;
-  if ClientHeight > MainTexture.Height then
+  Height := Template.Height - Cut;
+  if Height > MainTexture.Height then
   // assemble background from 2 texture tiles
   begin
-    BitBltBitmap(Back, 0, 0, ClientWidth, 64,
-      MainTexture.Image, (MainTexture.Width - ClientWidth) div 2,
+    BitBltBitmap(Back, 0, 0, Width, 64,
+      MainTexture.Image, (MainTexture.Width - Width) div 2,
       MainTexture.Height - 64);
-    BitBltBitmap(Back, 0, 64, ClientWidth, ClientHeight - 64,
-      MainTexture.Image, (MainTexture.Width - ClientWidth) div 2,
+    BitBltBitmap(Back, 0, 64, Width, Height - 64,
+      MainTexture.Image, (MainTexture.Width - Width) div 2,
       0);
   end
   else
-    BitBltBitmap(Back, 0, 0, ClientWidth, ClientHeight,
-      MainTexture.Image, (MainTexture.Width - ClientWidth) div 2,
-      (MainTexture.Height - ClientHeight) div 2);
+    BitBltBitmap(Back, 0, 0, Width, Height,
+      MainTexture.Image, (MainTexture.Width - Width) div 2,
+      (MainTexture.Height - Height) div 2);
   ImageOp_B(Back, Template, 0, 0, 0, 0, Template.Width, 64);
   ImageOp_B(Back, Template, 0, 64, 0, 64 + Cut, Template.Width,
     Template.Height - 64 - Cut);
 
-  BitBltBitmap(Offscreen, 0, 0, ClientWidth, ClientHeight, Back, 0, 0);
+  BitBltBitmap(Offscreen, 0, 0, Width, Height, Back, 0, 0);
 
   Offscreen.Canvas.Font.Assign(UniFont[ftCaption]);
@@ -400 +400 @@
       pix div 10 * 49 + 1);
   end;
-  MarkUsedOffscreen(ClientWidth, ClientHeight);
+  MarkUsedOffscreen(Width, Height);
 end;
 
@@ -525 +525 @@
     begin
       I := (Y - yFeature) div LinePitch;
-      if (X >= xFeature - 21) and (X < ClientWidth) and (ssShift in Shift) then
+      if (X >= xFeature - 21) and (X < Width) and (ssShift in Shift) then
         MainScreen.HelpDlg.ShowNewContent(WindowModeMakePersistent(FWindowMode), hkFeature, Code[I])
       else if not (Code[I] in AutoFeature) then