Solved

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

Posted on 2003-10-23
6
1,004 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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Delphi cmd execution 6 55
Intraweb download file link ? 1 108
Making delphi communicate with a c# service 16 88
what font behind pdf 32 128
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…
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
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…

911 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

16 Experts available now in Live!

Get 1:1 Help Now