freepascal.compiler/packages/extra/forms/demo/goodies.pp

Program goodies;

{ This demo program uses the routines in the
   goodies section, that help you create easy
   forms in an even easier way.
}

uses xforms,strings;

var
  choice : Longint;
  str1,str2 : string[100];
  s : pchar;

begin
  fl_initialize(@argc, argv, 'FormDemo', nil, 0);

  fl_set_resource(FLOKLabel,'Go');

  if (fl_show_question('Do you want bold font ?',1)<>0) then
     fl_set_goodies_font(FL_BOLD_STYLE,FL_NORMAL_SIZE);

  fl_show_messages('This is a test program for the goodies of the forms library');

  fl_show_alert('Alert', 'Alert form can be used to inform',
               'recoverable errors', 0);

  if (fl_show_question('Do you want to quit?', 0)<>0) then
      halt(0);

  s:=fl_show_input('Give a string:','');
  if s<>nil then strcopy(@str1[1],s);
  fl_show_message('You typed:','',@str1[1]);
  choice := fl_show_choices('Pick a choice',3,'One','Two','Three',2);
  case choice of
    1: fl_show_message('You typed: One','','');
    2: fl_show_message('You typed: Two','','');
    3: fl_show_message('You typed: Three','','');
  else
    begin
    fl_show_message('An error occured!','','');
    end
  end;
  str1:='<Cancel>'#0;
  s:=fl_show_input('Give another string:',@str1[1]);
  if s<>nil then s:=@str1[1];
  fl_show_message('You typed:','',s);
  fl_show_messages('Good Bye');
end.
{
  $Log$
  Revision 1.3  2003-10-27 15:48:13  peter
    * renamed forms unit to xforms to prevent conflict with Forms
      from the LCL

  Revision 1.2  2002/09/07 15:42:57  peter
    * old logs removed and tabs fixed

  Revision 1.1  2002/01/29 17:55:01  peter
    * splitted to base and extra

}