Delphi-PRAXiS
Seite 1 von 2  1 2   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Listview, Added eines Icons in die Spalten Überschrift ? (https://www.delphipraxis.net/49576-listview-added-eines-icons-die-spalten-ueberschrift.html)

agm65 13. Jul 2005 05:33


Listview, Added eines Icons in die Spalten Überschrift ?
 
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 13. Jul 2005 07:30

Re: Listview, Added eines Icons in die Spalten Überschrift ?
 
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 13. Jul 2005 14:47

Re: Listview, Added eines Icons in die Spalten Überschrift ?
 
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 13. Jul 2005 16:42

Re: Listview, Added eines Icons in die Spalten Überschrift ?
 
hmm also das mit der imagelist geht irgendwie nicht so richtig...
oder vielleicht bin ich nur zu blöd....

hilfe ?

marabu 13. Jul 2005 20:46

Re: Listview, Added eines Icons in die Spalten Überschrift ?
 
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 14. Jul 2005 02:08

Re: Listview, Added eines Icons in die Spalten Überschrift ?
 
Delphi-Quellcode:
 SmallImages.InsertMasked(index, bm, bm.TransparentColor);
bitmap ist ungültig, ich verwende ein 16x16 256 farben icon ?
wo liegt das problem ?

marabu 14. Jul 2005 07:22

Re: Listview, Added eines Icons in die Spalten Überschrift ?
 
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 14. Jul 2005 17:05

Re: Listview, Added eines Icons in die Spalten Überschrift ?
 
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 14. Jul 2005 19:34

Re: Listview, Added eines Icons in die Spalten Überschrift ?
 
SmallImages steht für die TImageList, die du der gleichnamigen Eigenschaft von ListView zuweisen musst.

marabu

agm65 15. Jul 2005 00:11

Re: Listview, Added eines Icons in die Spalten Überschrift ?
 
huh...bitte wie ? haste nen beispiel... ?


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:33 Uhr.
Seite 1 von 2  1 2   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz