mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 10:59:25 +02:00
40 lines
788 B
ObjectPascal
40 lines
788 B
ObjectPascal
program newt3;
|
|
|
|
uses newt;
|
|
|
|
|
|
var
|
|
|
|
form, labelC, entry, button : newtComponent;
|
|
S: ansiString;
|
|
P: PAnsiChar;
|
|
machine :ansistring;
|
|
begin
|
|
|
|
newtInit();
|
|
newtCls();
|
|
|
|
newtOpenWindow(10, 5, 40, 8, 'Entry and Label Sample');
|
|
|
|
labelC := newtLabel(1, 1, 'Enter a string');
|
|
|
|
p:=addr(machine[1]);
|
|
s:='Sample';
|
|
entry := newtEntry(16,1,PAnsiChar(S),20,@P,NEWT_FLAG_SCROLL OR NEWT_FLAG_RETURNEXIT);
|
|
|
|
|
|
button := newtButton(17, 3, 'Ok');
|
|
form := newtForm(NiL, NiL, 0);
|
|
newtFormAddComponents(form, labelC, entry, button, NiL);
|
|
|
|
newtRunForm(form);
|
|
|
|
newtFinished();
|
|
|
|
writeln('Final string was:'+ strPas(P));
|
|
|
|
(* We cannot destroy the form until after we've used the value
|
|
from the entry widget. *)
|
|
newtFormDestroy(form);
|
|
end.
|