In many software products the settings are incredible long, and so there is often a "search in settings" functions. The same would be nice for my palette with is a little bit overloaded by buttons and functions.
I have a ..
- modeless palette
- with 5 tabs
- with each of them 15 buttons with caption and tooltips
Now I would like to create a list which consists of ..
"name of the tab - caption of button - Tooltip", like ..
"Drawing - Red line - Draw a red line on layer water"
"Drawing - Blue Line - Draw a blue line on layer street"
"Modify - Red2Blue - Changes all red-water-lines to blue-street-lines"
At the moment I'm fighting with all objects and functions, so I would like to ask if there is already an existing snippet?
Thanks in advance!
Peter
Here is my current code, which searches all entries for Caption and ToolTipTitle. If one of them exists, it concatenates it with the name of the control.
It does not..
- find and consider the type of the control
- know the name of the tab where the control is situated.
Improvements are welcomed!
(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
---