Hallo,
Ein hoffentlich simples Problem: Ich habe eine
TListView mit ein paar Spalten und in einer Spalte wird ein Icon vor dem Text eingeblendet. Jetzt hab' ich aber das Problem das in der 1. Spalte ein Platzhalter erscheint. Im Attachment gibt es ein Bild, falls ich mich ungenau ausgedrückt haben sollte.
Das Icon zeichne ich bei dem
GetSubItemImage-Event der
TListView:
Delphi-Quellcode:
procedure TMainForm.ListViewGetSubItemImage(Sender: TObject;
Item: TListItem; SubItem: Integer; var ImageIndex: Integer);
begin
Item.ImageIndex := -1;
if SubItem = 6 then
begin
if Item.SubItems.Strings[6] = 'XYZ' then
ImageIndex := 0
else
ImageIndex := 1;
end;
end;
- Bei der ImageList habe ich
ShareImage auf
True gestellt.
- Bei der ListView ist der
ViewStyle (wie man dem Attachment entnehmen kann) auf
vsReport gestellt
Ich hoffe, dass reicht an Informationen und Ihr könnt mir helfen.