Changeset 315 for trunk/Start.pas

Timestamp:

Mar 18, 2021, 10:58:28 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Gamma was incorrectly applied to images with transparency colors.
• Modified: Change Templates to GraphicSet so it can also have description of its items.
• Modified: Use TextExtent instead of both TextWidth and TextHeight.

File:

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

trunk/Start.pas

@@ -5 +5 @@
 
 uses
-  GameServer, Messg, ButtonBase, ButtonA, ButtonC, ButtonB, Area,
+  GameServer, Messg, ButtonBase, ButtonA, ButtonC, ButtonB, Area, Types,
   LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls,
   Menus, Registry, DrawDlg, fgl, Protocol;
@@ -671 +671 @@
   AIBrains: TBrains;
   I: Integer;
+  TextSize: TSize;
 begin
   AIBrains := TBrains.Create(False);
@@ -684 +685 @@
         Font.Style := [];
         Font.Color := $5FDBFF;
-        Textout(32 - TextWidth(FileName) div 2,
-          32 - TextHeight(FileName) div 2, FileName);
+        TextSize := TextExtent(FileName);
+        Textout(32 - TextSize.Width div 2,
+          32 - TextSize.Height div 2, FileName);
       end;
     end;
@@ -830 +832 @@
     3 + 2 * integer(Tab <> tbMain));
 
-  ImageOp_BCC(LogoBuffer, Templates, 0, 0, 145, 38, 36, 27, $BFBF20, $4040DF);
+  ImageOp_BCC(LogoBuffer, Templates.Data, 0, 0, 145, 38, 36, 27, $BFBF20, $4040DF);
   // logo part 1
-  ImageOp_BCC(LogoBuffer, Templates, 10, 27, 155, 38 + 27, 26, 9, $BFBF20,
+  ImageOp_BCC(LogoBuffer, Templates.Data, 10, 27, 155, 38 + 27, 26, 9, $BFBF20,
     $4040DF); // logo part 2
   BitBltCanvas(Canvas, 6, 3 + 2 * integer(Tab <> tbMain), 36, 36,
@@ -879 +881 @@
               BitBltCanvas(LogoBuffer.Canvas, 0, 0, 91, 25, Canvas,
                 xActionIcon, y + 2);
-              ImageOp_BCC(LogoBuffer, Templates, 0, 0, 1, 400, 91, 25, 0,
+              ImageOp_BCC(LogoBuffer, Templates.Data, 0, 0, 1, 400, 91, 25, 0,
                 Colors.Canvas.Pixels[clkAge0 - 1, cliDimmedText]);
               BitBltCanvas(Canvas, xActionIcon, y + 2, 91, 25,