Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Sayfa Çevirme Efekti
#1
Androidde sayfa çevirme efekti yapmak istiyorum.
https://www.youtube.com/watch?v=ssgK-cc5W40
Adresinde anlatılan şekilde uygulamayı hazırladım ancak tam olarak çalıştırmayı başaramadım. click olayı ile istenilen şey yapılabiliyor. Ancak benim istediğim parmak hareketi ile sayfayı çevirirken efekt vermek. Windowsta derlenen uygulamada kısmen istediğim şey oluyor ama androidde hiç çalışmıyor. İlgilenen arkadaşlara şimdiden teşekkür ederim..

Kodlar:

var
  FGestureInProgress: Boolean;
  FAngle, FMouse: TPointF;

procedure TForm2.Image1Click(Sender: TObject);
begin

 PathAnimation1.Enabled := False;
 SelectionPoint1.Position.Point := PointF(0,0);
 SelectionPoint1.Opacity := 0;
 PathAnimation1.Parent := SelectionPoint1;
 PathAnimation1.Path.Clear;
//// begin Path for mouse pointer
 PathAnimation1.Path.MoveTo(PointF(0,0));
 PathAnimation1.Path.LineTo(PointF(Form2.Width/2,Form2.Height/2));
 PathAnimation1.Path.LineTo(PointF(Form2.Width*2,0));
//// end  Path for mouse pointer
 PathAnimation1.Duration := 2;
 PathAnimation1.Start;
end;

procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Single);
begin
FGestureInProgress:= True;
FAngle:= PointF(X, Y);
end;

procedure TForm2.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Single);
begin
if FGestureInProgress then
begin
 FMouse:= PointF(X,Y);
 SwipeTransitionEffect1.CornerPoint:= FAngle;
 SwipeTransitionEffect1.MousePoint:= FMouse;
end;
end;

procedure TForm2.Image1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Single);
begin
FGestureInProgress:= False;
end;

procedure TForm2.PathAnimation1Finish(Sender: TObject);
var
 BitMap : TBitmap;
begin
 BitMap := TBitmap.Create(0,0);
 BitMap.Assign(SwipeTransitionEffect1.Target);
 SwipeTransitionEffect1.Target := Image1.Bitmap;
 Image1.Bitmap.Assign(BitMap);
 SwipeTransitionEffect1.MousePoint := PointF(0,0);
end;

procedure TForm2.PathAnimation1Process(Sender: TObject);
begin
SwipeTransitionEffect1.MousePoint:=SelectionPoint1.Position.Point;
end;
Cevapla
#2
Merhaba,
Daha önce yazmış olduğum FireMonkey Resimlerde Pan ve Zoom İşlemleri makalesinden örnekle bu ve benzeri işlemleri gerçekleştirebilirsiniz. (Ana formun OnGesture olayında EventInfo.GestureID tipi ile)
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Web sayfa ileti engeleme Nedim 3 699 11-12-2022, Saat: 09:27
Son Yorum: mrmarman
  FMX FloatAnimation nasil ses efekti eklerim ? RafKing 2 942 03-06-2021, Saat: 21:27
Son Yorum: RafKing
  Android : Tam sayfa splash ekranı nasıl yapılır ? [ GÖRSEL ANLATIM ] Mr.Developer 20 12.603 13-04-2020, Saat: 18:29
Son Yorum: arsl01
  componenti fmx e çevirme info@guzelceker.com 0 1.094 20-12-2019, Saat: 12:56
Son Yorum: info@guzelceker.com
  FMX Kayan Sayfa cihankoca 1 1.643 04-12-2019, Saat: 15:32
Son Yorum: cihankoca



Konuyu Okuyanlar: 1 Ziyaretçi