Danke zunächst mal Khabarakh!
Genau das habe ich ja gemacht, weiter oben gepostet, schreibe hier nochmal:
Delphi-Quellcode:
procedure TMainForm.TntComboBox7DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
with tntcombobox7, tntcombobox7.Canvas do
begin
FillRect(rect);
if Items[index]='_line' then
begin
if odSelected in State then Pen.Color := clWindow
else Pen.Color := clBlack;
PenPos := Point(Rect.Left, Rect.Top+(ItemHeight div 2));
LineTo(Rect.Right, Rect.Top+(ItemHeight div 2));
end else
TextOut(rect.Left+2,rect.Top,Items[index]);
end;
end;
Es ist zwar eine TnTCombobox, aber das sollte egal sein, habe bei ondrawitem eine Methode eingetragen, die ich gefunden hatte, es zeichnet aber nicht die Linien zwischen den Zeilen...