delphi 预览图片2 （MouseUP）

这个是自己项目在使用的，所以带有些业务功能的代码。

逻辑上使用的大多是 mouseup ，MouseMove，Mousedown。使用recttangle容器实现滑动。网上有这个下载demo。

另外移动端要注意线程的异步同步的控制。

unit UShowPictureZoomIn;

interface

uses
  System.SysUtils,
  System.Types,
  System.UITypes,
  System.IOUtils,
  System.Classes,
  System.Variants,
  System.Messaging ,
  System.Generics.Collections,
  FMX.Types,
  FMX.Graphics,
  FMX.Controls,
  FMX.Forms,
  FMX.Dialogs,
  FMX.StdCtrls,
  FMX.Objects,
  FMX.Effects,
  FMX.Ani,
  FMX.Controls.Presentation,
  FMX.Layouts,DRCommonEvent,
  DRFormClass,PublicVariables,ParentFrm,UDM,MSFileCLass,
  GetData,Common,Datasnap.DBClient,DataRec,CDSHelper ,
  {$IFNDEF MSWINDOWS}
  FMX.Gestures,
  {$ENDIF}
  FMX.Edit;

type
  //  TArray   =  array of string;
  TArrays  =  array of array of string;
  TFrmShowPictureZoomIn = class(TParentform)
    LayoutContainer: TLayout;
    Image1: TImage;
    Image2: TImage;
    RectBottom: TRectangle;
    AChkType: TCheckBox;
    lblSelectOK: TLabel;
    RectTop: TRectangle;
    ImgReturn: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    //
    procedure RectOnMouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Single);
    procedure RectOnMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Single);
    procedure RectOnMouseUP(Sender: TObject; Button: TMouseButton;Shift : TShiftState; X, Y: Single);
    procedure FormGesture(Sender: TObject; const EventInfo: TGestureEventInfo;
      var Handled: Boolean);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Single);
    procedure lblSelectOKClick(Sender: TObject);
    procedure ImgReturnClick(Sender: TObject);
    procedure FormTap(Sender: TObject; const Point: TPointF);
    procedure RectTopClick(Sender: TObject);
  private
    { Private declarations }
     {$IFNDEF MSWINDOWS}
     GestureManager1  : TGestureManager ;
     {$ENDIF}
     ARectOK         : TRectangle;
     ARectCancel     : TRectangle ;
     ARectChk        : TRectangle ;
     ARectIsCreate   : boolean ;
     AImage          : Array of TImage ;
     ARect           : Array of TRectangle ;
    //
     FLastPosition   : TPointF;
     FLastDIstance   : integer ;
     FOriginalWidth  : Array of Single ;
     FOriginalHeight : Array of Single ;
     FOriginalX      : Array of single ;
     FOriginalY      : Array of Single ;
     FZoomWidth      : Single ;
     FZoomHeight     : Single ;
    //
    BMSCarrierObject_ID:string;
   // AImgGuIDRelationship:TImgGuIDRelationship;
    ArrayOfGuID    :TArrays;
    firstHit  :  integer;
    AGuIDlist:Tstringlist;
   // ArrayOfGuID    :array of array of string;

FBitmapList    : TList<TBitmap>;

FImgListPath   : TList<string>;
    FCurrentIndex  : integer ;
    PageCount,PageCountA      : integer ;
    pageIndex      : Integer;
    tapDownPos     : TPointF;
    tapDownPosF    : TPointF;
    FX             : single ;

tapIsDown: Boolean;  // This is needed, since the tap can happend outside control and then moved inside it to release
    procedure  ScrollMainView(page: Integer);
    procedure  InitFormInfo ;
    //
    procedure  InitImageList();
    procedure  InitCurrentImage ;
    procedure  InitFormInfoA ;
    //
    procedure  InitImageListPath ;
    procedure  InitCurrentImgPath ;
    //
    procedure  InitImageStrPath ;
    Procedure  InitCurrentPath ;

procedure  ARectCancelOnClick(Sender :TObject);
    procedure  ARectOnClick(Sender :TObject);
    procedure  LblOkClick(Sender: TObject);

