Canvas.TextOut nasıl

[sr1111]

bu kodla $0621 den $063A kadar olan karakterleri yazdirmak istiyorum fakat yapamadim. nerde hata yapiyorum.

bmp := tbitmap.create;
bmp.width := 800;
bmp.height := 600;
With bmp.Canvas do begin
For Sayac := Ord($0621) to Ord($063A) do
bmp.Canvas.Font.Name := 'arial';
bmp.Canvas.Font.Color := clblack;
bmp.Canvas.Font.Style := [];
bmp.Canvas.Font.Height := 264;
bmp.Canvas.TextOut(0, 0, chr(Sayac));
bmp.savetofile('C:\te.bmp');
bmp.free;

[adelphiforumz]

bmp.Canvas.TextOut(0, 0, chr(Sayac));
içindeki X ve Y için değerleri her harf için ilerletmen lazım
her harf yeni koordinata yazman lazım
Buna göre düzenlersen sorun çözülür

[sr1111]

yapamadigim icin sordum.

[loaded]

Merhaba

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
sayac,x,y:integer;
begin
image1.width := 800;
image1.height := 600;
x:=0;y:=0;
For Sayac := $0621 to $063A do
begin
image1.Canvas.Font.Name := 'arial';
image1.Canvas.Font.Color := clred;
image1.Canvas.Font.Height :=15;
x:=x+image1.Canvas.TextHeight(chr(sayac));
y:=y+image1.Canvas.TextWidth(chr(sayac));
image1.Canvas.TextOut(x, y, chr(ord(sayac)));
end;
end;