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

← →
ivak © (2008-12-12 23:10) [0]

В Delphi Image Editor создал файл ресурсов и включил в него курсор. сохранил в папке с проэктом
вот такой код у меня:

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

screen.Cursor := crMycursor;

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

← →
Сергей М. © (2008-12-15 08:25) [1]

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

LoadCursor вернула 0.

← →
ivak © (2008-12-15 15:52) [2]

а как испраить??

← →
clickmaker © (2008-12-15 15:56) [3]

Win32Check(LoadCursor() <> 0) намекнет, что исправлять

← →
ivak © (2008-12-15 16:08) [4]

блин.
как же мне тогда добавить курсор в приложение, если файл ресурсов лежит в каталоге с приложением причем в этом файле ресурсов есть файл курсора?

← →
Сергей М. © (2008-12-15 16:11) [5]

На то существует директива $I

← →
ivak © (2008-12-15 17:23) [6]

спс, попробую...

← →
Юрий Зотов © (2008-12-15 17:54) [7]

Добавьте директиву:
{$R имя_файла.res}

← →
Юрий Зотов © (2008-12-15 17:56) [8]

Вдогонку - а если посмотреть справку по TScreen.Cursors, то там есть подробнейший пример.

← →
Eraser © (2008-12-15 18:04) [9]

как альтернатива [7], можно просто добавить .rc файл, описывающий ресурс с курсором, в проект.

← →
ivak © (2008-12-15 18:51) [10]

а можно, если можно, синтаксис *.rc файла?

← →
Eraser © (2008-12-15 19:07) [11]

> [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? )

← →
Сергей М. © (2008-12-15 19:25) [12]

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

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

← →
clickmaker © (2008-12-15 19:36) [13]

> как же вы res получили, не зная синтаксиса rc? )

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

> clickmaker

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

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

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

[Error] RLINK32: Unsupporded 16bit resource in file .../resource.rc

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

что буквально прописано в rc?

← →
DomiNick (2009-02-15 03:25) [19]

Кому не сложно - взгляните сюда: http://programmersforum.ru/showthread.php?t=21378&page=2

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