oFolder:SetColor()

oFolder:SetColor()

Postby Willy » Fri Sep 21, 2007 11:41 am

I Tried this and this does not work.

Is there a way to change the color of a folder.

Thanks

Willy.
Willy
 
Posts: 117
Joined: Thu Mar 02, 2006 11:06 am
Location: Belgium

Postby Antonio Linares » Fri Sep 21, 2007 11:59 am

Willy,

If you are using XP themes then you can't change the folder color

You can change the color of the dialogs that the folder manages oFld:aDialogs
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42122
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Willy » Fri Sep 21, 2007 12:03 pm

Thanks Antonio,

I have also tried with

oFold1:aDialogs[1]:Setcolor()

But this does also not work
Willy
 
Posts: 117
Joined: Thu Mar 02, 2006 11:06 am
Location: Belgium

Postby Otto » Sat Oct 20, 2007 3:05 pm

Hello Antonio,
could you please post a bit of code how to change the color of the folder dialogs.
Thanks in advance
Otto
User avatar
Otto
 
Posts: 6342
Joined: Fri Oct 07, 2005 7:07 pm

Postby Willy » Sun Oct 21, 2007 8:25 am

Code: Select all  Expand view  RUN
1 24 "Windows.Man"


When you use this line in your Resources file, it will not work

Otherwise you can use this

Code: Select all  Expand view  RUN
oDlg:SetColor(Rgb(0,0,0),Rgb(200,200,255))

oFold1:SetColor(Rgb(0,0,0),Rgb(200,200,255))

oFold1:aDialogs[1]:SetColor(Rgb(0,0,0),Rgb(200,200,255))
oFold1:aDialogs[2]:SetColor(Rgb(0,0,0),Rgb(200,200,255))
oFold1:aDialogs[3]:SetColor(Rgb(0,0,0),Rgb(200,200,255))
oFold1:aDialogs[4]:SetColor(Rgb(0,0,0),Rgb(200,200,255))
oFold1:aDialogs[5]:SetColor(Rgb(0,0,0),Rgb(200,200,255))


It works with me.

Greetings

Willy
Willy
 
Posts: 117
Joined: Thu Mar 02, 2006 11:06 am
Location: Belgium

Postby Otto » Sun Oct 21, 2007 8:38 am

Thank you, Willy. It is working.
Do you also know how to change the TAB of the folder?
Thanks in advance,
Otto
User avatar
Otto
 
Posts: 6342
Joined: Fri Oct 07, 2005 7:07 pm

Postby Enrico Maria Giordano » Sun Oct 21, 2007 8:54 am

Try assigning oFolder:aPrompts[ n ] and refresh the folder (not tested).

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8718
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Postby Otto » Sun Oct 21, 2007 11:16 am

How do you assingn?
I tried
oFld:aPrompts[ 1 ]:SetColor(Rgb(0,0,0),Rgb(168,207,110))
but get no exported method.

Regards,
Otto
User avatar
Otto
 
Posts: 6342
Joined: Fri Oct 07, 2005 7:07 pm

Postby Enrico Maria Giordano » Sun Oct 21, 2007 11:19 am

Otto wrote:Do you also know how to change the TAB of the folder?


I thought you wanted to change the prompt of a TAB.

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8718
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia


Return to FiveWin for Harbour/xHarbour

Who is online

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