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) (1)

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


Delphimun (2001-12-18 17:18) (1)

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


Delphimun (2001-12-18 17:30) (1)

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


Dimka Maslov (2001-12-18 17:38) (1)

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


Delphimun (2001-12-18 17:56) (1)

А с примером



Delphimun (2001-12-18 17:59) (1)

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


Delphimun (2001-12-18 18:11) (1)

Когда я пишу:
...
{$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) (1)

TResourceStream.Create( hInstance


Delphimun (2001-12-18 18:40) (1)

Dimka Maslov :
Lo mismo


Ivan Shikhalev (2001-12-18 19:04) (1)

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



Delphimun (2001-12-19 12:57) (1)

Когда я пишу:
var Curs:HCursor;
CN:string;
comenzar
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) (1)

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


Delphimun (2001-12-19 13:18) (1)

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


Digitman (2001-12-19 13:19) (1)

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

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


Digitman (2001-12-19 13:20) (1)

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

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



Delphimun (2001-12-19 13:29) (1)

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


Digitman (2001-12-19 14:51) (1)

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



Páginas: 1 rama entera

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

arriba















Memoria: 0.85 MB
Tiempo: 0.042 c
1-22211
uuuu
2001-12-13 22:46
2002.01.08
Buenas tardes, día, mañana. La gente ayuda !!! cómo marcar un número, cambiar al modo de tono e ingresar un código aleatorio *


1-22029
neo_
2001-12-18 12:33
2002.01.08
matar a hilo


4-22513
Oxy2
2001-10-23 23:23
2002.01.08
¿Cómo crear formularios con diferentes controles en una API pura?


7-22426
inferno123
2001-09-25 10:32
2002.01.08
Programación portuaria


3-21959
Nikolaev Konstantin
2001-12-04 20:54
2002.01.08
Error al activar TTable ???





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 Italiano 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