Zitat von
pauletta82:
[...] heißt also dass man in der ersten spalte auch per klick text einfügen kann, während die beiden letzten spalten zur reinen anzeige gedacht sind [...]
Das hört sich nun aber sehr nach TListView an ^^ ... hier mal ein Denkanstoß:
Delphi-Quellcode:
procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
var DefaultDraw: Boolean);
var
R: TRect;
begin
With (Sender as TListView).Canvas do
begin
R := Item.DisplayRect(drBounds);
MoveTo(R.Left, R.Bottom - 1);
LineTo(R.Right, R.Bottom - 1);
end;
end;