Помогите с примером

[kotovskiy]

Возможно ламерский вопрос, не могу понять почему не работает пример:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
B:TBitmap;
begin
B:=TBitmap.Create;
B.Canvas.Rectangle(10,10,50,50);
PaintBox1.Canvas.Draw(0,0,B);

end;

 

[Barmutik]

Добавь после TBitmap.Create

 B.Width := 60;
B.Height := 60;

Размеры у битмапа нулевые...

 

[Guest]

Возможно ламерский вопрос, не могу понять почему не работает пример:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
B:TBitmap;
begin
B:=TBitmap.Create;
B.Canvas.Rectangle(10,10,50,50);
PaintBox1.Canvas.Draw(0,0,;

end;

//Не забудь
Free(;

Возможно ламерский вопрос, не могу понять почему не работает пример:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
B:TBitmap;
begin
B:=TBitmap.Create;
B.Canvas.Rectangle(10,10,50,50);
PaintBox1.Canvas.Draw(0,0,B);

end;

//Не забудь
Free ( B ) ;