Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Como carregar um cursor de um recurso e depois salvá-lo no disco? Encontre agências semelhantes


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

Como carregar um cursor de um recurso e salvá-lo no disco (sob a extensão 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;
começar
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 :
A mesma coisa



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

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



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

Когда я пишу:
var Curs:HCursor;
CN:string;
começar
CN:="cur"+#0;
{"CUR" é o nome do arquivo Res}
Curs: = LoadCursor (hInstance, @ CN [1]);
Screen.Cursors [crHandPoint]: = Cursa;
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]

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

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




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

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



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

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



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.86 MB
Hora: 0.052 c
1-22066
Andrey Senchenko
2001-12-19 10:53
2002.01.08
Tipos Ou ajude a ler HELP


1-22022
vencedor
2001-12-18 08:05
2002.01.08
Precisa de um rótulo para exibir fórmulas


3-21928
kaif
2001-12-04 17:42
2002.01.08
estouro aritmético ou truncamento de string no Restore


6-22279
Denis
2001-07-28 22:08
2002.01.08
NMSMTP por meio de proxy


3-21961
shakh
2001-12-03 20:29
2002.01.08
pode haver valores de parâmetro de consulta vazios no SQL





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol