Solved

How to add a glyph to a column on a TListView.

Posted on 2003-10-23
6
1,015 Views
Last Modified: 2013-12-02
How do I add a Glyph to a Column on a TListView like windows explorer?  I want to do this to a TListview, preferably with some an API call.
I wish to add the Up/Down glyphs that you see in windows explorer when you sort a column.
0
Comment
Question by:Colin_Dawson
  • 5
6 Comments
 
LVL 26

Accepted Solution

by:
Russell Libby earned 125 total points
ID: 9611307

Assign an ImageList to the listview's SmallImages property, then set the columns ImageIndex property through the object inspector, or via code:

ie:

 ListView1.Columns[0].ImageIndex:=0;


Hope this is what your after, if not perhaps you could specify further
Russell

0
 
LVL 4

Author Comment

by:Colin_Dawson
ID: 9612697
Close, but no cigar.  The image that I want is on the right hand side of the text.  Load Windows explorer and set the contents of a folder to "Details".  Now click on the filename header button.  You'll see an arrow pointing down.  Click again and the arrow will point up - and the list will be re-sorted.   I know how to make the list sort, so that's not a problem.   What I'm after is putting in the visual style, so that my tree view can behave more like the one in windows explorer.

The reason that I'm being so picky about this is that I want my Listview to be compatible with the Windows Themes in XP.
0
 
LVL 4

Author Comment

by:Colin_Dawson
ID: 9612723
Ok, I've done a little digging about on the net, and found the windows message that controlls the headers.  The message is  HDM_SETITEM.   I can see that the Sort items look new with Version 6 of Comctrl32. I'm now looking at how to implement it.
0
NAS Cloud Backup Strategies

This article explains backup scenarios when using network storage. We review the so-called “3-2-1 strategy” and summarize the methods you can use to send NAS data to the cloud

 
LVL 4

Author Comment

by:Colin_Dawson
ID: 9612752
OK, Getting closer still.

http://www.delphipages.com/tips/thread.cfm?ID=74

It doesn't mention that you need to add CommCtrl to your uses clause.    Now all I need to do is add the extra bit for the windows XP theme.
0
 
LVL 4

Author Comment

by:Colin_Dawson
ID: 9612782
Getting even closer now.  Got the icon working with XP, here's my variation on the code.  Notice that I needed to declare a couple of new Constants, these are missing from Delphi's API headers.

  Procedure SetColumnImage(List: TListView; Column, Image: Integer; ShowImage: Boolean);
  Const
    HDF_SORTDOWN = $200;
    HDF_SORTUP = $400;
  var
   Align,hHeader: integer;
   HD: HD_ITEM;

  begin
   hHeader := SendMessage(List.Handle, LVM_GETHEADER, 0, 0);
   with HD do
   begin
       case List.Columns[Column].Alignment of
         taLeftJustify:  Align := HDF_LEFT;
         taCenter:       Align := HDF_CENTER;
         taRightJustify: Align := HDF_RIGHT;
       else
         Align := HDF_LEFT;
       end;

       mask := HDI_IMAGE or HDI_FORMAT;

       pszText := PChar(List.Columns[Column].Caption);

       if ShowImage then
         fmt := HDF_STRING or HDF_IMAGE or HDF_BITMAP_ON_RIGHT
       else
         fmt := HDF_STRING or Align;

       If Image = 0
       Then fmt := fmt or HDF_SORTDOWN
       Else fmt := fmt or HDF_SORTUP;

       iImage := Image;
   end;

   SendMessage(hHeader, HDM_SETITEM, Column, Integer(@HD));
  end;

Now for the icing on the cake, I need to get the column itself to highligh in the way that windows explorer does in Windows XP.
0
 
LVL 4

Author Comment

by:Colin_Dawson
ID: 9613094
Having taken a little closer look I think it's only fair to ask about putting the shading onto the column as a seperate question.  Using the Columns.ImageIndex for the bitmap that I wanted was in the right direction for the correct solution, but as you can plainly see it's a hell of a long way short of the right answer.
0

Featured Post

PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
tidtcpserver connection lost handle 2 84
Delphi Yen format 3 35
How to convert memory stream to PDF file 6 58
Delphi: making a BW image transparent 10 38
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
Established in 1997, Technology Architects has become one of the most reputable technology solutions companies in the country. TA have been providing businesses with cost effective state-of-the-art solutions and unparalleled service that is designed…

772 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