maison

Forum: "Main";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];
vers le bas

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


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;
commencer
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 :
Même chose



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

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




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

Когда я пишу:
var Curs:HCursor;
CN:string;
commencer
CN:="cur"+#0;
{"CUR" est le nom du fichier Res}
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

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




Pages: 1 branche entière

Forum: "Main";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];

à l'étage

Top.Mail.Ru Yandeks.Metrika













Mémoire: 0.83 MB
Heure: 0.038 c
6-22286
ReY
2001-10-08 18:07
2002.01.08
Пиплы!!! Нужен ICQ!


1-22005
Cossys
2001-12-17 16:57
2002.01.08
Afficher tous les formulaires de demande avec des en-têtes actifs


1-22221
Acide
2001-12-16 21:00
2002.01.08
Ressources


7-22428
Егор Матвеев
2001-09-24 02:41
2002.01.08
Исходный текст HTML страницы


6-22281
Vérone
2001-10-04 12:22
2002.01.08
Отправка сообщений на e-mail





afrikaans albanais Arabic arménien azerbaïdjanais basque Biélorusse Bulgare catalan Chinois simplifié) Chinois (traditionnel) croate Tchèque Danois Néerlandais English estonien Filipino Finlandais Français
galicien géorgien Allemand Grecque Créole haïtien hébreu Hindi Hongrois Islandais Indonesian irlandais Italien Japonais Coréen letton lituanien macédonien Malay maltais Norvégien
persan Polonais Portugais roumain Russe serbe Slovaque Slovène Espagnol Swahili Suédois Thai turc ukrainien Urdu vietnamien gallois yiddish bengali bosniaque
Cebuano espéranto gujarati Hause hmong Igbo Javanais Kannada Khmer lao latin maori Marathi mongol népalais punjabi somali tamil telugu yoruba
zoulou
Английский Français Allemand Italien Португальский Русский Espagnol