Скрипт Metro 0.0.1.0

with TasksList do
    begin
      ---------------------
      Font.Color:= $00ffff;
      ---------------------
end;

procedure UpdatePB(HandleW, msg, idEvent, TimeSys: LongWord);
var f: integer; CurWidth: single;
begin
for f:=0 to PBCount-1 do begin
UpdateAllTexturedPB
with PBBuff[f].ProgressBarName do begin
[B]  CurWidth := (Position*PBBuff[f].MaxWidth)/Max*10;[/B]
  if PBBuff[f].LastWidth <> Round(CurWidth) then begin
    PBBuff[f].LastWidth:= Round(CurWidth);
    ProgressBarImage[f].SetBounds(ScaleX(0), ScaleY(0), PBBuff[f].LastWidth, PBBuff[f].ImageHeight); end;
  end;
end;
end;