Pintar fila de Listview

[LuKa$]

Hola,gracias tu ejemplo me ayudado pinta la fila ingresado texto en Edit1 pero cuando ingreso otro texto la fila que estaba pintada pierde el color.lo que necesito es a medida que voy ingresando (va comparando con la fila con la caja de texto) quede pintada la filas encontradas.como podria hacer esa parte.gracias.


imagen gif:
gifyu.com/images/GIF78a8c.gif

Código Delphi [-]
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_return then
    ListView1.Repaint;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
  col: tlistcolumn;
  Item: TListItem;
begin
  ListView1.ViewStyle := TViewStyle.vsReport;
  for i := 1 to 2 do
  begin
    col := ListView1.Columns.Add;
    col.Caption := 'column' + i.ToString;
    col.Width := 150;
  end;
  for i := 1 to 10 do
  begin
    Item := ListView1.items.Add;
    Item.Caption := 'n' + i.ToString;
    Item.SubItems.Add('item' + i.ToString);
  end;
end;

procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
begin

  if Edit1.Text = Item.SubItems[0] then
    Sender.Canvas.Brush.Color := clred;
end;

[[AgustinOrtu]]

Tendrias que ir almacenando en alguna otra estructura las filas que fuiste encontrando. En el evento del pintado deberias pintar todas las filas que esten dentro de esa estructura

En pseudocodigo:

Código Delphi [-]
procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
begin
  if ItemEnEstructuraAdicional(Item) then
    PintarItemConUnColor;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    AgregarItemEnEstructuraAdicional(Edit1.Text);
    ListView1.Repaint;
  end;
end;

Como estructura adicional podrias usar una lista, un diccionario, un arbol binario.. el que mas comodo te resulte. La idea es la misma, en esa estructura adicional tenes que poder asociar un elemento del TListView (por ejemplo, el Indice) con el texto que vas ingresando en el Edit

[LuKa$]

gracias,implementaré como lo mencionas.