Ни в хелпе ни на сайтах ничего не нашел.
Как перегнать ANSI в OEM и обратно?
Как удалить заданный Гаджет с/из Окна? Как зачистить окно от рисунков?
Страница: 1
Сообщений 1 страница 4 из 4
Поделиться227.09.2011 12:22:25
Гаджет удаляется функцией 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)Поделиться328.09.2011 01:03:54
Под рисунками я имею ввиду графические примитивы созданные в режиме StartDrawing
В частности - линии LineXY()
Поделиться428.09.2011 01:15:24
Есть много способов как стереть, к примеру:
Код:
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Страница: 1