Icon neben ListBox-Eintrag (non-vcl)

[Kernel32.DLL]

N'abend alle zusammen:

Ich habe ein kleineres Problem.

Ich möchte mir gerne eine Listbox basteln, die so aussieht, wie die im Anhang.

Das ganze ist jetzt NON-VCL:

Delphi-Quellcode:

hwndinfolstb := CreateWindowEx(WS_EX_CLIENTEDGE, 'LISTBOX', '',
          WS_VISIBLE or WS_CHILD, 10, 190, 438, 75, hWnd, IDM_INFO, hInstance,
          nil);

jetzt stellt sich mir aber die Frage: Wie stelle ich das an? Ich habe zahlreiche Beispiele für die VCL gefunden, allerdings helfen sie mir nicht wirklich bei meinem Problem.


Hat jemand einen Vorschlag oder ein konkretes Beispiel?



300. Beitrag

[Edit]Verdammt, den Anhang vergessen. Wie peinlich [/Edit]

[edit=sakura] [] nicht nötig, oder Mfg, sakura[/edit]

[Luckie]

Ich würde einen Listview mit einer Spalte nehmen. Und das sieht ja auch fast aus, wie ein Listview mit der Spaltenüberschrift.

[Kernel32.DLL]

hm.. ok, ich werde mal in diese Richtung weiterforschen. Danke erstmal.

[Kernel32.DLL]

Da bin ich wieder:

also, ich habe jetzt Folgendes gebastelt:

Delphi-Quellcode:

var
infolist      : TLVItem;
begin
 hwndinfolstb := CreateWindowEx(WS_EX_CLIENTEDGE,WC_LISTVIEW,nil,
          WS_VISIBLE or WS_CHILD or LVS_REPORT or LVS_ICON or
          LVS_LIST,10,190,435,60,hwnd,
          IDM_INFO,hInstance,nil);

[...]

        infolist.mask     := LVIF_TEXT or LVIF_IMAGE;
        // Item-Index
        infolist.iItem    := 0;
        infolist.iSubItem := 0;
        // Text
        infolist.pszText  := 'Das Programm wurde gestartet';
        // Image
        infolist.iImage   := LoadIcon(hInstance, IDI_INFORMATION);

        ListView_InsertItem(hwndinfolstb,infolist);
[...]

end;

Jetzt bin ich aber schon mit meinem Latein am Ende. Ich habe infolist.iImage doch ein Icon zugewiesen. Allerdings wird keins angezeigt. Oder muss für das Icon eine extra Spalte vorhanden sein ?

[Luckie]

Äh. Du erstellt eine ImageList, diese weist du dem Listview zu un in dem Feld iImage der TLVItem Struktur gibst du das Image aus der ImageListe mit dem Index an. Tutorial und Demo dazu in den "Win32 API Tutorials für Delphi"

[Kernel32.DLL]

Zitat von Luckie:

Äh. Du erstellt eine ImageList, diese weist du dem Listview zu un in dem Feld iImage der TLVItem Struktur gibst du das Image aus der ImageListe mit dem Index an.

Ups..

Gut, dann bastel ich mir jetzt meine Imagelist...

[Kernel32.DLL]

Ich fürchte, ich bin zu dämlich dazu... Deine API-Tuts sind mir zwar schon länger bekannt, aber irgendwie funktioniert das noch nicht so, wie ich's gerne hätte:

Siehe hier: Daniel's Unstoppable Copier

[Luckie]

Lad dir doch einfach mal die Sourcen für die Demos runter und guck es dir da mal an. Mehr kann ich auch nicht machen. Oder du schickst mir mal dein Projekt, dann könnte ich es dir einbauen.

[Kernel32.DLL]

Zitat von Luckie:

Lad dir doch einfach mal die Sourcen für die Demos runter...

Zitat von Kernel32.DLL:

Deine API-Tuts sind mir zwar schon länger bekannt...

*damit auch die Demos mein*

Zitat von Luckie:

Oder du schickst mir mal dein Projekt, dann könnte ich es dir einbauen.

Wäre nett von dir, ist hier im Forum zu finden, die Entscheidung liegt bei dir...

Ich werde mich mit der Problematik aber noch mal intensiver auseinandersetzen

Projekt: Daniel' s Unstoppable Copier