Problem mit Paintbox1.Canvas.Pixels

[StefanDraeger]

Hi,

ich habe ein Problem mit folgendem Code:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  p_width,
  p_height,
  p_gesamt,
  I,X : integer;
begin
 p_width := paintbox1.Width;
 p_height := paintbox1.Height;
  for I := 0 to p_height do
    begin
      for X := 0 to p_width do
        begin
           paintbox1.Canvas.Pixels[i,x] := clblue;
        end;
    end;
end;

Anstatt mir die Form bzw die Paintbox in Blau zu füllen enstehen zwei dicke Streifen.

mmh.

Kennt jemand das Problem ?

mfg

Stefan