анимированный курсор

← →
MetalFan © (2003-06-30 11:10) [0]

торможжжу... понедельник!
помогите с сабжем!!! из ресурса!!!
делаю так:
1)создал RC файл такого содержания:
1 HEART1 "heart.ani"
2 HEART2 "heart2.ani"
3 HEART3 "heart3.ani"
2) brcc32 hearts.res
3)
const HeartCur1=1; HeartCur2=2; HeartCur3=3; implementation uses ...........; {$R *.dfm} {$R Hearts.RES} ...... TForm1.FormCreate(Sender: TObject); begin .... Screen.Cursors[HeartCur1]:= LoadCursor(HInstance, "HEART1"); Screen.Cursors[HeartCur2]:= LoadCursor(HInstance, "HEART2"); Screen.Cursors[HeartCur3]:= LoadCursor(HInstance, "HEART3"); Cursor:=HeartCur1; end;
и нифига не менятся((( ХЕЕЕЛП!

← →
Skier © (2003-06-30 11:12) [1]

TForm1.FormCreate(Sender: TObject);
begin
//....
Cursor := Screen.Cursors[HeartCur1];
//....
end;

?

← →
MetalFan © (2003-06-30 11:16) [2]

> Skier

непомогло...
такое осчучение, что они(анимир.курсоры) из ресурса не подгружаются...

← →
Skier © (2003-06-30 11:19) [3]

>MetalFan © (30.06.03 11:16)

> такое осчучение, что они(анимир.курсоры) из ресурса не подгружаются...

Дык...проверь. Что LoadCursor возвращает...

← →
MetalFan © (2003-06-30 11:28) [4]

> Screen.Cursors[HeartCur1]:= LoadCursor(HInstance, "HEART1");
> Screen.Cursors[HeartCur2]:= LoadCursor(HInstance, "HEART2");
> Screen.Cursors[HeartCur3]:= LoadCursor(HInstance, "HEART3");
> Cursor:=HeartCur1; //тут брякпоинт

смотрю например Screen.Cursors[HeartCur1] через ctrl+F7
значение: 65553 . причем у всех трех... может анимированный по другому надо подгружать?
есь идеи?

← →
Skier © (2003-06-30 11:43) [5]

>MetalFan © (30.06.03 11:28)

> может анимированный по другому надо подгружать?

Похоже...

> есь идеи?

Кончились.:)

← →
MetalFan © (2003-06-30 11:45) [6]

ааа!!! чего делать то? все факи и хелпы облазил...
может *.ani переименовать в *.cur?

← →
MetalFan © (2003-06-30 12:06) [7]

HEEEELP!!! PLZ!!!

← →
MBo © (2003-06-30 12:11) [8]

Из советов Озерова

const crMyCursor = 1;

procedure TForm1.FormCreate(Sender: TObject);
begin

// Загружаем курсор. Единственный способ для этого
Screen.Cursors[crMyCursor] :=
LoadCursorFromFile("c:\mystuff\mycursor.ani");

// Используем курсор на форме
Cursor := crMyCursor;
end;

так и сделал...
сначала из ресурса в файл, а потом из файла и гружу...
напрямую никак...
всем Спасибо за внимание!

УГУ! исчо вопрос по теме...
как изменить "активную" точку курсора???
заранее thnx

АУ!

анимированный курсор Найти похожие ветки