Подписаться на RSS рассылку
Главная » Статьи по 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;

Такой подход позволит значительно быстрее создать изображение и разом его перенести на экран.

Просмотров: 19669

Обсудить на форуме

0   Спам
(24.07.2013)
1. Сергей Иванов (Serzh)
torrnado.ru качает качает! «Я тебе — ты мне».
http://kachaet.my1.ru/


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта