Свои курсоры в своей компоненте...

← →
Knight © (2003-10-11 02:14) [0]

Как сделать, чтобы если в компоненте, выбран курсор по умолчанию... использовались мои курсоры.

← →
Fenik © (2003-10-11 02:18) [1]

Создаешь файс ресурсов с курсором.
Подключаешь к проекту.
При создании компонента загружаешь курсор из ресурса под какой-нить номер.
Component.Cursor := этот номер.

← →
Knight © (2003-10-11 02:20) [2]

Файл делал... подключал, но как ни загружал... он так и не загрузился

← →
Fenik © (2003-10-11 02:23) [3]

const
{ Курсоры }
crPen = 1; { Карандаш }

{$R PaintCursors.res}
Screen.Cursors[crPen] := LoadCursor(hInstance, "PEN");

(В файле ресурсов курсор под именем "PEN")
(Главное, чтобы номер был больше нуля)

FImage.Cursor := crPen;

← →
Knight © (2003-10-11 02:26) [4]

Так тоже делал... нет курсора

← →
Fenik © (2003-10-11 02:29) [5]

Проверь соответствие имен. Все еще проверь.
У меня работает.
Загружаю курсоры в initialization.

← →
Knight © (2003-10-11 02:30) [6]

Глюк прошёл... сам не понял почему... :)

← →
Fenik © (2003-10-11 02:31) [7]

Может что-нибудь с последовательностью?

const
crPen = 1; { Карандаш }

implementation

initialization

{$R PaintCursors.res}

Screen.Cursors[crPen] := LoadCursor(hInstance, "PEN");

end.

← →
Fenik © (2003-10-11 02:32) [8]

> Knight © (11.10.03 02:30) [6]

Вот и славно :)

← →
Knight © (2003-10-11 02:45) [9]

>> [8] Fenik © (11.10.03 02:32)
> Вот и славно :)

Да уж чего славного, если не понятно почему заработало... оно ведь как заработало, так и снова упасть может, ладно на пол, а если на ногу... :)

← →
Knight © (2003-10-11 03:16) [10]

Ещё вопрос в догонку... Почему при смене курсора (Down, Up)
Screen.Cursor:=crCursor1 или Screen.Cursor:=crCursor2 работает, а
Cursor:=crCursor1 или Cursor:=crCursor2 не работает?

← →
Fenik © (2003-10-11 08:43) [11]

Screen - это у экрана, тобишь бля всего приложения.
А просто - смотреть надо у чего меняешь.

← →
Knight © (2003-10-11 08:52) [12]

У компоненты на база TPanel...

← →
Fenik © (2003-10-11 09:01) [13]

У меня на базе TGraphicControl работает.
Может попробовать в published указать
property Cursor nodefault;
?

← →
Fenik © (2003-10-11 09:07) [14]

Да, странно..
У меня в D5 все ОК...

← →
Fenik © (2003-10-11 09:11) [15]

> Fenik © (11.10.03 08:43) [11]

Опочки ))
Очепятался. :-)

← →
Knight © (2003-10-11 09:28) [16]

Не помогает...
C Cursor:=... ни в какую... только перед ним Screen. добавляешь и всё ОК, только начинает работать на всю форму... а так курсор меняет, но не при событиях на мыше.

Вот проснется добрый дядя мастер и всем поможет :)

Подождем твою маму
Подождем твою мать :))

Ведь мелочь, наверно, какая-то... :(

>> Fenik © (11.10.03 09:30) [17]
> Вот проснется добрый дядя мастер и всем поможет :)
Да... Похоже, что мастера спят долго... это админы спят мало, потому-что если они они уснут на долго, то что-нибудь упадет... :)

А тут мысль... и если я её забуду, то придётся думать её снова... :)

Спать это, конечно, хорошо... но не на столько же... :(

Подъём!!! Вечер на дворе.... :)))

Эгэ-гэ-гэй!!! Мастаки!!! Меня хоть кто-нибудь слышит?!!!

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