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

kotovskiy · 20.11.2004

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

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 · 20.11.2004

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

Код:

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

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

Guest · 09.11.2006

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,;

end;

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

;

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;

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