fillrect funktioniert nur mit konstanten?

[richard_boderich]

@ luckie

führe mal eine operation mit einer deiner variablen durch. z.B.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  a, b, c, d: Integer; 
begin 
  Image1.Canvas.Brush.Color := clRed; 
  Image1.Canvas.Brush.Style := bsSolid; 
  a := 10; 
  b := 10; 
  c := 25; 
  d := 25; 
  Image1.Canvas.FillRect(rect(a, b, c-50, d)); 
end;

oder so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  a, b, c, d: Integer; 
begin 
  Image1.Canvas.Brush.Color := clRed; 
  Image1.Canvas.Brush.Style := bsSolid; 
  a := 10; 
  b := 10; 
  c := 25; 
  d := c+b; 
  Image1.Canvas.FillRect(rect(a, b, c, d)); 
end;

und teste nochmal bitte

richard