Ok, ich habe das ganze nun so übernommen.
Delphi-Quellcode:
procedure TForm1.FormPaint(Sender: TObject);
var
filled, i, amount: integer;
begin
filled := 0;
for i:=0 to 4 do
begin
amount := 20;
Canvas.Brush.Color := clGreen;
Canvas.Rectangle(0, 100-filled, 10, 100-filled-amount);
inc(filled, amount);
end;
Canvas.Brush.Color := clFuchsia;
Canvas.Rectangle(0, 0, 10,100-filled); // !! filled=80 , 100-filled=100
end;
Ich sehe nur die 5 grünen Rechtecke. Von dem clFuchsia ist nichts zu sehen, was auch so richtig ist, da du 5 Schleifendurchläufe hast und somit filled am Ende 100 ist. Somit ergibt sich ein Rectangle von X 0 bis X 0. Somit funktioniert alles bestens, das Problem muss im nicht geposteten Quellcode auf deiner Seite liegen.