Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Работа с ресурсами в Delphi 2009

Автор: Kirgston 8.9.2008, 11:40

Всем доброго времени суток! Пожалуйста научите меня работать с ресурсами в Делфи 2009. Большое спасибо!

Вот также и сижу щас с курсорами....

Код


Screen.Cursors[crCursor] := LoadCursor(hInstance, 'cursor');
  Screen.Cursor := crCursor;

вожу... а оно как нивчом не бывало ничего не делает... :(

Автор: Alexeis 8.9.2008, 12:05

Цитата(Kirgston @ 8.9.2008, 10:40

)

Делфи 2009

Тут ни при чем smile

. Код работает. Я проверил. Тока не ясно что за зверь такой crCursor. Я его заменил на другую цифру.

Автор: Kirgston 8.9.2008, 12:58

Просто я читаю везде что мол ресурсы можна создавать через New>>File>Resourse както-так..... но увы там нету такого. И я пользуюсь brcc32 что очень не удобно.
Вот я взял бмп картинку загнал ее в ресурсы. И с ресурсов уже подгружаю. А срКурсор по константе у меня = 1. Но когда я загружаю форму курсор стандартный...

Автор: aktuba 8.9.2008, 13:06

Alexeis как-то http://delphist.ru/resursy-v-proekte/.

Автор: Alexeis 8.9.2008, 13:57

Цитата(Kirgston @ 8.9.2008, 11:58

)

Вот я взял бмп картинку загнал ее в ресурсы. И с ресурсов уже подгружаю.

С каких это под битмапка стала курсором? Это разные вещи. В 2009м ресурсы можно добавлять из меню project->Resources

Добавлено @ 13:59
Если в ресурсы добавлять *.cur файл в секцию "Cursor" то все будет работать

Автор: Kirgston 8.9.2008, 21:30

Спасибо! Но какже теперь переделать в cur? Фотошоп такое не умеет :(

Автор: SneG0K 8.9.2008, 21:55

Kirgston, для этого есть спец проги... поищи что-то наподобие "рисовалка курсоров"

Добавлено через 54 секунды
Borland Visual C++ умеет smile

Автор: Kirgston 8.9.2008, 22:45

Сделал

Вот и пожалуйста покажите где я тут ошибся?

Код


Form3.WindowState:=wsMaximized;
Quit.Left:=Form3.Width-Quit.Width;
About.Left:=Form3.Width-About.Width;
Options.Left:=Form3.Width-Options.Width;
Start.Left:=Form3.Width-Start.Width;
Quit.Top:=Form3.Height-Quit.Height;
About.Top:=Quit.Height-Quit.Height;
Options.Top:=About.Height-Options.Height;
Start.Top:=Options.Height-Start.Height;

Суть проста. Разместить в правом нижним углу кнопки. Одна выше другой. Выходит так что... появляется 1 кнопка Старт в верху

Автор: Alexeis 10.9.2008, 20:30

Kirgston, какое это имеет отношение к ресурсам?