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

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

Проблема с ANI-курсорами (при извлечении из ресурса) [D7, WinXP]

jiny ©   (2006-11-27 14:18:00) 

Текст ресурса :
STRELKA ANICURSOR "4.ani"
HAND ANICURSOR "17.ani"
LINZA ANICURSOR "linza_white.ani"

Код вызова
....
Const
crMyLinza=10001;
.....

....
 screen.cursors[crMyLinza]:=LoadCursor(hinstance,PCHAR('LINZA'));
 screen.cursors[5008]:=crMyLinza;
.....

И ничего не выдается, нет курсора и все. Помогите, плиз.

---

icWasya   (2006-11-29 14:49:00) [1]

не все компиляторы ресурсов понимают ANICURSOR

---

rar   (2006-11-27 18:50:00) [2]

implementation

{$R *.dfm}
{$R resCursor.res}

procedure TForm1.Button1Click(Sender: TObject);
var
hCur : HCURSOR;
begin
hCur := LoadCursor (hInstance, 'myCur');
Screen.Cursors[1] := hcur;
Form1.Cursor := 1;
end;

cursor.rc - такой

#define ANICURSOR 21
myCur ANICURSOR "Cur.ani"

Скомпилирован в resCursor.res

---

Наверх