HeaderControl.parent := Listbox

[protonix]

hey danke habs geschafft aber irgendwie noch nicht so richtig

Delphi-Quellcode:

procedure TmainForm.ArtikelVerkauftAdvancedCustomDrawSubItem(
  Sender: TCustomListView; Item: TListItem; SubItem: Integer;
  State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
  var LRect: TRect;
      tw: integer;
begin
   if (SubItem = 4) then begin
    DefaultDraw := false;
    Sender.Canvas.Font.Style := [fsBold];
    Sender.Canvas.Font.Color := clGreen;
    LRect := Item.DisplayRect(drBounds);
    LRect.Left := LRect.Left + Sender.Column[0].Width + Sender.Column[1].Width + Sender.Column[2].Width +Sender.Column[3].Width;
    LRect.Right := LRect.Left + Sender.Column[4].Width;
    Sender.Canvas.TextRect(LRect, Lrect.Left,LRect.Top,Item.SubItems[3]);
   end else begin
    Sender.Canvas.Font.Style := [];
    DefaultDraw := true;

   end;

end;

Wird grün und fett eigentlich alles ok ABER wenn ich den eintrag makiere wird das wo grün und fett ist nicht makiert so wie als hätte es nen weissen hintergrund...

Weiss jemand wie ich das koriigieren kann ??

hier mal nen bild