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 - Fonts are a bit thinner in TeeChart (GDIPlus) than in the default canvas
Summary: Fonts are a bit thinner in TeeChart (GDIPlus) than in the default canvas
Status: CONFIRMED
Alias: None
Product: VCL TeeChart
Classification: Unclassified
Component: Canvas (show other bugs)
Version: 37.230130
Hardware: PC Windows
: --- enhancement
Target Milestone: ---
Assignee: Steema Issue Manager
URL:
Keywords:
Depends on:
Blocks:
 
Reported: 2023-03-09 05:18 EST by yeray alonso
Modified: 2023-03-09 05:18 EST (History)
1 user (show)

See Also:
Chart Series: ---
Delphi / C++ Builder RAD IDE Version: RAD 11 Alexandria

Attachments
Add an attachment (proposed patch, testcase, etc.)

Note You need to log in before you can comment on or make changes to this bug.
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;