Canvas.Textwidth liefert falschen Wert

[p80286]

Das "Durchreichen" wahr wohl der richtige Tip.

Delphi-Quellcode:

  self.Font.Name:='Webdings';
  self.Font.Size:=16;
  self.L_Left.Width:=self.Canvas.TextWidth(peakline[18]);
  self.L_Right.Width:=self.L_Left.Width;
....
  self.L_Left.Font.Name:='Webdings';

So funktioniert alles wie notwendig;

Gruß
K-H