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

← →
jiny (2006-11-27 14:18) [0]

Текст ресурса :
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; .....

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

← →
rar © (2006-11-27 18:50) [1]

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

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

Проблема с ANI-курсорами (при извлечении из ресурса) Найти похожие ветки