{"id":4824,"date":"2018-01-13T15:46:41","date_gmt":"2018-01-13T07:46:41","guid":{"rendered":"http:\/\/blog.qdac.cc\/?p=4824"},"modified":"2018-01-13T15:57:47","modified_gmt":"2018-01-13T07:57:47","slug":"fmx-fmx-%e5%8a%a8%e7%94%bb%e7%b1%bb%e7%9a%84%e4%b8%80%e4%b8%aa%e8%be%85%e5%8a%a9%e5%a2%9e%e5%bc%ba","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=4824","title":{"rendered":"[FMX] FMX \u52a8\u753b\u7c7b\u7684\u4e00\u4e2a\u8f85\u52a9\u589e\u5f3a"},"content":{"rendered":"<p>\u672c\u589e\u5f3a\u7684\u76ee\u7684\u662f\u89e3\u51b3\u52a8\u753b\u5bf9\u8c61\u53ea\u652f\u6301 published \u7684\u6709\u6548\u7684\u51e0\u79cd\u5c5e\u6027\u7684\u95ee\u9898\uff0c\u786e\u5207\u7684\u8bf4\uff0c\u8fd9\u662f\u4e00\u4e2a\u9002\u914d\u5668\uff0c\u901a\u8fc7\u533f\u540d\u51fd\u6570\u5efa\u7acb\u4e0e\u975e published \u5c5e\u6027\u7684\u9002\u914d\u3002\u6211\u5728\u00a0<a href=\"https:\/\/blog.qdac.cc\/?p=4446\">[FMX] Delphi \u4e2d TAnimation \u8bbe\u8ba1\u7684\u51e0\u70b9\u503c\u5f97\u5546\u69b7\u7684\u5730\u65b9<\/a>\u00a0\u4e00\u6587\u4e2d\u8ba8\u8bba\u4e86 FMX \u52a8\u753b\u652f\u6301\u7c7b\u7684\u4e00\u4e9b\u503c\u5f97\u5546\u69b7\u7684\u5730\u65b9\u548c\u6539\u52a8\uff0c\u800c\u8fd9\u4e2a\u589e\u5f3a\u4ece\u53e6\u4e00\u4e2a\u89d2\u5ea6\u6765\u89e3\u51b3\u95ee\u9898\u3002<\/p>\n<p>\u6211\u4eec\u76f4\u63a5\u6765\u770b\u8fd9\u4e2a\u5355\u5143\u7684\u5168\u90e8\u6e90\u7801\uff1a<\/p>\n<pre class=\"lang:delphi decode:true\">unit FMX.AniEh;\r\n\/\/ FMX.AniEh is a animation helper for unpublished property,create by QDAC swish and under freebsd license\r\ninterface\r\n\r\nuses classes, fmx.types;\r\n\r\ntype\r\n  TGetValueProc&lt;T&gt; = reference to procedure(Sender: TObject; var AValue: T);\r\n  TSetValueProc&lt;T&gt; = reference to procedure(Sender: TObject; const AValue: T);\r\n\r\n  TAnimationHelper&lt;T&gt;=class(TFMXObject)\r\n  private\r\n    FOnSetValue : TSetValueProc&lt;T&gt;;\r\n    FOnGetValue:TGetValueProc&lt;T&gt;;\r\n    FSource:Pointer;\r\n    function GetValue: T;\r\n    procedure SetValue(const Value: T);\r\n  public\r\n    constructor Create(AOwner:TFMXObject;Source:Pointer;OnGetValue:TGetValueProc&lt;T&gt;;OnSetValue:TSetValueProc&lt;T&gt;);\r\n    class function Bind(AOwner:TFMXObject;Source:Pointer;OnGetValue:TGetValueProc&lt;T&gt;;OnSetValue:TSetValueProc&lt;T&gt;):TAnimationHelper&lt;T&gt;;\r\n    property Source:Pointer read FSource;\r\n  published\r\n    property Value:T read GetValue write SetValue;\r\n  end;\r\n\r\n\r\nimplementation\r\n\r\n{ TAnimationHelper&lt;T&gt; }\r\n\r\nclass function TAnimationHelper&lt;T&gt;.Bind(AOwner: TFMXObject; Source: Pointer;\r\n  OnGetValue: TGetValueProc&lt;T&gt;;\r\n  OnSetValue: TSetValueProc&lt;T&gt;): TAnimationHelper&lt;T&gt;;\r\nvar\r\n  I:Integer;\r\nbegin\r\n  for I:=AOwner.ComponentCount-1 downto 0 do\r\n    begin\r\n      if (AOwner.Components[I] is TAnimationHelper&lt;T&gt;) and (TAnimationHelper&lt;T&gt;(AOwner.Components[I]).Source=Source) then\r\n        Exit(TAnimationHelper&lt;T&gt;(AOwner.Components[I]));\r\n    end;\r\n  Result:=TAnimationHelper&lt;T&gt;.Create(AOwner,Source,OnGetValue,OnSetValue);\r\n  Result.SetRoot(AOwner.Root);\r\nend;\r\n\r\nconstructor TAnimationHelper&lt;T&gt;.Create(AOwner:TFMXObject;Source: Pointer;\r\n  OnGetValue: TGetValueProc&lt;T&gt;; OnSetValue: TSetValueProc&lt;T&gt;);\r\nbegin\r\n  inherited Create(AOwner);\r\n  FSource:=Source;\r\n  FOnGetValue:=OnGetValue;\r\n  FOnSetValue:=OnSetValue;\r\nend;\r\n\r\nfunction TAnimationHelper&lt;T&gt;.GetValue: T;\r\nbegin\r\n  if Assigned(FOnGetValue) then\r\n    FOnGetValue(Self,Result)\r\n  else\r\n    Result:=Default(T);\r\nend;\r\nprocedure TAnimationHelper&lt;T&gt;.SetValue(const Value: T);\r\nbegin\r\n  if Assigned(FOnSetValue) then\r\n    FOnSetValue(Self,Value);\r\nend;\r\n\r\nend.<\/pre>\n<p>\u4f7f\u7528\u53c2\u8003\u65b9\u6cd5\uff1a<\/p>\n<pre class=\"lang:delphi decode:true\">procedure TfrmFunction.SpeedButton6Click(Sender: TObject);\r\nbegin\r\nTAnimator.AnimateFloat(TAnimationHelper&lt;Single&gt;.Bind(HorzScrollBox1,nil,\r\n  procedure (Sender:TObject;var V:Single)\r\n  begin\r\n    V:=HorzScrollBox1.ViewportPosition.X;\r\n  end,\r\n  procedure (Sender:TObject;const V:Single)\r\n  begin\r\n    HorzScrollBox1.ViewportPosition:=PointF(V,HorzScrollBox1.ViewportPosition.Y);\r\n  end\r\n  ),'Value',HorzScrollBox1.ViewportPosition.X+HorzScrollBox1.Width\/2,0.5);\r\nend;\r\n<\/pre>\n<p>\u53c2\u8003\u6548\u679c\uff1a<a href=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2018\/01\/aniehdemo.gif\"><img loading=\"lazy\" decoding=\"async\" class=\"aligncenter size-full wp-image-4826\" src=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2018\/01\/aniehdemo.gif\" alt=\"\" width=\"767\" height=\"81\" \/><\/a><\/p>\n<p>THorzScrollBox \u91cc\u539f\u6765 ViewportPosition \u662f\u6ca1\u6cd5\u8bbe\u7f6e\u52a8\u753b\u7684\uff0c\u73b0\u5728\u901a\u8fc7\u5b83\u9002\u914d\u4e0b\u5c31\u53ef\u4ee5\u521b\u5efa\u52a8\u753b\u6548\u679c\u4e86\u3002<a href=\"https:\/\/blog.qdac.cc\/wp-content\/uploads\/2018\/01\/aniehdemo.gif\"><br \/>\n<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u672c\u589e\u5f3a\u7684\u76ee\u7684\u662f\u89e3\u51b3\u52a8\u753b\u5bf9\u8c61\u53ea\u652f\u6301 pub [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"site-sidebar-layout":"default","site-content-layout":"","ast-site-content-layout":"default","site-content-style":"default","site-sidebar-style":"default","ast-global-header-display":"","ast-banner-title-visibility":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","ast-disable-related-posts":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":"","astra-migrate-meta-layouts":"default","ast-page-background-enabled":"default","ast-page-background-meta":{"desktop":{"background-color":"var(--ast-global-color-4)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"ast-content-background-meta":{"desktop":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"footnotes":""},"categories":[69,8,603,21],"tags":[149,746,483,699],"class_list":["post-4824","post","type-post","status-publish","format-standard","hentry","category-c-builder","category-delphi","category-603","category-misc","tag-fmx","tag-published","tag-483","tag-699"],"views":5303,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/4824","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=4824"}],"version-history":[{"count":3,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/4824\/revisions"}],"predecessor-version":[{"id":4828,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/4824\/revisions\/4828"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=4824"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=4824"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=4824"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}