procedure  LoadImgGuIDInfo;   //下载小图guid和大图guid对应表    暂时不用
    procedure  LoadZoomImg(AIndex:integer);
  public
    { Public declarations }
    //缩约图list，缩约图idlist，点击的第几张图，载体id，缩约图和原图对应的id 2维表
    class Procedure  ShowForm(AList:TList<TBitmap>;BGuIDlist:Tstringlist;AIndex
                      :integer;AMSCarrierObject_ID:string; AArrayOfGuID:TArrays); overload;
    class Procedure  ShowForm(AListPath : TList<string> ; AIndex :Integer );overload;

end;

var
  FrmShowPictureZoomIn: TFrmShowPictureZoomIn;

implementation

{$R *.fmx}

procedure TFrmShowPictureZoomIn.ARectCancelOnClick(Sender: TObject);
begin
  TDRForm.Create(TFrmShowPictureZoomIn).Release ;
end;

procedure TFrmShowPictureZoomIn.ARectOnClick(Sender: TObject);
var
  ABitmap : TBitmap ;
  AList   : TList<TBitmap>;
begin
  if Sender is TRectangle then
  begin
     try
        AList   := TList<TBitmap>.Create;
        ABitmap := TBitmap.Create;
        ABitmap.Assign(AImage[pageindex].bitmap);
        if AChkType.IsChecked <> true then
           ABitmap.CreateThumbnail(40,40);
        AList.Add(ABitmap);
        TMessageManager.DefaultManager.SendMessage(self,TImageCallBack.Create(AList));
        //image2.Bitmap.Assign(AImage[pageindex-1].bitmap);
     finally
       ABitmap.DisposeOf ;
     end;
  end;

end;

procedure TFrmShowPictureZoomIn.FormCreate(Sender: TObject);
begin
  pageIndex := 0;
  tapIsDown := false;
  LayoutContainer.Position.Y := 60;
  ARectIsCreate := false;
end;

procedure TFrmShowPictureZoomIn.FormGesture(Sender: TObject;
  const EventInfo: TGestureEventInfo; var Handled: Boolean);
var
  LObj   : IControl;
  LImage : TImage;
  LImageCenter : TPointF;
  ATag   : integer ;
begin
   INHERITED;
  {$IFNDEF MSWINDOWS}
   if Sender is TImage then
      ATag := TImage(Sender).Tag ;
   if Sender is TRectangle then
      ATag := TRectangle(Sender).Tag;
  if EventInfo.GestureID = igiZoom then
  begin
    tapIsDown := false;
    LObj := Self.ObjectAtPoint(ClientToScreen(EventInfo.Location));
    if LObj is TImage then
    begin
      if (not(TInteractiveGestureFlag.gfBegin in EventInfo.Flags)) and
        (not(TInteractiveGestureFlag.gfEnd in EventInfo.Flags)) then
      begin
        LImage := TImage(LObj.GetObject);
        LImageCenter := LImage.Position.Point + PointF(LImage.Width / 2,
                        LImage.Height / 2);

LImage.Width := LImage.Width + (EventInfo.Distance - FLastDistance);

LImage.Height := LImage.Height + (EventInfo.Distance - FLastDistance);

LImage.Position.X := LImageCenter.X - LImage.Width / 2;
        LImage.Position.Y := LImageCenter.Y - LImage.Height / 2;
        //

if LImage.Width < FOriginalWidth[PageIndex] then
        begin
           FZoomWidth := LImage.Width ;
        end;
        if LImage.height < FOriginalHeight[PageIndex] then
        begin
           FZoomheight := LImage.height ;
        end;
      end;
      FLastDistance := EventInfo.Distance;
      Handled := true ;
    end;
  end;
  {$ENDIF}
end;

procedure TFrmShowPictureZoomIn.FormMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin

if FZoomWidth< FOriginalWidth[PageIndex] then
     begin
        AImage[PageIndex].Position.X := FOriginalX[PageIndex];
        AImage[PageIndex].Position.Y := FOriginalY[PageIndex] ;
        AImage[PageIndex].Width      := FOriginalWidth[PageIndex] ;
        AImage[PageIndex].Height     := FOriginalHeight[PageIndex] ;
     end;
end;

procedure TFrmShowPictureZoomIn.FormResize(Sender: TObject);
var
  i :integer ;
begin
  LayoutContainer.Height := Self.ClientHeight;
  LayoutContainer.Width  := self.ClientWidth ;
  RectTop.Width := trunc(self.ClientWidth / 3 );
  if ARectIsCreate then
  begin

