Resime kendi etrafın dönme animasyonu verme

[HakanY]

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;

[vedat35]

(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.

[ozcanm]

Merhaba,
Timage yerine rectangle kullanabilirsiniz.

[RAD Coder]

(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;

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. 
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ı)