Listview, Added eines Icons in die Spalten Überschrift ?

[agm65]

Delphi-Quellcode:

SendMessage(statusbar.Handle, SB_SETICON, 2, img1.Picture.Icon.Handle);

dieser code setzt ein icon in meine statusbar und zwar in die 3te spalte !
jetzt wollte ich fragen, ob es eine möglichkeit gibt auch in einer listview oben in die spalten überschriften ein icon zu packen ?

Delphi-Quellcode:

SendMessage(listview2.Handle, SB_SETICON, 2, form1.imgConnect.Picture.Icon.Handle);

bringt keinen fehler aber auch kein icon !

thx cu agm65

[marabu]

Hi,

du kannst einer ListView zwar eine ScrollBar-Message schicken, aber wenn sie nicht darauf reagiert, dann brauchst du dich nicht zu wundern. Versuche es mal so:

Delphi-Quellcode:

with ListView.Columns do
  // i ist der Index von deinem Image, 
  // nachdem du es in eine ImageList geladen hast.
  Items[2].ImageIndex := i;

marabu

[Luckie]

SB_SETICON ist ja auch eine Statusbar Message. Ein Listview wird damit reichlich wenig anfangen können, zu dem ist ein ColumnHeader bei einem Listview kein Panel einer Statusbar.

[agm65]

hmm also das mit der imagelist geht irgendwie nicht so richtig...
oder vielleicht bin ich nur zu blöd....

hilfe ?

[marabu]

Zitat:

Zitat von agm65

hilfe ?

Wenn das keine Hilfe ist:

Delphi-Quellcode:

var
  bm: Graphics.TBitmap;  // nicht verwechseln mit Windows.TBitmap
  index: integer;
  SmallImages: TImageList;
begin
  bm := Graphics.TBitmap.Create;
  bm.LoadFromFile(fileName);
  // ... small heißt 16x16
  SmallImages.InsertMasked(index, bm, bm.TransparentColor);
  bm.Free;
  // ... nur ein Beispiel
  ListView.Columns[index].ImageIndex := index;
end;

marabu

[agm65]

Delphi-Quellcode:

 SmallImages.InsertMasked(index, bm, bm.TransparentColor);

bitmap ist ungültig, ich verwende ein 16x16 256 farben icon ?
wo liegt das problem ?

[marabu]

Natürlich ist Bitmap ungültig - wollte nur sehen, ob du das Zeug auch liest, was ich hier schreibe:

Delphi-Quellcode:

procedure TForm1.DemoButtonClick(Sender: TObject);
var
  icon: TIcon;
  index: integer;
  fileName: string;
begin
  // ... index, filename initialisieren
  icon := TIcon.Create;
  icon.LoadFromFile(fileName);
  SmallImages.InsertIcon(index, icon);
  icon.Free;
    ListView.Column[index].ImageIndex := index;
end;

marabu

[agm65]

natürlich, ich lese immer alles...thx

also smallimages findet er als undefinierter bezeichner, deaktiviere ich die zeile, sieht es so aus als würde er was einladen wollen aber es das icon wird nicht angezeigt !

[marabu]

SmallImages steht für die TImageList, die du der gleichnamigen Eigenschaft von ListView zuweisen musst.

marabu

[agm65]

huh...bitte wie ? haste nen beispiel... ?