32 lines
1.2 KiB
Plaintext
32 lines
1.2 KiB
Plaintext
' 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: 3.0.0.2
|
|
|
|
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 |