Ratings berechnen

[TiGü]

Wenn ich das richtig verstehe, willst du das durchschnittliche IMDB Rating (1 bis 10 Punkte) auf eine Progressbar ähnliche (!) Darstellung mit Sternen abbilden.

Wäre es dann nicht komplett ausreichend die durchschnittliche Bewertung durch 10 zu teilen und mit der Bitmapweite zu multiplizieren.
Dann runden, um den Wert in Pixeln zu ermitteln, mit dem du die Sterne gelb zeichnen musst.

Ausgefüllter_Bereich_Der_Sterne := Round(6,9 / 10 * 150); // ergibt 104

Delphi-Quellcode:

function TTMDBInfo.ComputeStarRate: longint;
const
  DEFAULT_BITMAP_WIDTH = 150.0;
begin
  Result := Round((gM.vote_average / 10) * DEFAULT_BITMAP_WIDTH);
end;