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;
(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.
Merhaba,
Timage yerine rectangle kullanabilirsiniz.
(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ı)
