ChinaCock界面控件介绍-TCCImageViewerForm

Posted 2021-02-07 kinglandsoft

有多个图片，左右滑动可以切换，通过手势还可以放大、缩小查看，象常见的相册，就是这样子实现效果。

现在，我们有了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，群主常发红包的！