Wie Punkte hinter ListView Eintraegen abschneiden?

[Mackhack]

Ah,

muss man ja schliesslich wissen... Dank Dir!

[mkinzler]

In der Delphi-Hilfe kannst du auch lesen, was sie (Konstante) als Parameter bewirkt

[Mackhack]

Hi ihr,

die Funktion funzt soweit nur macht sie nicht so recht was ich will. Ich habe jetzt nur noch die Caption im ListView und alles andere ist weg. Jedoch habe ich noch 8 SubItems. Der zu lange Text ist eigentlich nur im SubItem[0]. Jedoch hab ich versucht es mit Item.SubItem[0] zu loesen, was nicht funktioniert hat.

Wo steckt mein Denkfehler?

[mkinzler]

Was funktioniert nicht? Hast du beide Vorkommen von Item ersetzt?

[marabu]

Guten Morgen.

Für ein SubItem nimmt man nicht OnCustomDrawItem:

Delphi-Quellcode:

procedure TDemoForm.ListViewCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
var
  r: TRect;
begin
  DefaultDraw := SubItem <> 1; // Lösung für erstes SubItem
  // DefaultDraw := SubItem > Item.SubItems.Count; // allgemeine Lösung
  if not DefaultDraw then
  begin
    r.Top := SubItem;
    r.Left := LVIR_LABEL;
    Sender.Perform(LVM_GETSUBITEMRECT, Item.Index, Integer(@r));
    Sender.Canvas.TextRect(r, r.Left + 2, r.Top + 2, Item.SubItems[Pred(SubItem)]);
  end;
end;

Grüße vom marabu

[Mackhack]

Hi Marabu,

werde das heute abend gleich mal ausprobieren. Hab vielen Dank fuer den Code!

[Mackhack]

Hi,

hab den Code eben mal versuchen wollen aber in welcher Unit sind denn

LVIR_LABEL und LVM_GETSUBITEMRECT drin?

//Edit: Hätte ich auch selbst draufkommen können: Steht in der Unit CommCtrl drin!