doc/html-old/gui1.html

   1 <HTML>
   2 <HEAD></HEAD>
   3 <BODY>
   4 <B>GUI procedures and functions </B> <HR>
   5 <UL>
   6 <LI>unit <B>GUI_Clear</B>:procedure;<BR>
   7 Clears the screen.
   8 <BR>
   9 <LI>unit <B>GUI_ClearArea</B>:procedure(x1,y1,w,h:integer);<BR>
  10 Clears a rectangular area.<BR>
  11 (x1,y1) - left corner of the rectangle<BR>
  12 w - rect width<BR>
  13 h - rect height<BR>
  14 <LI>unit <B>GUI_Point</B>:procedure(x,y,col:integer);<BR>
  15 Draws a point at (x,y) with the color col.<BR>
  16 <LI>unit <B>GUI_Move</B>:procedure(x,y:integer);<BR>
  17 Moves the graphic cursor to the position (x,y).<BR>
  18 <LI>unit <B>GUI_Line</B>:procedure(x1,y1,x2,y2,col:integer);
  19 Draws a line from (x1,y1) to (x2,y2) with the color col.<BR>
  20 <LI>unit <B>GUI_LineTo</B>:procedure(x,y,col:integer);
  21 Draws a line from actual position of the graphic cursor to the point
  22 (x,y) with the color col.<BR>
  23 <LI>unit <B>GUI_Rect</B>:procedure(x1,y1,x2,y2,fcol,icol:integer);<BR>
  24 Draws a rectangle.<BR>
  25 (x1,y1) - left corner<BR>
  26 (x2,y2) - right corner<BR>
  27 fcol - frame color<BR>
  28 icol - interior color<BR>
  29 <LI>unit <B>GUI_Ellipse</B>:procedure(x,y,a,b,sa,ea,fcol,icol:integer);<BR>
  30 Draws an ellipse.<BR>
  31 (x,y) - center point<BR>
  32 a - horizontal radius<BR>
  33 b - vertical radius<BR>
  34 sa - start angle (in degrees)<BR>
  35 ea - end angle<BR>
  36 fcol - frame color<BR>
  37 icol - interior color<BR>
  38 <LI>unit <B>GUI_WriteInt</B>:procedure(x,y,i,fcol,bcol:integer);<BR>
  39 Writes integer <I>i</I> at position (x,y).<BR>
  40 fcol - foreground color<BR>
  41 bcol - background color<BR>
  42 <LI>unit <B>GUI_WriteChar</B>:procedure(x,y:integer;c:char;fcol,bcol:integer);<BR>
  43 Writes character <I>c</I> at position (x,y).<BR>
  44 fcol - foreground color<BR>
  45 bcol - background color<BR>
  46 <LI>unit <B>GUI_WriteReal</B>:procedure(x,y:integer;r:real;fcol,bcol:integer);<BR>
  47 Writes real <I>r</I> at position (x,y).<BR>
  48 fcol - foreground color<BR>
  49 bcol - background color<BR>
  50 <LI>unit <B>GUI_WriteText</B>:procedure(x,y:integer;t:array_of char;fcol,bcol:integer);<BR>
  51 Writes text <I>t</I> at position (x,y).<BR>
  52 fcol - foreground color<BR>
  53 bcol - background color<BR>
  54 <LI>unit <B>GUI_ReadText</B>:function(x,y,fcol,bcol:integer):array_of char;<BR>
  55 Reads text at position (x,y).<BR>
  56 fcol - foreground color<BR>
  57 bcol - background color<BR>
  58 <LI>unit <B>GUI_ReadInt</B>:function(x,y,fcol,bcol:integer):integer;<BR>
  59 Reads integer at position (x,y).<BR>
  60 fcol - foreground color<BR>
  61 bcol - background color<BR>
  62 <LI>unit <B>GUI_ReadChar</B>:function(x,y,fcol,bcol:integer):char;<BR>
  63 Reads character at position (x,y).<BR>
  64 fcol - foreground color<BR>
  65 bcol - background color<BR>
  66 <LI>unit <B>GUI_ReadReal</B>:function(x,y,fcol,bcol:integer):real;<BR>
  67 Reads real at position (x,y).<BR>
  68 fcol - foreground color<BR>
  69 bcol - background color<BR>
  70 <LI>unit <B>GUI_PutImgFile</B>:procedure(x,y:integer;fname:string);<BR>
  71 Loads the image from file <I>fname</I> (it could be .BMP, .GIF, .XPM file)
  72 and puts it at position (x,y).<BR>
  73 <LI>unit <B>GUI_GetImg</B>:function(x,y,w,h:integer):array_of integer;<BR>
  74 Gets the contents of the screen from position (x,y) and stores them in the array.<BR>
  75 w - width of the image<BR>
  76 h - height of the image<BR>
  77 <LI>unit <B>GUI_PutImg</B>:procedure(x,y:integer;map:array_of integer);<BR>
  78 Puts an image from <I>map</I> at the position (x,y).<BR>
  79 <LI>unit <B>GUI_KillImg</B>:procedure(map:array_of integer);<BR>
  80 Destroys an image from <I>map</I>. (This is a proper procedure to delete
  81 a map stored by GUI_GetImg!)<BR>
  82 <LI>unit <B>GUI_MousePressed</B>:MOUSE procedure(INOUT x,y,btn:integer);<BR>
  83 Checks if the mouse button was pressed.<BR>
  84 (x,y) - mouse pointer position after press<BR>
  85 btn - number of the mouse button: 0 - none, 1 - left, 2 - middle, 3 - right<BR>
  86 <LI>unit <B>GUI_KeyPressed</B>:function:integer;<BR>
  87 Checks if the key was pressed. Returns the same value as the <B> inkey </B>
  88 procedure.
  89 <HR>
  90 <A HREF="index.html"> Return to Index </A>
  91 </BODY>
  92 </HTML>