hallo,
ich hab folgendes problem, ich habe noch ein altes delphi 5 project und möchte dem listview gerne sort arrows verpassen (in den column headern).
bisher hab ich das so gemacht:
Delphi-Quellcode:
procedure TfrmMain.SetColumnImage(List: TdfsExtListView; Column: Integer; Image: Integer; ShowImage: Boolean);
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;
//hd.hbm := imgUp.Picture.Bitmap.Handle;
mask := HDI_IMAGE or HDI_FORMAT;
pszText := PChar(List.Columns[Column].Caption);
if ShowImage then
fmt := HDF_STRING or Align or HDF_IMAGE or HDF_BITMAP_ON_RIGHT
else
fmt := HDF_STRING or Align;
iImage := Image;
end;
SendMessage(hHeader, HDM_SETITEM, Column, Integer(@HD));
end;
Das funktioniert auch soweit ganz gut, bis auf das der listview die bitmaps aus der imagelist nimmt, die mit dem listview verbunden ist. ich möchte hier selbst irgendein bitmap einfügen, bringe es aber nicht hin das es angezeit wird, jemand eine idee? habe es mit der auskommentierten zeile versucht aber das klappt nicht.
danke im voraus.
