PROGRAM Paramscreen_Simple;
{ ***************************************************************************
  ** Descr. : This script shows how to use the parameterscreen object.
  **          More advanced techniques can be found in the
  **          paramscreen_adv1.p2s and paramscreen_adv2.p2s !
  ***************************************************************************
  ** 03/10/01 1.001.00 Initial Creation, sm@orcl-toolbox.com
  ***************************************************************************}

VAR
  ps : TParamScreen;
  pb : TParamBoard;

//Begin Main
BEGIN

    //Create a Parameterscreen object and default to not use old values from the
    //previous run!
    ps := TParamScreen.create;

    //Add a board
    pb := ps.AddBoard('Very simple!',picOptions);

    //add a parameter to the board
    pb.addparam(parString,'MYSTRING','Testinput','','');


    //Show the parameterscreen and check for the result to see if user canceled or not
    if ps.ShowParamScreen('this is my first parameterscreen!') then
    begin

      //The user pressed OK
      logadd('you entered : '+ps.paramvalue('MYSTRING'));

    end else
    begin
      //The user pressed CANCEL
      logadd('Parameterscreen canceled!');

    end;

    //Just to be correct we have to free the Parameterscreen object.
    //This is not absolutly necessary as all objects anyways get freed
    //internally when the script finishes.
    ps.free;

END.
//End Main