Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
18. Apr 2006
Guten Morgen.
Für ein SubItem nimmt man nicht OnCustomDrawItem:
procedure TDemoForm.ListViewCustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
var
r: TRect;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
17. Apr 2006
Eigentlich finde ich die Ellipsis am Ende des abgeschnittenen Textes korrekt - aber vielleicht hilft dir das hier weiter:
procedure TDemoForm.ListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
r: TRect;
begin
r := Item.DisplayRect(drLabel);
Sender.Canvas.TextRect(r, r.Left + 2, r.Top + 2, Item.Caption);