home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / telecom / 16 / pascal / gemsub2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-05-13  |  2.1 KB  |  42 lines
  1. {The following two procedures exist in the link file but do not get declared
  2.   in GEMSUBS.PAS.  They can be included in GEMSUBS.PAS if you want to use
  3.   them.  All this information was obtained through some calls to OSS's help
  4.   line when I couldn't get things to work as stated in the manual.  I have
  5.   tried all of this stuff, but make no promises.  You should also make sure
  6.   that your version of Pascal is not 1.01, or else use then FIXPAS program
  7.   to convert it to 1.02.  (Note that FIXPAS, while it does make your system
  8.   compatable with 1.02, does not change the initial message from 1.01 to 1.02.}
  9.  
  10. {Obj_Draw allows you to update text fields in a dialog box without redrawing
  11.   the entire box.  You can even update editable fields, which the manual says
  12.   you can not do.  Note that the manual says you can update fixed text fields
  13.   by using another Set_DText, but that does not really work.  To do that, first
  14.   re-call Set_DText (or even Set_DEdit) to change the text field in memory.
  15.   Next call Obj_Draw with the following parameters:  box is the dialog pointer
  16.   to the dialog box you got back from New_Dialog.  Start is the index into
  17.   the tree for the field you are updating (tree_index is pretty much the same
  18.   as integer).  Depth should be 0, it states how far into the tree index you
  19.   want this draw to do, and 0 will re-draw only the field indexed by start.
  20.   x,y,w,h are the clip box size.  If you don't know these, either use the
  21.   maximum for your resolution (not elegant) or call Obj_Size with the boxes
  22.   dialog pointer, 0 (for start in this procedure, I forget what it is for),
  23.   and four VARIABLES (not constants as the clipping parameters will be passed
  24.   back in these) which you will then use in Obj_Draw.}
  25.  
  26. procedure obj_draw(box:dialog_ptr;start,depth:tree_index;x,y,w,h:integer);
  27.   external;
  28.  
  29. procedure obj_size(box:dialog_ptr;start:tree_index;var x,y,w,h:integer);
  30.   external;
  31.  
  32. {The following were missing from the GEMSUBS.PAS file and should be included.
  33.   Documentation is in the manual.}
  34.  
  35. procedure io_check(flag:boolean);
  36.   external;
  37.  
  38. function io_result:integer;
  39.   external;
  40.  
  41.  
  42. ə