Change color active folder.

Change color active folder.

Postby dutch » Fri Feb 03, 2017 5:06 am

Dear All,

I would like to change active folder in different color than the other for showing the which active folder has focused as sample.
- upper picture is normal folder
- lower picture is that I need. I try with ::nClrPane or ::SetColors() but it doesn't successful.
How to do that? Or Which way is the better solution.
Imagephoto hosting sites
Thanks in advance.
Dutch
Regards,
Dutch

FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
User avatar
dutch
 
Posts: 1540
Joined: Fri Oct 07, 2005 5:56 pm
Location: Thailand

Re: Change color active folder.

Postby cnavarro » Fri Feb 03, 2017 7:37 am

Try with this DATAs

Code: Select all  Expand view


      :aGradSel       := { { 1, METRO_GRIS2, METRO_GRIS2 } }
      :aGradUnSel     := { { 1, CLR_WHITE, CLR_WHITE } }
      :aGradOver      := { { 1, METRO_STEEL, METRO_STEEL } } //
      :aGradOverUnSel := :aGradOver
      :aGradDis       := { { 1, CLR_WHITE, METRO_STEEL } }
      :bClrText       := { | o, n | If( o:aEnable[ n ] .and. o:aVisible[ n ], ;
                          ( if( n = o:nOption, CLR_WHITE, ;
                             if( n = o:nOver, CLR_BLUE, METRO_STEEL ) ) ), ;
                                GetSysColor( CLR_GRAY ) ) }
      :nSeparator     := 0
      ATail( :aDialogs ):SetColor( CLR_BLUE, CLR_WHITE )


 
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: 6541
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Change color active folder.

Postby dutch » Fri Feb 03, 2017 8:09 am

Dear Cristobal

It has an error.
Code: Select all  Expand view
Description : Warning BASE/1005  Message not found: TFOLDER:_AGRADSEL
 
Regards,
Dutch

FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
User avatar
dutch
 
Posts: 1540
Joined: Fri Oct 07, 2005 5:56 pm
Location: Thailand

Re: Change color active folder.

Postby cnavarro » Fri Feb 03, 2017 8:16 am

Sorry, I only use FolderEx
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: 6541
Joined: Wed Feb 15, 2012 8:25 pm
Location: España


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 79 guests