Pintar pestaña Folder

Pintar pestaña Folder

Postby surGom » Fri Apr 14, 2017 12:03 pm

Hola quisiera saber si ante una determinada condición se puede colorear una pestaña de la clase tfolderex

Luis
surGom
 
Posts: 639
Joined: Wed Oct 19, 2005 12:03 pm

Re: Pintar pestaña Folder

Postby cnavarro » Fri Apr 14, 2017 9:26 pm

Prueba con los siguiente codeblocks

Code: Select all  Expand view


         oFld:aGradSel       := { { 1, CLR_VSTAB, CLR_VSTAB } }
         oFld:aGradUnSel     := { { 1, oThis:nBackColorA, oThis:nBackColorA } }
         oFld:bClrText       := { | o, n | If( o:aEnable[ n ] .and. o:aVisible[ n ], ;
                                  CLRTEXT,  GetSysColor( COLOR_GRAYTEXT ) ) }
         oFld:aGradOver      := .../...
         oFld:aGradOverUnSel := .../...

 
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Pintar pestaña Folder

Postby MGA » Mon Apr 24, 2017 10:49 am

c:\fwh\samples\testfx1.prg
c:\fwh\samples\testfx2.prg
ubiratanmga@gmail.com

FWH18.02
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1234
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: Pintar pestaña Folder

Postby karinha » Mon Apr 24, 2017 1:28 pm

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7154
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Pintar pestaña Folder

Postby surGom » Mon Apr 24, 2017 10:50 pm

Gracias a ambos, la solución que encontré para no complicar todo el prg fue el uso de bitmaps

Code: Select all  Expand view

   REDEFINE FOLDEREX oFold id 101 oF oDlgCli   ;
      PROMPTS "General", "Impuestos", "Sedronar", "Datos", "Cobranza";
      BITMAPS "","","","",IIF(lcobro,"B_ACEPTAR","");
      DIALOGS "fold_cli1", "fold_cli2", "fold_cli3", "fold_cli4", "fold_cli5";
 


Y funciona como esperaba, lo que no se como cambiar, en tiempo real, el bitmap a nada cuando es necesario.


Luis
surGom
 
Posts: 639
Joined: Wed Oct 19, 2005 12:03 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 9 guests