Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/TJTOT10B.ZIP/DEMO.EXE/arc/DEMMS3.PAS

Pascal/Delphi Source File | 1991-02-11 | 567 b | 27 lines

program DemoMessageThree;
{demms3 - using SetOption to change button text}

Uses DOS, CRT,
     totFAST, totMSG;

Var
   MsgWin : MessageOBJ;

begin
   Screen.Clear(white,'░'); {paint the screen}
   with MsgWin do
   begin
      Init(1,' Message ');
      AddLine('');
      AddLine('The message unit provides a');
      AddLine('very easy way of displaying');
      AddLine('pop-up messages in a move-');
      AddLine('able window.');
      AddLine('');
      SetOption(' A very ~l~ong button ',76);
      Show;
      Done;
   end;
end.