Canvas.TextOut nasıl

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
sr1111
Üye
Mesajlar: 201
Kayıt: 06 Mar 2008 01:59

Canvas.TextOut nasıl

Mesaj gönderen 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;

Kullanıcı avatarı
adelphiforumz
Üye
Mesajlar: 602
Kayıt: 01 Nis 2008 05:38
Konum: İstanbul

Re: Canvas.TextOut nasıl

Mesaj gönderen 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
Ehil olmayanlara sabretmek ehil olanları parlatır.
Akıllı birisinden gelen cefa, bilgisizlerin vefasından iyidir.
Bilgiye ulaştı mı ayak, kanat olur
Biz insanı kıyafetiyle ağırlar bilgisiyle uğurlarız.
Mevlana

sr1111
Üye
Mesajlar: 201
Kayıt: 06 Mar 2008 01:59

Re: Canvas.TextOut nasıl

Mesaj gönderen sr1111 »

yapamadigim icin sordum.

Kullanıcı avatarı
loaded
Üye
Mesajlar: 81
Kayıt: 12 Eki 2010 09:45
Konum: Konya
İletişim:

Re: Canvas.TextOut nasıl

Mesaj gönderen 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;
Kalk ve işe yarar bir şey yap! Çünkü Allah (c.c.) yeniden başlayanların yardımcısıdır.

Cevapla