Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Sayfa Çevirme Efekti
#1
Androidde sayfa çevirme efekti yapmak istiyorum.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
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 Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol makalesinden örnekle bu ve benzeri işlemleri gerçekleştirebilirsiniz. (Ana formun OnGesture olayında EventInfo.GestureID tipi ile)
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Sayıyı paraya çevirme dilo 6 287 23-02-2018, Saat: 22:17
Son Yorum: dilo
  Fmx WebBrowser Sayfa Yükleninceye kadar bekleme malitutuncu 6 179 02-02-2018, Saat: 17:50
Son Yorum: malitutuncu



Konuyu Okuyanlar: 1 Ziyaretçi