Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];

Вниз

Как загрузить курсор из ресурса, а потом сохранить его на диске?   Найти похожие ветки 

 
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;
begin
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 :
Тоже самое


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

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


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

Когда я пишу:
var Curs:HCursor;
CN:string;
begin
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) [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 вся ветка

Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];

Наверх















Память: 0.87 MB
Время: 0.05 c
6-22301
Китаец Что За
2001-10-10 14:45
2002.01.08
Склерозик что ли?


1-22083
DeNNiss
2001-12-19 12:06
2002.01.08
Помогите пожалуйста!


7-22436
Serg2
2001-09-26 18:23
2002.01.08
Сворачивание всех окон


14-22333
Nikolay
2001-11-03 20:12
2002.01.08
$$$$$$$$$$$$$$$$$$$$$$$$$$


6-22295
Mamed
2001-10-10 09:15
2002.01.08
Import From Excell





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский