image canvas ile ok çizdirmek

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
atlasbm
Üye
Mesajlar: 27
Kayıt: 25 Ağu 2003 12:52

image canvas ile ok çizdirmek

Mesaj gönderen atlasbm »

S.A. arkadaşlar

foruma bir image ekledim ve aşağıdaki kodları yazdım. image sol ve sağ noktalar aynı ise oku çizdirebiliyorum. ama örnek olarak sol nokta image tam ortası(100) ama sağ nokta üstten 20 uzaklık ise ok olması gerektiği gibi simetrik durmuyor. yatay gelen doğrunun eğimi ile ilgili ama nasıl bir mantık kuracağımı çözemedim. yardımlarınız için şimdiden çok tşkler.

Kod: Tümünü seç

image1.Width:=200;
image1.Height:=200;

image1.Canvas.MoveTo(1,1);
image1.Canvas.LineTo(1,199);

image1.Canvas.MoveTo(199,1);
image1.Canvas.LineTo(199,199);

image1.Canvas.MoveTo(1,100);
image1.Canvas.LineTo(200,100);

image1.Canvas.MoveTo(1,100);
image1.Canvas.LineTo(10,90);

image1.Canvas.MoveTo(1,100);
image1.Canvas.LineTo(10,110);

Kullanıcı avatarı
SimaWB
Üye
Mesajlar: 1316
Kayıt: 07 May 2009 10:42
Konum: İstanbul
İletişim:

Re: image canvas ile ok çizdirmek

Mesaj gönderen SimaWB »

İşin içine matematik fazlasıyla girdiği için burada anlatması zor. Aşağıdaki linklerdeki örnekler işinizi görecektir:
http://delphi.cjcsoft.net/viewthread.php?tid=46004
http://www.swissdelphicenter.ch/en/showcode.php?id=2426
There's no place like 127.0.0.1
atlasbm
Üye
Mesajlar: 27
Kayıt: 25 Ağu 2003 12:52

Re: image canvas ile ok çizdirmek

Mesaj gönderen atlasbm »

Allah razı olsun yardımlarınız için. verdiğiniz örnekleri inceliyerek bişeyler yapabildim. Tekrar Allah Razı Olsun. Hakkınızı helal edin.
Cevapla