Создать ProgressRing в delphi 2009

Question

Я пытаюсь создать прогрессирующее (компонент Windows8) в Delphi 2009 У нас есть много образцов в XAML и C#, но не в версиях Delphi от «старых».

во всяком случае, ни одна компания развития есть этот компонент, чтобы продать ...

Кто знает что-нибудь об этом?

Answer 1

Простейшим решением является просто использовать анимированный GIF. Для создания этого GIF существует множество онлайн-генераторов (например, here). Вы можете легко наследовать настраиваемый компонент от TImage, чтобы отобразить этот GIF. Включите файл GIF в качестве ресурса и загрузите его следующим образом:

ResStream := TResourceStream.Create (HInstance, 'CIRCULAR_PROGRESS', 'GIFIMG'); 
Img := TGIFImage.Create; 
try 
    Img.LoadFromStream (ResStream); 
    Picture.Assign (Img); 
finally 
    FreeAndNil (ResStream); 
    FreeAndNil (Img); 
end; 

if not (csDesigning in ComponentState) then 
    (Picture.Graphic as TGIFImage).Animate := True;