Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.2.0 / packages / newt / examples / newt2.pas
Size: Mime:
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.