Hi,
erstmal danke für den hinweis. Hab mich eben beim Suchen dämlich angestellt
Ich habs jetzt soweit, dass der Text der eigentlich ins 2. Subitem soll im gesamten Item steht und die ersten zwei Spalten quasi überschrieben werden
Klappt nicht so recht.
das habe ich bisher
Delphi-Quellcode:
procedure TForm1.ListView1DrawItem(Sender: TCustomListView;
Item: TListItem; Rect: TRect; State: TOwnerDrawState);
begin
DrawText(Sender.Canvas.Handle, PChar(Item.SubItems[1]), -1, Rect, DT_LEFT or DT_WORDBREAK);
end;
procedure TForm1.Button1Click(Sender: TObject);
var li : TListItem;
begin
li := self.ListView1.Items.Add;
li.Caption := 'TExt';
li.SubItems.Add('text2');
li.SubItems.Add('Ein etwas längerer text der jetzt auch mehrzeilig angezeigt werden soll wenn es denn klappt');
end;
Anscheinend muss ich irgendwo bestimmen wo gezeichnet werden soll, aber das geht über das hinaus was ich bisher so mit Delphi gemacht habe
Jemand eine Idee?