rewrite slide method, now can support loop

Author: zhaoyipeng

ComponentsSource/FMX.ImageSlider.pas

@@ -3,7 +3,8 @@ program ImageSliderDemo;
 uses
   System.StartUpCopy,
   FMX.Forms,
-  frmMainU in 'frmMainU.pas' {frmMain};
+  frmMainU in 'frmMainU.pas' {frmMain},
+  FMX.ImageSlider in '..\..\ComponentsSource\FMX.ImageSlider.pas';
 
 {$R *.res}
 

Demo/ImageSliderDemo/ImageSliderDemo.dpr

@@ -319,6 +319,7 @@
             <Form>frmMain</Form>
             <FormType>fmx</FormType>
         </DCCReference>
+        <DCCReference Include="..\..\ComponentsSource\FMX.ImageSlider.pas"/>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

Demo/ImageSliderDemo/ImageSliderDemo.dproj

@@ -181,7 +181,8 @@ object frmMain: TfrmMain
     Size.Height = 161.000000000000000000
     Size.PlatformDefault = False
     TabOrder = 10
-    ActivePage = 0
+    ActivePage = -1
+    AnimateDuration = 0.200000002980232200
     AutoSlider = False
     PageCount = 0
     TimerInterval = 5000

Demo/ImageSliderDemo/frmMainU.fmx

@@ -98,39 +98,40 @@ procedure TfrmMain.FormCreate(Sender: TObject);
   AddBitmap('..\..\Images\image2.jpg');
   AddBitmap('..\..\Images\image3.jpg');
   AddBitmap('..\..\Images\image4.jpg');
+  ImgSlider.ActivePage := 0;
   {$ENDIF}
 end;
 
 procedure TfrmMain.ImgSliderCanDragBegin(Sender: TObject;
   var CanBegin: Boolean);
 begin
-  Memo1.Lines.Add('On CanDragBegin');
+//  Memo1.Lines.Add('On CanDragBegin');
 end;
 
 procedure TfrmMain.ImgSliderItemClick(Sender: TObject);
 begin
-  Memo1.Lines.Add('On Item Click: '+ TControl(Sender).Tag.ToString);
+//  Memo1.Lines.Add('On Item Click: '+ TControl(Sender).Tag.ToString);
 end;
 
 procedure TfrmMain.ImgSliderItemTap(Sender: TObject; const Point: TPointF);
 begin
-  Memo1.Lines.Add('On Item Tap: '+ TControl(Sender).Tag.ToString);
+//  Memo1.Lines.Add('On Item Tap: '+ TControl(Sender).Tag.ToString);
 end;
 
 procedure TfrmMain.ImgSliderPageAnimationFinish(Sender: TObject; NewPage,
   OldPage: Integer);
 begin
-  Memo1.Lines.Add(
-    Format('On PageAnimationFinish, NewPage: %d, OldPage: %d',
-    [NewPage, OldPage]));
+//  Memo1.Lines.Add(
+//    Format('On PageAnimationFinish, NewPage: %d, OldPage: %d',
+//    [NewPage, OldPage]));
 end;
 
 procedure TfrmMain.ImgSliderPageChange(Sender: TObject; NewPage,
   OldPage: Integer);
 begin
   Memo1.Lines.Add(
-    Format('On PageChange, NewPage: %d, OldPage: %d',
-    [NewPage, OldPage]));
+    Format('On PageChange, OldPage: %d, NewPage: %d',
+    [OldPage, NewPage]));
 end;
 
 procedure TfrmMain.AddBitmap(const FileName: string);

Demo/ImageSliderDemo/frmMainU.pas

@@ -173,13 +173,13 @@ object LoadingIndicatorDemoForm: TLoadingIndicatorDemoForm
           end>
         RowCollection = <
           item
-            Value = 33.333333333333330000
+            Value = 33.333333333333340000
           end
           item
