Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сортировка списка в ListView [D6, Win2k]

badaxe © (2002-10-04 11:27:00)
Приветствую.
Подскажите пожалуйста каким образом можно запихать стрелки в хедер ListView (когда он имеет вид Report). Чтоб при нажатии на хедер стрелки менялись указывая в каком порядке отсортирован список.
Заранее спасибо.

badaxe (2002-10-04 13:57:00) [1]
Все !!!
Спасибо большое !!
Работает !

MBo (2002-10-04 13:49:00) [2]
uses ...CommCtrl

badaxe (2002-10-04 13:45:00) [3]
не работает :(
что за THDItem ?
у меня на это объявление делфи матерится и в хелпах я про него ничего не нашел...

MBo (2002-10-04 13:13:00) [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 12:18:00) [5]
ну помогите.. :(
ну пожалуйста :(
я не верю что никто никогда не сталкивался....

badaxe (2002-10-04 12:02:00) [6]
Ну я типа нашел...
Там советуется отрисовывать все на заголовке припомощи

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

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

как быть ?

MBo (2002-10-04 11:33:00) [7]
просмотреть форум за день-два

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »