Problemas com list view se quot;coloriquot; uma linha
Ola pessao tudo bem....
Estou enfrentado serios problemas com o componente listview, estava prescizando colorir cada linha de minha listview e consequi utilizando o codigo abaixo.
procedure TFPatP11.ListViewAdvancedCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
var DefaultDraw: Boolean);
begin
if Item.SubItems[15] = ´1´ then
Item.ListView.Canvas.brush.Color := $0083FACA
else if Item.SubItems[15] = ´2´ then
Item.ListView.Canvas.brush.Color := $009BFBF3
else if Item.SubItems[15] = ´3´ then
Item.ListView.Canvas.brush.Color := $005C7CFC
else if Item.SubItems[15] = ´0´ then
Item.ListView.Canvas.Brush.Color := $00FF6464;
end;
Porem recentemente percebi que a medida que o usuario ´navega´ pela list view os recursos do sistema vão sendo consumidos (testei com o medidor de recursos do windows). Alquem tem alguma ideia do que pode estar acontecendo??????????????????????????? :?:
Estou enfrentado serios problemas com o componente listview, estava prescizando colorir cada linha de minha listview e consequi utilizando o codigo abaixo.
procedure TFPatP11.ListViewAdvancedCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
var DefaultDraw: Boolean);
begin
if Item.SubItems[15] = ´1´ then
Item.ListView.Canvas.brush.Color := $0083FACA
else if Item.SubItems[15] = ´2´ then
Item.ListView.Canvas.brush.Color := $009BFBF3
else if Item.SubItems[15] = ´3´ then
Item.ListView.Canvas.brush.Color := $005C7CFC
else if Item.SubItems[15] = ´0´ then
Item.ListView.Canvas.Brush.Color := $00FF6464;
end;
Porem recentemente percebi que a medida que o usuario ´navega´ pela list view os recursos do sistema vão sendo consumidos (testei com o medidor de recursos do windows). Alquem tem alguma ideia do que pode estar acontecendo??????????????????????????? :?:
Leandroa
Curtidas 0