This repository has been archived on 2021-11-09. You can view files and clone it, but cannot push or open issues or pull requests.
pongr/src/Draw.pbi

39 lines
1.0 KiB
Plaintext

; Here we draw stuff on screen. These are the dispatch
; functions which will be called from the state dispatch
; process.
; Draw the current activated menu. This will be set from
; the dispatcher. The events are controlled by the
; HandleEventMenu() function.
Procedure DrawMenu()
Define Black = RGB(0, 0, 0)
Define White = RGB(255, 255, 255)
Define ActiveMenuItemColor = RGB(255, 0, 0)
DrawText(50, 50, *ActiveMenu\Title, white, black)
Define Offset = 0
Define FontColor = White
ForEach *ActiveMenu\Entries()
If *ActiveMenu\Entries()\Selected
FontColor = ActiveMenuItemColor
Else
FontColor = White
EndIf
DrawText(50, 300+(Offset*50), *ActiveMenu\Entries()\Label, FontColor, Black)
Offset = Offset+1
Next
EndProcedure
Procedure DrawRunningGame()
Box(0, 0, 200, 200, RGB(0, 255, 0))
EndProcedure
; IDE Options = PureBasic 4.51 (Linux - x64)
; CursorPosition = 17
; Folding = -
; EnableUnicode
; EnableThread
; EnableXP
; EnableCompileCount = 0
; EnableBuildCount = 0