Colors of btnbmp

[Marc Vanzegbroeck]

Hi,

It's maybe a stange question but is it possible to give a color instead of a bitmap calling BTNBMP?
I'm using this buttons in a touchscreen application and the customer can change the color of the buttons.
What I did till now is creating a bitmap-drawing for each main color (YELLOW,RED, GREEN,...) with that color.
The customer can chose a color from a list and than I'm setting that bitmap to the button.
Now I have 9 colors to chose from, but if I want to have more colors I have to create a new bitmap for each color.
It would be easyer to just call the button with the color...

Thanks

[Enrico Maria Giordano]

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oBtn

    LOCAL cVar := SPACE( 20 )

    DEFINE DIALOG oDlg

    @ 1, 1 GET cVar

    @ 30, 10 BTNBMP oBtn PROMPT "Close";
             ACTION oDlg:End()

    oBtn:SetColor( CLR_RED, CLR_YELLOW )

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

[Marc Vanzegbroeck]

Thanks Enrico,

It's working very nice!!

Marc