home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / program / pascal / pdial / intrface / pform.int < prev    next >
Encoding:
Text File  |  1993-07-14  |  2.9 KB  |  78 lines
  1. (***********************************************************************)
  2. (* PForm                                                               *)
  3. (***********************************************************************)
  4. unit pform; 
  5.  
  6. interface
  7.  
  8. uses  tos, gem, tools, memory, strings;
  9.  
  10. type
  11.     POPPtr    =    ^POP;        
  12.     POP        =    record
  13.                         treeptr        :    AESTreePtr;
  14.                         stringind    :    integer;         (* oder -1 *)
  15.                         buttonind    :    integer;
  16.                         circleind    :    integer;            (* oder -1 *)
  17.                         select        :    integer;
  18.                         check_it        :    boolean;
  19.                         next            :    POPPtr;
  20.                     end;    
  21.             
  22.  
  23.     SUBPFORM    =     record 
  24.                         parent        :    AESTreePtr;        (* erster Dialog  *)
  25.                         rsrvd1        :    ARRAY_8;                
  26.                         rsrvd2        :    ARRAY_8;       
  27.                         rsrvd3        :    boolean;            (* no_memory      *)
  28.                         rsrvd4        :    AESTreePtr;        (* prevptr        *)
  29.                         sub_buffer    :    MFDB;    
  30.                         enough_mem    :    boolean;    (* Konnte gepuffert werden? *)
  31.                     end;                            
  32. type
  33.     INSERTFunc    =    function: integer;                                    
  34.                     
  35.     
  36. procedure init_pform(vdihandle: integer; use_ltmf: boolean);    
  37. procedure exit_pform;                                   
  38. procedure pform_size(tree: AESTreePtr; var x, y, w, h: integer);
  39.                 
  40. function  pform_dial(flag, lx, ly, lw, lh, 
  41.                      bx, by, bw, bh: integer): integer;
  42.  
  43. procedure init_subdial(father: AESTreePtr; var sd: SUBPFORM);
  44. procedure exit_subdial(var sd: SUBPFORM);                             
  45. function  pform_do(tree: AESTreePtr; start_field: integer): integer;
  46. function  pform_thru(tree: AESTreePtr; which: integer; var events: EVENT; 
  47.                          var edit_object, idx: integer): integer;
  48. function  pform_center(tree : AESTreePtr; 
  49.                        var cx, cy, cw, ch: integer): integer;
  50. procedure attach_popup(dial: AESTreePtr; popind, strind, btnind, 
  51.                               crclind, slct: integer; check: boolean;
  52.                               var dest: POP; nextpop: POPPtr);                       
  53. function  popup_dialog(dial: AESTreePtr; startob: integer; 
  54.                               firstpop: POPPtr): integer;  
  55. function  pop_up(pmenue: AESTreePtr): integer;        
  56. function  do_dialog(dial: AESTreePtr; startob: integer): integer;
  57. function  do_popdialog(dial: AESTreePtr; startob: integer;
  58.                               firstpop: POPPtr): integer;
  59.  
  60.  
  61. procedure circle_delay(val: longint);
  62. procedure set_insert(ins: INSERTFunc);
  63. function  get_jumpmode: boolean;
  64. procedure set_jumpmode(use_jump: boolean);
  65. procedure set_feedback(feedback: boolean);
  66. procedure set_fastcenter(fast: boolean);
  67.  
  68. procedure handle_button(dial: AESTreePtr; currpop: POPPtr);
  69. procedure handle_circle(dial: AESTreePtr; currpop: POPPtr);
  70. procedure handle_string(dial: AESTreePtr; currpop: POPPtr);
  71.  
  72. procedure handle_jump(tree: AESTreePtr; 
  73.                       mx, my, edit_object, idx: integer);
  74. function  objc_ed(tree: AESTreePtr; obj, inchar: integer;
  75.                   var idx: integer; kind: integer): integer;
  76. function  ini_field(tree: AESTreePtr; start_field: integer): integer; 
  77.  
  78.