Speicheranzeige wie bei iTunes anzeigen

[jacky213]

Hallo,

ich habe ein Panel am unteren Rand der Form platziert und darauf 4 Shapes. Die Form breite ist auf 600 eingestellt und ich ich möchte wie bei iTunes die 4 gefärbten Shapes dazu nutzen um anzuzeigen in welchem Verhältnis der Speicher belegt ist. Wie ich die genauen Prozente berechne weiß ich schon.

Wie kann ich das ganze nun auf die Shapes übertragen, sodass diese den unteren Bereich im Verhältnis ausfüllen?

[Luckie]

O - 25: grün
26 - 50: gelb
51 - 75: orange
76 - 100: rot

Oder wo ist jetzt dein Problem?

Code:

if Auslastung < 25 them shape1.color := clgreen
else shape1.color := clgrey;

[jacky213]

So sieht es gerade aus. Alle werte sind aufgelistet und sollen auf die Shapes am unteren rand übertragen werden.
Irgendwie hilft mir dein Tipp nicht wirklich weiter

[Luckie]

Du musst doch nur die Werte in Farben umsetzen. Was an Code hast du denn schon?

[Rainbow6]

Vielleicht klingt das jetzt ein wenig vereinfacht, aber im Prinzip müsste das doch so funktionieren:

Code:

Shape1.Left := 0;
Shape1.Width := 600 * prozent1;
Shape2.Left := Shape1.Left + Shape1.Width + 1;
Shape2.Width := 600 * prozent2;
Shape3.Left := Shape2.Left + Shape2.Width + 1;
Shape3.Width := 600 * prozent3;
Shape4.Left := Shape3.Left + Shape3.Width + 1;
Shape4.Width := 600 * prozent4;

Oder seh ich das verkehrt?

[jacky213]

Hab den Code weitgehend gelöscht weil der zu unübersichtlich und fehlerhaft wurde. Also nochmal anhand des Beispiels.

Der Gesamtwert ist 900€ und woraus sich diese 900€ zusammensetzen siehst du ja. Ich glaube ich sehe momentan den Wald vor lauter Bäumen nicht mehr.

Jedenfalls möchte ich jetzt die Breite der Shapes am unteren Rand den Werten entsprechend verteilen, sodass sich unten eine komplette Leiste füllt. Ich muss also erstmal ermitteln wie viel 200 von 1000€ in Prozent ergeben und wenn wir jetzt annehmen das es 20% sind, möchte ich das die Shape Breite auf 20% von der Form Breite angepasst wird.

[Luckie]

Dann rechne doch aus wie viel 20% von Form1.Width ist. Wo ist das Problem?

[jacky213]

Mein Problem ist gerade das ich einen Totalschaden im Kopf habe. Kannst du mir hierfür ein komplettes Beispiel machen? Ich weis nicht wie ich das erklären soll, ich sitze vielleicht schon zu lange am Stück an diesem Projekt.

Blackout überwunden, zwar sehr unelegante Lösung aber immerhin eine Lösung:

Procedure ShapeWidth(lab:TLabel;sha:TShape);
var
w,s:string;
begin
with frmRepInfo do
begin
w := Floattostr(strtofloat(tlabel.caption) / strtofloat('100'));
w := Floattostr(strtofloat(lab.Caption) / strtofloat(w));
s := Floattostr(strtofloat(inttostr(Width-5)) / strtofloat('100'));
s := Floattostr(strtofloat(w) * strtofloat(s));
if not (pos(',',s)=0) then s := copy(s,0,pos(',',s)-1);
sha.Width := strtoint(s);
end;
end;

[Luckie]

Warum nimmst du Zeichenketten zum Rechnen? Irgendwo wirst du doch diese Werte berechnet haben.

[jacky213]

Bin gerade nur froh das ich es zum laufen bekommen habe. Werde das morgen alles nochmal überarbeiten.

Vielen Dank an alle.