Use the OnDraw methods of a TListView in vsReport view style (Views: 704)
|
Problem/Question/Abstract: Does anyone know how to use the OnDraw methods in the TListView - vsReport? I want to draw both the list item and the list item's sub-items, but it seems to me that the OnDraw only gets called on the item. I have tried all the draw methods but cannot realy figure out how to draw in the subitems rect. Answer: You are right, it gets called by the TListItem but since you have the TListItem, you can draw the subitems as well. Example DrawItem: { ... } if Item.Index = 0 then Sender.Canvas.Brush.Color := clRed else Sender.Canvas.Brush.Color := clYellow; Sender.Canvas.FillRect(Rect); for x := 0 to TListView(Sender).Columns.Count - 1 do if x = 0 then Sender.Canvas.TextOut(Rect.Left + 2, Rect.Top, Item.Caption) else Sender.Canvas.TextOut((Rect.Left + 2) + Sender.Column[x].Width, Rect.Top, Item.SubItems.Strings[x - 1]); { ... } |