Настройка интерфейса
При компиляции проекта, exe файл имеет неприглядный вид:
Исправим этот момент.
В меню программы PureBasic:
Компилятор - настройки компилятора... - использовать иконку
указываем путь к папке с иконками.
После компиляции проекта, exe файл приобретёт вид выбранной иконки - например:
Для удобства работы с программой PureForm можно настроить ее запуск с панели интерфейса PureBasic.
Помещаем папку с программой PureForm в корень папки PureBasic.
В меню инструменты - настройка инструментов - новый - Редактор параметров инструментов.
В настройках Редактора параметров инструментов указываем путь к папке PureBasic и путь к exe файлу.
Далее в настройках PureBasic файл - настройки... - основные - панель инструментов указываем нужные настройки:
- путь к иконке
- Название нашего инструмента
На этой панели можно указать еще один инструмент - Шаблоны
Пример шаблона окна:
UseJPEGImageDecoder()
;-----------------------------------
Enumeration
#Window_0
#Hyp
#But_1
#But_2
EndEnumeration
;-----------------------------------
Procedure ProsWB()
; код
EndProcedure
;CatchImage(1, ?Im1, ?Im1End -?Im1 )
;-----------------------------------
OpenWindow (#Window_0, 0, 0, 380, 200, "Заглавие", #PB_Window_MinimizeGadget |#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget)
;SetWindowColor(#Window_0,RGB(255, 255, 255))
HyperLinkGadget(#Hyp, 45, 10, 80, 20, "ссылка",RGB(52, 25, 226))
ButtonGadget(#But_1,10, 30, 110, 25, "кнопка")
;ButtonImageGadget(#But_2,10, 60, 110, 25,ImageID(1))
;-----------------------------------
Repeat
Event = WaitWindowEvent()
Window = EventWindow()
Gadget = EventGadget()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case 1
Case 2
Case 3
EndSelect
EndSelect
If Event = #PB_Event_CloseWindow
Break ;CloseWindow(Window) ; если много окон
EndIf
ForEver ;Until Event=#PB_Event_CloseWindow And Window=#Window_0 ; если много окон
;-----------------------------------
DataSection
Im1:
;IncludeBinary "изображение.png"
Im1End:
EndDataSection
www.purebasic.info/
www.purebasic.com
www.purebasic.mybb.ru
www.www.purebasic.fr/english
www.www.purebasic.fr/german
Сайт посвящён языку программирования PureBasic — коммерческий компилятор языка программирования, использующего синтаксис BASIC. Предназначен для создания кроссплатформенных приложений для AmigaOS, Linux, Microsoft Windows, Windows NT и Mac OS X. Разработан компанией Fantaisie Software.
