Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Графика и игры
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 14.06.2010, 10:29
Kass Kass вне форума
Прохожий
 
Регистрация: 25.05.2010
Сообщения: 2
Репутация: 10
По умолчанию запоминание всех пикселей

надо нарисовать картинку запоминанием значений всех пикселей и дальнейшим "выбрасыванием" этого на форму. при этом к пикселям должен быть постоянный доступ, тк в ходе выполнения программы их значения меняются.
Ответить с цитированием
  #2  
Старый 15.06.2010, 17:10
roamer roamer вне форума
Активный
 
Регистрация: 15.04.2009
Сообщения: 369
Репутация: 93
По умолчанию

В Help`е к Delphi есть пример :
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  W: Word;
begin
  for W := 10 to 200 do
    Canvas.Pixels[W, 10] := clRed;
end;
Ответить с цитированием
  #3  
Старый 17.06.2010, 08:31
Rjkzy Rjkzy вне форума
Прохожий
 
Регистрация: 15.06.2010
Адрес: дома
Сообщения: 34
Репутация: 10
По умолчанию

Цитата:
var
i,j:Cardinal;
piks:array of array of TColor;
begin
SetLength(piks,Self.Width,Self.Height);
for i:=0 to Self.Width-1 do
for j:=0 to Self.Height - 1 do
piks[i,j]:=Self.Canvas.Pixels[i,j];
end;
примерно так записываем значения всех пикселей канвы главной формы в массив
Цитата:
var
i,j:Cardinal;
begin
for i:=0 to Self.Width-1 do
for j:=0 to Self.Height - 1 do
Self.Canvas.Pixels[i,j]:=piks[i,j];
а так их считываем обратно.
единственное, массив должен быть глобальным объявлен
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:09.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter