Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];

Вниз

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

 
stream   (2003-06-05 16:19) [0]

Добрый день. Как програмно изменить курсор приложения? Пример в из справки Делфи не работает.


 
Sandman25   (2003-06-05 16:25) [1]

Screen.Cursor := crHourGlass


 
VMcL   (2003-06-05 16:26) [2]

Этот что ли не работает?

var
Save_Cursor:TCursor;
begin
Save_Cursor := Screen.Cursor;

Screen.Cursor := crHourGlass; { Show hourglass cursor }

try
{ Do some lengthy operation }
finally
Screen.Cursor := Save_Cursor; { Always restore to normal }
end;
end;


 
stream   (2003-06-05 16:28) [3]

Мне нужно загрузить свой, нестандартный курсор (он находится в файле xxx.res, который я подключаю к своей программе


 
VMcL   (2003-06-05 16:30) [4]

>stream © (05.06.03 16:28)

Курсоры - *.cur, *.ani


 
VMcL   (2003-06-05 16:32) [5]

>stream © (05.06.03 16:28)
Curs := LoadCursor(hInstance, "MyCursor");
Screen.Cursor := Curs;


Так, вроде...


 
Ru   (2003-06-05 16:34) [6]

Form1.Cursor:=crCross; - например так написать в обработчике какого-либо события.


 
stream   (2003-06-05 16:35) [7]

Пишу {$R xxx.cur} и получаю
[Error] RLINK32: Unsupported 16bit resource in file "D:\stars\Cursor2.cur"


 
VMcL   (2003-06-05 16:35) [8]

>VMcL © (05.06.03 16:32)
Нет, вот так:

Screen.Cursors[crMyCurs] := LoadCursor(hInstance, "MyCursor");
Screen.Cursor := crMyCurs;


 
VMcL   (2003-06-05 16:37) [9]

>stream © (05.06.03 16:35)

{$R xxx.res}

а xxx.res - это должен быть откомпилированный xxx.rc (brcc32.exe)


 
stream   (2003-06-05 16:40) [10]

> VMcL © (05.06.03 16:35)
У меня LoadCursor возвращает что-то большее 65000, что должно значить ошибку. Я создал файл *.res, в нем описан мой курсор, но почему-то не загружает


 
Юрий Зотов   (2003-06-05 17:07) [11]

1. > "Unsupported 16bit resource..."
Чем и как рисовался курсор?

2. > Я создал файл *.res...
То же самое - чем и как?


 
VMcL   (2003-06-05 17:08) [12]

>stream © (05.06.03 16:40)

Текст rc-файла?


 
stream   (2003-06-05 17:17) [13]

>Юрий Зотов © (05.06.03 17:07)
Курсор создавался в Image editor"е


 
VMcL   (2003-06-05 17:22) [14]

>stream © (05.06.03 17:17)

Может перепутал? Cursor - Icon, я только что делал в Im. Ed. - всё ОК. Проверь регистр букв - по-моему нужно передавать строку в верхнем регистре в LoadCursor.


 
VMcL   (2003-06-05 17:24) [15]

>VMcL © (05.06.03 17:22)

Точнее в самом Image Editor"е имя должно быть в верх. рег.


 
stream   (2003-06-05 17:35) [16]

Всем большое спасибо, а особенно VMcL. Все заработало!!!



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

Форум: "Основная";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.008 c
3-60050
Alex_x
2003-05-27 16:43
2003.06.19
Нужна компонента для программного созднания Dbf (без BDE)


14-60351
RIMMER
2003-06-02 10:30
2003.06.19
Экзамен уже сегодня...


7-60440
pavlov
2003-04-15 14:03
2003.06.19
соответствие файлов приложению


14-60386
pasha676
2003-06-03 10:24
2003.06.19
Я дико по свински поступил...


1-60265
AlexanderG
2003-06-05 19:57
2003.06.19
Список доступных принтеров





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский