[Lazarus] Pick List as a Value List item

[Bart]

On 12/3/13, Richard Mace <richard.mace at gmail.com> wrote:
> Hi,
> Is it possible to have a Pick List within the ValueList editor or is it
> just strings?

>From my ValEdit test suite:

procedure TForm1.Button6Click(Sender: TObject);
begin
  ValEd.Strings.Clear;
  Valed.Strings.Add('MyYesNoRO=No');

  with ValEd.ItemProps['MyYesNoRO'] do
  begin
    KeyDesc := 'MyYesNo: PickList';
    EditStyle := esPickList;
    ReadOnly := True;
    PickList.Add('Yes');
    PickList.Add('No');
  end;
  ....

Bart