Sophie

Sophie

distrib > Mageia > 7 > armv7hl > media > core-release > by-pkgid > 9825acea20b8c1730a908ceb6b6baa6d > files > 340

fpc-doc-3.0.4-6.mga7.armv7hl.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.