🚀 go-pugleaf

On Thu, 10 Jul 1997 Marc Scheuner wrote:

> I'm trying to get my own component to display the list of valid
> database names in a property. 
> 
> It works nicely in the TQuery object, so I assume there's a ready-made
> property editor around for it, but I haven't been able to track it
> down. 

Well, I do not know about "a ready-made property editor around for it",
but it looks NABFD to write your own. Just derive your PE form
TPropertyEditor, include paValueList in the attributes, and override
GetValues. Something like this:

procedure TDBNamePropertyEditor.GetValues(Proc: TGetStrProc);
var
 L: TStringList;
 i: integer;
begin
  Session.GetAliasNames(L);
  for i := 0 to L.Count - 1 do
    Proc(L.Strings[i]);
end;

HTH,
--
Eugene I Levin
Bielefeld, Germany

I'm sorry for coding my Email in the header.
Here is the right one:
L e v i n @ l h . b i c o s . d e