Der
Code:
Image1.Picture.Bitmap.Canvas.TextOut(Image1.Width div 2 , Image1.Height div 2, edText.Text);
funzt super.
mit dem hab ich so meine Probleme
Code:
TextSize := Image1.Picture.Bitmap.Canvas.TextExtend(edText.Text);
Image1.Picture.Bitmap.Canvas.TextOut((Image1.Width - TextSize.cx) div 2, (Image1.Height - TextSize.cy) div 2, edText.Text);
er gibt mir den Fehler
Delphi-Quellcode:
[Fehler] Main.pas(81): Undefinierter Bezeichner: 'TextSize'
[Fehler] Main.pas(81): Undefinierter Bezeichner: 'TextExtend'
[Fehler] Main.pas(82): ')' erwartet, aber Bezeichner 'cx' gefunden
zurück.
hab versucht in der procedure eine Variable TextSIze angelgt als String...
var TextSize : String;
der erste FEhler ist dann weg die andern bleiben bestehen.