Hallo zusammen!
Ich würde gerne in einer TListView im ViewStyle "vsReport" bestimmte Einträge Fett oder Durchgestrichen zeichnen.
Folgender Quelltext Ausschnitt:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| procedure Tuebersicht.ListeCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Bedingung=true
then begin;
ListView1.Canvas.Brush.Color := clMoneyGreen;
ListView1.canvas.Font.Color := clred;
ListView1.canvas.Font.Style := [fsbold]
end
end; |
Die Hintergrund-, sowie Schriftfarbe wird bei erfüllter Bedingung geändert. Der Text wird aber nicht Fett geschrieben.
Nehme ich statt
Delphi-Quelltext
1:
| ListView1.canvas.Font.Style := [fsbold] |
Delphi-Quelltext
1:
| ListView1.Font.Style := [fsbold] |
wird die Ganze Liste Fett geschrieben.
Bei diesem Versuch
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure Tuebersicht.ListeCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Bedingung=true
then begin;
ListView1.Font.Style := [fsbold]
end
else begin;
ListView1.Font.Style := []
end
end; |
flackert das Bild ständig und das Programm hängt.
"ParentFont" habe ich schon auf False gesetzt.
Hat noch jemand nen Tip für mich ?
Gruß
Torsten
z.B.
