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

Тема в разделе "Delphi - Multimedia, Графика, Игры", создана пользователем kotovskiy, 20 ноя 2004.

Статус темы:
Закрыта.
  1. kotovskiy

    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;
     
  2. Barmutik

    Barmutik Гость

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

    Код (Text):
     B.Width := 60;
    B.Height := 60;
    Размеры у битмапа нулевые...
     
  3. Гость

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


    //Не забудь
    Free ( B ) ;
    :)
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей