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... ?

[Luckie]

Du machst eine Imageliste mit kleinen Images (16x16) und weißt sie der Eigenschaft SmallImages des Listviews zu.

[agm65]

bin am verzweifeln wie ich es drehe und wende es geht nicht !
hat einer von euch diese operation schonmal erfolgreich durchgeführt, ohne das der patient gestorben ist ? wenn ja, wie ?

[Luckie]

Also noch mal:

Listview auf das Formular.
ImageList auf das Formular.
Dem Listview im OI bei SmallImages die ImageList zuweisen.
Icon (16x16) in die ImageListe einfügen.
Und im Code:

Delphi-Quellcode:

Listview1.Columns.Items[0].ImageIndex := 0;

Das war's.

[agm65]

man, danke luckie jetzt gehts !

jetzt habe ich aber leider das problem, dass vor jedem item in der listview das gleiche icon steht...
das macht er automatisch beim einladen der imagelist !
sobald ich

Delphi-Quellcode:

  ListView2.Column[1].ImageIndex := 0;

setzte, erscheint das icon oben wie gewollt....
kann man die icons vor den items killen ?

p.s. alte nachteule ;), danke luckie !

[Luckie]

Du verstehst nicht wirklich, was du da machst oder? :roll:

Delphi-Quellcode:

ListView2.Column[0].ImageIndex := 0;  // erste Spalte, erste Icon aus IL
ListView2.Column[1].ImageIndex := 1;  // zweite Spalte, zweite Icon aus IL
ListView2.Column[2].ImageIndex := 2;  // dritte Spalte, dritte Icon ais IL

[Luckie]

Push, Anhang hinzugefügt.

[agm65]

doch ich verstehe sehr gut aber ich glaube du verstehst mich nicht !
es geht um die icons vor den items 0-X

die möchte ich ausbelden !

habe deinem source etwas hinzugefügt ! (deine listview hatte keine items)

[marabu]

ImageIndex := -1 verhindert die Anzeige von Bildern zuverlässig.

marabu

[Luckie]

Und zurück. Zwar nicht ausgeblendet, aber wenn du jedem auch dem ImageIndex 0 zu weist, ist das ja auch kein Wunder. Deswegen meine Vermutung, dass du nicht weißt, was du da eigentlich machst bzw. wie es funktioniert.

[agm65]

also so ganz unrecht hast du nicht ... wegen dieser listview hatte ich schon mehrere schlaflose nächte jetzt :) !
danke euch beiden !