Головна сторінка
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}
...
було
a: TResourceStream;
починати
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;
починати
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]

і взагалі недобре це - підміняти системні курсори своїми.
сопзЬ
crMyCursor = 1; // наприклад

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




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

і взагалі недобре це - підміняти системні курсори своїми.
сопзЬ
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.6 MB
Час: 0.027 c
4-22486
Pantero
2001-11-03 23:59
2002.01.08
Обробляти


7-22420
Cntcyz.cm crfpfnm cdjt bvz
2001-09-21 21:12
2002.01.08
Народ підкажіть як мені бути?


1-22146
Мікле
2001-12-19 17:19
2002.01.08
Глюки при друку на матричний принтер


6-22276
Lamok
2001-10-05 23:13
2002.01.08
Відправка даних в інтернет


14-22406
VEG
2001-11-10 12:56
2002.01.08
Наслучалось тут зі мною різного ...





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська