Listbox mit Objekten

[Luckie]

Gibt es eine Listbox-Komponente in deren Items man Objekte darstellen kann und Text? Ich müsste mehrere TImage-Komponenten verwalten und der Benutzer soll an Hand dieser Liste die Image-Komponenten auswählen können, welches dargestellt werden soll.

[marabu]

Hallo Michael,

angesichts des Code-Beispiels zu OnDrawItem() in der Online-Hilfe würde ich keine Komponente mehr suchen. Wären es keine TImages sondern Icons, dann gäbe es da TIconListBox.

Freundliche Grüße

[Luckie]

Zitat:

Zitat von marabu

angesichts des Code-Beispiels zu OnDrawItem() in der Online-Hilfe würde ich keine Komponente mehr suchen

Das Beispiel kenne ich, da wird direkt auf den Canvas eines Items gezeichnet. Aber ich wollte eigentlich dort sichtbare Komponenten ablegen und zwar mindestens zwei pro Item. Ich verstehe nicht so ganz, was du mir mit dem zweiten Teil deines Satzes sagen willst.

[shmia]

Das Property Items der Standard Listbox-Komponente ist doch vom Typ TStrings.
In TStrings lassen sich doch pro Item ein Text und ein Objekt hinterlegen.
Wenn man pro Item mehr als ein Objekt braucht, dann braucht man pro Item eine TObjectList und packt dort die Objekte rein.
Alternativ baut man sich ein Wrapper-Objekt, das mehrere Objekte unter einem Dach vereint.

Delphi-Quellcode:

TListBoxItemObj=class(TPersistent)
   property RotesObjekt : TImage;
   property BlauesObjekt : TImage;
end;

[Luckie]

Zitat:

Zitat von shmia

In TStrings lassen sich doch pro Item ein Text und ein Objekt hinterlegen.

Ja, hinterlegen, aber diese Objekte sind sichtbare Komponenten, die ich in den Items der Listbox anzeigen will. Ich will keine Instanz speichern.

[marabu]

Hallo Michael,

Zitat:

Zitat von Luckie

Das Beispiel kenne ich, da wird direkt auf den Canvas eines Items gezeichnet. Aber ich wollte eigentlich dort sichtbare Komponenten ablegen und zwar mindestens zwei pro Item.

du glaubst nicht wie leicht man eine Frage missverstehen kann. Eine Frage von dir in Richtung "wie kann ich einen einzigen Pointer benutzen um auf mehr als ein Objekt zu zeigen" (siehe den Beitrag von Andreas) habe ich nicht erwartet und habe dein Problem deshalb in Richtung Darstellung interpretiert. Vor diesem Hintergrund solltest du meine Antwort verstehen. (Klartext: Icons erfüllen die Anforderungen an eine Listbox-Darstellung und lassen sich wunderbar auf eine gemeinsame Leinwand übertragen, beliebige Images sollten besser in einen Container gepackt werden).

Wenn es aber doch um die Darstellung geht, dann solltest du deine Anforderungen etwas klarer herausarbeiten.

Freundliche Grüße

[Muetze1]

Zitat:

Zitat von Luckie

Ja, hinterlegen, aber diese Objekte sind sichtbare Komponenten, die ich in den Items der Listbox anzeigen will. Ich will keine Instanz speichern.

Das eine schliesst das andere nicht aus. Du kannst doch schliesslich im OnDrawItem die beiden jeweiligen Objekte (Images), welche bei dem gerade zu malenden Eintrag hinterlegt sind, malen. Oder was nun?

[Luckie]

Ok, war etwas missverständlich. Aber ich denke, ich habe eine andere Lösung gefunden:
http://www.delphipraxis.net/internal...t.php?t=115903