Delphi

Разработка сайтов

Наши проекты

Секс услуги в Калуге Секс услуги в Калуге. Самые привлекательные и сексуальные девушки Калуги предлагающие секс и интим услуги. Секс с распутной проституткой позволяет мужчине сбросить физическое напряжение, забыть о проблемах, почувствовать себя гигантом в постели.

Главная » Статьи по Delphi » Bitmap » Рисуем на TBitMap

Рисуем на TBitMap

Автор: Digy

Сначала нарисуем на BitMap находящемся в памяти, потом перенесем все это на экран. Объявим глобальную переменную:

var
  btm: TBitmap;

Ставим на форму компонент TImage и по созданию формы пишем:

// создаем битовую карту
btm := TBitMap.create;

// Указываем размеры BitMap равные размерам Image
btm.Height:=Image1.Height;
btm.Width:=Image1.Width;

// рисуем на BitMap, Например точку
btm.Canvas.Pixels[100,100]:=clRed;

// переносим содержимое битовой карты на экран 
Image1.Picture.Assign(btm);

//освобождаем оперативную память
btm.Free;