Форум: "Основная";
Текущий архив: 2003.07.14;
Скачать: [xml.tar.bz2];
Вниз
анимированный курсор Найти похожие ветки
← →
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;
← →
MetalFan (2003-06-30 12:40) [9]так и сделал...
сначала из ресурса в файл, а потом из файла и гружу...
напрямую никак...
всем Спасибо за внимание!
← →
MetalFan (2003-06-30 12:49) [10]УГУ! исчо вопрос по теме...
как изменить "активную" точку курсора???
заранее thnx
← →
MetalFan (2003-06-30 13:30) [11]АУ!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.07.14;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.011 c
