Gauges in Listview: Problem beim Scrollen und Navigieren

[Andreas H.]

Hallo,

habs selber rausgefunden!

Da fehlt noch das OnCustomDrawSubItem der ListView:

Delphi-Quellcode:

var
  g:TGauge;
  r:TRect;
begin
  case SubItem of
  5:
    begin
      DefaultDraw:=false;
      g:=TGauge(Item.Data);
      r:=g.BoundsRect;
      r.Top:=Item.DisplayRect(drBounds).Top;
      r.Bottom:=Item.DisplayRect(drBounds).Bottom;
      g.BoundsRect:=r;
    end;
  end;

Hier wird die vertikale Position der Gauges angepasst.

Gruß Andreas