Forum: Sonstige Fragen zu Delphi
Delphi
by tofse,
30. Apr 2013
Ah, das funktioniert. Der Benutzer bemerkt keinen Unterschied, und wenn ich das in 3 Jahren wieder anpacken muss, verstehe ich nicht, warum ich es so eingesetzt habe :shock:
Trotzdem Danke, dann muss es so gehen
Christof
Forum: Sonstige Fragen zu Delphi
Delphi
by tofse,
30. Apr 2013
Hallo,
wenn ich Deinen Code verwende
procedure TKabOpTerminManager.ListViewTermineCustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if SubItem = 7 then
begin
Sender.Canvas.Brush.Color:=clRed;
end
else
Forum: Sonstige Fragen zu Delphi
Delphi
by tofse,
30. Apr 2013
Äh ja, das entspricht dem, was ich geschrieben habe. Wenn ich es so verwende, werden alle Zellen ab SubItem>=7 in rot gefärbt, wie im Bildchen zu sehen ist.
Nur wenn ich z.B. Sender.Canvas.Brush.Color:=clGray verwende, dann sind alle Zellen außer der 7. in Grau. Aber es soll nicht in Grau sein, sondern eben TListView(Sender).Color
Klar ?????
Forum: Sonstige Fragen zu Delphi
Delphi
by tofse,
30. Apr 2013
Hallo,
ich möchte in einer TListView eine Zelle färben und verwende diesen Code
procedure TKabOpTerminManager.ListViewTermineCustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if SubItem = 7 then
begin
Sender.Canvas.Brush.Color:=clRed;
end