mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-22 12:38:20 +02:00
28 lines
404 B
ObjectPascal
28 lines
404 B
ObjectPascal
program newt2;
|
|
|
|
uses newt;
|
|
|
|
|
|
|
|
var
|
|
|
|
form, b1, b2 : newtComponent;
|
|
|
|
begin
|
|
|
|
newtInit();
|
|
newtCls();
|
|
|
|
newtOpenWindow(10, 5, 40, 6, 'Button Sample');
|
|
|
|
b1 := newtButton(10, 1, 'Ok');
|
|
b2 := newtCompactButton(22, 2, 'Cancel');
|
|
form := newtForm(Nil, Nil, 0);
|
|
newtFormAddComponents(form, b1, b2, Nil);
|
|
|
|
newtRunForm(form);
|
|
|
|
newtFormDestroy(form);
|
|
newtFinished();
|
|
end.
|