Einzelnen Beitrag anzeigen

Teekeks

Registriert seit: 19. Okt 2008
Ort: Dresden
765 Beiträge
 
FreePascal / Lazarus
 
#1

Problem bei Positionserrechnung

  Alt 20. Aug 2009, 12:23
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...
Peter
"Div by zero Error" oder auch: "Es geht auch ohne Signatur!".
  Mit Zitat antworten Zitat