[DUG]: NBG String property editor

[Peter G Jones]

I have the following property editor that doesn't want to do anything.  It's 
supposed to populate a list that will display as a drop down in the object 
inspector but I can't figure out whats wrong.  Can anyone else see it?


  TPGJFieldNameProperty = class(TStringProperty)
  public
    function GetAttributes: TPropertyAttributes; override;
    procedure GetValues(Proc: TGetStrProc); override;
    function GetValue : String; override;
    procedure SetValue(const Value : String); override;
  end;

function TPGJFieldNameProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paValueList];
end;

procedure TPGJFieldNameProperty.GetValues(Proc: TGetStrProc);
var
  i : Integer;
begin
  Proc('Field 1');
  Proc('Field 2');
end;

procedure Register;
begin
  RegisterComponents('PGJ', [TPGJSimpleReport]);
  RegisterPropertyEditor(TypeInfo(string),
    TPGJSimpleReport, 'FieldName', TPGJFieldNameProperty);
end;


______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz