Wo bekomme ich Rect bei OnCustomDrawSubItem von TListView?

[Popov]

Zitat von marabu:

Statt Prosa eine kleine Gehhilfe im Anhang.

Ich versuche noch das Besondere an deinem Code zu finden, denn viel anders habe ich nicht programmiert. Auch ich habe nur mit Wasser gekocht, bis auf, daß ich eine Grafik zeichnen will. Ich prüfe dein Code noch etwas genauer, aber ich sehe nicht was ich in Gegensatz falsch gemacht habe.

Edit:

Füg mal deinem Code diese Zeilen bei:

Delphi-Quellcode:

procedure TDemoForm.ListViewCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
var
  R: TRect;
begin
  with Sender.Canvas do
  begin
    Font.Style := Font.Style - [fsBold];
    Brush.Color := clWindow;
    Font.Color := clBlack;
    case SubItem of
      1: Font.Style := Font.Style + [fsBold];
      2: Brush.Color := clYellow;
      3: Font.Color := clRed;
    end;

    if SubItem = 4 then
    begin //uses CommCtrl
      CommCtrl.ListView_GetSubItemRect(Sender.Handle, Item.Index, SubItem, LVIR_BOUNDS, @R);

      with R do Rectangle(Left, Top, Left + 100, Bottom);
    end;
  end
end;