[delfin] Canvas

Zaluzmy, ze mam taki kod:

var
Form1: TForm1;
Bufor:TBitmap;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Bufor:=TBitmap.Create;
Bufor.Canvas.MoveTo(1,1);
Bufor.Canvas.LineTo(100,100);
end;

I jak teraz przeniesc zawartosc (narysowac) Bufor.Canvas na Form1.Canvas? hmm...

Za wszelka pomoc z gory THX!
{hello}

Form1.Canvas.Draw(0,0,Bufor1.Canvas)
albo Form1.Canvas.Assign(Bufor1.Canvas) &lt-- ale nie wiem czy jest tama methoda w Canvas

Nie dzala ani pierwsze ani drugie. :(

Pierwsze kompiluje sie tylko tak:

Form1.Canvas.Draw(0,0,Bufor);

ale i tak nie dziala. :(

Dodalem:

Bufor.Height:=100;
Bufor.Width:=100;

i dzala!