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

ani куросор из ресурса   Найти похожие ветки 

← →
beatles_bntu ©   (2004-09-11 11:01) [0]

LoadImage-?. Помогите пожалуйста загрузить анимированный курсор из ресурса при загрузке из файла всё ОК а вот из ресурса не получается наверно что то в параметрах неправильно указываю. Киньте примерчик если не лень.

---

← →
beatles_bntu ©   (2004-09-14 21:02) [1]

Что и незнает некто
Неверю

---

← →
Fay ©   (2004-09-14 23:45) [2]

LoadCursor. Только борландовый компилятор ani жрать не станет (у меня никогда не жрёт, сволочь) - надо от MS (к примеру).

P.S.
Давай код, который не работает.

---

← →
beatles_bntu ©   (2004-09-15 00:11) [3]

Ну вот так я гружу с дискового пространства
procedure TForm1.Button1Click(Sender: TObject);
var
 h:THandle;
begin
 h:=LoadImage(0,"C:\1.ani",IMAGE_CURSOR,0,0,      LR_DEFAULTSIZE or LR_LOADFROMFILE);
 Screen.Cursors[1]:=h;
 Form1.Cursor:=1;
end;

---

← →
Fay ©   (2004-09-15 03:59) [4]

Этот код не работает?!

---

← →
Fay ©   (2004-09-15 04:03) [5]

Пихаешь в ресурс как CURSOR (странно, да), получаеешь LoadCursor.
Дальше ты знаешь.

З.Ы.
Про LoadImage сам придумал, или добрые люди подсказали? 8)

---

← →
Fay ©   (2004-09-15 06:52) [6]

Так... Про LoadImage я погорячился 8)
Можешь сделать так
h := LoadImage(MainInstance, "Ресурс 8)", IMAGE_CURSOR, 0, 0, LR_DEFAULTSIZE);

---

← →
beatles_bntu ©   (2004-09-16 00:06) [7]

НЕ-РА-БО-ТА-ЕТ
h:=LoadImage(MainInstance,"ARJ6",IMAGE_CURSOR,0,0,LR_DEFAULTSIZE);
и так тоже
hResource:=LoadResource(hInstance,FindResource(hInstance,"ARJ6","ANIFILE"));
h:=LoadImage(hResource,"ARJ6",IMAGE_CURSOR,0,0,LR_DEFAULTSIZE);

---

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

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



Память: 0.46 MB
Время: 0.024 c