ListView 下拉更新 (支持 Android)

//------------------------------------------------------------------------------
// . by 龟山阿卍 QQ                                         -
// http://www.cnblogs.com/onechen/                                             -
//                                                                             -
// 需修改                                                                      -
// FMX.Platform.Android.pas                                                    -
//  TPlatformAndroid.GetScrollingBehaviour: TScrollingBehaviours;      -
//------------------------------------------------------------------------------
<span style="color: #0000ff;">unit<span style="color: #000000;"> Main;
<span style="color: #0000ff;">interface
<span style="color: #0000ff;">uses<span style="color: #000000;">

System.SysUtils,System.Types,System.UITypes,System.Classes,System.Variants,FMX.Types,FMX.Controls,FMX.Forms,FMX.Graphics,FMX.Dialogs,FMX.StdCtrls,FMX.ListView.Types,FMX.Objects,FMX.ListView,FMX.Ani;
<span style="color: #0000ff;">type<span style="color: #000000;">

TForm1 = <span style="color: #0000ff;">class<span style="color: #000000;">(TForm)

ToolBar1: TToolBar;

ListView1: TListView;

PullPaintBox: TPaintBox;

AniIndicator1: TAniIndicator;

RefreshTimer: TTimer;

RefreshLabel: TLabel;

RefreshImage: TImage;

FloatAnimation1: TFloatAnimation;

Label1: TLabel;

<span style="color: #0000ff;">procedure<span style="color: #000000;"> FormCreate(Sender: TObject);

<span style="color: #0000ff;">procedure<span style="color: #000000;"> ListView1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Single);

<span style="color: #0000ff;">procedure<span style="color: #000000;"> ListView1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X,Y: Single);

<span style="color: #0000ff;">procedure<span style="color: #000000;"> RefreshTimerTimer(Sender: TObject);

<span style="color: #0000ff;">private<span style="color: #000000;">

ShowUp,ShowDown: Boolean;

<span style="color: #0000ff;">public

<span style="color: #008000;">{<span style="color: #008000;"> Public declarations <span style="color: #008000;">}

<span style="color: #0000ff;">end<span style="color: #000000;">;
<span style="color: #0000ff;">var<span style="color: #000000;">

Form1: TForm1;
<span style="color: #0000ff;">implementation
<span style="color: #008000;">{<span style="color: #008000;">$R *.fmx<span style="color: #008000;">}
<span style="color: #0000ff;">procedure<span style="color: #000000;"> TForm1.FormCreate(Sender: TObject);

<span style="color: #0000ff;">var<span style="color: #000000;"> i: Integer;

Item1: TListViewItem;

<span style="color: #0000ff;">begin

<span style="color: #0000ff;">for i:=<span style="color: #800080;">0 <span style="color: #0000ff;">to <span style="color: #800080;">100 <span style="color: #0000ff;">do

<span style="color: #0000ff;">begin<span style="color: #000000;">

Item1 :=<span style="color: #000000;"> ListView1.Items.Add;

Item1.Text :=<span style="color: #000000;"> i.ToString;

<span style="color: #0000ff;">end<span style="color: #000000;">;

ShowUp   :=<span style="color: #000000;"> False;

ShowDown :=<span style="color: #000000;"> False;

<span style="color: #0000ff;">end<span style="color: #000000;">;
<span style="color: #0000ff;">procedure<span style="color: #000000;"> TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Single);

<span style="color: #0000ff;">begin

<span style="color: #0000ff;">if <span style="color: #0000ff;">not AniIndicator1.Visible <span style="color: #0000ff;">then

<span style="color: #0000ff;">begin<span style="color: #000000;">

RefreshLabel.Visible :=<span style="color: #000000;"> True;

<span style="color: #0000ff;">if ListView1.ScrollViewPos < -<span style="color: #800080;">80 <span style="color: #0000ff;">then

<span style="color: #0000ff;">begin<span style="color: #000000;">

RefreshLabel.Text := <span style="color: #800000;">'<span style="color: #800000;">放开后可更新<span style="color: #800000;">'<span style="color: #000000;">;
           RefreshImage.Visible :</span>=<span style="color: #000000;"&gt; True;
           </span><span style="color: #0000ff;"&gt;if</span> <span style="color: #0000ff;"&gt;not</span> ShowUp <span style="color: #0000ff;"&gt;then</span>
           <span style="color: #0000ff;"&gt;begin</span><span style="color: #000000;"&gt;
                ShowUp :</span>=<span style="color: #000000;"&gt; True;
                FloatAnimation1.StartValue :</span>= <span style="color: #800080;"&gt;360</span><span style="color: #000000;"&gt;;
                FloatAnimation1.StopValue  :</span>= <span style="color: #800080;"&gt;180</span><span style="color: #000000;"&gt;;
                FloatAnimation1.Start;
           </span><span style="color: #0000ff;"&gt;end</span><span style="color: #000000;"&gt;;
      </span><span style="color: #0000ff;"&gt;end</span>
      <span style="color: #0000ff;"&gt;else</span>
      <span style="color: #0000ff;"&gt;if</span> ListView1.ScrollViewPos < -<span style="color: #800080;"&gt;40</span> <span style="color: #0000ff;"&gt;then</span>
      <span style="color: #0000ff;"&gt;begin</span><span style="color: #000000;"&gt;
           RefreshLabel.Text :</span>= <span style="color: #800000;"&gt;'</span><span style="color: #800000;"&gt;下拉可更新</span><span style="color: #800000;"&gt;'</span><span style="color: #000000;"&gt;;

           RefreshImage.Visible :</span>=<span style="color: #000000;"&gt; True;
           </span><span style="color: #0000ff;"&gt;if</span> <span style="color: #0000ff;"&gt;not</span> ShowDown <span style="color: #0000ff;"&gt;then</span>
           <span style="color: #0000ff;"&gt;begin</span><span style="color: #000000;"&gt;
                ShowDown :</span>=<span style="color: #000000;"&gt; True;
                FloatAnimation1.StartValue :</span>= <span style="color: #800080;"&gt;180</span><span style="color: #000000;"&gt;;
                FloatAnimation1.StopValue  :</span>= <span style="color: #800080;"&gt;360</span><span style="color: #000000;"&gt;;
                FloatAnimation1.Start;
           </span><span style="color: #0000ff;"&gt;end</span><span style="color: #000000;"&gt;;
      </span><span style="color: #0000ff;"&gt;end</span>
      <span style="color: #0000ff;"&gt;else</span>
      <span style="color: #0000ff;"&gt;begin</span><span style="color: #000000;"&gt;
           RefreshLabel.Text :</span>= <span style="color: #800000;"&gt;''</span><span style="color: #000000;"&gt;;
           RefreshImage.Visible :</span>=<span style="color: #000000;"&gt; False;
      </span><span style="color: #0000ff;"&gt;end</span><span style="color: #000000;"&gt;;
 </span><span style="color: #0000ff;"&gt;end</span><span style="color: #000000;"&gt;;
<span style="color: #0000ff;">end<span style="color: #000000;">;
<span style="color: #0000ff;">procedure<span style="color: #000000;"> TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X,Y: Single);

<span style="color: #0000ff;">begin

<span style="color: #0000ff;">if RefreshLabel.Visible <span style="color: #0000ff;">then

<span style="color: #0000ff;">begin<span style="color: #000000;">

RefreshLabel.Visible :=<span style="color: #000000;"> False;
      </span>//<span style="color: #000000;"&gt; 开始更新
      AniIndicator1.Visible :</span>=<span style="color: #000000;"&gt; True;
      AniIndicator1.Enabled :</span>=<span style="color: #000000;"&gt; True;

      RefreshTimer.Enabled :</span>=<span style="color: #000000;"&gt; True;
 </span><span style="color: #0000ff;"&gt;end</span><span style="color: #000000;"&gt;;
<span style="color: #0000ff;">end<span style="color: #000000;">;
<span style="color: #0000ff;">procedure<span style="color: #000000;"> TForm1.RefreshTimerTimer(Sender: TObject);

<span style="color: #0000ff;">begin

//<span style="color: #000000;"> 结束更新

RefreshTimer.Enabled  :=<span style="color: #000000;"> False;
 AniIndicator1.Enabled :</span>=<span style="color: #000000;"&gt; False;
 AniIndicator1.Visible :</span>=<span style="color: #000000;"&gt; False;

 ShowUp   :</span>=<span style="color: #000000;"&gt; False;
 ShowDown :</span>=<span style="color: #000000;"&gt; False;
<span style="color: #0000ff;">end<span style="color: #000000;">;
<span style="color: #0000ff;">end.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!