Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как работать с ani-курсорами? [D7]


Ани ©   (2006-02-07 01:32:00) 

Можно мне из bmp-картинок с кадрами анимации собрать ani-курсор, и загрузить его? Если да, то как?
Я не нашёл в Дельфи ни классов, ни записей, ни вообще ничего, чтобы с анимированными курсорами работать. Как же быть?


Курсор   (2006-02-11 02:44:00) [1]

И ещё раз повторю загрузка курсоров из файлов и ресурсов меня не интересует.


Курсор   (2006-02-11 02:31:00) [2]

Компоненты для Дельфи 1 и 2. 1997 год. Где только такое отрыл то?
http://ftp.sunet.se/delphi/ftp/d20free/


DevilDevil   (2006-02-10 23:58:00) [3]

Всем здрасте! Зашёл на www.punto.ru - поисковик, ввёл TAniFile и получил ссылку, которой несумел воспользоваться. В общем, такой класс уже есть, осталось только найти. Получится - скиньте мне на мыло!


Fay   (2006-02-10 02:10:00) [4]

http://pascal.sources.ru/cgi-bin/forum/YaBB.cgi?board=delphi;action=display;num=1029683466


Джо   (2006-02-10 01:37:00) [5]

> [9] Ани   (10.02.06 01:33)
> А вообще грустно, что никто них... не знает.

За то время, что тут жалуешься, ругаешься и грустишь, уже  бы давно раскопал описание формата анимированных курсоров. Или ты думаешь, что в VCL каждый твой чих предусмотрен и сделан для него "класс"?


Ани   (2006-02-10 01:33:00) [6]

> Гарри Поттер ©   (09.02.06 11:20) [8]
> Ты это чтоли хочешь?
> const crMyCursor = 1;
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
>  // Загружаем курсор.
>  Screen.Cursors[crMyCursor] :=LoadCursorFromFile('c1.ani');
>  // Используем курсор
>  Cursor := crMyCursor;
> end;

Вчера впервые загрузил Дельфи ? ;)

См. Постинг 7.

А вообще грустно, что никто них... не знает.


Гарри Поттер   (2006-02-09 11:20:00) [7]

Ты это чтоли хочешь?

const crMyCursor = 1;

procedure TForm1.FormCreate(Sender: TObject);
begin
 // Загружаем курсор.
 Screen.Cursors[crMyCursor] :=LoadCursorFromFile('c1.ani');
 // Используем курсор
 Cursor := crMyCursor;
end;


Ани   (2006-02-09 04:28:00) [8]

Что класс-то? Загрузить то как?

В Дельфи и так есть структура TIconInfo
Заполняешь её, и отсылаешь через CreateIconIndirect. И готов курсор. Только обычный. Не анимированный. Вот я и спрашиваю, а как анимированный то сделать?

Ещё есть стурутура TDIBSection, через которую можно получить всякую информацию про анимированный курсор. Но то, получить. А загрузить то как?


Gero   (2006-02-09 02:14:00) [9]

Ищи описание ani-формата, пиши свой класс.


Ани   (2006-02-09 02:08:00) [10]

Никто не знает?

Хоть какие нибудь мысли по теме?


Fay   (2006-02-07 05:47:00) [11]

> Я не просил рекламировать всякие платные эдиторы
Да, там просто жуткие цены.


Fay   (2006-02-07 05:45:00) [12]

2  Ани   (07.02.06 05:04) [2]
ОК. Тогда пиши, что значит "собрать ani-курсор" и "с анимированными курсорами работать".


Ани   (2006-02-07 05:04:00) [13]

1) Я не спрашивал через что подключить курсоры.
2) Я не просил рекламировать всякие платные эдиторы.


Fay   (2006-02-07 03:36:00) [14]

http://www.aha-soft.com/rus/artcursors/index.htm
З.Ы.
Курсоры подключать через ресурсы, которые компиллировать RC.exe от MS.
М.б. есть способ попроще, но я его не знаю.


Наверх

Титульная страница Поиск, карта сайта Написать письмо