Resime kendi etrafın dönme animasyonu verme

Resime kendi etrafın dönme animasyonu verme - Baskı Önizleme

+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Mobil Platform - FireMonkey (FMX) (https://www.delphican.com/forumdisplay.php?fid=7)
+--- Konu Başlığı: Resime kendi etrafın dönme animasyonu verme (/showthread.php?tid=6359)

Resime kendi etrafın dönme animasyonu verme - HakanY - 01-11-2021

Merhabalar,

TFloatAnimation klasik amimasyonlar yaptırıyorum, biraz faklı bir animasyon yapmak istedim ama çözüm bulamadım.

TImage nesnesini kendi etrafında (soldan sağa) 1 tur attırıp resmi değiştirmek istiyorum bunu nasıl yapabilirim?

                  
                  MainForm.ImageRight.Bitmap.LoadFromFile(FDQ.FieldByName('Linkler').AsString);
                  MainForm.FloatAnimationRightImage.Parent := MainForm.ImageRight;
                  MainForm.FloatAnimationRightImage.PropertyName := 'Position.Y';
                  MainForm.FloatAnimationRightImage.Duration := 0.4;
                  MainForm.FloatAnimationRightImage.StartValue := MainForm.LayoutRight.Height;
                  MainForm.FloatAnimationRightImage.StopValue := MainForm.LayoutRight.Position.Y;
                  MainForm.FloatAnimationRightImage.Start;

Cvp: Resime kendi etrafın dönme animasyonu verme - vedat35 - 01-11-2021

(01-11-2021, Saat: 11:16)HakanY Adlı Kullanıcıdan Alıntı: Merhabalar,

TFloatAnimation klasik amimasyonlar yaptırıyorum, biraz faklı bir animasyon yapmak istedim ama çözüm bulamadım.

TImage nesnesini kendi etrafında (soldan sağa) 1 tur attırıp resmi değiştirmek istiyorum bunu nasıl yapabilirim?

                  
                  MainForm.ImageRight.Bitmap.LoadFromFile(FDQ.FieldByName('Linkler').AsString);
                  MainForm.FloatAnimationRightImage.Parent := MainForm.ImageRight;
                  MainForm.FloatAnimationRightImage.PropertyName := 'Position.Y';
                  MainForm.FloatAnimationRightImage.Duration := 0.4;
                  MainForm.FloatAnimationRightImage.StartValue := MainForm.LayoutRight.Height;
                  MainForm.FloatAnimationRightImage.StopValue := MainForm.LayoutRight.Position.Y;
                  MainForm.FloatAnimationRightImage.Start;

Eğer timage yi kendi etrafında 360derece döndürmek istiyorsanız, tviewport3d1 ile kolayca yapabilirsiniz 3d alan içinde.

Resime kendi etrafın dönme animasyonu verme - ozcanm - 01-11-2021

Merhaba,
Timage yerine rectangle kullanabilirsiniz.

Cvp: Resime kendi etrafın dönme animasyonu verme - RAD Coder - 02-11-2021

                  
                  MainForm.ImageRight.Bitmap.LoadFromFile(FDQ.FieldByName('Linkler').AsString);
                  MainForm.FloatAnimationRightImage.Parent := MainForm.ImageRight;
                  MainForm.FloatAnimationRightImage.PropertyName := 'Position.Y';
                  MainForm.FloatAnimationRightImage.Duration := 0.4;
                  MainForm.FloatAnimationRightImage.StartValue := MainForm.LayoutRight.Height;
                  MainForm.FloatAnimationRightImage.StopValue := MainForm.LayoutRight.Position.Y;
                  MainForm.FloatAnimationRightImage.Start;

PropertyName := 'Position.Y'; (bu özellik Y ekseni üzerinde hareket etmeyi sağlar) değerinin kendi ekseni etrafında dönmeyi sağlayacağına emin misiniz. Shy

Bir de şunu deneyin;
PropertyName := 'RotationAngle';

Örnek Kodlar:

implementation

Uses FMX.Ani;
{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
 TAnimator.AnimateIntWait(Image1, 'RotationAngle', 360,0.7);
 Image1.Bitmap.Assign(ImageList1.Bitmap(Image1.Bitmap.Size, 0));
end;

Daha detaylı örnekler için
Tüm Platformlar için Hızlı Uygulama Geliştirme Kitabı › Örnek Uygulamalar > 16. Bölüm - Animasyon ve Geçiş Efektleri (Rüzgâr Türbini ve Taklacı Meyveler örnek uygulamaları)