[highlight=blitzbasic]
Include "Functions.bmx"
Global GUI_R = 120
Global GUI_G = 120
Global GUI_B = 135
Global SWindow:TList=New TList
'|=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=|
Type DF_GUI
Field X,Y 'Положение объекта
Field Width, Height 'Ширина объекта
Field DrapNDrop[5] 'Перемещение окна и для всего.
Field Z 'Высота.
Field Alpha
Method UpdateWindow()
GUI_DrawRect (x,y,5, width , height , Alpha , GUI_R , GUI_G , GUI_B , 1, 1 )
End Method
End Type
Function Create_Window (x,y,width , height)
Local Window:DF_GUI=New DF_GUI
Window.x = x
Window.y = y
Window.width = width
Window.height = height
Window.z = z
Window.alpha = 1
Z=Z+1
ListAddLast (SWindow , Window)
End Function
[/highlight]
Добавьте плиз Method и камменты от бмакса ...
Ну и цвет синий =) как в теге blitz. И будет круто...