Анимированный курсор в ресурсах
От: Tonal- Россия www.promsoft.ru
Дата: 03.12.04 20:16
Оценка: 3 (1)
Не могу загрузить анимированный курсор из ресурса:

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

Project1.dpr
....
{$R 'Curs.res' 'Curs.rc'}
....

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  Cursor := 1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Cursor := 2;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Cursor := crDefault;
end;


GetLastError возвращает 1813 — ERROR_RESOURCE_TYPE_NOT_FOUND
Замена ANICURSOR в rc на 21 — прямой номер типа ничего не даёт.

Если вместо LoadCursor использовать LoadCursorFromFile — грузить из внешнего файла, то всё работает.

Соответствующий код на VC++ & WTL работает на ура.

Это я затупил, или очередные глюки делфей?

P.S. delphi 6-7
... << RSDN@Home 1.1.4 beta 3 rev. 240>>
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.