FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Change color active folder.
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Change color active folder.
Posted: Fri Feb 03, 2017 05: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.
photo hosting sites
Thanks in advance.
Dutch
Regards,

Dutch



FWH 2304 / 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)
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Change color active folder.
Posted: Fri Feb 03, 2017 07:37 AM
Try with this DATAs

Code (fw): Select all Collapse
      :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
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: Change color active folder.
Posted: Fri Feb 03, 2017 08:09 AM
Dear Cristobal

It has an error.
Code (fw): Select all Collapse
Description : Warning BASE/1005  Message not found: TFOLDER:_AGRADSEL
Regards,

Dutch



FWH 2304 / 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)
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Change color active folder.
Posted: Fri Feb 03, 2017 08: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

Continue the discussion