Delphi 10.4.2 轻松实现Android/IOS txt小说电子书阅读器应用APP翻页效果

Delphi 10.4.2是最新版本的跨平台本机应用开发工具，一套代码可编译到五个操作系统上：iOS、Android、Windows、macOS 和 Linux；本代码仅仅数十行即可轻松实现Android/IOS txt小说电子书阅读器应用APP翻页效果，颈椎枕轻松开发自己的电子书阅读APP应用：

Delphi源代码下载地址：https://download.csdn.net/download/xyzhan/15647843

unit PageTurnUnit1;interfaceusesSystem.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo, FMX.Effects,FMX.Filter.Effects, FMX.Objects, FMX.Layouts, FMX.Ani, Data.Bind.GenData,Data.Bind.Components, Data.Bind.ObjectScope, Data.Bind.EngExt,Fmx.Bind.DBEngExt, System.Rtti, System.Bindings.Outputs, Fmx.Bind.Editors,FMX.StdCtrls, FMX.Edit;typeTPageTurnSampleForm = class(TForm)Memo1: TMemo;Memo2: TMemo;Swipe: TSwipeTransitionEffect;Memo3: TMemo;Memo4: TMemo;LayoutVisible: TLayout;LayoutVirtual: TLayout;LayoutGlass: TLayout;SwipePoint: TSelectionPoint;SwipeAnimation: TPathAnimation;PrototypeBindSource1: TPrototypeBindSource;BindingsList1: TBindingsList;EditLoremIpsum1: TEdit;LinkControlToFieldLoremIpsum1: TLinkControlToField;procedure FormResize(Sender: TObject);procedure FormCreate(Sender: TObject);procedure LayoutGlassMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Single);procedure LayoutGlassMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Single);procedure LayoutGlassMouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Single);procedure SwipeAnimationProcess(Sender: TObject);procedure SwipeAnimationFinish(Sender: TObject);procedure LayoutGlassMouseLeave(Sender: TObject);private{ Private declarations }FCurPage: Integer;procedure FillMemo(memo: TMemo);procedure FinishTurn;const VisibleLines = 30;public{ Public declarations }end;varPageTurnSampleForm: TPageTurnSampleForm;implementation{$R *.fmx}procedure TPageTurnSampleForm.FillMemo(memo: TMemo);
vari: Integer;
beginMemo.Text := EditLoremIpsum1.Text;PrototypeBindSource1.Next;for I := 0 to 20 doMemo.Text := Memo.Text + Format('Page %d ', [FCurPage]);Memo.Text := Memo.Text + EditLoremIpsum1.Text;Memo.Text := Memo.Text + EditLoremIpsum1.Text;PrototypeBindSource1.Next;Inc(FCurPage);
end;procedure TPageTurnSampleForm.FinishTurn;
beginif not Swipe.Enabled then exit;if SwipeAnimation.Enabled then exit;SwipeAnimation.Path.Clear;SwipePoint.Position.Point := PointF(0, 0);SwipeAnimation.Path.MoveTo(Swipe.MousePoint);if Swipe.MousePoint.X <= ClientWidth - ClientWidth / 4 thenbeginSwipeAnimation.Path.LineTo(PointF(Swipe.MousePoint.X / 2, 0));SwipeAnimation.Path.LineTo(PointF(0, 0));endelsebeginSwipeAnimation.Path.LineTo(PointF(ClientWidth, 0));end;SwipeAnimation.Start;
end;procedure TPageTurnSampleForm.FormCreate(Sender: TObject);
beginFCurPage := 1;Swipe.CornerPoint := PointF(LayoutGlass.Width, 0);Swipe.MousePoint  := PointF(LayoutGlass.Width - 5, 5);FillMemo(Memo1);FillMemo(Memo2);FillMemo(Memo3);FillMemo(Memo4);
end;procedure TPageTurnSampleForm.FormResize(Sender: TObject);
beginMemo1.Width := ClientWidth / 2;Memo1.Height := ClientHeight;Memo2.Width := ClientWidth - Memo1.Width;Memo2.Position.X := Memo1.Width;Memo2.Height := ClientHeight;Memo4.Position := Memo2.Position;Memo4.Size := Memo2.Size;Memo3.Position := Memo1.Position;Memo3.Size := Memo1.Size;
end;procedure TPageTurnSampleForm.LayoutGlassMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Single);
varvmemo: TBitmap;
beginSwipe.MousePoint := PointF(x,y);Swipe.Enabled := True;LayoutVirtual.BringToFront;vmemo := LayoutVirtual.MakeScreenshot;Swipe.Target.Assign(vmemo);vmemo.FlipHorizontal;Swipe.Back.Assign(vmemo);vmemo.Free;LayoutVisible.BringToFront;
end;procedure TPageTurnSampleForm.LayoutGlassMouseLeave(Sender: TObject);
beginFinishTurn;
end;procedure TPageTurnSampleForm.LayoutGlassMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Single);
beginif ssLeft in Shift thenbeginSwipe.MousePoint := (TPointF.Create(X,Y));end;
end;procedure TPageTurnSampleForm.LayoutGlassMouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Single);
beginFinishTurn;
end;procedure TPageTurnSampleForm.SwipeAnimationFinish(Sender: TObject);
beginSwipeAnimation.Enabled := False;Swipe.Enabled := False;if Swipe.MousePoint.X = 0 thenbeginMemo1.Text := Memo3.Text;Memo2.Text := Memo4.Text;FillMemo(Memo3);FillMemo(Memo4);end;
end;procedure TPageTurnSampleForm.SwipeAnimationProcess(Sender: TObject);
beginSwipe.MousePoint := SwipePoint.Position.Point;
end;end.

Delphi 10.4.2 轻松实现Android/IOS txt小说电子书阅读器应用APP翻页效果相关推荐

基于Android的小说在线阅读器软件APP
在我国,有很多人在业余时间喜欢看小说,因为小说独特性,可以通过书籍.手机甚至在电脑上进行阅读.当然,根据不同的人阅读的习惯不一样,一部分的喜欢书籍阅读,一部分喜欢在手机上阅读.两者都有其优势,前者不易 ...
android滑动切换卡片,一步步实现Viewpager卡片翻页效果
这个CardStackViewpager的灵感来自Github上面的 FlippableStackView开源项目,而我想实现的效果方向上刚好与FlippableStackView相反,而且细节上也有 ...
ios 开源的电子书阅读器项目
iphone平台上开源的电子书阅读器项目: https://github.com/vfr/Reader https://github.com/brow/leaves https://github.co ...
android 电子书源码，翻页效果
这两天模仿着做了一个apk电子书的应用,有翻页效果,本来是想学一下自己写的,无奈,最后偷懒使用了别人写的翻页类 PageWidget.java 下面是工程文件的结构这个是写的类的包结构,PageV ...
基于Android的本地电子书阅读器的设计与实现Ebook（1）
基于Android的本地电子书阅读器的设计与实现Ebook(1) 学习Android时间不久,试着做了一个本地电子书阅读器APP,因为知识浅薄并不能像其他大佬一样实现各种繁杂的功能,但可以实现基本的阅 ...
Android翻页效果原理实现之翻页的尝试
炮兵镇楼在<自定义控件其实很简单>系列的前半部分中我们用了整整六节近两万字两百多张配图讲了Android图形的绘制,虽然篇幅很巨大但仍然只是图形绘制的冰山一角,旨在领大家入门,至于修行成 ...
android 辅助功能翻页,Android利用悬浮按钮实现翻页效果
今天给大家分享下自己用悬浮按钮点击实现翻页效果的例子. 首先,一个按钮要实现悬浮,就要用到系统顶级窗口相关的WindowManager,WindowManager.LayoutParams.那么在An ...
用IOS手机看小说，阅读器APP怎么选
由于IOS手机自身不能直接打开epub或者txt格式文件,或者阅读软件使用感较差,会我们的阅读带来不小的困扰.今天我为大家推荐iOS苹果手机上比较好用的3个epub阅读器,用这些阅读器,大家就可以轻松 ...
Android之实现上下左右翻页效果
如果实现上下或者左右翻页效果,我们借助下这个开源项目:https://github.com/openaphid/android-flip Aphid FlipView是一个能够实现Flipboard翻 ...

Delphi 10.4.2 轻松实现Android/IOS txt小说电子书阅读器应用APP翻页效果

Delphi 10.4.2 轻松实现Android/IOS txt小说电子书阅读器应用APP翻页效果相关推荐

最新文章

热门文章