bb.donnay-software.com

Posted: **Mon Feb 11, 2013 7:52 pm**

The attached code creates an XP style button, but it is white.
The mouse color and click color are correct.
Can someone please tell me what I am missing?
Thanks,
GeneB

Code: Select all

#INCLUDE  "dcdialog.ch"

PROC appsys ; return

FUNCTION MAIN()
LOCAL GetList[0]

@ 6.0,11 DCPUSHBUTTONXP ;
      SIZE 40, 5 ;
      CAPTION 'Inventory' ;
      GRADIENT 3.0 ;
      COLOR {255,255,0},{ 51, 51,255} ;
      MOUSECOLOR {255,255,0},{  0, 51,255} ;
      CLICKCOLOR {255,255,0},{  0,  0,221} ;
      BORDERCOLOR {204,212,204} ;
      RADIUS 10 ;
      FONT '16.Arial' ;
      TOOLTIP 'Go To Inventory Menu' ;
      ACTION {|| nil }

DCREAD GUI FIT TITLE 'Test DCPUSHBUTTONXP'
RETURN nil

Posted: **Tue Feb 12, 2013 2:34 am**

Hi,

Try first without gradient.

Posted: **Tue Feb 12, 2013 6:52 am**

With the above code if I remove the gradient the button is black.
The code I am using is from ButtPicker.exe

Posted: **Tue Feb 12, 2013 7:27 am**

With this code I get the gradient but lose the 'mouse over' color change

Code: Select all

#INCLUDE  "dcdialog.ch"

PROC appsys ; return

FUNCTION MAIN()
LOCAL oConfig, GetList[0]

oConfig := DC_XbpPushButtonXpConfig():new()
oConfig:gradientStyle := 5
oConfig:gradientStep  := 3

@ 6.0,11 DCPUSHBUTTONXP ;
      SIZE 40, 5 ;
      CAPTION 'Inventory' ;
      COLOR  GRA_CLR_YELLOW,GRA_CLR_BLUE   ;
      MOUSECOLOR {255,255,0},{  0,  0,221} ;
      CLICKCOLOR {255,255,0},{  0,  0,221} ;
      BORDERCOLOR {204,212,204} ;
      GRADIENT 3 ;
      STATIC     ;
      RADIUS 10 ;
      FONT '16.Arial' ;
      TOOLTIP 'Go To Inventory Menu' ;
      ACTION {|| nil }

DCREAD GUI FIT TITLE 'Test DCPUSHBUTTONXP'
RETURN nil

Posted: **Tue Feb 12, 2013 8:08 am**

I think you found a bug. The below code works for me.

Code: Select all

#INCLUDE  "dcdialog.ch"

PROC appsys ; return

FUNCTION MAIN()
LOCAL GetList[0]

@ 6.0,11 DCPUSHBUTTONXP ;
      SIZE 40, 5 ;
      CAPTION 'Inventory' ;
      GRADIENT 3.0 ;
      COLOR GRA_CLR_YELLOW, { 51,51,255 } ;
      MOUSECOLOR {255,255,0},{  0, 51,255} ;
      CLICKCOLOR {255,255,0},{  0,  0,221} ;
      BORDERCOLOR {204,212,204} ;
      RADIUS 10 ;
      FONT '16.Arial' ;
      TOOLTIP 'Go To Inventory Menu' ;
      ACTION {|| nil }

DCREAD GUI FIT TITLE 'Test DCPUSHBUTTONXP'
RETURN nil

Posted: **Tue Feb 12, 2013 8:17 am**

51,51,255

Posted: **Tue Feb 12, 2013 8:22 am**

I re-edited my first posting. Please go back and read it.

Posted: **Tue Feb 12, 2013 8:38 am**

Works !!
"Muchas gracias noch einmal"
GeneB

bb.donnay-software.com

DCPUSHBUTTONXP Color of Button

DCPUSHBUTTONXP Color of Button

Re: DCPUSHBUTTONXP Color of Button

Re: DCPUSHBUTTONXP Color of Button

Re: DCPUSHBUTTONXP Color of Button

Re: DCPUSHBUTTONXP Color of Button

Re: DCPUSHBUTTONXP Color of Button

Re: DCPUSHBUTTONXP Color of Button

Re: DCPUSHBUTTONXP Color of Button