Курсоры

← →
AL2002 (2002-06-21 21:59) [0]

Как создать свой курсор?
Если интересно, то хочу чтобы при наведении на ссылку курсор мыши был не HandPoint, а распальцованный HandPoint.

← →
Song (2002-06-21 22:05) [1]

Нарисовать.

← →
AL2002 (2002-06-21 23:04) [2]

Это понятно, что нарисовать. А как уговорить элемент показывать его при наведении?

← →
Юрий Зотов (2002-06-22 12:09) [3]

См. тему Cursors в справке Delphi. Там есть и пример.

← →
AL2002 (2002-06-30 22:48) [4]

Ну не знаю. Читал. Там есть инфа как создавать курсоры, а как их назначать элементам, то этого нет. Что ещё можно почитать?

← →
Юрий Зотов (2002-06-30 22:53) [5]

Ту же справку. У контролов есть свойство Cursor - его и назначайте.

← →
SPeller (2002-06-30 23:05) [6]

2 AL2002 © (30.06.02 22:48)
Есть. Ищите вниметельнее

← →
AL2002 (2002-07-01 12:01) [7]

Не ну это свинство. Замучали бедного юзера.
Расскажу, что я вычитал.
Editor. Позволяет редактировать иконки, курсоры, батоны и сохранять их (кстати, очень хорошо, не нужно всякие IconToy, Any2Icon и остальную туфту скачивать).
Button1.Cursor — назначает числовые значения курсора. Там было чего-то -32000..32000. О том, как загрузить из cur файла неясно.
Там ещё много чего было всякого... но насчёт присваивания своего курсора – нифига.
Там было сказано, что курсоры — это компонент Screen (вроде так). Может это надо типа новый компонент создавать?

← →
valery_f (2002-07-01 12:22) [8]

> AL2002 © (01.07.02 12:01) О том, как загрузить из cur файла неясно

В дельфийском ImageEditor создай отдельный RES файл, создай в нем в него все свои курсоры (для каждого определи его имя) и включи его в проект {$R ИМЯ_ФАЙЛА.res}. Далее - по примеру:

const crMyCursor = 5;
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crMyCursor] := LoadCursor(HInstance, "ИМЯ_КУРСОРА_В_RES_ФАЙЛЕ");
Button1.Cursor := crMyCursor;
end;

← →
Администартор (2002-07-02 01:11) [9]

> В дельфийском ImageEditor создай отдельный RES файл, создай
> в нем в него все свои курсоры (для каждого определи его
> имя) и включи его в проект {$R ИМЯ_ФАЙЛА.res}. Далее - по
> примеру:
>
> const crMyCursor = 5;
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> Screen.Cursors[crMyCursor] := LoadCursor(HInstance, "ИМЯ_КУРСОРА_В_RES_ФАЙЛЕ");
> Button1.Cursor := crMyCursor;
> end;

Во первых файл должен азыватся CUROSR.RES (именно большими буквами).
И вставка: {$R CURSORS.res}

← →
Юрий Зотов (2002-07-02 02:15) [10]

Вот копия страницы хелпа.

This example shows how to add custom cursors to an application. It assumes that a custom cursor with the name NewCursor has been added to the resources (.RES file) of the application. You can add the cursor using the image editor. (Tools | Image Editor) The following code makes this cursor available to the application via the constant crMyCursor, and sets it as the global cursor to the application. const crMyCursor = 5; procedure TForm1.FormCreate(Sender: TObject); begin Screen.Cursors[crMyCursor] := LoadCursor(HInstance, "NewCursor"); Cursor := crMyCursor; end;

Здесь есть все - как запустить Image Editor, как создать ресурс курсора, как его назвать, куда сохранить, как подключить к программе, как загрузить и как назначить. То есть, абсолютно все, что нужно.

Теперь по поводу того, кто же кого замучил. С самого начала я Вам сказал: "См. тему Cursors", разве не так?

Так вот, только что я запустил справку Delphi и в указателе набрал это самое слово - Cursors. Затем нажал Enter, в появившемся окошке ключевых слов выбрал TScreen.Cursors (потому что там всего два варианта и второй явно не по этой теме), нажал Enter еще раз, а на открывшейся странице справки (даже не читая ее) щелкнул по линку Example. И тут же получил текст, который привел выше.

На все это ушло не более 10 секунд. Серьезно.

Вы получили ключевое слово Cursors 22.06.02 в 12:09 - девять дней назад. Так неужели за 9 дней, ТОЧНО зная ключевое слово для поиска, нельзя было найти этот же самый пример? Если действительно искать, конечно.

Извините, не верится.

← →
valery_f (2002-07-02 12:13) [11]

> Администартор © (02.07.02 01:11) Во первых файл должен азыватся CUROSR.RES (именно большими буквами)

Эт еще с какой стати? Сколько лет работаю - обходился без этого :)

← →
Poirot (2002-07-02 14:59) [12]

> valery_f

Не,а чё , нормально.... чуваку 12 лет ещё не исполнилось а он уже с высшим образованием..... Прикольно... умный наверное....
А файлы ресурсов и сами ресурсы большими буквами просто принято (от Макрософта) нак именовать.... ну вот такой поумолчанию сленг

← →
AL2002 (2002-07-02 21:36) [13]

> Юрий Зотов

Скажите, может я не тот хелп смотрю. Я ничего подобного не нашёл.
В указателе есть Cursors. Правильно. Но того, о чём вы говорили в дальнейшем — ничего.
Когда я кликнул в курсорам в индексе, вывелось совсем другое. Может это хелп не тот? 8-[+]

Вот что вывелось:
Each active dataset has a cursor, or pointer, to the current row in the dataset. The current row in a dataset is the one whose field values currently show in single-field, data-aware controls on a form, such as TDBEdit, TDBLabel, and TDBMemo. If the dataset supports editing, the current record contains the values that can be manipulated by edit, insert, and delete methods.

You can change the current row by moving the cursor to point at a different row. The following table lists methods you can use in application code to move to different records:

и т.д и т.д.

Таких слов, как TScreen.Cursors не было и близко.
Наверно, это справка не такая. А какая нужна?
Я её запускаю Help/Delphi Help. А вы?

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