usearchconditon.pas

一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件

unit uSearchConditon;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TB2Dock, TB2ToolWindow, TBX, TBXDkPanels, ComCtrls,StdCtrls,uIHintInf,
  Grids, ValEdit, ExtCtrls, RzPanel, RzSplit, Menus, TB2Item;

type
  TContionfrm = class(TForm)
    TBXToolWindow1: TTBXToolWindow;
    TBXAlignmentPanel1: TTBXAlignmentPanel;
    TBXButton1: TTBXButton;
    TBXButton2: TTBXButton;
    RzSizePanel1: TRzSizePanel;
    ListView1: TListView;
    VL: TValueListEditor;
    Panel1: TPanel;
    Label1: TLabel;
    Image1: TImage;
    Label2: TLabel;
    TBXPopupMenu1: TTBXPopupMenu;
    TBXItem1: TTBXItem;
    TBXItem2: TTBXItem;
    procedure TBXButton1Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBXButton2Click(Sender: TObject);
    procedure TBXItem2Click(Sender: TObject);
    procedure TBXItem1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Search;
  end;

implementation

uses uListBoxfrm;

{$R *.dfm}

procedure TContionfrm.TBXButton1Click(Sender: TObject);
const
  reslutcount='(共找到%d个)';
begin
  ListView1.Clear;
  Search;
  Label2.Caption:=format(reslutcount,[ListView1.items.count]);
end;

procedure TContionfrm.ListView1DblClick(Sender: TObject);
begin
  if ListView1.Selected<>nil then
    TListBoxfrm(Owner).ExpMgr.ExecWhenDBClick(ListView1.Selected.Data);
end;

procedure TContionfrm.FormCreate(Sender: TObject);
begin
  SetWindowPos(handle,HWND_TOPMOST,0,0,0,0,swp_NoSize);
  ListView1.SmallImages:=TListBoxfrm(Owner).ListWindow.SmallImages;
  caption:='查找-['+TListBoxfrm(Owner).Caption+']';
end;

procedure TContionfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure TContionfrm.TBXButton2Click(Sender: TObject);
begin
  close;
end;

procedure TContionfrm.TBXItem2Click(Sender: TObject);
begin
  if ListView1.Selected<>nil then
    TListBoxfrm(Owner).ExpMgr.ExecWhenDBClick(ListView1.Selected.Data);
end;

procedure TContionfrm.TBXItem1Click(Sender: TObject);
var
  frm:TListBoxfrm;
begin
  frm:=TListBoxfrm(Owner);
  if ListView1.Selected<>nil then
    if frm.ExpMgr.ITheOprList.Createfrm(ListView1.Selected.Data,cdEdit,frm.ExpMgr.ThefrmType) then
    begin
      frm.ExpMgr.RefreshList;
    end
end;

procedure TContionfrm.Search;
var
  i,j:integer;
  frm:TListBoxfrm;
  flag:Boolean;
  value:string;
  Item:TListItem;
  ListCaption:string;
begin
  frm:=TListBoxfrm(Owner);
  for i:=0 to frm.ListWindow.Items.Count-1 do
  begin
    flag:=true;
    for j:=0 to frm.ListWindow.Columns.Count-1 do
    begin
      value:=AnsiUpperCase(vl.Values[frm.ListWindow.Columns[j].caption]);
      if trim(value)='' then
        continue;
      if j=0 then
        ListCaption:=AnsiUpperCase(frm.ListWindow.Items[i].Caption)
      else
        ListCaption:=AnsiUpperCase(frm.ListWindow.Items[i].SubItems[j-1]);

      flag:=(pos(value,ListCaption)>0) and flag;
    end;
    if flag then
    begin
      Item:=ListView1.Items.Add;
      Item.Assign(frm.ListWindow.Items[i]);
    end;
  end;
end;

end.