Потому что в этом случае, не обрабатываются системные сообщения, которые посылает система в окно.
Для обработки этих сообщений, нужно регулярно вызывать функцию WindowEvent() или WaitWindowEvent().
Если этого не делать, то скажем, функция HideGadget сообщит системе что нужно скрыть гаджет, которая в свою очередь пошлёт в обработчик окна проги несколько сообщений, но они не будут обработаны вовремя, т. к. не вызывается ни WindowEvent() ни WaitWindowEvent().

Ребят, поясните, по возможности развернуто, применение   WaitWindowEvent(5) в этой процедуре? Справку посмотрел, но ясности не прибавилось… 5 Мсек здесь берется произвольно  или это чем-то обосновано?

Я хоте в начале изменить надпись, а потом сделать её видимой,  думал, что в твоем варианте появится надпись “ОБРАЗЕЦ!!!” а потом  изменится на заданную… Но вижу работает правильно… :о)

Однако странно, почему Delay() блокирует изменение видимости окна, но смену надписи не блокирует???  Ведь  “в этом случае, не обрабатываются системные сообщения, которые посылает система в окно”.

Отредактировано Lucagin (10.12.2010 19:12:16)

Все правильно работает

сделали надпись видимой
изменили текст и шрифт
  - это всё мгновенно

пауза Delay(500)
скрыли текст

В любом случае спасибо, сам бы переставить не додумался, в силу стереотипа:  “В начале меняем, потом показываем”     

Отредактировано Lucagin (10.12.2010 19:48:13)

