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

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

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

Как загрузить курсор из ресурса, а потом сохранить его на диске? [D6, Win95/98]

Delphimun © (2001-12-18 17:11:00)
Как загрузить курсор из ресурса, а потом сохранить его на диске(под расширением cur)?

Digitman (2001-12-19 14:51:00) [1]
>Delphimun
А потом другой такой же примитивный вопрос будешь неделю мучить. И все тебе невдомек, что типы должны совпадать, а инфа о типах - как минимум в хэлпе есть, а хэлп для тебя писан - чтобы читать его при любой возникшей проблеме, а не держать его мертвым бесполезным хламом на диске )

Delphimun (2001-12-19 13:29:00) [2]
Digitman:
Наконецто, свершилось, умный человек нашелся. Я этот вопрос второй день мучаю, а ответ некто не может дать, как будто некто это никогда не использовал!

Digitman (2001-12-19 13:20:00) [3]
и вообще нехорошо это - подменять системные курсоры своими.
const
crMyCursor = 1; // к примеру

Screen.Cursors[crMyCursor]:=Curs;
button1.Cursor := crMyCursor; // вот так правильно будет

Digitman (2001-12-19 13:19:00) [4]
и вообще нехорошо это - подменять системные курсоры своими.
const
crMyCursor = 1; // к примеру

Screen.Cursors[crMyCursor]:=Curs;
button1.Cursor := crMyCursor; // вот так правильно будет

Delphimun (2001-12-19 13:18:00) [5]
А как делать нужно(как перевести Hcursor в Tcursor) Please help я же говорю у меня хелпа нет, напишите ПОЖАЛУЙСТА!

Digitman (2001-12-19 13:14:00) [6]
button1.Cursor - св-во типа TCursor, а ты пытаешься назначить ему значение типа HCursor.

Delphimun (2001-12-19 12:57:00) [7]
Когда я пишу:
var Curs:HCursor;
CN:string;
begin
CN:="cur"+#0;
{ "CUR" is Name from Res file }
Curs:=LoadCursor(hInstance,@CN[1]);
Screen.Cursors[crHandPoint]:=Curs;
button1.Cursor := curs;
У кнопки курсор не изменяется, в чём тут ошибка, тоесть как сделать, чтоб у кнопки курсор стал, как вресурсе?

Иван Шихалев (2001-12-18 19:04:00) [8]
Курсор хранится как список ссылок на его images. Возможно, в этом проблема, хотя TResourceStreamможет оказатьзя под это заточен. Посмотри, как у меня реализовано доставание иконок - в кладовке Icon Extractor - курсор полностью аналогичен. Если же TResourceStreamспециально заточен, то вместо "Cursor"должно помочь RT_CURSOR_GROUPили "CURSOR"

Delphimun (2001-12-18 18:40:00) [9]
Dimka Maslov :
Тоже самое

Dimka Maslov (2001-12-18 18:33:00) [10]
TResourceStream.Create( hInstance

Delphimun (2001-12-18 18:11:00) [11]
Когда я пишу:
...
{$R x:\cur.res}
...
var
a: TResourceStream;
begin
a := TResourceStream.Create(form1.Handle,"cur","Cursor");
Он выдаёт мне динамическую ошибку: Resource cur not found
хотя курсор в ресурсе имеет имя cur
И что мне после этого делать, и нельзя ли с примером

Delphimun (2001-12-18 17:59:00) [12]
Извеняюсь за такую настойчивость на лёгкий вопрос, но у меня хелпа нет(старый диск с делфи сломался, новый купил, а там хелпа нет)

Delphimun (2001-12-18 17:56:00) [13]
А с примером

Dimka Maslov (2001-12-18 17:38:00) [14]
TResourceStream.Create -> TFileStream.Create -> TFileStream.Assign

Delphimun (2001-12-18 17:30:00) [15]
Ну пожалуйста!!!!!!!!!!!!!!

Delphimun (2001-12-18 17:18:00) [16]
Уже второй раз задаю этот вопрос, неужели снова не дождусь ответа на него?

Наверх

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