home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / SysProg / Intuitextdemo.p < prev    next >
Encoding:
Text File  |  1994-07-23  |  956 b   |  29 lines
  1. { MaxonPASCAL3-Anpassung / Test:  Falk Zühlsdorff (PackMAN) 1994 }
  2.  
  3. PROGRAM IntuiTextDemo;
  4. USES INTUITION;
  5. VAR
  6.  Win      : ^Window;
  7.  t1,t2,t3 : IntuiText;
  8. BEGIN
  9.  Win:=Open_Window(0,0,640,200,1,0,$1007,'Textausgabe',Nil,100,100,640,200);
  10.     { wie fast schon gewohnt ein Fenster öffnen }
  11.  t1:=IntuiText(1,0,1,0,0,Nil,'Dies ist der erste Text.',Nil);
  12.     { Das Record "t1" wird hier initialisiert. Falls Sie sich über
  13.       die Syntax wundern, lesen Sie bitte im Kapitel "Literale für
  14.       Arrays und Records" nach. }
  15.  PrintIText(Win^.RPort,   { Zeiger auf den Rastport unseres Windows }
  16.              ^t1,          { Zeiger auf t1 }
  17.              10,20);       { Position }
  18.  
  19.  t2:=IntuiText(3,0,1,0, 0,Nil,'Zeile 2',^t3);
  20.  t3:=IntuiText(3,0,4,0,10,Nil,'Zeile 3',Nil);
  21.  
  22.  PrintIText(Win^.RPort, ^t2, 10, 40); { "t2" enthält einen Zeiger auf
  23.     "t3", so daß hier beide Texte ausgegeben werden. }
  24.  
  25.  Delay(100);
  26.  Close_Window(Win);
  27.  CloseLib(Intuitionbase);
  28. END.
  29.