mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-21 16:16:08 +02:00
63 lines
1.6 KiB
ObjectPascal
63 lines
1.6 KiB
ObjectPascal
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
|
|
|
|
}
|