Сортировка списка в ListView

← →
badaxe © (2002-10-04 11:27) [0]

Приветствую.
Подскажите пожалуйста каким образом можно запихать стрелки в хедер ListView (когда он имеет вид Report). Чтоб при нажатии на хедер стрелки менялись указывая в каком порядке отсортирован список.
Заранее спасибо.

← →
MBo © (2002-10-04 11:33) [1]

просмотреть форум за день-два

← →
badaxe © (2002-10-04 12:02) [2]

Ну я типа нашел...
Там советуется отрисовывать все на заголовке припомощи

canvas.font.name:="marlett"
canvas.textout

но это, насколько я понял невозможно, т.к. то что заголовок всегда находится поверх того что рисует textout

как быть ?

← →
badaxe © (2002-10-04 12:18) [3]

ну помогите.. :(
ну пожалуйста :(
я не верю что никто никогда не сталкивался....

← →
MBo © (2002-10-04 13:13) [4]

Вышел каменный цветок ;)

var
Ascending:Integer=0;
b:array [0..1] of tbitmap;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=0 to 1 do begin
b[i]:=tbitmap.create;
b[i].width:=14;
b[i].height:=14;
b[i].canvas.brush.color:=clBtnFace;
b[i].canvas.fillrect(rect(0,0,14,14));
b[i].canvas.Font.Size:=14;
b[i].canvas.Font.Name:="Marlett";
end;
b[0].canvas.TextOut(0,-2,#54);
b[1].canvas.TextOut(0,-2,#53);
end;

procedure TForm1.ListView1ColumnClick(Sender: TObject;
Column: TListColumn);
var
ColHeader: THandle;
HDItem: THDItem;
begin
Ascending:= 1 - Ascending;
ColHeader:=ListView1.Perform(LVM_GETHEADER,0,0);
HDItem.Mask := HDI_FORMAT;
SendMessage(ColHeader,HDM_GetItem,Column.Index,Integer(@HDItem));
HDItem.Mask:=HDI_FORMAT or HDI_BITMAP;
HDItem.fmt:=HDItem.fmt or HDF_BITMAP_ON_RIGHT or HDF_BITMAP;
HDItem.hbm:=B[Ascending].Handle;
SendMessage(ColHeader,HDM_SetItem,Column.Index,Integer(@HDItem));
end;

← →
badaxe © (2002-10-04 13:45) [5]

не работает :(
что за THDItem ?
у меня на это объявление делфи матерится и в хелпах я про него ничего не нашел...

uses ...CommCtrl

Все !!!
Спасибо большое !!
Работает !

Сортировка списка в ListView Найти похожие ветки