Canvas probleme

[Thorben_Ko]

Hi @ all,

erst mal vorweg ich war schon lange hier, aber irgendwie bekomm ich mein altes pass net zugeschickt aber egal, zum problem:

Ich erstelle ein Bitmap über das ganze Formular, und male ein Strich auf das Canvas, male dann wieder ein rechteck ganz drüber, und nun würde ich gerne einen anderen Strich zeichen. Dieser wird aber nicht dargestellt, hab zwar seit nem monat net mehr programiert, aber ich glaube ich bin echt total eingerostet....

hier mal die "relevanten" Stellen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  bm.Canvas.LineTo(100,100);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  With bm do
  begin
    Canvas.Brush.Color := Form1.Color;
    Canvas.Rectangle(0,0,ClientWidth, ClientHeight);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BM := TBitmap.Create;
  bm.Width := ClientWidth;
  bm.Height := ClientHeight;
end;

bm ist ein BitMap welches im Private bereich des Forms steht

Hoffe mir kann jemand helfen