Int64-Variablen im Verhältnis auf Integer-Variablen laden

[Dax]

Ich schlage vor:

Delphi-Quellcode:

with Progressbar do
  begin
    Max      := 1000;
    Min      := PB_Min;
    Position := Round(PB_Position / PB_Max * 1000);
  end;

Eine Genauigkeit von 0,1% dürfte für GUI-Apps ausreichen