ChinaCock界面控件介绍-TCCImageViewerForm
有多个图片,左右滑动可以切换,通过手势还可以放大、缩小查看,象常见的相册,就是这样子实现效果。
现在,我们有了TCCImageViewerForm组件,也可以轻松实现这样的场景应用。
现在看看TCCImageViewerForm用法,一如既往的简单。
TCCImageViewerForm是一个不可视控件,拖放一个到Form上,然后调用他的两个方法,一个是增加图片Add,一个是显示图片ShowForm。
procedure TForm1.CCGridPictureEditor1ItemClick(Sender: TObject; AItem: TCCGridPictureEditorItem); var i: Integer; APicCount: Integer; begin APicCount := CCGridPictureEditor1.Items.Count; CCImageViewerForm1.ClearBitmap; for i := 0 to APicCount - 1 do begin CCImageViewerForm1.Add(CCGridPictureEditor1.Items[i].Bitmap); end; CCImageViewerForm1.ShowForm(AItem.Index, false, procedure(AResult: TModalResult) begin end, nil); end;
简单的不能再简单,我都快不知写什么了。
ShowForm方法有几个参数,还是说说为好:
procedure TCCImageViewerForm.ShowForm(AIndex: Integer; ACanDelete: Boolean; AResultProc: TProc<System.UITypes.TModalResult>; AOnImageDeleteProc: TProc<Integer>);
AIndex:直接显示第几张图片的索引值
ACanDelete:是否允许删除
AResultProc:关闭窗口时的回调方法
AOnImageDeleteProc:删除一个图片时的回调方法。
完了,不知再写什么了,三十马上到了,代表ChinaCock提前给大家拜年!如果也想享受这个组件的便利,请到QQ群223717588去找作者,又不要你一分钱,这是作者常说的。
别忘了去QQ群223717588,群主常发红包的!