Головна сторінка
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.041 c
4-22501
мистецтво
2001-11-02 08:30
2002.01.08
А чи можна заборонити використання певних Api іншим додаткам?


14-22350
Їжачок
2001-11-04 16:49
2002.01.08
Сиджу ось, і нічого робити!


4-22474
Slym
2001-11-02 11:25
2002.01.08
Не виходить зробити Хук ... Допоможіть!


6-22309
дрімучий
2001-10-10 19:02
2002.01.08
Є МЕРЕЖНА КАРТА без паспорта, опломбовані!


1-22196
T2
2001-12-16 07:18
2002.01.08
Desktop off





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