' SetDebugMode()
' ----------------------------------------------------------------------------
' Zeigt je nach DEBUG-Mode die nicht sichtbaren Spalten 
' im Grid an oder nicht, je nach DEBUG_ON-Einstellung.
' 
' Returns: -
' ----------------------------------------------------------------------------
' Copyright (c) 2021 by Digital Data GmbH
'
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
' Tel.: 0641/202360 • E-Mail: info-flow(at)digitaldata.works
' ----------------------------------------------------------------------------
' Creation Date / Author:   01.04.2021 / MP
' Version Date / Editor:    01.04.2021 / MP
' Version Number: 			4.0.0.0

Sub SetDebugMode()
	Set mywin = CWLStart.CurrentModule.Windows.Item(WINDOW_ID)
	Set Grid = mywin.Controls.Item(GRID_ID).Grid
	
	' Unsichtbare Spalten anzeigen im DEBUG-Modus
	Dim invisibleColWidth : invisibleColWidth = 0
	If DEBUG_ON = True Then
		invisibleColWidth = 5
	End If
	
	Grid.SetColumnWidth COLUMN_LINE_NUMBER, invisibleColWidth
	Grid.SetColumnWidth COLUMN_RESETABLE_FLAG, invisibleColWidth
	Grid.SetColumnWidth COLUMN_MACRO_FLAG, invisibleColWidth
	Grid.SetColumnWidth COLUMN_MACRO_LINE_NUMBER, invisibleColWidth
	
End Sub