PROGRAM PropertyList;
{-- ***************************************************************************
 -- ** Descr. : This script shows how to extract a list of properties from
 -- **          the Open FormsAPI
 -- ***************************************************************************
 -- ** 06/10/01 1.001.00 Initial Creation, sm@orcl-toolbox.com
 -- ***************************************************************************}

//Global Variable Declaration
VAR
  s     : string;
  i,j    : integer;
  k : integer;

//Begin Main
BEGIN

  //loop through all properties
  for i := D2FP_MIN to D2FP_MAX do
  begin

    // get the name of the property
    s := Property_GetConstName(i);

    // get the number of to propertyname (which should be same as the loop variable i!)
    k := Property_GetConstValue(s);

    //output our result
    logadd(s+' = ' +inttostr(k));


    //now loop through subproperties and try to find valuenames for the property
    try
      for j := 0 to 100 do
       logadd('  '+inttostr(j)+' = '+Property_GetValueName(i,j));
    except
      //if no more subproperties are found it will result in an exception, we
      //do nothing here, just let the program proceed to the next property!
    end;

  end;

END.
//End Main