Вобщем да, надо было вообще отказаться от HideGadget(#Text_0, 1) а просто менять текст надписи... или на нужную  или  на пустую...

Отредактировано Lucagin (10.12.2010 19:55:12)

Стандартными средствами вроде никак.
Можно использовать библиотеку XP_Menu_Lib, которую можно скачать здесь http://pure-basic.narod.ru/libs.html
Она кроме всего прочего, позволяет выбрать шрифт и его размер.

Procedure GlavWindowCallback(WindowID, Message, wParam, lParam)
Protected Result=#PB_ProcessPureBasicEvents
 XP_Menu_CB(WindowID, Message, wParam, lParam) ; Обработчик событий библиотеки  XP_Menu_Lib
ProcedureReturn Result 
EndProcedure

LoadFont(0,"Arial",20)

If OpenWindow(0, 200, 200, 200, 100, "Menu Example")
    SetWindowCallback(@GlavWindowCallback())
    If CreateMenu(0, WindowID(0))    ; menu creation starts....
      MenuTitle("Project")
        MenuItem(1, "Open"   +Chr(9)+"Ctrl+O")
        MenuItem(2, "Save"   +Chr(9)+"Ctrl+S")
        MenuItem(3, "Save as"+Chr(9)+"Ctrl+A")
        MenuItem(4, "Close"  +Chr(9)+"Ctrl+C")
        
        XP_MenuRegister(MenuID(0), #XP_RegMenu, #XP_RegGeneralMenu, WindowID(0)) ; Регистрация меню в библиотеке XP_Menu_Lib
        XP_SetMenuFont(FontID(0), #XP_FontItem)
        
    EndIf
    Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
  EndIf

Обнаружил в PB систему символов, которая вызывает некие изменения в оформлении кода:
;- Gadget Constants   (в закладке процедуры, появляется метка констант гаджетов)
;{  ;}  (позволяет сворачивать часть кода подобно сворачиванию кода процедур.

Какие еще есть сочетания символов, облегчающих работу с кодом и где их можно посмотреть?

Отредактировано Lucagin (12.12.2010 19:00:12)

Спасибо Пётр, теперь понятно! Я думал, сочетания символов зашито внутри программы, а оказывается их можно настраивать… :о) Авто завершение  у меня стоит по умолчанию (по 3-м символам)…

Здесь, оказывается, можно настроить сворачивание  условные операторы и циклов. Думал что это в PB не предусмотрено.  После алгоритма, отсутствие этих сворачивание было большим неудобством… На сколько, однако,  в PB всё продумано… :о))

Отредактировано Lucagin (12.12.2010 19:52:53)

Нужно запустить программу и тогда они станут активными.
Можно добавить точку остановки программы.
Для этого, ставим текстовый курсор, на интерисусщую строку и нажимает на кнопку F9. Слева от строки, появится точка (обычно желтого цвета).

Следующее нажатие на кнопку F9, уберёт точку остановки со строки.
Как только выполнение программы дойдет до строки с точкой остановки - прорамма "заморозится" отладчиком и можно будет выполнять её в пошаговом режиме, нажимая на кнопку F8.
Так же можно узнать что хранится в какой переменной или массиве.
Для этого, нужно запустить программу и навести курсор мышки на интерисующую строку - появится всплывающее окно с текущим значением переменной.

Более подробную информацию о данных в переменных, массивах, структурах, можно получить открыв окно отладчика с помощью меню "Отладчик" --> "Просмотр переменных".

Открыв окно "Отладчик" --> "Профилирование", можно посмотреть какой код наиболее часто вызывается (напрмер, чтобы оптимизировать его для ускорения работы проги).

В окне "Отладчик" --> "История вызовов", можно посмотреть какая процедура сколько раз вызываась.

Ребят помогите разобраться!!! Хочу, при нажатии на кнопку, изменить цвет рисунка, увеличив красный цвет на 5 единиц в схеме RGB(). Не могу понять, что происходит с шириной и высотой  ImageGadget(). Почему они меняются при вызове процедуры Zalivka() на +4 пикселя…??? Вернее, при первом запуске процедуры размеры гаджета не меняются. Вероятно, при вызове процедуры, надо уничтожать предварительно созданное изображение, но все равно не понятно, как это может влиять на размер гаджета!?

;{- Enumerations / DataSections
;{ Windows
Enumeration
  #Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
  #Button_0
  #Image_1
EndEnumeration
;}
;{ Fonts
Enumeration
  #Font_Button_0
EndEnumeration
;}
;{ Images
Enumeration
  #Image_Image_1
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 450, 200, 682, 499, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
     ButtonGadget(#Button_0, 190, 385, 250, 55, "Изменить цвет")
     ImageGadget(#Image_1, 85, 40, 500, 300, 0, #PB_Image_Border)
    ; Gadget Fonts
     SetGadgetFont(#Button_0, LoadFont(#Font_Button_0, "Microsoft Sans Serif", 24, 16))
  EndIf
EndProcedure

Procedure Zalivka (ID, R,G,B)
  
  W = GadgetWidth(ID)
  H = GadgetHeight(ID)
  Debug W
  Debug H
  
 If CreateImage(ID+10, W, H) And StartDrawing(ImageOutput(ID+10))
    Box(0, 0, W,H, RGB(R, G, B))
    StopDrawing() 
    
    SetGadgetState(ID, ImageID(ID+10))

 EndIf

EndProcedure



OpenWindow_Window_0()
Zalivka (#Image_1, 0,0,0)
HideWindow(#Window_0, 0) 

a=0

;{Основной цикл
Repeat
  Event = WaitWindowEvent()
  Gadget = EventGadget()
    
  If Event=#PB_Event_Gadget
    If Gadget=#Button_0
      a=a+5
      Zalivka (#Image_1, a,0,0)
     EndIf
  EndIf 
  
 Until Event=#PB_Event_CloseWindow
;}
End

Отредактировано Lucagin (13.12.2010 14:01:00)

Я хотел чтобы  процедура стала универсальной, и чтобы она  могла менять цвет в ImageGadget() любого размера, предварительно измерив его размер. Т.е. W and H каждый раз разные…
А почему в моем случае не работает?

Я понимаю, что создавать каждый раз изображение не нужно, просто не до конца уяснил, при
такой прорисовке созданного изображения, “старый” квадрат полностью заменяется новым,  это аналогично смене цвета у шрифта? Старый квадрат при этом отдельно стирать перед прорисовкой не надо, дабы избежать потерь памяти?
Память занимает только само изображение, или и  то, что на нем нарисовано?

StartDrawing(ImageOutput(ID+10))
      Box(0, 0, W,H, RGB(R, G, B))
StopDrawing()

Отредактировано Lucagin (13.12.2010 14:49:04)

Спасибо, Пётр!!! Теперь всё понятно !!! Просто не был уверен, что Box () и др. команды 2D-рисования предварительно стирают пространство, на котором будут рисовать…   

Отредактировано Lucagin (13.12.2010 15:07:23)