[Back to ANSI SWAG index]  [Back to Main SWAG index]  [Original]

{
From: nowinski@sciborg.uwaterloo.ca (Andrew Nowinski)

To prroperly understand this article you must use a ANSI text driver to
see clearly what I mean, on the other hand you can use your imagination :-)

The following subroutine is from a program that I am having trouble with.
In big block letters I have formed the word TEST. When I run the following
code the last line of TEST which is :
         '      ÛÛ      ÛÛÛÛÛÛÛÛÜ   ßÛÛÛÛÛÛÛß        ÛÛ';
does not show up in the turbo vision dialog box when running the program.
If you do not yet know what I mean, and you would like to help, please
adapt the following subroutine to a simple turbo vision application.


.
.
.
.
}
Uses
  Objects, App, Views, Dialogs;

var
  J: PDialog;
  Control: PView;
  R: TRect;

begin
  R.Assign(0, 0, 52, 13);
  J := New(PDialog, Init(R, 'Test'));
  with J^ do
  begin
    Options := Options or ofCentered;

    R.Grow(-1, -1);
    Dec(R.B.Y);
    Insert(New(PStaticText, Init(R,
    #13 +
    '  ÞÛÛÛÛÛÛÛÛÝ  ÛÛÛÛÛÛÛÛß   ÜÛÛÛÛÛÛÛÛß   ÛÛÛÛÛÛÛÛÛÛ'#13+
    '      ÛÛ      ÛÛ          ÛÛ               ÛÛ    '#13+
    '      ÛÛ      ÛÛÜÜÜÜÜÜ    ÛÛÜÜÜÜÜÜÜ        ÛÛ    '#13+
    '      ÛÛ      ÛÛßßßßßß            ÛÛ       ÛÛ    '#13+
    '      ÛÛ      ÛÛ                  ÛÛ       ÛÛ    '#13+
    '      ÛÛ      ÛÛÛÛÛÛÛÛÜ   ßÛÛÛÛÛÛÛß        ÛÛ    ')));


    R.Assign(21, 10, 31, 12);

    Insert(New(PButton, Init(R, 'O~K', cmOk, bfDefault)));

  end;

  if ValidView(J) <> nil then
  begin
    Desktop^.ExecView(J);
    Dispose(J, Done);

  end;

end;

begin
  TApplication.Init;
end;

[Back to ANSI SWAG index]  [Back to Main SWAG index]  [Original]