| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ani куросор из ресурса [D7, WinXP]
beatles_bntu © (2004-09-11 11:01:00)LoadImage-?. Помогите пожалуйста загрузить анимированный курсор из ресурса при загрузке из файла всё ОК а вот из ресурса не получается наверно что то в параметрах неправильно указываю. Киньте примерчик если не лень.
beatles_bntu (2004-09-16 00:06:00) [1]НЕ-РА-БО-ТА-ЕТ
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);
Fay (2004-09-15 06:52:00) [2]Так... Про LoadImage я погорячился 8)
Можешь сделать так
h := LoadImage(MainInstance, 'Ресурс 8)', IMAGE_CURSOR, 0, 0, LR_DEFAULTSIZE);
Fay (2004-09-15 04:03:00) [3]Пихаешь в ресурс как CURSOR (странно, да), получаеешь LoadCursor.
Дальше ты знаешь.
З.Ы.
Про LoadImage сам придумал, или добрые люди подсказали? 8)
Fay (2004-09-15 03:59:00) [4]Этот код не работает?!
beatles_bntu (2004-09-15 00:11:00) [5]Ну вот так я гружу с дискового пространства
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-14 23:45:00) [6]LoadCursor. Только борландовый компилятор ani жрать не станет (у меня никогда не жрёт, сволочь) - надо от MS (к примеру).
P.S.
Давай код, который не работает.
beatles_bntu (2004-09-14 21:02:00) [7]Что и незнает некто
Неверю
| |
