Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Курсор мыши

3.0K
14 марта 2006 года
Inga
79 / / 27.12.2005
У формы есть свойство Cursor. Во время выполнения длительного процесса можно задать этому свойству значение crHourGlass, чтобы указать пользователю, чтобы он подождал завершение процесса. Как сделать не стандартный курсор? Например, тот же crHourGlass но вращающийся и с маленькой надписью “Подождите”?
362
14 марта 2006 года
_kolyan
339 / / 03.12.2002
Цитата:
Originally posted by Inga
У формы есть свойство Cursor. Во время выполнения длительного процесса можно задать этому свойству значение crHourGlass, чтобы указать пользователю, чтобы он подождал завершение процесса. Как сделать не стандартный курсор? Например, тот же crHourGlass но вращающийся и с маленькой надписью “Подождите”?



Я так делал:

определям константу для нового курсора, например crMyCursor, конечно, ее значение не должно совпадать с предопределенными курсорами

потом, где-либо в началале запуска программы
Screen->Cursors[crMyCursor] = LoadCursor (апишная функция загрузки курсора из ресурсов)

потом уже можно использовать crMyCursor как и другие константы курсоров.

Но это относится к нестандартным неподвижным курсорам, а вот на счет вращающегося - нужно попробовать.

9.8K
14 марта 2006 года
AlexSob
24 / / 14.02.2006
Цитата:
Originally posted by Inga
У формы есть свойство Cursor. Во время выполнения длительного процесса можно задать этому свойству значение crHourGlass, чтобы указать пользователю, чтобы он подождал завершение процесса. Как сделать не стандартный курсор? Например, тот же crHourGlass но вращающийся и с маленькой надписью “Подождите”?


LoadCursorFromFile();
соответственно нужно сделать курсор с надписью "подождите"

3.0K
14 марта 2006 года
Inga
79 / / 27.12.2005
Цитата:
Originally posted by AlexSob
LoadCursorFromFile();
соответственно нужно сделать курсор с надписью "подождите"



В каком формате сделать анимацию? GIF можно?

3.0K
14 марта 2006 года
Inga
79 / / 27.12.2005
Что не правильно в этом коде ниже? Как правильно подготовить файл?
const
MyCurs = 1005;
Screen->Cursors[MyCurs] = LoadCursorFromFile("C:\\Cursor\\1.ANI");
Cursor = MyCurs;
//курсор не появляется
362
15 марта 2006 года
_kolyan
339 / / 03.12.2002
Цитата:
Originally posted by Inga
Что не правильно в этом коде ниже? Как правильно подготовить файл?
const
MyCurs = 1005;
Screen->Cursors[MyCurs] = LoadCursorFromFile("C:\\Cursor\\1.ANI");
Cursor = MyCurs;
//курсор не появляется



Да вроде все работает:

 
Код:
const TCursor crMyCur = 1000;
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
  Screen->Cursors[crMyCur] = LoadCursorFromFile("drum.ani");
  Cursor = crMyCur;
}


Как делаются *.ani файлы не знаю, взял какой-то готовый.
830
16 марта 2006 года
MVal
76 / / 17.10.2002
Цитата:
Originally posted by _kolyan
Как делаются *.ani файлы не знаю, взял какой-то готовый.


Редакторы специальные есть, типа этого.
Еще бывают проги для преобразования других форматов (тех же анимационных гифов) в курсоры.

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог