Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> За какое время было создано изображение 
:(
    Опции темы
Poseidon
Дата 19.5.2005, 01:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: нет
Всего: 133



При нажатии на Button1 используется свойство Pixels, а при нажатии на Button2 - ScanLine. В заголовок окна выводится время в миллисекундах, за которое было создано изображение. 

Код
procedure TForm1.Button1Click(Sender: TObject); 
var 
  t: cardinal; 
  x, y: integer; 
  bm: TBitmap; 
begin 
  bm := TBitmap.Create; 
  bm.PixelFormat := pf24bit; 
  bm.Width := Form1.ClientWidth; 
  bm.Height := Form1.ClientHeight; 
  t := GetTickCount; 
  for y := 0 to bm.Height - 1 do 
    for x := 0 to bm.Width - 1 do 
    bm.Canvas.Pixels[x,y] := RGB(x+y, x-y, y-x); 
  Form1.Caption := IntToStr(GetTickCount - t); 
  Form1.Canvas.Draw(0, 0, bm); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
var 
  t: cardinal; 
  x, y: integer; 
  bm: TBitmap; 
  p: PByteArray; 
begin 
  bm := TBitmap.Create; 
  bm.PixelFormat := pf24bit; 
  bm.Width := Form1.ClientWidth; 
  bm.Height := Form1.ClientHeight; 
  t := GetTickCount; 
  for y := 0 to bm.Height - 1 do 
  begin 
    p := bm.ScanLine[y]; 
    for x := 0 to bm.Width - 1 do 
    begin 
      p^[x*3] := x+y; 
      p^[x*3+1] := x-y; 
      p^[x*3+2] := y-x; 
    end; 
  end; 
  Form1.Caption := IntToStr(GetTickCount - t); 
  Form1.Canvas.Draw(0, 0, bm); 
end; 



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »


 




[ Время генерации скрипта: 0.0825 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.