casa

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];
giù

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


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;
iniziare
a := TResourceStream.Create(formXNUMX.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 :
Stessa cosa



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

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




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

Когда я пишу:
var Curs:HCursor;
CN:string;
iniziare
CN:="cur"+#XNUMX;
{ "CUR" is Name from Res file }
Curs:=LoadCursor(hInstance,@CN[XNUMX]);
Screen.Cursors[crHandPoint]:=Curs;
buttonXNUMX.Cursor := curs;
У кнопки курсор не изменяется, в чём тут ошибка, тоесть как сделать, чтоб у кнопки курсор стал, как вресурсе?



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

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



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

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



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

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

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



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

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

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




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

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



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

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




Pagine: 1 tutto il ramo

Forum: "Principale";
Archivio attuale: 2002.01.08;
Scarica: [xml.tar.bz2];

al piano di sopra

Top.Mail.Ru Yandeks.Metrika













Memoria: 0.8 MB
Ora: 0.028 c
1-22195
LNix
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
stringa


1-22109
avrXNUMX
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
ComboBox в Grid


1-22209
Cibo
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Пользовался кто нибудь функцией PaintTo для прорисовки WinControl ов на канвас битмэпа? Помогите! У меня ничего не получается.


14-22412
fishka
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
Компоненты и их расположение для удобства оператора (Delphi XNUMX)


3-21966
З.Г.
XNUMX-XNUMX-XNUMX XNUMX:XNUMX
2002.01.08
ПОЧЕМУ ТО ПРОПАЛИ ВСЕ МОИ ВОПРОСЫ. Придеться повториться Как в поле осуществить поиск Типа: написано Потолки а мне надо найти





afrikaans albanese Arabic armeno Azero basco bielorusso Bulgarian catalano Cinese (semplificato) Cinese (tradizionale) croato Ceco danese Dutch Inglese estone filippina Finnish Francese
galiziano georgiano Tedesco greco Creolo haitiano ebraico hindi ungherese islandese Indonesian irlandese Italiano Giapponese Korean lettone lituano macedone Malay maltese Norwegian
persiano polacco Portoghese rumeno Russian serbo Slovak sloveno Spagnolo swahili Swedish Thai turco ucraino Urdu vietnamita gallese yiddish bengalese bosniaco
Cebuano esperanto Gujarati Hausa Hmong Igbo giavanese kannada khmer lao latino maori marathi mongolo nepali punjabi somalo tamil telugu Yoruba
zulù
Английский Francese tedesco italiano portoghese russo spagnolo