source: trunk/UFormSearch.pas

unit UFormSearch;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ComCtrls, Contnrs;

type

  { TFormSearch }

  TFormSearch = class(TForm)
    ButtonSearch: TButton;
    EditText: TEdit;
    ListView1: TListView;
    procedure ButtonSearchClick(Sender: TObject);
    procedure EditTextKeyPress(Sender: TObject; var Key: char);
    procedure ListView1DblClick(Sender: TObject);
    procedure ListView1KeyPress(Sender: TObject; var Key: char);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FormSearch: TFormSearch;

implementation

uses
  UFormMain, UKConfig;

{$R *.lfm}

{ TFormSearch }

procedure TFormSearch.ButtonSearchClick(Sender: TObject);
var
  List: TObjectList;
  NewItem: TListItem;
  I: Integer;
begin
  try
    List := TObjectList.Create;
    List.OwnsObjects := False;
    FormMain.Config.TopNode.Search(EditText.Text, List);
    ListView1.Items.Clear;
    ListView1.Items.BeginUpdate;
    for I := 0 to List.Count - 1 do
    with TMenuNode(List[I]) do begin
      NewItem := ListView1.Items.Add;
      NewItem.Data := List[I];
      NewItem.Caption := ID;
      NewItem.SubItems.Add(Name);
      NewItem.SubItems.Add(GetabsoluteName);
    end;
  finally
    ListView1.Items.EndUpdate;
    List.Free;
  end;
end;

procedure TFormSearch.EditTextKeyPress(Sender: TObject; var Key: char);
begin
  if Key = #13 then ButtonSearch.Click;
end;

procedure TFormSearch.ListView1DblClick(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then
    FormMain.FocusTreeNode(ListView1.Selected.Data);
end;

procedure TFormSearch.ListView1KeyPress(Sender: TObject; var Key: char);
begin
  if (Key = #13) and Assigned(ListView1.Selected) then
    FormMain.FocusTreeNode(ListView1.Selected.Data);
end;

end.