; Key codes
	#Define kcEnter             "ENTER"
	#Define kcTab               "TAB"
	#Define kcShiftTab          "STAB"
	#Define kcCom               "COM"
	#Define kcHelp              "HELP"
	#Define kcClose             "CANC"
	#Define kcCancel            "CANC"
	#Define kcSpec              "SPEC"
	#Define kcHome              "HO"
	#Define kcEnd               "EN"
	#Define kcNextPage          "NP"
	#Define kcPreviousPage      "PP"
	#Define kcBackSpace         "BSP"
	#Define kcDelete            "WIS"
	#Define kcInsert            "INS"
	#Define kcSpaceBar          " "
	#Define kcDown              "DO"
	#Define kcUp                "UP"
	#Define kcRight             "RI"
	#Define kcLeft              "LE"
	
	; Event address $LB(MethodORef,MethodName)
	#Define MethodORef(%EventAddr)    $$$objIntToOref($LI(%EventAddr,1))
	#Define MethodName(%EventAddr)    $LI(%EventAddr,2)
	#Define MethodParam(%EventAddr)    $LG(%EventAddr,3)
	
	; Special characters 
	#Define chVertBar $C(27,78,120)
	#Define chHorzBar $C(27,78,113)
	#Define chEllipsis $S(%Screen.Type=$$$ttVT520:$C(27,79,64),1:"~")
	#Define chVink $S(%Screen.Type=$$$ttVT520:$C(27,79,86),1:"X")
	#Define chEuro $C(27,78,113)
	
	; Mouse buttons
	#Define mbLeft   "L"
	#Define mbRight  "R"
	
	; Popup Key
	#Define pkSeparator   "#SEPARATOR#"
	#Define pkSelectGeen   "#SELECTGEEN#"
	#Define pkSelectAlles   "#SELECTALLES#"
	
	; Exceptions
	#Define EInvalidOperation    1
	#Define EInternalError       2    
		
	; Resource strings
	#Define SParentRequired    "Control has no parent window"
	#Define SCannotFocus       "Cannot focus window or control"
	#Define SCannotShowModal   "Cannot make window modal"
	
	; Verkortingen van UI.TNT.System
	#Define SystemRtn                 UI.TNT.System
	#Define GetParentForm(%c)         $$GetParentForm^$$$SystemRtn(%c)
	#Define GetDebugControlName(%c)   $$GetDebugControlName^$$$SystemRtn(%c)
	#Define PointInRect(%r,%c,%rc) 		$$PointInRect^$$$SystemRtn(%r,%c,%rc)
	
	#Define ShowMessageBox(%c,%m,%t)				MessageBox^$$$SystemRtn(%c,%m,,%t)
 
	#Define MessageBoxSimple(%c,%m)					$$MessageBox^$$$SystemRtn(%c,%m)
	#Define MessageBox(%c,%m,%b)   					$$MessageBox^$$$SystemRtn(%c,%m,%b)
	#Define MessageBoxFull(%c,%m,%b,%t,%d)   		$$MessageBox^$$$SystemRtn(%c,%m,%b,%t,%d)
	
	#Define InputBox(%c,%m,%b)   			$$InputBox^$$$SystemRtn(%c,%m,%b)
	
	; Colors
	; Back and Foreground
	#Define clBlack       1
	#Define clUltraDark   2
	#Define clDark        3
	#Define clMedDark     4
	#Define clMedLight    5
	#Define clLight       6
	#Define clUltraLight  7
	#Define clWhite       8
 
	#Define clSelectDark  9
	#Define clSelectLight 10
	#Define clDarkGrey    11
	#Define clGrey        12
	#Define clRed         13
	#Define clBlue        14
	#Define clYellow      15
	#Define clGreen       16
	
	;Font style
	#Define fsInvers	   "I"
	#Define fsKnipper	   "K"
	#Define fsBold		   "B"
	#Define fsUnderline    "U"
 
	#Define fsNoInvers	   "i"
	#Define fsNoKnipper	   "k"
	#Define fsNoBold	   "b"
	#Define fsNoUnderline  "u"
 
	; Modal Results
	#Define mrNone        	0
	#Define mrOk			1
	#Define mrCancel		2
	#Define mrAbort			3
	#Define mrRetry			4
	#Define mrIgnore		5
	#Define mrYes			6
	#Define mrNo			7
	#Define mrAll			8
	#Define mrNoToAll		9
	#Define mrYesToAll		10
	#Define mrHelp			11
	
	;Buttons
	#Define mbYes		1
	#Define mbNo		2
	#Define mbOk		3
	#Define mbCancel	4
	#Define mbAbort		5
	#Define mbRetry		6
	#Define mbIgnore	7
	#Define mbAll		8
	#Define mbNoToAll	9
	#Define mbYesToAll	10
	#Define mbHelp		11
	
	;Message types
	#Define mtInformation   1
	#Define mtError         2
	
	;Button caption
	#Define SMsgDlgYes 			"Yes"
	#Define SMsgDlgNo 			"No"
	#Define SMsgDlgOk 			"OK"
	#Define SMsgDlgCancel 		"Cancel"
	#Define SMsgDlgHelp 		"Help"
	#Define SMsgDlgAbort 		"Abort"
	#Define SMsgDlgRetry 		"Retry"
	#Define SMsgDlgIgnore		"Ignore"
	#Define SMsgDlgAll 			"All"
	#Define SMsgDlgNoToAll		"No to All"
	#Define SMsgDlgYesToAll		"Yes to All"
 
	;FormTypes
	#Define ftMain        10
	#Define ftSub         20
	#Define ftDialog      30
 
	; FormSubTypes
	#Define ftMainLijst   11
	#Define ftMainPopup   12
	#Define ftSubLijst    21
	#Define ftSubPopup    22
	#Define ftDialogLijst 31
	#Define ftDialogPopup 32
 
	; AddSubType
	#Define ftAddLijst  1
	#Define ftAddPopup  2
	; Menu is nog gelijk aan Popup
	#Define ftAddMenu  2 
 
	;FontSelects
	#Define fsSelect     1
	#Define fsPopup      2
	#Define fsLabel      3
	#Define fsEdit       4
	#Define fsBackground 5
	#Define fsInvert     6
	#Define fsFocus      7
	#Define fsLijn		 8
	#Define fsCheckBox   10
	#Define fsButton     11
	
	;Terminal Types
	#Define ttVT520    1
	#Define ttVT420    2
	
	;Memo options
	#Define moAllowTab			"T"
	#Define moShowParaSign		"S"
	#Define moAllowBold			"B"
	#Define moAllowUnderline	"U"
	#Define moAllowParameter	"P"
	#Define moConvertParameter	"C"
 
	;Special stringset
	#Define ssNewLine		$C(13,10)
 
	;Align
	#Define alLeft        "L"
	#Define alRight       "R"
	#Define alMiddle      "M"
	#Define alCenter      "C"
	#Define alFill        "F"
 
	;FormMode
	#Define fmNone          1
	#Define fmFocused       2
	#Define fmHibernating   3
 
	;EditDataTypes
	#Define edtInteger	1
	#Define edtFloat	2
	#Define edtWeek		4
	#Define edtDatum	3
	#Define edtMaand 	5
	#Define edtJaar		6
	#Define edtTijd		7
	#Define edtTijdStip	8
	#Define edtString	0
 
	;List stuff
	#Define lstEmptyFrame  "WhenEmpty"