Steema Issues Database

Note: This database is for bugs and wishes only. For technical support help, if you are a customer please visit our online forums;
otherwise you can use StackOverflow.
Before using this bug-tracker we recommend a look at this document, Steema Bug Fixing Policy.

Bug 2594

Summary:	Fonts are a bit thinner in TeeChart (GDIPlus) than in the default canvas
Product:	VCL TeeChart	Reporter:	yeray alonso <yeray>
Component:	Canvas	Assignee:	Steema Issue Manager <issuemanager>
Status:	CONFIRMED ---
Severity:	enhancement	CC:	yeray
Priority:	---
Version:	37.230130
Target Milestone:	---
Hardware:	PC
OS:	Windows
Chart Series:	---	Delphi / C++ Builder RAD IDE Version:	RAD 11 Alexandria

Description yeray alonso 2023-03-09 05:18:03 EST

Example to see the difference:

uses VCLTee.Chart;

const UpperChars='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
const LowerChars='abcdefghijklmnopqrstuvwxyz';

var Chart1: TChart;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1:=TChart.Create(Self);
  Chart1.Parent:=Self;
  Chart1.Walls.Hide;
  Chart1.Axes.Hide;
  Chart1.Gradient.Visible:=False;
  Chart1.Top:=170;
  Chart1.Width:=800;
  Chart1.Height:=200;

  Form1.Font.Size:=15;

  Chart1.OnAfterDraw:=ChartAfterDraw;
end;

procedure TForm1.ChartAfterDraw(Sender: TObject);
begin
  with Chart1.Canvas do
  begin
    Font.Assign(Form1.Font);
    Font.Color:=clBlack;
    Brush.Style:=bsClear;

    TextOut(10, 10, 'TeeChart');
    TextOut(10, 10 + Abs(Font.Height), 'Text drawing with ' + Font.Name + ' at ' + IntToStr(Font.Size) + 'px');
    TextOut(10, 10 + Abs(Font.Height*2), UpperChars);
    TextOut(10, 10 + Abs(Font.Height*3), LowerChars);
  end;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  with Canvas do
  begin
    Brush.Style:=bsClear;

    TextOut(10, 10, 'Form');
    TextOut(10, 10 + Abs(Font.Height), 'Text drawing with ' + Font.Name + ' at ' + IntToStr(Font.Size) + 'px');
    TextOut(10, 10 + Abs(Font.Height*2), UpperChars);
    TextOut(10, 10 + Abs(Font.Height*3), LowerChars);
  end;
end;