if Assigned(FBitmapList) then
        for i :=0  to FBitmapList.Count -1  do
        begin
            ARect[i].Width := self.ClientWidth ;
            if i>0 then
              ARect[i].Position.X :=ARect[i-1].Width *I;
           ScrollMainView(FCurrentIndex);
        end;
     if Assigned(FImgListPath) then
        for i :=0  to FImgListPath.Count -1  do
        begin
            ARect[i].Width := self.ClientWidth ;
            if i>0 then
              ARect[i].Position.X :=ARect[i-1].Width *I;
           ScrollMainView(FCurrentIndex);
        end;
  end;
end;

procedure TFrmShowPictureZoomIn.FormTap(Sender: TObject; const Point: TPointF);
begin
  TDRForm.Create(self).Release ;
end;

procedure TFrmShowPictureZoomIn.ImgReturnClick(Sender: TObject);
begin
  TDRForm.Create(self).Release ;
end;

procedure TFrmShowPictureZoomIn.InitCurrentImage;
begin
  ScrollMainView(FCurrentIndex);
end;

procedure TFrmShowPictureZoomIn.InitCurrentImgPath;
begin

end;

procedure TFrmShowPictureZoomIn.InitCurrentPath;
begin
  TAnimator.AnimateFloat(LayoutContainer, 'Position.X', (50 * 2) * -1, 0.5, TAnimationType.Out, TInterpolationType.Exponential);
end;

procedure TFrmShowPictureZoomIn.InitFormInfo;
begin
  //PageCount  := FBitmapList.Count  ;
  if Assigned(FBitmapList) then
     begin
       PageCount := FBitmapList.Count -1 ;
       setLength(ArrayOfGuID,FBitmapList.Count,2);
     end;
  if Assigned(FImgListPath) then
     begin
       PageCount := FImgListPath.Count -1 ;
       setLength(ArrayOfGuID,FImgListPath.Count,2);
     end;
  {$IFNDEF MSWINDOWS}
     GestureManager1  := TGestureManager.Create(SELF) ;
  {$ENDIF}
end;

procedure TFrmShowPictureZoomIn.InitFormInfoA;
begin
  PageCount := FBitmapList.Count -1 ;
end;

procedure TFrmShowPictureZoomIn.InitImageList;
var
  i : integer ;
  ARect  : Array of TRectangle ;

ARectBottom : TRectangle;
  ARectTop    : TRectangle;
  ALblOk      : TLabel ;
begin
  setLength(ARect,FBitmapList.Count);
  setLength(AImage,FBitmapList.Count);
  setLength(FOriginalWidth,FBitmapList.Count);
  setLength(FOriginalHeight,FBitmapList.Count);
  setLength(FOriginalX,FBitmapList.Count);
  setLength(FOriginalY,FBitmapList.Count);
  for i := 0 to  FBitmapList.Count-1 do
  begin
    ARect[i] := TRectangle.Create(nil);
    ARect[i].Width := self.ClientWidth ;
    ARect[i].Height := self.Height ;
    ARect[i].Parent := LayoutContainer ;
    //ARect[i].Align  := TAlignLayout.Left ;
    if i>0 then
       ARect[i].Position.X :=ARect[i-1].Width *I;
    ARect[i].Tag    := i+1 ;
    ARect[i].Fill.Color :=$FF000000;
    {$IFNDEF MSWINDOWS}
    ARect[i].Touch.GestureManager := GestureManager1 ;
    ARect[i].Touch.InteractiveGestures :=[TInteractiveGesture.Zoom,TInteractiveGesture.Pan,TInteractiveGesture.Rotate,
                                          TInteractiveGesture.TwoFingerTap,TInteractiveGesture.PressAndTap];
    ARect[i].OnGesture   := FormGesture ;
    {$ENDIF}
    ARect[i].OnMouseDown := RectOnMouseDown ;
    ARect[i].OnMouseUp   := RectOnMouseUp ;
    ARect[i].OnMouseMove := RectOnMouseMove ;

AImage[i] := FMX.Objects.TImage.Create(nil);
    AImage[i].Parent := ARect[i] ;
    AImage[i].Tag    := i+1 ;
    AImage[i].Width  := self.ClientWidth -20 ;
    AImage[i].Height := 400 ;
    AImage[i].Margins.Left :=10;
    AImage[i].Margins.Right :=10;
    AImage[i].Align :=TAlignLayout.Center ;
//    if FileExists(FBitmapList[i]) then
//    begin
//      AImage[i].Bitmap.LoadFromFile(FBitmapList[i]);
//    end
//    else
      AImage[i].Bitmap.Assign(FBitmapList[i]);

