Changeset 315 for trunk/Packages/CevoComponents/ButtonA.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/Packages/CevoComponents/ButtonA.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/ButtonA.pas

@@ -4 +4 @@
 
 uses
-  ButtonBase, Classes, Graphics, LCLIntf, LCLType, ScreenTools;
+  ButtonBase, Classes, Graphics, LCLIntf, LCLType, ScreenTools, Types;
 
 type
@@ -41 +41 @@
 
 procedure TButtonA.Paint;
+var
+  TextSize: TSize;
 begin
   with Canvas do
-    if FGraphic <> nil then
-    begin
+    if FGraphic <> nil then begin
       BitBltCanvas(Canvas, 0, 0, 100, 25, Graphic.Canvas, 195,
         243 + 26 * Byte(Down));
       Canvas.Brush.Style := bsClear;
-      Textout(50 - (TextWidth(FCaption) + 1) div 2, 12 - textheight(FCaption)
-        div 2, FCaption);
-    end
-    else
-    begin
+      TextSize := TextExtent(FCaption);
+      TextOut(50 - (TextSize.Width + 1) div 2,
+        12 - TextSize.Height div 2, FCaption);
+    end else begin
       Brush.Color := $0000FF;
       FrameRect(Rect(0, 0, 100, 25))