Theme for required button style

[Jiri]

Hello,
We have request for button style behaviour:
Inactive (dissabled) buttons should have fill color grey
Enabled buttons should fill red. All others states (i.e. focused, mouseover etc.) are identified by text style change and cursor for mouseover, the fill reminds red.
The problem is, in Theme definition, for pushButton style are available Mouseoverstyle, Focusedinactivestyle Selectedinactivestyle Selectedstyle and Focusedstyle
Therefore, all active changes are not problem, but we cannot find how to differ the color of Enabled/Dissabled button, which is not focused, not selected, not mouse placed. Can you advice how to set the theme for it?

[jyoung]

Hi Jiri,

You may have to create a custom theme draw style for the enabled/disabled states. Then manually set the button's themedrawstyle when you enable or disable the button.

theme.PNG (76.74 KiB) Viewed 8653 times

Code: Select all

if (#Button3.Enabled)
#Button3.Enabled := False
#Button3.ThemeDrawStyle := ButtonDisabled
else
#Button3.Enabled := True
#Button3.ThemeDrawStyle := ButtonEnabled
endif
endroutine

page.PNG (2.56 KiB) Viewed 8653 times

This may get a bit messy as I don't think themes are additive, meaning you can not add multiple drawstyles to a single control. So the custom draw style may have to all the style elements for a particular state.

[Stewart Marshall]

Hi Jiri

Currently, Theme's don't provide a way of specifying a disabled appearance, so you'll need to make a Disabled DrawStyle and apply it at runtime.

Fortunately, when defining a DrawStyle for a Disabled state, you need only specify the Style. The control will be disabled, so MouseOver, Focus and Selection become irrelevant.

If you change the PushButton DrawStyle itself to the colours you require, that will be applied automatically to all buttons, so Joe's sample code becomes as follows.

Code: Select all

if (#Button3.Enabled)
#Button3.Enabled := False
#Button3.ThemeDrawStyle := ButtonDisabled
else
#Button3.Enabled := True
#Button3.ThemeDrawStyle := ""
endif
endroutine

One important thing to note is that DrawStyles are cumulative. This can be done on the ribbon by holding down the Ctrl key, or by setting in code.

Code: Select all

#Control.ThemeDrawStyle := DrawStyle1+DrawStyle2

Only the features specifically coded in the Styles that make up a DrawStyle will be overriden. All other Style settings will remain exactly as is.

So in Joe's sample code where he's used a specific DrawStyle on a Button, you could write the following

Code: Select all

if (#Button3.Enabled)
#Button3.Enabled := False
#Button3.ThemeDrawStyle := ButtonEnabled+ButtonDisabled
else
#Button3.Enabled := True
#Button3.ThemeDrawStyle := ButtonEnabled
endif
endroutine

ButtonDisabled need only define the Fill colour. All other features of ButtonEnabled would remain unchanged.

Regards

[jyoung]

I did not know you could do that with DrawStyles.
Good to know!