AImage[i].WrapMode :=TImageWrapMode.Stretch ;
    AImage[i].HitTest  := true ;
    AImage[i].OnMouseDown := RectOnMouseDown ;
    AImage[i].OnMouseUp   := RectOnMouseUp ;
    AImage[i].OnMouseMove := RectOnMouseMove ;

ARectBottom := TRectangle.Create(nil);
    ARectBottom.Width := self.ClientWidth ;
    ARectBottom.Height := 60;
    ARectBottom.Parent :=  ARect[i] ;
    ARectBottom.StrokeThickness := 0;
    ARectBottom.Fill.Color := $FF000000;
    ARectBottom.Opacity := 0.5 ;
    ARectBottom.Align   := TAlignLayout.Bottom ;

ARectOK  := TRectangle.Create(nil);
    ARectOK.Parent := ARectBottom ;
    ARectOK.Width  := 120;
    ARectOK.Align  := TAlignLayout.Right ;
    ARectOK.HitTest := true;
    ARectOK.Margins.Top :=8;
    ARectOK.Margins.Right :=16;
    ARectOK.Margins.Bottom :=8;
    ARectOK.Sides :=[];
    ARectOK.XRadius := 8;
    ARectOK.YRadius := 8;
    ARectOK.Fill.Color := $FF4acfd6;
    ARectOK.OnClick    := ARectOnClick ;
    ALblOk      := TLabel.Create(nil) ;
    ALblOk.Text :='选 取';
    ALblOk.AutoSize := true;
    ALblOk.Parent   :=  ARectOK ;
    ALblOk.Font.Size  := 18;
    ALblOk.FontColor  := $FFFFFF;
    ALblOk.Align    := TAlignLayout.Center ;
    ALblOk.HitTest  := false;
    //
    ARectTop := TRectangle.Create(nil);
    ARectTop.Width := self.ClientWidth ;
    ARectTop.Height := 60;
    ARectTop.Parent :=  ARect[i] ;
    ARectTop.StrokeThickness := 0;
    ARectTop.Fill.Color := $FF000000;
    ARectTop.Opacity := 0.5 ;
    ARectTop.Align   := TAlignLayout.Top ;
    //
    FOriginalWidth[i]  := AImage[i].Width ;
    FOriginalHeight[i] := AImage[i].Height ;
    FOriginalX[i]      := AImage[i].Position.X ;
    FOriginalY[i]      := AImage[i].Position.Y ;
  end;

end;

procedure TFrmShowPictureZoomIn.InitImageListPath;
var
  i : integer ;
  ARectBottom : TRectangle;
  ARectTop    : TRectangle;
  ALblOk      : TLabel ;
  ALblCancel  : TLabel ;
  AStream     : TMemoryStream ;
begin
  setLength(ARect, FImgListPath.Count);
  setLength(AImage,FImgListPath.Count);
  setLength(FOriginalWidth, FImgListPath.Count);
  setLength(FOriginalHeight,FImgListPath.Count);
  setLength(FOriginalX,FImgListPath.Count);
  setLength(FOriginalY,FImgListPath.Count);
  ARectIsCreate      := true ;
  for i := 0 to  FImgListPath.Count-1 do
  begin
    ARect[i] := TRectangle.Create(nil);
    ARect[i].Width := self.ClientWidth ;
    ARect[i].Height := self.Height;
    ARect[i].Parent := LayoutContainer ;

ARect[i].HitTest:= true ;
    if i>0 then
       ARect[i].Position.X :=ARect[i-1].Width *I;
    ARect[i].Margins.Left :=20 ;
    ARect[i].Margins.Right :=20 ;
    ARect[i].Tag    := i+1 ;
    ARect[i].Fill.Color :=$FF000000;
    {$IFNDEF MSWINDOWS}
    ARect[i].Touch.GestureManager := GestureManager1 ;
    ARect[i].Touch.InteractiveGestures :=[TInteractiveGesture.Zoom,TInteractiveGesture.Pan,TInteractiveGesture.Rotate,
                                          TInteractiveGesture.TwoFingerTap,TInteractiveGesture.PressAndTap];
    ARect[i].OnGesture   := FormGesture ;
    {$ENDIF}
    ARect[i].OnMouseDown := RectOnMouseDown ;
    ARect[i].OnMouseUp   := RectOnMouseUp ;
    ARect[i].OnMouseMove := RectOnMouseMove ;

