Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.06.2011, 22:44   #11
_Engine_
Форумчанин
 
Регистрация: 29.06.2008
Сообщений: 603
По умолчанию

да пожалйста
http://www.transl-gunsmoker.ru/2009/09/blog-post.html
_Engine_ вне форума Ответить с цитированием
Старый 06.06.2011, 00:01   #12
A-IX-2
Форумчанин
 
Аватар для A-IX-2
 
Регистрация: 08.10.2010
Сообщений: 101
По умолчанию

Цитата:
Сообщение от _Engine_ Посмотреть сообщение
Спасибо! Ну, а по теме что скажете?
"Думаешь, будет трудно? Конечно, будет! Но, только закаляя дух, людьми становятся люди!"
A-IX-2 вне форума Ответить с цитированием
Старый 06.06.2011, 00:04   #13
_Engine_
Форумчанин
 
Регистрация: 29.06.2008
Сообщений: 603
По умолчанию

По теме я уже в первом сообщении сказал
P.S. Вы хотите разобраться или ищете готовое решение?
_Engine_ вне форума Ответить с цитированием
Старый 06.06.2011, 00:07   #14
A-IX-2
Форумчанин
 
Аватар для A-IX-2
 
Регистрация: 08.10.2010
Сообщений: 101
По умолчанию

Цитата:
Сообщение от _Engine_ Посмотреть сообщение
По теме я уже в первом сообщении сказал
P.S. Вы хотите разобраться или ищете готовое решение?
Я прекрасно знаю куда за готовыми решениями обращаться.
P.S. Сори, я имел ввиду по поводу вопроса о торможении картинки в 8 посте.
"Думаешь, будет трудно? Конечно, будет! Но, только закаляя дух, людьми становятся люди!"

Последний раз редактировалось A-IX-2; 06.06.2011 в 00:11.
A-IX-2 вне форума Ответить с цитированием
Старый 06.06.2011, 03:06   #15
Sparkman
220400
Форумчанин
 
Аватар для Sparkman
 
Регистрация: 21.05.2010
Сообщений: 726
По умолчанию

Цитата:
Сообщение от A-IX-2 Посмотреть сообщение
Всем доброго времени суток!
У меня такой вопрос: Image по пикселям закрашивается очень медленно, как можно сделать быстрее?

Код:
Function ToColor(r: real): TColor;
  var
    b: byte;
begin
  b:=255-round(255*r);
  result:=RGB(255,b,0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);

  var
    _p:real;
    i,j: integer;

begin

  for I := 0 to h do
  for j := 0 to image1.Height do
  begin
    _p:=p[i];
    Pixels[h-i,j]:=ToColor(_p);
  end;

  h:=h+1;

  if h>Image1.Width then Timer1.Enabled:=False;

end;
попробуйте не использовать таймер...
Cерьёзной помощи не ждите - помогаю в перерывах на "перекур".
Не существует ничего невозможного для человека, который не собирается ничего делать сам.
Не учите человека, если вы не его учитель.
Sparkman вне форума Ответить с цитированием
Старый 06.06.2011, 06:49   #16
ZvEr_HaCkEr
VisualC++/DirectX
Форумчанин
 
Аватар для ZvEr_HaCkEr
 
Регистрация: 16.07.2010
Сообщений: 831
По умолчанию

Тогда вот так.
Вложения
Тип файла: rar Example.rar (311.4 Кб, 16 просмотров)
ZvEr_HaCkEr вне форума Ответить с цитированием
Старый 06.06.2011, 09:09   #17
Swarog
Форумчанин
 
Аватар для Swarog
 
Регистрация: 26.01.2010
Сообщений: 215
По умолчанию

Есть еще один способ получем доступ к массиву пикселей напрямую, отрисовку проводим в обход методов класса Canvas или BitMap, закрашивание области в 1000х700 проводит примерно раз 30-60 в секунду...

Во архиве пример как это делать
Вложения
Тип файла: zip Быстро рисуем.zip (4.5 Кб, 21 просмотров)
Могу лишь пнуть в нужном направлении (ну или как получится)
Swarog вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как разобрать картинку по пикселям? Probapera Microsoft Office Excel 7 29.10.2010 16:04
Регион по пикселям картинки. Alex Cones Общие вопросы Delphi 0 18.09.2010 14:45
Закрашивание SlaYeR_DD Помощь студентам 2 10.06.2010 12:43
Как нарисовать линию по пикселям DenLab Общие вопросы Delphi 4 03.12.2008 09:34