Resime Yazıyazma Sorunu !!!

[alyamus]

Sayın yöneticiler ve arkadaşlar ben image üzerine yazı yazmaya çalışıyorum fakat yazı büyütme ve küçültmede sorun yaşıyorum . Forma bir tane image , birtane button ve bir tanede trackbar ekliyorum. butona içine şu kodu yazdığımda

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Canvas.Font.size:=trackbar1.position;
image1.Canvas.TextOut(0,25,'deneme yazısı');
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
trackbar1.Position:=trackbar1.position;
end;

Bu kodu yazdığımda yazının boyutunu değişmeye kalktığımda eski yazıda ekranda kalıyor silinmiyor.

bu kodu eklediğimde

Kod: Tümünü seç

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 image1.Canvas.Font.size:=trackbar1.position;
 image1.Canvas.TextOut(0,25,'deneme yazısı');
trackbar1.Position:=trackbar1.position;
end;

yazı büyüyüp küçülürken izler bırakıyor ve kaydederken öyle kaydediyor. benim istediğim trackbar ile yazının boyutunu ayarlaya bilmek yardımcı olurmusunuz lütfen arkadaşlar.