AImage[i] := FMX.Objects.TImage.Create(nil);
    AImage[i].Parent := ARect[i] ;
    AImage[i].Tag    := i+1 ;
    AImage[i].Align  :=TAlignLayout.Client ;
    AImage[i].WrapMode :=TImageWrapMode.Fit;
    //AImage[i].Align:=TAlignLayout.Contents;
    //AImage[i].Width  := self.ClientWidth ;
    //AImage[i].Height :=self.Height;

AStream:= TMemoryStream.Create ;
    {$IFDEF MSWINDOWS}
    if FileExists(FImgListPath[i]) then
    begin
      try
        AStream.LoadFromFile(FImgListPath[i]);
        AImage[i].Bitmap.LoadFromStream(AStream);
      finally
        AStream.DisposeOf ;
      end;
    end
    else
        AImage[i].Bitmap.Assign(Image2.Bitmap);
    {$ELSE}
    if TFile.Exists(FImgListPath[i]) then
    begin
      try
        AStream.LoadFromFile(FImgListPath[i]);
        AImage[i].Bitmap.LoadFromStream(AStream);
      Finally
        AStream.DisposeOf ;
      end;
    end
    else
      AImage[i].Bitmap.Assign(Image2.Bitmap);
    {$ENDIF}

//AImage[i].WrapMode :=TImageWrapMode.Stretch ;
    AImage[i].HitTest  := true ;
    AImage[i].OnMouseDown := RectOnMouseDown ;
    AImage[i].OnMouseUp   := RectOnMouseUp ;
    AImage[i].OnMouseMove := RectOnMouseMove ;

//
    FOriginalWidth[i]  := AImage[i].Width ;
    FOriginalHeight[i] := AImage[i].Height ;
    FOriginalX[i]      := AImage[i].Position.X ;
    FOriginalY[i]      := AImage[i].Position.Y ;
    ARectIsCreate      := true ;
  end;

end;

procedure TFrmShowPictureZoomIn.InitImageStrPath;
var
  i : integer ;
  ARect   : Array of TRectangle ;
  ALabel  : TLabel ;
  ARectBottom : TRectangle;
  ARectTop    : TRectangle;
  ALblOk      : TLabel ;
begin
  setLength(ARect,7);
  setLength(AImage,FBitmapList.Count);
  setLength(FOriginalWidth,FBitmapList.Count);
  setLength(FOriginalHeight,FBitmapList.Count);
  setLength(FOriginalX,FBitmapList.Count);
  setLength(FOriginalY,FBitmapList.Count);
  for i := 0 to  2 do
  begin
    ARect[i] := TRectangle.Create(nil);
    ARect[i].Width := 50;
    ARect[i].height := self.ClientHeight ;
    ARect[i].Parent := LayoutContainer ;
    //ARect[i].Align  := TAlignLayout.Left ;
    if i>0 then
    begin
        ARect[i].Position.X :=ARect[i-1].Width *I ;
    end;
    ARect[i].Tag    := i+1 ;
    ARect[i].Fill.Color :=$FF33aadd;
    ALabel  := TLabel.Create(nil);
    ALabel.Parent := ARect[i] ;
    ALabel.text := 'aa'+inttostr(i);
    ALabel.Align := TAlignLayout.Left ;

end;

end;

procedure TFrmShowPictureZoomIn.LblOkClick(Sender: TObject);
begin
  //
end;

procedure TFrmShowPictureZoomIn.lblSelectOKClick(Sender: TObject);
begin
  ARectOnClick(Sender);
end;

procedure TFrmShowPictureZoomIn.LoadImgGuIDInfo;
var
  getdata1: TGetData;
  str,devicetype,ANameList: string;
  Atag: string;
  cds1: TClientDataSet;
  AList :TStringList;
  i,j:integer;
