(dcl-Grid-Clear htp/palette/Datenblatt)
(dcl-Grid-AddColumns htp/palette/Datenblatt '(("Titel" 0 150) ("Beschreibung" 0 500) ("Steuerelement" 0 150)))
(dcl-Control-SetColumnStyleList htp/palette/Datenblatt 13 13 13)
(dcl-Control-GetColumnStyleList htp/palette/Datenblatt)
(13 13 13)
(dcl-Grid-GetCellStyle htp/palette/Datenblatt 2 2)
-1 (setq project htp/palette)
; Caption und/oder TooltipTitle auflisten
(foreach control (dcl-form-getcontrols project)
(setq showflag nil)
(setq props (dcl-Control-GetProperties control))
(if (member "Caption" props)
(progn
(setq kurz (dcl-Control-GetProperty control "Caption"))
(if (/= kurz "")
(setq showflag t)
)
)
(progn
(setq kurz "----")
)
)
(if (member "ToolTipTitle" props)
(progn
(setq lang (dcl-Control-GetProperty control "ToolTipTitle"))
(if (/= lang "")
(setq showflag t)
)
)
(progn
(setq lang "----")
)
)
(if showflag
(progn
(setq name (dcl-Control-GetProperty control "(Name)"))
; Version A: princ
(setq info (strcat "\n" kurz "\t" lang "\t" name))
(princ info)
; Version B: Add data to datasheet
(dcl-Grid-AddRow htp/palette/Datenblatt kurz lang name)
)
) ; if
) ; foreach