home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / ORAMUJ.IPS < prev    next >
Text File  |  1998-03-25  |  558b  |  31 lines
  1. VAR
  2.    x : integer
  3.    y : integer
  4.    s : string
  5. ENDVAR
  6.  
  7. PROCEDURE main
  8.    ImageClear; ImageShow;
  9.    ImageInit(300,150)
  10.    ImageFontSize(20)
  11.    ImagePencolor(clblue)
  12.    ImagePenWidth(3)
  13.  
  14.    s:='orßmovan² text'
  15.    x:=TextWidth(s)
  16.    y:=TextHeight(s)
  17.  
  18.    rectangle(47,47,53+x,53+y)
  19.    textout(50,50,s)
  20.  
  21.    MESSAGEBOX('Text byl zobrazen,'+
  22.               ' te∩ jeÜt∞ zv²raznφme rohy',
  23.               'zprßva', 0)
  24.  
  25.    ImagePencolor(clred)
  26.    point(47,47,10)
  27.    point(47+x+5,47,10)
  28.    point(47,47+y+5,10)
  29.    point(53+x,53+y,10)
  30. ENDPROC
  31.