Здравствуйте, Гость
Среда, 08.02.2012
Рисуем на 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;
Такой подход позволит значительно быстрее создать изображение и разом его перенести на экран.
-
Контактные линзы OmniFlex (флакон)
Объявления, форумы, статьи. Интернет-магазин контактных линз.
glavlinza.ru
Просмотров: 5382
On-line статистика:
Онлайн всего: 5
Гостей: 4
Пользователей: 1
Статистика:
Copyright © 2008-2012 Программирование на Delphi для начинающих и не только
Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам
Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации
Хостинг от uCoz