Default getoptions saysize for checkbox

[c-tec]

Hello,
it seems that setting sayfont in DC_GetOptDefault() does not effect the font in checkboxes, see attached screenshot. Is this a but or can I set the font with another setting ?
regards
Rudolf

[rdonnay]

The SAYFONT clause only affects objects of @ .. DCSAY or @ .. DCSAY .. GET.

[c-tec]

Hello Roger,
would be great if this setting effects all dialog elements. Its also strange that checkboxes are always some pixels too low positioned.
regards
Rudolf

[Tom]

would be great if this setting effects all dialog elements.

Oh no, please don't add this. It would destroy existing GUI layouts.

[rdonnay]

Oh no, please don't add this. It would destroy existing GUI layouts.

I would not do that to you Tom.

[rdonnay]

would be great if this setting effects all dialog elements. Its also strange that checkboxes are always some pixels too low positioned.

It might be great for you, but it would cause a nightmare for me. Am I right Tom?

If you want to control it with the SAYFONT try this:

@ .. DCCHECKBOX myCheckBox PROMPT ''
@ DCGUI_ROW, DCGUI_COL + 10 DCSAY 'This is my Checkbox Prompt' SAYSIZE 0

[c-tec]

Hello Roger,
thank you, this is a solution for me
regards
Rudolf

[Tom]

Remember a WHEN-clause must be added to both, the box and the static in that situation. Otherwise, only the box would be disabled, which is hard to recognize.

[rdonnay]

You also need to respond to mouse clicks on the say. See below.

Code: Select all

#INCLUDE "dcdialog.CH"
#INCLUDE "appevent.CH"

FUNCTION Main()

LOCAL GetList[0], lCheck := .f., oCheck

@ 0,0 DCCHECKBOX lCheck PROMPT '' OBJECT oCheck

@ DCGUI_ROW, DCGUI_COL DCSAY 'This is a checkbox' SAYSIZE 0 SAYBOTTOM ;
   EVAL {|o|o:lbUp := {|a,b,o|oCheck:setData(!oCheck:getData())}}

DCREAD GUI FIT ADDBUTTONS TITLE 'Checkbox with SAY'

RETURN nil

* ---------

PROC appsys ; RETURN