begin
  if not IsWebConnected then
  begin
    ShowTips(NoAvailableNetwork);
    Exit;
  end;
  //  StartLoading(Self);
    ASYNCStart(
      procedure
      begin
        try
         // showmessage('P_DEC_getIMGDetail'+','+BMSCarrierObject_ID);
         getdata1 := TGetData.Create(['P_DEC_getIMGDetail',
                                      BMSCarrierObject_ID]);

str := getdata1.GetResult;
          cds1 := getdata1.GetClientDataSet;
        finally
          getdata1.DisposeOf;
        end;

SYNCStart(
        procedure
          begin
             try
                i:=0;
                cds1.First;
                while not cds1.Eof do
                begin
                    ArrayOfGuID[i,0]:= cds1.FieldByName('ID_SL').AsString;
                    ArrayOfGuID[i,1]:=cds1.FieldByName('ID').AsString;
                    inc(i);
                    cds1.Next;
                end;
                finally
                  // LoadZoomImg(FCurrentIndex);
                   cds1.disposeof;
             end;
          end);
      end);
end;

procedure TFrmShowPictureZoomIn.LoadZoomImg(AIndex: integer);
var
  i,j:integer;
  ABitmap:Tbitmap;
  errmsg:string;
begin
  //if firstHit<>0 then
  ScrollMainView(AIndex);
  ASYNCStart(
  procedure
  var
  j:integer;
      begin
          i:=AIndex;
          ABitmap:= Tbitmap.Create;
          for j := 0 to AGuIDlist.Count-1 do
          begin
            if ArrayOfGuID[j,0]=AGuIDlist[i] then
            begin

TBitmapManager.DownLoadSingleBitMap(ArrayOfGuID[j,1],ABitmap,errmsg);
            end;
          end;
          SYNCStart(
          procedure
          begin
             AImage[i].Bitmap.Assign(ABitmap);
            // firstHit:=1;
          end);

end);
end;

procedure TFrmShowPictureZoomIn.RectOnMouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  tapDownPos := TPointF.Create(X, Y);
  tapIsDown := true;
end;

procedure TFrmShowPictureZoomIn.RectOnMouseMove(Sender: TObject; Shift: TShiftState; X,
          Y: Single);
begin
  if tapIsDown  then
  begin
     FX := LayoutContainer.Position.X ;
     if (PageIndex>=0) and (PageIndex<=PageCount) then
     begin

if X - tapDownPos.X  < 0 then
       begin
          TAnimator.AnimateFloat(LayoutContainer, 'Position.X', LayoutContainer.Position.X + (X - tapDownPos.x), 0.5, TAnimationType.InOut, TInterpolationType.Linear );
       end
       else
       begin
          TAnimator.AnimateFloat(LayoutContainer, 'Position.X', LayoutContainer.Position.X + (X - tapDownPos.x), 0.5, TAnimationType.InOut, TInterpolationType.Linear );
       end;
     end;
  end;
end;

procedure TFrmShowPictureZoomIn.RectOnMouseUP(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Single);
var
  AMidX,AMidX1 :single ;
  ATag : integer ;
begin
   if FZoomWidth< FOriginalWidth[PageIndex] then
     begin
        AImage[PageIndex].Position.X := FOriginalX[PageIndex];
        AImage[PageIndex].Position.Y := FOriginalY[PageIndex] ;
        AImage[PageIndex].Width      := FOriginalWidth[PageIndex] ;
        AImage[PageIndex].Height     := FOriginalHeight[PageIndex] ;
     end;
  if tapIsDown then
  begin
     if Sender is TImage then
      ATag := TImage(Sender).Tag ;
     if Sender is TRectangle then
      ATag := TRectangle(Sender).Tag;

tapIsDown := false;
    if (pageIndex =0)  then
    begin
      if (X - tapDownPos.X + FX >0) then
         TAnimator.AnimateFloat(LayoutContainer, 'Position.X', 0, 0.5, TAnimationType.InOut, TInterpolationType.Circular )
      else
        if (X - tapDownPos.X + FX < -10) and (X - tapDownPos.X + FX > -80) then
           TAnimator.AnimateFloat(LayoutContainer, 'Position.X', 0, 0.5, TAnimationType.InOut, TInterpolationType.Linear )
        else
        begin
           Inc(pageIndex);

//   ScrollMainView(pageIndex);
        //   sleep(500);
           LoadZoomImg(pageIndex);
        end;
    end
    else
    begin

if (pageIndex = PageCount)   then
      begin

