浏览代码

fix imageslider onitemclick not fired when IsCanDrag = True

KngStr 5 年之前
父节点
当前提交
3d73a9ac78
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      FMX.ImageSlider.pas

+ 1 - 1
FMX.ImageSlider.pas

@@ -386,7 +386,7 @@ var
   PrevPage: Integer;
   PrevPage: Integer;
 begin
 begin
   inherited;
   inherited;
-  if (not FIsMove) and FStartDrag then
+  if (not FIsMove) and (FStartDrag or not IsCanDrag) then
   begin
   begin
     if FIsTimer then
     if FIsTimer then
       FTimer.Enabled := True;
       FTimer.Enabled := True;