PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » PureBasic - форум » Программирование на PureBasic » Как удалить заданный Гаджет с/из Окна? Как зачистить окно от рисунков?


Как удалить заданный Гаджет с/из Окна? Как зачистить окно от рисунков?

Сообщений 1 страница 4 из 4

1

Ни в хелпе ни на сайтах ничего не нашел.

Как перегнать ANSI в OEM и обратно?

0

2

Гаджет удаляется функцией FreeGadget(#Gadget) и это есть в справке.
Чтобы убрать рисунки из окна, нужно либо уничтожить ImageGadget'ы функцией FreeGadget(), либо задать пустой рисунок

Код:
SetGadgetState(#Gadget, 0)

#Gadget - идентификатор гаджета.

SadStar написал(а):

Как перегнать ANSI в OEM и обратно?

Код:
String.s="Текст"
MessageRequester("ANSI",String)

CharToOem_(@String, @String)
MessageRequester("OEM ",String)

OemToChar_(@String, @String) 
MessageRequester("Снова ANSI",String)

0

3

Под рисунками я имею ввиду графические примитивы созданные в режиме StartDrawing
В частности - линии LineXY()

0

4

Есть много способов как стереть, к примеру:

Код:
  If OpenWindow(0, 0, 0, 200, 250, "2DDrawing Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ButtonGadget(0,10,220,80,24,"Нарисовать")
    ButtonGadget(1,110,220,80,24,"Стереть")
    
    Repeat
      Event = WaitWindowEvent()
      
      If Event = #PB_Event_Gadget
        Select EventGadget()
          Case 0
            If  StartDrawing(WindowOutput(0))
              For Width = 1 To 180 Step 5
                Line(10, 10, Width, 180, RGB(Random(255), Random(255), Random(255)))
              Next Width
              StopDrawing() 
            EndIf
            
          Case 1
            InvalidateRect_(WindowID(0),0, #True)
        EndSelect
      EndIf
      
    Until Event = #PB_Event_CloseWindow
  EndIf

0


Вы здесь » PureBasic - форум » Программирование на PureBasic » Как удалить заданный Гаджет с/из Окна? Как зачистить окно от рисунков?