home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / program / pascal / pdial / demos / test.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-07-06  |  962 b   |  52 lines
  1. program test;
  2.  
  3. uses gem, geminit, newobs, pform, tools;
  4.  
  5. (*$I test.i*)
  6.  
  7. var
  8.     tree    :    AESTreePtr;
  9.     
  10. function spec_chars: integer;
  11. var
  12.     tree    :    AESTreePtr;
  13.     ret    :    integer;
  14. begin
  15.     rsrc_gaddr(R_TREE, POPASCII, pointer(tree));    
  16.     with tree^[ROOT] do
  17.     begin
  18.         graf_mkstate(ob_x, ob_y, ret, ret);
  19.         dec(ob_x, ob_width div 2);
  20.         ob_x := max(ob_x, 0);
  21.         dec(ob_y, ob_height div 2);
  22.         ob_y := max(ob_y, 0);
  23.     end;
  24.     ret := pop_up(tree);        
  25.     if ret = - 1 then
  26.         spec_chars := S_INSERT
  27.     else    
  28.     begin
  29.         spec_chars := integer(pchar(tree^[ret].ob_spec.free_string)^);
  30.     end;
  31. end;    
  32.     
  33. begin
  34.     if not initgem then
  35.         exit;
  36.     if rsrc_load('test.rsc') = 0 then
  37.     begin
  38.         exitgem;
  39.         exit;
  40.     end;        
  41.     graf_mouse(ARROW, NIL);
  42.     init_pform(vdihandle, FALSE);    
  43.     init_newobs(vdihandle);
  44.     set_insert(spec_chars);
  45.     fix_all(TRUE);
  46.     rsrc_gaddr(R_TREE, FORM1, pointer(tree));
  47.     do_dialog(tree, 0);
  48.     fix_all(FALSE);
  49.     exit_pform;
  50.     rsrc_free;
  51.     exitgem;            
  52. end.