Как загрузить курсор из ресурса, а потом сохранить его на диске?

← →
Delphimun (2001-12-18 17:11) [0]

Как загрузить курсор из ресурса, а потом сохранить его на диске(под расширением cur)?

← →
Delphimun (2001-12-18 17:18) [1]

Уже второй раз задаю этот вопрос, неужели снова не дождусь ответа на него?

← →
Delphimun (2001-12-18 17:30) [2]

Ну пожалуйста!!!!!!!!!!!!!!

← →
Dimka Maslov (2001-12-18 17:38) [3]

TResourceStream.Create -> TFileStream.Create -> TFileStream.Assign

← →
Delphimun (2001-12-18 17:56) [4]

А с примером

← →
Delphimun (2001-12-18 17:59) [5]

Извеняюсь за такую настойчивость на лёгкий вопрос, но у меня хелпа нет(старый диск с делфи сломался, новый купил, а там хелпа нет)

← →
Delphimun (2001-12-18 18:11) [6]

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

← →
Dimka Maslov (2001-12-18 18:33) [7]

TResourceStream.Create( hInstance

← →
Delphimun (2001-12-18 18:40) [8]

Dimka Maslov :
Тоже самое

← →
Иван Шихалев (2001-12-18 19:04) [9]

Курсор хранится как список ссылок на его images. Возможно, в этом проблема, хотя TResourceStream может оказатьзя под это заточен. Посмотри, как у меня реализовано доставание иконок - в кладовке Icon Extractor - курсор полностью аналогичен. Если же TResourceStream специально заточен, то вместо "Cursor" должно помочь RT_CURSOR_GROUP или "CURSOR"

← →
Delphimun (2001-12-19 12:57) [10]

Когда я пишу:
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;
У кнопки курсор не изменяется, в чём тут ошибка, тоесть как сделать, чтоб у кнопки курсор стал, как вресурсе?

← →
Digitman (2001-12-19 13:14) [11]

button1.Cursor - св-во типа TCursor, а ты пытаешься назначить ему значение типа HCursor.

← →
Delphimun (2001-12-19 13:18) [12]

А как делать нужно(как перевести Hcursor в Tcursor) Please help я же говорю у меня хелпа нет, напишите ПОЖАЛУЙСТА!

← →
Digitman (2001-12-19 13:19) [13]

и вообще нехорошо это - подменять системные курсоры своими.
const
crMyCursor = 1; // к примеру

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

← →
Digitman (2001-12-19 13:20) [14]

← →
Delphimun (2001-12-19 13:29) [15]

Digitman:
Наконецто, свершилось, умный человек нашелся. Я этот вопрос второй день мучаю, а ответ некто не может дать, как будто некто это никогда не использовал!

← →
Digitman (2001-12-19 14:51) [16]

>Delphimun
А потом другой такой же примитивный вопрос будешь неделю мучить. И все тебе невдомек, что типы должны совпадать, а инфа о типах - как минимум в хэлпе есть, а хэлп для тебя писан - чтобы читать его при любой возникшей проблеме, а не держать его мертвым бесполезным хламом на диске )

Как загрузить курсор из ресурса, а потом сохранить его на диске? Найти похожие ветки