; Key codes
	#Define kcEnter             "ENTER"
	#Define kcTab               "TAB"
	#Define kcShiftTab          "STAB"
	#Define kcEscape            "ESC"
	#Define kcHome              "HO"
	#Define kcEnd               "EN"
	#Define kcPageDown          "NP"
	#Define kcPageUp            "PP"
	#Define kcBackSpace         "BSP"
	#Define kcDelete            "WIS"
	#Define kcInsert            "INS"
	#Define kcSpaceBar          " "
 
	#Define kcDown              "DO"
	#Define kcUp                "UP"
	#Define kcRight             "RI"
	#Define kcLeft              "LE"
 
	#Define kcF1								"F1"
	#Define kcF2								"F2"
	#Define kcF3								"F3"
	#Define kcF4								"F4"
	#Define kcF5								"F5"
	#Define kcF6								"F6"
	#Define kcF7								"F7"
	#Define kcF8								"F8"	
	#Define kcF9								"F9"	
	#Define kcF10								"F10"
	#Define kcF11								"F11"
	#Define kcF12								"F12"
 
	#Define kcShiftF1 					"SF1"
	#Define kcShiftF2 					"SF2"
	#Define kcShiftF3 					"SF3"
	#Define kcShiftF4 					"SF4"
	#Define kcShiftF5 					"SF5"
	#Define kcShiftF6 					"SF6"
	#Define kcShiftF7 					"SF7"
	#Define kcShiftF8 					"SF8"
	#Define kcShiftF9 					"SF9"
	#Define kcShiftF10					"SF10"
	#Define kcShiftF11					"SF11"
	#Define kcShiftF12					"SF12"
	
	#Define kcNone              ""
	#Define kcNoKey             ""
	
	;Disabled forms key
	#Define dfkAllUsers   "*"
	#Define dfkMessage    "#Msg#"
	
	; 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"
	
	; Exceptions
	#Define EInvalidOperation    1
	#Define EInternalError       2    
	#Define EFormDisabled        3
		
	; Resource strings
	#Define SParentRequired    "Control has no parent window"
	#Define SCannotFocus       "Cannot focus window or control"
	#Define SCannotShowModal   "Cannot make window modal"
	
	; Verkortingen van TCHUI.System
	#Define SystemRtn                 TCHUI.System
	#Define GetParentForm(%c)         $$GetParentForm^$$$SystemRtn(%c)
	#Define GetDebugControlName(%c)   $$GetDebugControlName^$$$SystemRtn(%c)
	#Define PointInRect(%r,%c,%rc) 		$$PointInRect^$$$SystemRtn(%r,%c,%rc)
	
	;Debug msgbox, gemikt op snelheid
	#Define MB(%m)											Do MessageBox^$$$SystemRtn("Debug",%m)	
	#Define ShowObjs                    Do ShowObjs^$$$SystemRtn
	
	;Msgboxes
	#Define ShowMsgBox(%c,%m,%t)				MessageBox^$$$SystemRtn(%c,%m,,%t)
 	#Define ShowMsgBoxSimple(%c,%m)			MessageBox^$$$SystemRtn(%c,%m)
 
	#Define MsgBoxSimple(%c,%m)					$$MessageBox^$$$SystemRtn(%c,%m)
	#Define MsgBox(%c,%m,%b)   					$$MessageBox^$$$SystemRtn(%c,%m,%b)
	#Define MsgBoxFull(%c,%m,%b,%t,%d)   		$$MessageBox^$$$SystemRtn(%c,%m,%b,%t,%d)
	
	#Define InputBox(%c,%m,%b)   		   	$$InputBox^$$$SystemRtn(%c,%m,%b)
	#Define InputBoxW(%c,%m,%b,%w)			$$InputBox^$$$SystemRtn(%c,%m,%b,%w)
	#Define InputBoxP(%c,%m,%b,%p)	    $$InputBox^$$$SystemRtn(%c,%m,%b,,%p)
	
	#Define CreateFM(%c,%m)							CreateFM^$$$SystemRtn(%c,%m)
	#Define CreateProgressFM(%c,%m)   	CreateFM^$$$SystemRtn(%c,%m,1)
	#Define ChangeFM(%m)								ChangeFM^$$$SystemRtn(%m)
	#Define ChangeFMPB(%p)							ChangeFMPB^$$$SystemRtn(%p)
	#Define DestroyFM										DestroyFM^$$$SystemRtn()
	
	; Colors
	; Back and Foreground
	#Define clBlack       5
	#Define clUltraDark   2
	#Define clDark        3
	#Define clMedDark     4
	#Define clMedLight    1
	#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"
 
 	;XFormat - eXtended formatering 
 	#define xfFGColor	1
 	#define xfBGColor	2
 	#define xfStyle		3
 	#define xfAlign		4
 	#define xfDataType	5
 	#define xfFormat	6
 	#define xfDispValue	7
 
 	;
	; 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
	#Define mrSave		12
	#Define mrNoSave			13
	
	;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
	#Define mbSave	12
	#Define mbNoSave		13
	
	;Button sets
	#Define mbOkCancel  $LB($$$mbOk,$$$mbCancel)
	#Define mbYesNo  $LB($$$mbYes,$$$mbNo)
	#Define mbYesNoCancel  $LB($$$mbYes,$$$mbNo,$$$mbCancel)
	#Define mbSaveCloseCancel  $LB($$$mbSave,$$$mbNoSave,$$$mbCancel)
	
	;Message types
	#Define mtInformation   1
	#Define mtError         2
	
	;Button caption
	#Define SMsgDlgYes 				"Ja"
	#Define SMsgDlgNo 				"Nee"
	#Define SMsgDlgOk 				"OK"
	#Define SMsgDlgCancel 		"Annuleren"
	#Define SMsgDlgHelp 			"Help"
	#Define SMsgDlgAbort 			"Afbreken"
	#Define SMsgDlgRetry 			"Opnieuw"
	#Define SMsgDlgIgnore			"Negeren"
	#Define SMsgDlgAll 				"Alles"
	#Define SMsgDlgNoToAll		"Nee op alles"
	#Define SMsgDlgYesToAll		"Ja op alles"
	#Define SMsgDlgSave 			"Bewaren"
	#Define SMsgDlgNoSave 		"Niet bewaren"
 
	;FormTypes
	#Define ftMain        10
	#Define ftSub         20
	#Define ftDialog      30
 
	; FormSubTypes
	#Define ftMainLijstHeader			11
	#Define ftMainLijstRow   			12
	#Define ftMainPopup   				13
	#Define ftSubLijstHeader  		21
	#Define ftSubLijstRow		  		22
	#Define ftSubPopup		    		23
	#Define ftDialogLijstHeader		31
	#Define ftDialogLijstRow	 		32
	#Define ftDialogPopup 				33
 
	; AddSubType
	#Define ftAddLijstHeader  1
	#Define ftAddLijstRow  2
	#Define ftAddPopup  3
	; Menu is nog gelijk aan Popup
	#Define ftAddMenu  3 
 
	;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"
 
	;Anchors
	#Define akLeft         1
	#Define akTop          2
	#Define akRight        3
	#Define akBottom       4
	
	;Anchor sets
	#Define aksLeft       $LB($$$akLeft,$$$akTop,$$$akBottom)
	#Define aksRight      $LB($$$akRight,$$$akTop,$$$akBottom)
	#Define aksTop        $LB($$$akLeft,$$$akRight,$$$akTop)
	#Define aksBottom     $LB($$$akLeft,$$$akRight,$$$akBottom)
	#Define aksClient     $LB($$$akLeft,$$$akRight,$$$akTop,$$$akBottom)
	
	;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 (default) Frame Names
	#Define lfnEmpty  						"rdEmpty"
	#Define lfnMain								"rdMain"
	#Define lfnRadioItem					"rdRadioItem"
	#Define lfnTitle							"rdTitle"
	#Define lfnSeparator					"rdSeparator"
	#Define lfnEllipsis						"rdEllipsis"
	#Define lfnNoKey							"rdNoKey"
	#Define lfnSingleLineOutput		"rdSingleLineOutput"
 
	#Define lfnTreeChkNode				"lfnTreeChkNode"
	#Define lfnTreeBtnNode				"lfnTreeBtnNode"
	#Define lfnTreeBtnChkNode			"lfnTreeBtnChkNode"
	
	;List option
	#Define loHideSelection           "O"
	
	;List Move direction
	#Define lmdUp     1
	#Define lmdDown   2
	
	;List row controls
	#Define lrcEdit			  1
	#Define lrcEditDB		  2
	#Define lrcCheckBoxDB  3
	#Define lrcLine       4
	#Define lrcLabel       5
	#Define lrcLabelDB     6 
	
	;Line Orientation
	#Define loHorizontal  1
	#Define loVertical    2
	;schuine lijn:
	#Define loSkew        3   
 
	;Line char
	#Define lcHorizontal		"H"
	#Define lcVertical			"V"
	#Define lcTopLeft     	"TL"
	#Define lcTopCenter   	"TM"
	#Define lcTopRight			"TR"
	#Define lcCenterLeft  	"ML"
	#Define lcCenter			 	"MM"
	#Define lcCenterRight 	"MR"
	#Define lcBottomLeft  	"BL"
	#Define lcBottomCenter	"BM"
	#Define lcBottomRight   "BR"
	#Define lcTop           "T"
	#Define lcBottom        "B"
	#Define lcNone          ""
	
	;Record Structure
	#Define rsList			"L"
	#Define rsPieces		"P"
	
	;Sorteervolgorde
	#Define soAscending   1
	#Define soDescending  -1
 
	;VBA code
	;lp: LocalPath, np: NetworkPath, fn: FileName
	#Define vbaChangeColorMap(%lp,%np,%fn) "If Dir("""_%lp_%fn_""")="""" Then Application.OpenSettings """_%np_%fn_""", rcColors Else Application.OpenSettings """_%lp_%fn_""", rcColors"
	#Define vbaUseAnsiColor(%b)    "Application.UseAnsiColor=%b"
	#Define vbaGetUseAnsiColor     "Application.UseAnsiColor"
	
	#Define vbaGetForegroundColor(%v)     "Application.ForegroundColor("_%v_")"
	#Define vbaGetBackgroundColor(%v)     "Application.BackgroundColor("_%v_")"
	#Define vbaSetColorMap(%v,%fc,%bc)    "Application.SetColorMap "_%v_","_%fc_","_%bc
 
	#Define vbaSetDisplayRows(%v)    "Application.DisplayRows="_%v
	#Define vbaSetDisplayColumns(%v)    "Application.DisplayColumns="_%v
	
	#Define vbaSetWindowState(%v)  "Application.WindowState="_%v
	
	#Define vbaSetCaption(%v)  "Application.Caption="""_%v_""""
	#Define vbaGetCaption  "Application.Caption"
 
	;reflection terminal window states
	#Define rcNormal      0
	#Define rcMinimized   1
	#Define rcMaximized   2
	
	#Define lsAuto					1
	#Define lsFixed					2
	#Define lsUnknown				3
	
	;Popup Colum IDs (DefaultDataSet in TPopup aanpassen indien hieraan nieuwe, essentiële elementen wo toegevoegd)
	#Define pcidKey								1
	#Define pcidText							2
	#Define pcidSelected					3
	
	#Define pcidSingleLineOutput	2
 
	;Popup Keys
	#Define pkSeparator					"#SEPARATOR#"
	#Define pkDeselectAll				"#SELECTGEEN#"
	#Define pkSelectAll					"#SELECTALLES#"
	#Define pkEllipsis					"#ELLIPSIS#"
	#Define pkSingleLineOutput	"#SINGLELINEOUTPUT#"
 
	;TSelectX options (vanaf 100, daaronder kunnen specifieke komen)
	#Define soNoAutoSelectWhenSingle 100
  #Define soAutoStartWith          101
	#Define soAllowSelectAll         102
 
  ; PRODUCT DIALOG SELECT OPTIONS
  #define soLimitLeverancier	1
  #define soLimitKlassificatie	2 ;$LB(HG,GR,SG)
  #define soLimitKlant			3
  #define soLimitStock			5 ;S = Beperk tot stockproducten, N = Beperk tot niet stockproducten
  #define soLimitNotAfgeleid	6 ;1 = Beperkt tot NIET Afgeleide producten
  
  ;TCHUI.Dlg.TListFiller types
  #Define lftKlant   1
  #Define lftProduct  2
  
  ;Help record cnts
  #Define hcCaption   1
  #Define hcBody      2