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;
Canvas.TextOut nasıl
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
- adelphiforumz
- Üye
- Mesajlar: 602
- Kayıt: 01 Nis 2008 05:38
- Konum: İstanbul
Re: Canvas.TextOut nasıl
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
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
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
Re: Canvas.TextOut nasıl
yapamadigim icin sordum.
Re: Canvas.TextOut nasıl
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.