Solved

display sorting triangle in ListView column header

Posted on 1998-08-16
4
573 Views
Last Modified: 2010-04-03
How can I display in a ListView column header a triangle that shows after which column are sorted the items, and in which direction (like in the Microsoft Internet Mail and News)?
0
Comment
Question by:biroadam
  • 2
4 Comments
 
LVL 4

Accepted Solution

by:
erajoj earned 50 total points
ID: 1336098
Hi,
You could do something like this:

uses
  ...ComCtrls, Commctrl;

var
  MyBMP : TBitmap;
  hditem: THDItem;

  MyBMP := TBitmap.Create;
  with MyBMP do begin
    Canvas.Brush.Color := clBtnFace;
    Width  := 10;
    Height := 10;
// down...
    Canvas.Polyline([Point(0,0),Point(4,8),Point(8,0),Point(0,0)]);
//  up...
//  Canvas.Polyline([Point(0,8),Point(4,0),Point(8,8),Point(0,8)]);
  end;

 ...

  hditem.Mask := HDI_FORMAT;
  Header_GetItem( GetDlgItem( ListView1.Handle, 0 ), 1, hditem );
  hditem.Mask := HDI_BITMAP or HDI_FORMAT;
  hditem.fmt  := hditem.fmt or HDF_BITMAP;
  hditem.hbm := MyBMP.Handle;
  Header_SetItem( GetDlgItem( ListView1.Handle, 0 ), 1, hditem );

/// John

0
 
LVL 5

Expert Comment

by:ronit051397
ID: 1336099
Did you check it? It doesn't seem to work.
0
 

Author Comment

by:biroadam
ID: 1336100
 Thank you, it was a good answer.

  I have two further questions:

  1. How can I move the bitmap on the RIGHT side of the column header’s caption (the bitmap generated by your code is on the left side)?

  2. How can I resolve the transparency problem for this bitmap? I must have a triangle on a clButtonFace background, so I have two choises: A. making a procedure which calls the CreateGrayMappedBmp function every time the system colors changes, or B. I have a transparent color.

  I couldn’t use the solution B because setting my bitmap’s Transparency, TransparentColor and TransparentMode properties, the transparency didn’t work on the column header.
0
 
LVL 5

Expert Comment

by:ronit051397
ID: 1336101
Does it work on NT4?
Does it work when the listview is not on the main form?

If yes, can you please send me the sample code?  ronith@cmr.co.il

Thanks,
Ronit
0

Featured Post

Is Your AD Toolbox Looking More Like a Toybox?

Managing Active Directory can get complicated.  Often, the native tools for managing AD are just not up to the task.  The largest Active Directory installations in the world have relied on one tool to manage their day-to-day administration tasks: Hyena. Start your trial today.

Question has a verified solution.

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

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 ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…

770 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