VPF::Как про большом числе TImage повысить fps?

Rogvold

Дата 9.4.2007, 11:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 30.10.2006

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

Проблема такова: имеется форма, на которой много (порядка тысячи) компонентов TImage размера 48х48, отображающих маленькие картинки формата jpg или bmp.
Собственно, сама проблема заключается в том, что все это дело нещадно тормозит, и при передвижении мерцает.
Пожалуйста, посоветуйте что в данном случае можно предпринять и, возможно, как вообще следует при таком кол-ве изображений реализовать программу.

Буду весьма благодарен. smile

Snowy

Дата 9.4.2007, 11:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

Быстрое решение - DoubleBuffereв := true;
Правильное - один TImage.
ЗЫ. Я подозреваю, что картинки вовсе не 48х48, а большего размера, но стретченые... В этом случае будет не тормозить, а дико и невероятно тормозить ;-)

Rogvold

Дата 9.4.2007, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 30.10.2006

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

Нет, сами картинки как раз меньше - 30х30, но их необходимо было стречнуть до 48х48.
А как можно через 1 TImage это сделать?

Snowy

Дата 9.4.2007, 11:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

Цитата(Rogvold @ 9.4.2007, 11:50

)

сами картинки как раз меньше - 30х30

Всё равно - стретч хавает ресурсы. Хоть в данном случае и меньше, чем на больших картинках.

Цитата(Rogvold @ 9.4.2007, 11:50

)

А как можно через 1 TImage это сделать?

Создать имадж нужного размера и на нём нарисовать все нужные картинки.
После этого ничего уже не стретчится, выводится всё разом.

Rogvold

Дата 9.4.2007, 12:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 30.10.2006

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

Цитата

Создать имадж нужного размера и на нём нарисовать все нужные картинки

Извините, я просто новичок немного... как картинки нарисовать на канву?

Snowy

Дата 9.4.2007, 13:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

На канву TImage'а
Canvas.StretchDraw
Подробнее - в поиск и справку.

iddqd

Дата 9.4.2007, 13:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 16.11.2005

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

Один из вариантов:
CopyRect
Copies part of an image from another canvas into the canvas.

--------------------

Rogvold

Дата 9.4.2007, 15:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 30.10.2006

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

Snowy, iddqd, спасибо большое! smile

Rogvold

Дата 9.4.2007, 21:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 30.10.2006

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

И все-таки, не мог бы мне кто-нибудь помочь - не могу никак на канвасе имага нарисовать картинку. Если есть возвожность, киньте в меня нужной процедуркой или желательно маленьким примерчиком.

Rogvold

Дата 10.4.2007, 10:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 30.10.2006

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

Пишу вот что:

Код


implementation
var
pct:TBitmap;

..

procedure Tfrmmain.FormCreate(Sender: TObject);
begin
pct.Create;
pct.LoadFromFile('gfx\tilesets\104.bmp');
mim.Canvas.Draw(0, 0, pct);
end;

Вылезает еррор Access Violation. Картинка существует.
Подскажите, из-за чего такое может быть?

Snowy

Дата 10.4.2007, 12:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

http://forum.vingrad.ru/index.php?showtopi...st&p=624023

Rogvold

Дата 10.4.2007, 17:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 30.10.2006

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

Cпасибо больущее!! smile

Если б мог - сразу пять плюсов поставил ;)
С меня пиво smile

P.S. тему можно закрыть - проблема решена ;)

Это сообщение отредактировал(а) Rogvold - 10.4.2007, 17:31

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