Firemankey OSX update progressbar во время загрузки

Question

Обновленный индикатор прогресса отображается в Windows. В OSX отображается индикатор прогресса, но без изменения смещения панели прогресса.

См. Код ниже.

procedure TForm1.Button1Click(Sender: TObject); 
var 
    m : TMemoryStream; 
begin 

    IdHTTP1.OnWork:= HttpWork; 
    m := TMemoryStream.Create; 

    IdHTTP1.Get('http://www.example.com/pictures.zip', m); 

    m.SaveToFile('/users/demo/pictures.zip'); 
    m.Free; 

end; 

procedure TForm1.HttpWork(ASender: TObject; AWorkMode: TWorkMode; 
    AWorkCount: Int64); 
var 
    Http: TIdHTTP; 

    ContentLength: Int64; 

    Percent: Integer; 
begin 
    Http := TIdHTTP(ASender); 

    ContentLength := Http.Response.ContentLength; 

    Percent := 100 * AWorkCount div ContentLength; 

    ProgressBar1.Value := Percent; 

end; 

Как обновить индикатор прогресса в OSX?

Answer 1

Вот что у меня есть в моем коде, и она работает как на Windows, и Mac:

Percent := 100 * AWorkCount div ContentLength; 
frmDownloadProgress.ProgressBar1.Value := Percent; 
Application.ProcessMessages; 

Application.ProcessMessages является ключом для обновления индикатор выполнения, если компонент TIdHTTP находится в главном потоке.