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