if X - tapDownPos.X + FX < 0 then
         begin   ///1111111111111
           if (X - tapDownPos.X + FX) + (self.ClientWidth * (pageindex)) <0 then
              TAnimator.AnimateFloat(LayoutContainer, 'Position.X', (self.ClientWidth*(PageCount))*-1, 0.5, TAnimationType.InOut, TInterpolationType.Linear )
           else
           begin
             if ((X - tapDownPos.X + FX) + (self.ClientWidth * (pageindex ))>0) and
                ((X - tapDownPos.X + FX) + (self.ClientWidth * (pageindex ))<100) then
             begin
               TAnimator.AnimateFloat(LayoutContainer, 'Position.X', (self.ClientWidth*(PageCount))*-1, 0.5, TAnimationType.InOut, TInterpolationType.Linear );
             end
             else
             begin
               Dec(pageIndex);
             //  ScrollMainView(pageIndex);
            //   sleep(500);
               LoadZoomImg(pageIndex);
             end;

end;
         end;
      end
      else
      begin
        // swipe left
        AMidX  := X - tapDownPos.X + FX ;
        AMidX1 := -(Self.ClientWidth*(pageIndex));
        if  AMidX - AMidX1 < 0  then
        begin
           if ((AMidX - AMidx1) < 0) and
              ((AMidX - AMidx1) > -120)  then
           begin
             TAnimator.AnimateFloat(LayoutContainer, 'Position.X', -(Self.ClientWidth*(pageIndex)), 0.5, TAnimationType.InOut, TInterpolationType.Linear );
           end
           else
           begin

Inc(pageIndex);
            // ScrollMainView(pageIndex);
            // sleep(500);
             LoadZoomImg(pageIndex);
           end;
        end
        // swipe right
        else
        begin
          if ((AMidX - AMidx1) > 0) and
              ((AMidX - AMidx1) < 80)  then
          begin
            ScrollMainView(pageIndex);
          end
          else
          begin
            dec(pageIndex);
          //  ScrollMainView(pageIndex);
           // sleep(500);
            LoadZoomImg(pageIndex);
          end;
        end;

end;
    end;
  end;

end;

procedure TFrmShowPictureZoomIn.RectTopClick(Sender: TObject);
begin
  TDRForm.Create(self).Release ;
end;

procedure TFrmShowPictureZoomIn.ScrollMainView(page: Integer);
begin
  //showmessage(pageIndex.ToString);
  pageIndex := page;
  Dec(page);
  TAnimator.AnimateFloat(LayoutContainer, 'Position.X', (ClientWidth * (page+1)) * -1, 0.5, TAnimationType.Out, TInterpolationType.Exponential);

end;

class procedure TFrmShowPictureZoomIn.ShowForm(AListPath: TList<string>;
  AIndex: Integer);
begin
  with TDRForm.Create(TFrmShowPictureZoomIn).TCCF as TFrmShowPictureZoomIn do
  begin
    FImgListPath  := AListPath ;
    FCurrentIndex := AIndex ;
    InitFormInfo ;
    Show ;
    InitImageListPath ;
    InitCurrentImage ;
  end;
end;

class procedure TFrmShowPictureZoomIn.ShowForm(AList: TList<TBitmap>;BGuIDlist:Tstringlist;
  AIndex: integer;AMSCarrierObject_ID:string; AArrayOfGuID:TArrays);
    var
    i,j:integer;
    ABitmap:Tbitmap;
    errmsg:string;
begin
  with TDRForm.Create(TFrmShowPictureZoomIn).TCCF as TFrmShowPictureZoomIn do
  begin
    firstHit:=0;
    FBitmapList   := AList ;
    FCurrentIndex := AIndex ;
    BMSCarrierObject_ID:=AMSCarrierObject_ID;
    InitFormInfo;
    Show ;
    AGuIDlist:=Tstringlist.Create;
    AGuIDlist:=BGuIDlist;
    ArrayOfGuID:=AArrayOfGuID;
    //LoadImgGuIDInfo;
    InitImageList ;
    //InitCurrentImage ;
    LoadZoomImg(FCurrentIndex);
//    ABitmap:= Tbitmap.Create;
//    for j := 0 to AGuIDlist.Count-1 do
//    begin
//      if ArrayOfGuID[j,0]=AGuIDlist[FCurrentIndex] then
//      begin
//         //showmessage(ArrayOfGuID[j,0]+','+ArrayOfGuID[j,1]);
//         TBitmapManager.DownLoadSingleBitMap(ArrayOfGuID[j,1],ABitmap,errmsg);
//        // image3.Bitmap.Assign(ABitmap);
//         AImage[FCurrentIndex].Bitmap.Assign(ABitmap);
//         firstHit:=1;
//      end;
//    end;
  end;
end;

end.