Solved

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

Posted on 2003-10-23
6
996 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
IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 
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

What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

Suggested Solutions

In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
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…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
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…

743 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

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now