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

  • Автор темы kotovskiy
  • Дата начала
Статус
Закрыто для дальнейших ответов.
K

kotovskiy

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

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

Barmutik

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

Код:
 B.Width := 60;
B.Height := 60;
Размеры у битмапа нулевые...
 
G

Guest

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

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 ) ;
:)
 
Статус
Закрыто для дальнейших ответов.