Sophie

Sophie

distrib > Mageia > 7 > i586 > by-pkgid > 6ff261dcf0789896ddf26c61e38f88e3 > files > 341

fpc-doc-3.0.4-6.mga7.i586.rpm

program newt1;


(* a newt basic sample program *)

uses newt;


begin
    newtInit();
    newtCls();

    newtDrawRootText(0, 0,'Some root text');
    newtDrawRootText(0, 1,'Press a key to display a help line   ');

    newtPushHelpLine(nil);

    newtRefresh();

    newtWaitForKey;

    newtPushHelpLine('A help line');

    newtDrawRootText(0, 1,'Press a key to hide the help line    ');
    newtRefresh();
    newtWaitForKey;

    newtPopHelpLine();
    newtRefresh();
    newtDrawRootText(0, 1,'Press a key to exit                  ');
    newtWaitForKey;

    newtFinished();
end.