红鱼儿

公告

统计

  • 随笔 - 97
  • 文章 - 1
  • 评论 - 18
  • 引用 - 0
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,群主常发红包的!

 

posted on 2019-01-31 14:12 红鱼儿 阅读(...) 评论(...) 编辑 收藏