ListView + CustomDrawSubItems

[Captnemo]

Hi Leute,

vielleicht könnt ihr mir helfen.
Ich hab ein ListView in dem Ich eine Spalte selbst zeichne. Is auch kein Prob. Aber alle Spalte die meiner selbstgezeichneten folgen, werden mit fettem Text ausgestattet, obwohl ich die nicht mehr anfasse.
Hier mal mein Code:

Delphi-Quellcode:

procedure Tfrm_Main.ListView2CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
var
 r, r2: TRect;
 i, p: Integer;
 OldBkMode:Integer;
begin
  if subitem<>2 then begin
    DefaultDraw:=True;
    exit;
  end;
  DefaultDraw:=False;
  r:=item.DisplayRect(drBounds);
  for i:=0 to SubItem -1 do
   r.left:=r.left+ListView2.Columns[i].Width;
  r.right:=r.left+ListView2.Columns[SubItem].Width;
  //ShowMessage(Inttostr(SubItem)+' '+inttostr(ListView2.Columns[SubItem].Width));
  //r:=rect(r.left+1, r.top+1, r.right-1, r.bottom-1);
  ListView2.Canvas.Brush.color:=clGreen;
  listView2.canvas.FrameRect(r);
  r2:=r;
  r2.right:=r2.left+Trunc(ListView2.Columns[SubItem].Width*(strtoint(Item.subItems[2])/strtoint(Item.subItems[0])));
  r2:=rect(r2.left+1, r2.top+1, r2.right-1, r2.bottom-1);
  with ListView2.Canvas do begin
   brush.color:=clRed;
   if Trunc((strtoint(Item.subItems[2])/strtoint(Item.subItems[0]))*100) < 100 then
    brush.Color:=$007269D3;
   if Trunc((strtoint(Item.subItems[2])/strtoint(Item.subItems[0]))*100) < warnung then begin
    brush.Color:=clBlue;
    if gewarnt.IndexOf(Item.Caption)=-1 then
     gewarnt.Add(Item.Caption);
   end;
   if Trunc((strtoint(Item.subItems[2])/strtoint(Item.subItems[0]))*100) < 30 then
    brush.Color:=clLime;
   fillrect(r2);
   OldBkMode := SetBkMode(Handle, TRANSPARENT);
   TextOut(r.Left+Trunc((r.Right-r.Left-TextWidth(inttostr(Trunc((strtoint(Item.subItems[2])/strtoint(Item.subItems[0]))*100))+' %'))/2),r.Top,inttostr(Trunc((strtoint(Item.subItems[2])/strtoint(Item.subItems[0]))*100))+' %');
   SetBkMode(Handle, OldBkMode);
   Brush.color:=ListView2.color;
  end;
end;

Es wird im SubItem[1] ein Prozentanzeige gezeichnet. Probiert das mal aus. Habt ihr das gleiche? Wenn ja, warum?