Bir resmin oryantasyonunu bularak uygun açı ile döndürme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Hashirama
Üye
Mesajlar: 81
Kayıt: 26 Kas 2013 03:42

Re: Bir resmin oryantasyonunu bularak uygun açı ile döndürme

Mesaj gönderen Hashirama »

Firemonkey le bu işi çok basit bir şekilde yapabilirsin.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
image1.RotationAngle:=image1.RotationAngle+5;
end;
Kullanıcı avatarı
esistem
Üye
Mesajlar: 464
Kayıt: 02 Eki 2007 11:22
İletişim:

Re: Bir resmin oryantasyonunu bularak uygun açı ile döndürme

Mesaj gönderen esistem »

Selam,
Resim
Yukarıdaki resmi hazırladım örnek olarak.
Önce resmin orta noktalarından kırmızı doğruyu çizersin, sonra, resmin soldan başlayan ilk pikseli ile, sağda biten son pikseli arasında siyah doğruyu çizersin, siyah doğruya 90 derecelik açı yapacak şekilde mavi doğruyu çizersin, kırmızı ve mavi doğru arasındaki açı sana sapmayı verir, kısaca kırmızı doğruyu mavi doğru üzerine gelene kadar döndürürsün.
Cevapla