Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Собственный курсор

ivak © (2008-12-12 23:10:00)
В Delphi Image Editor создал файл ресурсов и включил в него курсор. сохранил в папке с проэктом
вот такой код у меня:

implementation const crMyCursor = 1; . . . procedure TForm1.FormCreate(Sender: TObject); begin screen.Cursors[crmycursor] := loadcursor(hinstance, 'cursor'); end;
И в нужный момент:

screen.Cursor := crMycursor;

но в этот самый нужный момент он не загружается. что неправильно????

DomiNick (2009-02-15 03:25:00) [1]
Кому не сложно - взгляните сюда: http://programmersforum.ru/showthread.php?t=21378&page=2

Eraser (2008-12-16 15:26:00) [2]
> [16] ivak © (16.12.08 12:47)

> но я рисовал курсор монохромно!!! в чем проблема?

а сохранял как?

clickmaker (2008-12-16 13:09:00) [3]
что буквально прописано в rc?

ivak (2008-12-16 12:47:00) [4]
[Error] RLINK32: Unsupporded 16bit resource in file .../resource.rc

насколько я понял, он не поддерживает 16битных ресурсов, но я рисовал курсор монохромно!!! в чем проблема?

Сергей М. (2008-12-16 12:26:00) [5]

> ivak © (16.12.08 12:18) [14]

Общий синтаксис:

ИМЯ_РЕСУРСА ТИП_РЕСУРСАОПИСАНИЕ_РЕСУРСА

ivak (2008-12-16 12:18:00) [6]

> clickmaker

да и не только блокнота а и браузера, проводника, и lightalloy и всего чё хош.

> Eraser © (15.12.08 19:07) [11]

то бишь, один курсор соответствует одной строке:
MYCURSOR "mycursor.cur"
потом меняю расширение на .rc, включаю в проэкт и мои строки в [0] оживут?

clickmaker (2008-12-15 19:36:00) [7]
> как же вы res получили, не зная синтаксиса rc? )

дельфи она чем хороша, что можно и простенький аналог Блокнота "написать", не зная практически синтаксиса pas )

Сергей М. (2008-12-15 19:25:00) [8]

> Eraser © (15.12.08 19:07) [11]

Он же кнопки давил в Delphi Image Editor'е, см. топикстарт

Eraser (2008-12-15 19:07:00) [9]
> [10] ivak © (15.12.08 18:51)

могу пример

POINT CURSOR "POINT.CUR" HAND CURSOR "hand.cur" ARROW_UP RT_RCDATA "arrow_up.bmp" ARROW_DOWN RT_RCDATA "arrow_down.bmp"
как же вы res получили, не зная синтаксиса rc? )

ivak (2008-12-15 18:51:00) [10]
а можно, если можно, синтаксис *.rc файла?

Eraser (2008-12-15 18:04:00) [11]
как альтернатива [7], можно просто добавить .rc файл, описывающий ресурс с курсором, в проект.

Юрий Зотов (2008-12-15 17:56:00) [12]
Вдогонку - а если посмотреть справку по TScreen.Cursors, то там есть подробнейший пример.

Юрий Зотов (2008-12-15 17:54:00) [13]
Добавьте директиву:
{$R имя_файла.res}

ivak (2008-12-15 17:23:00) [14]
спс, попробую...

Сергей М. (2008-12-15 16:11:00) [15]
На то существует директива $I

ivak (2008-12-15 16:08:00) [16]
блин.
какже мне тогда добавить курсор в приложение, если файл ресурсов лежит в каталоге с приложением причем в этом файле ресурсов естьфайл курсора?

clickmaker (2008-12-15 15:56:00) [17]
Win32Check(LoadCursor() <> 0) намекнет, что исправлять

ivak (2008-12-15 15:52:00) [18]
а как испраить??

Сергей М. (2008-12-15 08:25:00) [19]

> что неправильно?

LoadCursor вернула 0.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »