背景
@H_403_26@解决方法
我使用一些FireMonkey控件创建了一个GUI.
>某些控件是动画的,其外观会自动更新.
>某些控件仅响应用户交互(滑块等)而更新.
问题
与用户控件的交互可防止更新动画控件,从而导致不稳定的不连续动画.
上面视频中的动画控件由TTimer组件驱动.使用FireMonkey的动画组件时问题仍然存在.
调查
滑块控件在调整时调用Repaint().平滑调整滑块将生成密集的Repaint()调用流,阻止其他控件更新.
该怎么办?
在一个控件不断更新时冻结动画不适合我的应用程序.我的第一个想法是交换Repaint()调用类似于VCL Invalidate()方法,但FireMonkey没有任何可比的AFAIK.
这个问题有一个很好的解决方法吗?
我已经创建了一个基于计时器的重绘方法,正如Arnaud Bouchez在上面的评论中所建议的那样.到目前为止似乎有效.
码
unit FmxInvalidateHack; interface uses Fmx.Types; procedure InvalidateControl(aControl : TControl); implementation uses Contnrs; type TInvalidator = class private protected Timer : TTimer; List : TObjectList; procedure Step(Sender : TObject); public constructor Create; destructor Destroy; override; procedure AddToQueue(aControl : TControl); end; var GlobalInvalidator : TInvalidator; procedure InvalidateControl(aControl : TControl); begin if not assigned(GlobalInvalidator) then begin GlobalInvalidator := TInvalidator.Create; end; GlobalInvalidator.AddToQueue(aControl); end; { TInvalidator } constructor TInvalidator.Create; const FrameRate = 30; begin List := TObjectList.Create; List.OwnsObjects := false; Timer := TTimer.Create(nil); Timer.OnTimer := Step; Timer.Interval := round(1000 / FrameRate); Timer.Enabled := true; end; destructor TInvalidator.Destroy; begin Timer.Free; List.Free; inherited; end; procedure TInvalidator.AddToQueue(aControl: TControl); begin if List.IndexOf(aControl) = -1 then begin List.Add(aControl); end; end; procedure TInvalidator.Step(Sender: TObject); var c1: Integer; begin for c1 := 0 to List.Count-1 do begin (List[c1] as TControl).Repaint; end; List.Clear; end; initialization finalization if assigned(GlobalInvalidator) then GlobalInvalidator.Free; end.
==
可以通过调用重新绘制控件:
InvalidateControl(MyControl);
InvalidateControl()过程不会立即重新绘制控件.相反,它将控件添加到列表中.全局计时器稍后检查列表,调用Repaint()并从列表中删除控件.使用此方法,可以根据需要使控件无效,但不会像快速Repaint()调用那样阻止其他控件被更新.