Скачать: CL | DM;

Проблема с 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

---

← →
icWasya ©   (2006-11-29 14:49) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.035 c