Form Designer interests?

BlitzPlus Forums/BlitzPlus Programming/Form Designer interests?

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Nigel Brown
 #1
Here is the source of a skeleton app.

Include	"ResLib.bp"

Initalise()

;--------------------------------------------------
Repeat
;--------------------------------------------------

	Select	WaitEvent(1)
	
		Case EVNT_NONE

;			DebugLog	"EVNT_NONE"
;			DebugLog	EventSource()
;			DebugLog	EventData()


		Case EVNT_KEY_DOWN

			DebugLog	"EVNT_KEY_DOWN"
			DebugLog	EventSource()
			DebugLog	EventData()
		

		Case EVNT_KEY_UP

			DebugLog	"EVNT_KEY_UP"
			DebugLog	EventSource()
			DebugLog	EventData()


		Case EVNT_KEY_STROKE

			DebugLog	"EVNT_KEY_STROKE"
			DebugLog	EventSource()
			DebugLog	EventData()


		Case EVNT_MOUSE_DOWN

			DebugLog	"EVNT_MOUSE_DOWN"
			DebugLog	EventSource()
			DebugLog	EventData()

;			obj.objct = firstobj( lst ) : While obj <> Null
			
;				If obj\open = True
				
;					gdgt.gadget = firstgdgt(obj) : While gdgt <> Null
					
						
						
						
;					gdgt = nextgdgt(gdgt) : Wend
					
;				EndIf
				
;			obj = nextobj( obj ) : Wend			
						
			
		Case EVNT_MOUSE_UP

			DebugLog	"EVNT_MOUSE_UP"
			DebugLog	EventSource()
			DebugLog	EventData()

		Case EVNT_MOUSE_MOVE

			DebugLog	"EVNT_MOUSE_MOVE"
			DebugLog	EventSource()
			DebugLog	EventData()

		Case EVNT_MOUSE_WHEEL

			DebugLog	"EVNT_MOUSE_WHEEL"
			DebugLog	EventSource()
			DebugLog	EventData()
			

		Case EVNT_GADGET_ACTION

			DebugLog	"EVNT_GADGET_ACTION"
			DebugLog	EventSource()
			DebugLog	EventData()


		Case EVNT_WIN_MOVE

			DebugLog	"EVNT_WIN_MOVE"
			DebugLog	EventSource()
			DebugLog	EventData()


		Case EVNT_WIN_SIZE

			DebugLog	"EVNT_WIN_SIZE"
			DebugLog	EventSource()
			DebugLog	EventData()


		Case EVNT_WIN_CLOSE

			DebugLog	"EVNT_WIN_CLOSE"
			DebugLog	EventSource()
			DebugLog	EventData()

			End			
;			Finalise()


		Case EVNT_WIN_ACTIVATE

			DebugLog	"EVNT_WIN_ACTIVATE"
			DebugLog	EventSource()
			DebugLog	EventData()
			

		Case EVNT_MENU_SELECT

			DebugLog	"EVNT_MENU_SELECT"
			DebugLog	EventSource()
			DebugLog	EventData()


		Case EVNT_APP_SUSSPEND

			DebugLog	"EVNT_APP_SUSSPEND"
			DebugLog	EventSource()
			DebugLog	EventData()


		Case EVNT_APP_RESUME

			DebugLog	"EVNT_APP_RESUME"
			DebugLog	EventSource()
			DebugLog	EventData()


		Case EVNT_TIMER

			DebugLog	"EVNT_TIMER"
			DebugLog	EventSource()
			DebugLog	EventData()
		
	End Select

Forever

;--------------------------------------------------
Function	Initalise()
;--------------------------------------------------
	SetBuffer	DesktopBuffer()
	fnt = LoadFont("Tahoma", 13, False, False, False ) : SetFont(fnt)

	AppTitle "Resource Lib Test v0.01"
	
	ResourceInitalise( "resource.res" )
	
End Function