Problem bei Positionserrechnung

[Teekeks]

Hallo!
Ich habe wiedereinmal ein logisches Problem.
Ich möchte ein Balken zeichnen der die Lautstärke des momentan abgespielten anzeigt.
D.h. wenn der Ton aus ist soll der Vertikale Balken ganz links sein. Bei 100% Lautstärke ganz rechts.
Der Balken soll 6px breit sein. Da die Mitte des Balkens die Lautstärke darstellt, also jeweils rechts und links 3px Überhang sind soll bei einer z.b. 206px großen Zeichenfläche 200px zum darstellen der Lautstärke mit einem Abstand von 3px zu jeder Seite da sein.

Jetzt habe ich aber ein Problem mit dem Errechnen des Balkens.
So sieht das bei mir aus:

Delphi-Quellcode:

procedure TFrmMain.Paint_Bar;
var i:integer;
begin
  // gesamt px = Width - rant
  // px per % = gesamt px / 100
  // i=%*(px per %):
  i:=Round(Get_Volume * (VolBar.Width-6 / 100));
  // i=(y von der linken seite des Bar's)
  VolBar.canvas.Brush.Color:=clred;
  VolBar.Canvas.Rectangle(i,0,i+6,Height);
end;

Nun erscheint dieser Balken leider nicht auf dem Image...

Erkennt ihr meinen Fehler??

Gruß Teekeks
ps.: Get_Volume gibt 67 zurück...

[Uwe Raabe]

Klammerung!

falsch:

i:=Round(Get_Volume * (VolBar.Width-6 / 100)); richtig:

i:=Round(Get_Volume * (VolBar.Width-6) / 100);

[Reinhard Kern]

Zitat von Teekeks:

  VolBar.Canvas.Rectangle(i,0,i+6,Height); ...

Hallo,

du zeichnest das Rechteck nur von i bis i+6, also 6 Pixel breit.

Gruss Reinhard

[Teekeks]

@Uwe Raabe: danke!

@Reinhard Kern: Das ist auch richtig so...

Gruß Teekeks