Subject | Re: [IBO] Search criteria |
---|---|
Author | Andreas Pohl |
Post date | 2002-09-27T08:26:45Z |
>It looks better then to call SearchPanel because thereOften width of columns in grid are to small and it shows only a part of
>You can't get any LookupCombos if You want to search by values from
>the existing list of values.
search conditions. You can "enhance" TIB_SearchPanel to show lookup buttons.
I use same setup for grid and searchpanel. Before I encapsulated it into
it's own component I used to use this style:
with IB_SearchPanel1 do
for i:=0 to ControlCount-1 do begin
if (Controls[i] is TIB_Date) then (Controls[i] as
TIB_Date).OnKeyPress:=FormKeyPress;
if (Controls[i] is TIB_Edit) then
with (Controls[i] as TIB_Edit) do begin
OnKeyPress:=FormKeyPress;
if IsWordPresent(uppercase(DataField),
uppercase(IB_Grid1.EditLinks.CommaText), [ ',']) then begin
AlwaysShowButton:=True;
ButtonStyle:=ebsEllipsis;
OnButtonClick:=ButtonClick;
end;
end;
end;
BTW, IsWordPresent is a function of RxLib;
HTH, too.
Mit freundlichem Gruss & Best Regards
Andreas Pohl
ibp consult