home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progpas / tegl6b.arj / INTROPAK.EXE / lha / TEGLPICK.DOC < prev    next >
Text File  |  1991-08-16  |  1KB  |  41 lines
  1. {-----------------------------------------------------------------------------}
  2. {               TEGL Windows ToolKit II                  }
  3. {          Copyright (C) 1990, 1991 TEGL Systems Corporation              }
  4. {                All Rights Reserved.                  }
  5. {-----------------------------------------------------------------------------}
  6. {$I switches.inc}
  7. {$V-}
  8.  
  9. Unit TEGLPick;
  10.  
  11. INTERFACE
  12.  
  13. USES
  14.      errorlog,
  15.      teglfont,
  16.      FastGrph,            {fastrect}
  17.      virtmem,
  18.      teglmenu,
  19.      teglintr,
  20.      teglmain,
  21.      teglspec,
  22.      TEGLUnit;
  23.  
  24. {*---------------------------------------------------------------------------*}
  25.  
  26. Function  CreatePickList(Fonttype:Pointer):OptionMPtr;
  27. Procedure DefinePickItem(OM:OptionMptr; EntryStr:String; EntryCallProc:callproc; var pickitem:string);
  28. procedure DefinePicklistArea(fs:imagestkptr; x,y,oeselect,displaynum:word; om:optionmptr);
  29.  
  30. Procedure detachpicklist(OM:OptionMPtr);
  31. procedure attachpicklist(om:optionmptr; oeselect:word);
  32.  
  33. procedure InsertPickItem(OM:OptionMptr; OENum:word; EntryStr:String; EntryCallProc:callproc; var pickitem:string);
  34. procedure DeletePickItem(OM:OptionMptr; OENum:word);
  35. procedure ClearPickList(OM:OptionMptr);
  36. procedure SetPickListWidth(om: Optionmptr; maxwidth:word);
  37. procedure SetPickListMargin(om:optionmptr; marginw:word);
  38.  
  39. {*---------------------------------------------------------------------------*}
  40. implementation
  41.