-            Value = 33.333333333333330000
+            Value = 33.333333333333340000
           end
           item
-            Value = 33.333333333333330000
+            Value = 33.333333333333340000
           end
           item
             SizeStyle = Auto
@@ -470,13 +470,13 @@ object LoadingIndicatorDemoForm: TLoadingIndicatorDemoForm
           end>
         RowCollection = <
           item
-            Value = 33.333333333333330000
+            Value = 33.333333333333340000
           end
           item
-            Value = 33.333333333333330000
+            Value = 33.333333333333340000
           end
           item
-            Value = 33.333333333333330000
+            Value = 33.333333333333340000
           end
           item
             SizeStyle = Auto

Demo/LoadingIndicatiorDemoMain.fmx

@@ -83,7 +83,7 @@ procedure TLoadingIndicatorDemoForm.FloatAnimation1Process(Sender: TObject);
   T, T1: Single;
 begin
   T := FloatAnimation1.NormalizedTime;
-  T1 := GetEaseInOut.Solve(T, 1.0E-5);
+  T1 := TBezier.GetEaseInOut.Solve(T, 1.0E-5);
   Rectangle6.Position.X := InterpolateSingle(
     FloatAnimation1.StartValue, FloatAnimation1.StopValue, T1);
 end;

Demo/LoadingIndicatiorDemoMain.pas

@@ -6,7 +6,7 @@
         <MainSource>RatingBarDemo.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
-        <Platform Condition="'$(Platform)'==''">Android</Platform>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <TargetedPlatforms>1119</TargetedPlatforms>
         <AppType>Application</AppType>
     </PropertyGroup>
@@ -358,18 +358,18 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="Win32\Debug\RatingBarDemo.exe" Configuration="Debug" Class="ProjectOutput">
-                    <Platform Name="Win32">
-                        <RemoteName>RatingBarDemo.exe</RemoteName>
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
                 <DeployFile LocalName="Android\Debug\libRatingBarDemo.so" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Android">
                         <RemoteName>libRatingBarDemo.so</RemoteName>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
+                <DeployFile LocalName="Win32\Debug\RatingBarDemo.exe" Configuration="Debug" Class="ProjectOutput">
+                    <Platform Name="Win32">
+                        <RemoteName>RatingBarDemo.exe</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployFile LocalName="Android\Debug\AndroidManifest.xml" Configuration="Debug" Class="ProjectAndroidManifest">
                     <Platform Name="Android">
                         <Overwrite>true</Overwrite>

Demo/RatingBarDemo/RatingBarDemo.dproj

@@ -6,7 +6,7 @@
         <MainSource>RotateTextDemoProj.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
-        <Platform Condition="'$(Platform)'==''">iOSSimulator</Platform>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <TargetedPlatforms>1119</TargetedPlatforms>
         <AppType>Application</AppType>
     </PropertyGroup>

Demo/RotatingTextDemo/RotateTextDemoProj.dproj

@@ -6,7 +6,7 @@
         <MainSource>TestFMXCallout.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
-        <Platform Condition="'$(Platform)'==''">Android</Platform>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <TargetedPlatforms>1119</TargetedPlatforms>
         <AppType>Application</AppType>
     </PropertyGroup>

Demo/TestCallout/TestFMXCallout.dproj

@@ -6,7 +6,7 @@
         <MainSource>TestINativeCanvas.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
-        <Platform Condition="'$(Platform)'==''">iOSDevice64</Platform>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <TargetedPlatforms>1119</TargetedPlatforms>
         <AppType>Application</AppType>
     </PropertyGroup>

Demo/TestINativeCanvas/TestINativeCanvas.dproj

@@ -9,6 +9,6 @@ uses
 
 begin
   Application.Initialize;
-  Application.CreateForm(TForm35, Form35);
+  Application.CreateForm(TLoadingIndicatorDemoMainForm, LoadingIndicatorDemoMainForm);
   Application.Run;
 end.