Как пользоватся визуальный редактором и вобще для чего он нужен?
Как изменить цвет фона в окне WINDOW? (можно полный код пожалуйста)
Как постафить вот такую палку / только прямую?
Помогите ответте на вопросы.
Сообщений 1 страница 30 из 32
Поделиться231.08.2011 12:07:11
Ну помогите
Поделиться331.08.2011 17:56:26
- Активный участник
- Зарегистрирован: 02.02.2010
- Приглашений: 0
- Сообщений: 306
- Уважение: [+1/-0]
- Позитив: [+0/-0]
- Провел на форуме:
9 дней 5 часов - Последний визит:
27.04.2013 21:06:20
PureFORM - редактор. PureCOLOR library.
Отредактировано mirashic (31.08.2011 17:58:35)
Поделиться431.08.2011 18:35:08
LisTen написал(а):
Как пользоваться визуальный редактором и вообще для чего он нужен?
ftp://ftp.radio.ru/pub/2008/05/PureBasic.zip
Страницы 10 и 11.
LisTen написал(а):
Как изменить цвет фона в окне WINDOW? (можно полный код пожалуйста)
Код:
If OpenWindow(0, 0, 0, 400, 100, "", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
SetWindowColor(0, RGB(255, 0, 0))
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
EndIfLisTen написал(а):
Как постафить вот такую палку / только прямую?
Кнопка находится чуть выше "Enter".
Нужно переключится на английскую раскладку клавиатуры и удерживать кнопку "Shift".
Поделиться531.08.2011 19:07:18
Пётр написал(а):
Кнопка находится чуть выше "Enter"
Не на всех клавиатурах, у меня ниже "Enter"
Поделиться631.08.2011 19:12:38
lakomet написал(а):
Не на всех клавиатурах, у меня ниже "Enter"
У тебя кнопка, печатающая "|" находится ниже Enter'а?
Выложи фотку клавы?
Поделиться731.08.2011 19:45:02
Если не видно, то завтра сделаю другую(сейчас ночь, все спят, свет включить не могу)
Поделиться831.08.2011 19:48:34
lakomet написал(а):
Если не видно, то завтра сделаю другую
Картина Малевича 
Поделиться1031.08.2011 19:56:40
Да, кнопку перенесли вниз.
Но обычно она в верху.
Поделиться1101.09.2011 14:32:56
Спасибо всем большое
Поделиться1201.09.2011 14:53:00
Да у меня есть еще один вопросик только что начал писать прогу прсто пытатся чему я научился.
Вот :
Код:
OpenWindow(1,150,200,200,100,"Заголовок окна",#PB_Window_MinimizeGadget)
CreateGadgetList( WindowID(1) )
ButtonGadget(2,50,30,80,25,"Кнопка")
Repeat
Event=WaitWindowEvent()
Gadget=EventGadget()
If Event=#PB_Event_Gadget And Gadget=2
MessageRequester("Сообщение","Была нажата кнопка")
EndIf
Until Event = #PB_Event_CloseWindow
Endкак суда впихнуть цвет я писал вот так и не правильно
Код:
OpenWindow(1,150,200,200,100,"Заголовок окна",#PB_Window_MinimizeGadget)
CreateGadgetList( WindowID(1) )
ButtonGadget(2,50,30,80,25,"Кнопка")
SetWindowColor(0, (5, 7, 250))
Repeat
Event=WaitWindowEvent()
Gadget=EventGadget()
If Event=#PB_Event_Gadget And Gadget=2
MessageRequester("Сообщение","Была нажата кнопка")
EndIf
Until Event = #PB_Event_CloseWindow
EndОтредактировано LisTen (01.09.2011 14:53:15)
Поделиться1301.09.2011 14:56:19
Зарание спасибо
Поделиться1401.09.2011 15:02:13
Должно быть не SetWindowColor(0, (5, 7, 250)), а SetWindowColor(1, RGB(5, 7, 250)).
Код:
OpenWindow(1,150,200,200,100,"Заголовок окна",#PB_Window_MinimizeGadget)
CreateGadgetList( WindowID(1) )
ButtonGadget(2,50,30,80,25,"Кнопка")
SetWindowColor(1, RGB(5, 7, 250))
Repeat
Event=WaitWindowEvent()
Gadget=EventGadget()
If Event=#PB_Event_Gadget And Gadget=2
MessageRequester("Сообщение","Была нажата кнопка")
EndIf
Until Event = #PB_Event_CloseWindow
EndПоделиться1501.09.2011 15:04:16
спасибо
Поделиться1601.09.2011 15:05:36
а как вставить картинку
Поделиться1701.09.2011 15:08:21
LisTen написал(а):
а как вставить картинку
Или нажать на кнопку "Прикрепить изображения", находящуюся в правом углу вверху формы ответа.
или залить на какой либо сайт, например этот. www.radikal.ru
Поделиться1801.09.2011 15:11:30
а я имел ввиду в окно pure basic
чтобы открывалось окно а там картинка или так нельзя?
Поделиться1901.09.2011 15:21:34
Вот пример со значком но он годится и для картинки. http://pure-basic.narod.ru/docs/point.html
Код:
; Открываем окно OpenWindow(1,0,0,80,80,"",#PB_Window_MinimizeGadget | #PB_Window_ScreenCentered) CreateGadgetList(WindowID(1)) ; Создаём новый список гаджетов CatchImage(1,?Metka1, ?Metka2-?Metka1) ; Загружаем рисунок из памяти ImageGadget(2,40,20,32,32, ImageID(1) ) ; Отображаем его Repeat ; Начало главного цикла Repeat-Until Event=WaitWindowEvent() ; Получаем текущий идентификатор события ; Прерываем цикл при попытке закрыть окно (щелчёк по крестику в заголовке окна) Until Event=#PB_Event_CloseWindow End ; Завершаем работу программы DataSection Metka1: IncludeBinary "Значок.ico" Metka2: EndDataSection
Еще примеры.
http://pure-basic.narod.ru/forum/Back_Image.rar
http://pure-basic.narod.ru/miscfiles/skin.rar
Поделиться2001.09.2011 15:23:49
спасибо
Поделиться2101.09.2011 15:25:13
а можешь мне скинуть каких не будь нормальных учебников или примеров .
просто pure basic меня очень заинтересовал
Поделиться2301.09.2011 21:36:31
А можете пожалуйста написать код где есть :
TextGadget
Menu(только рабочим меню где нажимаешь выход и он выходит)
ButtonGadget
Строка сосотояния (это там где в низу написано время) (ну вы поняли наверное)
И цвет окна
Пожалуйста а то у мя ни чо не получается.
Кому несложно.
HELP
Зарание спасибо
Отредактировано LisTen (01.09.2011 22:13:30)
Поделиться2401.09.2011 22:18:42
Да и как изменять размер окна???
Поделиться2501.09.2011 23:40:00
LisTen написал(а):
Пожалуйста а то у мя ни чо не получается.
В следующий раз, выкладывай код того, что не получается.
И в справке легко найти требуемые примеры.
Код:
OpenWindow(1,150,200,200,200,"Заголовок окна",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget)
TextGadget(0, 10, 10, 180, 16, "Текст")
ButtonGadget(2,50,70,80,25,"Кнопка")
SetWindowColor(1, RGB(5, 7, 250))
SetGadgetColor(0, #PB_Gadget_BackColor, RGB(5, 7, 250))
SetGadgetColor(0, #PB_Gadget_FrontColor, RGB(250, 250, 250))
CreateMenu(0, WindowID(1))
MenuTitle("Файл")
MenuItem(0, "Выход")
CreateStatusBar(0, WindowID(1))
AddStatusBarField(90)
AddStatusBarField(100)
StatusBarText(0, 0, "Area normal")
StatusBarText(0, 1, "Area borderless", #PB_StatusBar_BorderLess)
Repeat
Event=WaitWindowEvent()
Gadget=EventGadget()
If Event=#PB_Event_Gadget And Gadget=2
MessageRequester("Сообщение","Была нажата кнопка")
ElseIf Event=#PB_Event_Menu
Select EventMenu()
Case 0
Break
EndSelect
EndIf
Until Event = #PB_Event_CloseWindow
EndLisTen написал(а):
Да и как изменять размер окна???
Мышкой.
А если нужно программно, то следует использовать функцию:
Код:
ResizeWindow(#Window, x, y, Width, Height)
Поделиться2602.09.2011 21:49:16
Спасибо
Поделиться2702.09.2011 21:50:40
Куда надо вставить код чтобы изменить размер окна
Код:
OpenWindow(1,150,200,200,200,"GamerPress",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget|#PB_Window_MaximizeGadget)
TextGadget(0, 10, 10, 180, 16, "GamerPress")
ButtonGadget(2,50,70,80,25,"GO")
SetWindowColor(1, RGB(5, 7, 250))
SetGadgetColor(0, #PB_Gadget_BackColor, RGB(5, 7, 250))
SetGadgetColor(0, #PB_Gadget_FrontColor, RGB(250, 250, 250))
CreateMenu(0, WindowID(1))
MenuTitle("Меню")
MenuItem(0, "Выход")
CreateStatusBar(0, WindowID(1))
AddStatusBarField(90)
AddStatusBarField(100)
StatusBarText(0, 0, "")
StatusBarText(0, 1, "", #PB_StatusBar_BorderLess)
Repeat
Event=WaitWindowEvent()
Gadget=EventGadget()
If Event=#PB_Event_Gadget And Gadget=2
MessageRequester("","Была нажата кнопка")
ElseIf Event=#PB_Event_Menu
Select EventMenu()
Case 0
Break
EndSelect
EndIf
Until Event = #PB_Event_CloseWindow
EndОтредактировано LisTen (02.09.2011 21:51:58)
Поделиться2802.09.2011 21:53:55
как сделать так чтобы при нажатии кнопки переходило в другое окно
Код:
OpenWindow(1,150,200,200,200,"GamerPress",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget|#PB_Window_MaximizeGadget)
TextGadget(0, 10, 10, 180, 16, "GamerPress")
ButtonGadget(2,50,70,80,25,"GO")
SetWindowColor(1, RGB(5, 7, 250))
SetGadgetColor(0, #PB_Gadget_BackColor, RGB(5, 7, 250))
SetGadgetColor(0, #PB_Gadget_FrontColor, RGB(250, 250, 250))
CreateMenu(0, WindowID(1))
MenuTitle("Меню")
MenuItem(0, "Выход")
CreateStatusBar(0, WindowID(1))
AddStatusBarField(90)
AddStatusBarField(100)
StatusBarText(0, 0, "")
StatusBarText(0, 1, "", #PB_StatusBar_BorderLess)
Repeat
Event=WaitWindowEvent()
Gadget=EventGadget()
If Event=#PB_Event_Gadget And Gadget=2
MessageRequester("","Была нажата кнопка")
ElseIf Event=#PB_Event_Menu
Select EventMenu()
Case 0
Break
EndSelect
EndIf
Until Event = #PB_Event_CloseWindow
EndПоделиться2902.09.2011 21:57:33
Как изменить траекторию нахождения кнопки и текста
Код:
OpenWindow(1,150,200,200,200,"GamerPress",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget|#PB_Window_MaximizeGadget)
TextGadget(0, 10, 10, 180, 16, "GamerPress")
ButtonGadget(2,50,70,80,25,"GO")
SetWindowColor(1, RGB(5, 7, 250))
SetGadgetColor(0, #PB_Gadget_BackColor, RGB(5, 7, 250))
SetGadgetColor(0, #PB_Gadget_FrontColor, RGB(250, 250, 250))
CreateMenu(0, WindowID(1))
MenuTitle("Меню")
MenuItem(0, "Выход")
CreateStatusBar(0, WindowID(1))
AddStatusBarField(90)
AddStatusBarField(100)
StatusBarText(0, 0, "")
StatusBarText(0, 1, "", #PB_StatusBar_BorderLess)
Repeat
Event=WaitWindowEvent()
Gadget=EventGadget()
If Event=#PB_Event_Gadget And Gadget=2
MessageRequester("","Была нажата кнопка")
ElseIf Event=#PB_Event_Menu
Select EventMenu()
Case 0
Break
EndSelect
EndIf
Until Event = #PB_Event_CloseWindow
EndОтредактировано LisTen (02.09.2011 21:58:16)