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

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

Наш партнер Genesis Hackspace
Статус темы:
Закрыта.
  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 ) ;
    :)
     
Загрузка...
Похожие Темы - Помогите примером
  1. number27
    Ответов:
    0
    Просмотров:
    39
  2. Rina
    Ответов:
    0
    Просмотров:
    51
  3. maksiiimka
    Ответов:
    2
    Просмотров:
    59
  4. Ким
    Ответов:
    23
    Просмотров:
    530
  5. Sr233
    Ответов:
    2
    Просмотров:
    136
Статус темы:
Закрыта.

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