Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

¿Cómo cargar el cursor desde el recurso y luego guardarlo en el disco? Encontrar ramas similares


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;
comenzar
a := TResourceStream.Create(form1.Handle,"cur","Cursor");
Он выдаёт мне динамическую ошибку: Resource cur not found
хотя курсор в ресурсе имеет имя cur
И что мне после этого делать, и нельзя ли с примером



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

TResourceStream.Create( hInstancia



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

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



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

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



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

Когда я пишу:
var Curs:HCursor;
CN:string;
comenzar
CN:="cur"+#0;
{"CUR" es el nombre del archivo Res}
Curs: = LoadCursor (hInstance, @ CN [1]);
Pantalla.Cursores [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]

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



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba









Memoria: 0.86 MB
Tiempo: 0.151 c
4-22504
Besa
2001-09-11 11:11
2002.01.08
WinExec neponyatka


14-22329
Dima-k17
2001-11-03 15:12
2002.01.08
Delphi se acabaron los tiempos?


7-22453
Juri
2001-09-21 18:26
2002.01.08
RS485


4-22455
Maamed
2001-10-31 10:13
2002.01.08
Activar otra ventana de programa


6-22305
Kryptin Phreek
2001-10-11 19:43
2002.01.08
Zócalos ... Lokka ...





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiana Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español