Анимированный курсор в ресурсах
От: Tonal- Россия www.promsoft.ru
Дата: 04.12.04 14:18
Оценка: 20 (1)
#Имя: FAQ.delphi.anicursor
T>>Не могу загрузить анимированный курсор из ресурса:

SIG><skipped>


SIG>При загрузке из ресурсов приложения первым аргументом у LoadCursor должен быть HInstance (или Module.ResInstance, если предполагается использовать отдельную dll для ресурсов). С нулем она может только стандартные курсоры грузить.


Спасибо, заработало

Для интересующихся привожу проведённые мной изменения:

Curs.rc
51 21 "dinosaur.ani"
52 21 "horse.ani"

Unit1.pas
procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[1] := LoadCursor(HInstance, pChar(51));
  Screen.Cursors[2] := LoadCursor(HInstance, pChar(52));
end;


Было 2 наложенных ошибки:
1) LoadCursor требует чесный Instance и на 0 не покупается.
2) Борландовский компилятор ресурсов похоже не знает слова ANICURSOR и создаёт ресурс с типом "ANICURSOR", а вот MS-овский создаёт ресурс с типом 21. Понятно что LoadCursor не может найти наши ресурсы, даже если мы подали ему HInstance — он то просматривает тип 21.
... << RSDN@Home 1.1.4 beta 3 rev. 240>>
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.