FiveTech Software tech support forums

... SIZE 1025, 65 NOBORDER ; oTitle:aGrdBack := { { 1, Rgb(250,250,245),rgb(210,210,205) } } oTitle:nShadow := 0 ACTIVATE DIALOG the Title control gradient is not visible and take the color of the dialog Dear Silvio This is not a bug. This is the expected behavior. When a dialog is defined to be ...

... SIZE 1025, 65 NOBORDER ; oTitle:aGrdBack := { { 1, Rgb(250,250,245),rgb(210,210,205) } } oTitle:nShadow := 0 ACTIVATE DIALOG the Title control gradient is not visible and take the color of the dialog Dear Silvio This is not a bug. This is the expected behavior. When a dialog is defined to be ...

... SIZE 1025, 65 NOBORDER ; oTitle:aGrdBack := { { 1, Rgb(250,250,245),rgb(210,210,205) } } oTitle:nShadow := 0 ACTIVATE DIALOG the Title control gradient is not visible and take the color of the dialog

Karina. REDEFINE BTNBMP oBtn[3] ID 302 OF oDlg; 2007; CENTER; NOROUND; PROMPT "Salir"; GRADIENT BtnGradRed() oBtn[3]:bAction = <|| lExit := .T. oDlg:End() SysRefresh() hb_gcAll(.T.) Return Nil > Albeiroval, intenta asi por favor: #Define aPubGrad {| ...

Karina. REDEFINE BTNBMP oBtn[3] ID 302 OF oDlg; 2007; CENTER; NOROUND; PROMPT "Salir"; GRADIENT BtnGradRed() oBtn[3]:bAction = <|| lExit := .T. oDlg:End() SysRefresh() hb_gcAll(.T.) Return Nil >

It is not matter of sensitivity. You added things (like gradient) that has nothing to do with the problem it solves. If you want to show your personal samples you are very welcome. But please, leave samples of others unchanged. Calm down Enrico. When ...

It is not matter of sensitivity. You added things (like gradient) that has nothing to do with the problem it solves. If you want to show your personal samples you are very welcome. But please, leave samples of others unchanged.

...   Can you look at the differences in the code between the Light and Dark functions and make some recommendations to speed up my ( darkgreyGrad() ) gradient function ?? Thanks Rick Lipkin

If you call the function MLCount() you know before how many lines your memo has. DEFINE BRUSH oBrushshadow GRADIENT aGrad //shadow DEFINE BRUSH oBrushtext GRADIENT aGradtext //text nTotRows:= MLCount(Alltrim(cmessage),250) oPanel1 is a ttaskpanel //the shadow oItem1:=Tpanel():New( ...

// .T. TRUE, divide o GRADIENT ao meio, gostei. hahaha.

Code: Select all  Expand view

   aGrad := ( { { 0.5, CLR_WHITE, CLR_BLACK }, { 0.5 , CLR_WHITE, CLR_BLACK }, .T. } )
 

Regrads, saludos.

... e na parte negra, aparece o fundo negro, independente da cor colocada para o fundo. Att., Junior Faça um TESTE, retire o SetDlgGradient e use o GRADIENT aGrad direto no DEFINE DIALOG... Diga o que ocorre. Obg. abs. Regards, saludos.

Here is the button gradient REDEFINE BTNBMP oBtn2 ID 251 of oGrps   ;    // cancel            RESOURCE "CANCEL" ;            PROMPT "&Cancel" LEFT 2007;            ACTION( loK := .F.,  oGrps:END() ...

Try like this:

Code: Select all  Expand view

SetDlgGradient( { { 0.6, CLR_BLUE, CLR_WHITE }, { 0.4, CLR_WHITE, CLR_BLUE }, .F. } )

If the last element of the gradient array is .F., instead of an array, the gradient is horizontal.

Hey guys,

I would like to know if the gradient generated by the setdlggrandient function can be horizontal?

regards

You want the recsel header and footer be painted with the same gradient as columns' header and footer, As of now, this is not possible. Good suggestion and we will provide it soon. Again right now, it is possible have the recsel header and footer painted ...