Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Directory TreeView -> Set the icons

Posted on 1999-07-14
14
Medium Priority
?
386 Views
Last Modified: 2012-05-04
I found this freeware component on net .
It's perfect to me , but ... It is a BUT .
I need to use a black background . OK .
But when I set to black the background of tree the system icons have a white background .
HOW CAN I SET TO TRANSPARENT THE ICONS OR ( MORE IMPORTANT ) HOW CAN I INPUT MY OWN ICONS .

This is the component can be downloaded from : http://home.t-online.de/home/merkes/index.htm .

" january 12, 1999:

  delphi 3/4:

     TDirTree V1.23 released. problem with small/large fonts fixed ( in some cases tdirtree didn't show anything at startup)
     NOTE: blablabla..."

Or maybe exist an another freeware component for DirTree who can do that .
0
Comment
Question by:ginsonic
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 8
  • 6
14 Comments
 
LVL 9

Author Comment

by:ginsonic
ID: 1388719
Edited text of question.
0
 
LVL 17

Expert Comment

by:inthe
ID: 1388720
it is easy to make the images have black edges but and a big important but..
is your own app the only app to be displayed at once?
will the user still be able to open explorer while your app is running? cause i have a solution if your app is the only one but if the user can open explorer they will see the explorer icons with black edges instead of white because the compoennt uses the same imagelist as explorers so whatever you do to the components images also effects explorers images..
let me know
0
 
LVL 9

Author Comment

by:ginsonic
ID: 1388721
I can try . Please tell me how .
But I prefer to use my own icons or some transparents .

Nick aka Ginsonic
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
LVL 17

Expert Comment

by:inthe
ID: 1388722
Hi Nick
ok you just have to do:

procedure TForm1.DirTree1GetIcon(Sender: TObject; Node: TTreeNode);
begin
DirTree1.ShellIcons.BkColor:=clblack;
end;

note that you need ot set it back to clwhite when you finish else explorers icons will have the black edge untill windows is rebooted.
it is a nice component and a pity it doesnt have a images property to load your own imagelist into.maybe we can find a better compoennt,
have you looked at torrys,super delphi page or www.delphipages.com for other components?
Regards Barry
0
 
LVL 9

Author Comment

by:ginsonic
ID: 1388723
I will test your code inthe .
I don't found on net a tree directory with custom icons.I give you an answer soon .
Nick aka Ginsonic
0
 
LVL 9

Author Comment

by:ginsonic
ID: 1388724
Inthe,
I have a question : if DirTree.ShellIcons:TImageList then I can't use my own images ? My own ImageList .
Nick aka Ginsonic

P.S. You know how set the color of buttons ( of node ) . In my case are black and I can see the + . I see the O but I can't see the + .
0
 
LVL 17

Expert Comment

by:inthe
ID: 1388725
DirTree.ShellIcons:TImageList is set in the component and trying to change it without rewriting the shellicons out of the component will get the error ?"left side cannot be assigned to"

>P.S. You know how set the color of buttons ( of node ) . In my case are black and I can see the + . > I see the O but I can't see the +

change the font color changes the + color ,dunno about the O

0
 
LVL 9

Author Comment

by:ginsonic
ID: 1388726
Barry ,
I set font color to clGreen , but color for + are still black .
Nick aka Ginsonic

0
 
LVL 17

Expert Comment

by:inthe
ID: 1388727
i change the font color of dirtree just now to clgreen and the  + go green ,
i looks really good actually black background with green + .
please try agin as it does work fine.
what version of delphi you have?do you have updates etc?
although i doubt this whould be a issue..

0
 
LVL 9

Author Comment

by:ginsonic
ID: 1388728
I don't try yet . Put an answer . I will give you the points .

Nick aka Ginsonic

P.S. Are you still interested about my project ( radio ) ?

0
 
LVL 17

Accepted Solution

by:
inthe earned 300 total points
ID: 1388729
>>P.S. Are you still interested about my project ( radio ) ?

yes but i couldnt get it working as i was using d4 and that component Kept giving me errors all the time about not finding package something...
i thought you must have finished it by now.,how far have you got with it?
do you need help with anything on it?
Regards Barry
0
 
LVL 9

Author Comment

by:ginsonic
ID: 1388730
Qick answer , hehehe!
Are you online ? Because I am .If you wish we can talk on ICQ .
My ICQ is 43312457.

About prog . This week I can send you a good version of it . If you wish .
I change all my codes .

0
 
LVL 9

Author Comment

by:ginsonic
ID: 1388731
Sorry , I send you a coment but I forget the points :) .
0
 
LVL 17

Expert Comment

by:inthe
ID: 1388732
i had to do a reinstall of windows and havent got around to reinstalling icq yet so send me a mail on Legend@Enterprise.Net ,it would be great to see the project with newer code  so yes send if you want,did you make it in d4 now?any new interesting components?
mail me and let me know,im off to get some dinner now but be back soon.
Regards Barry
Legend@Enterprise.Net  
0

Featured Post

On Demand Webinar: Networking for the Cloud Era

Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Have you created a query with information for a calendar? ... and then, abra-cadabra, the calendar is done?! I am going to show you how to make that happen. Visualize your data!  ... really see it To use the code to create a calendar from a q…
In this video, Percona Solution Engineer Rick Golba discuss how (and why) you implement high availability in a database environment. To discuss how Percona Consulting can help with your design and architecture needs for your database and infrastr…
Suggested Courses

660 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question