Sage-ST

Sage-ST ä
Objexit
Documentation

Close	DefineIOProc	Edit	Execute
GetExtraData	GetLastError	GetLibraryName	HistoricalLink
IsDone	IsOpen	LargeBitmapId	LinkOccurred
ObjectClassDes	ObjectClassName	ObjectComponentName	Open
RegisterClass	SetExtraData	SetLinkInfo	SmallBitmapId
StoreDefault	ValidObject


  procedure Close
             (var   dataH : pointer); stdcall;

  exports Close name 'ObjExit_Close';


  procedure Edit
             (const dataH : pointer); stdcall;

  exports Edit name 'ObjExit_Edit';


  procedure DefineIOProc
             (const IPROC : ObjDef.IOPROCTYPE); stdcall;

  exports DefineIOProc name 'ObjExit_DefineIOProc';


  procedure Execute
             (var   dataH       : pointer;
              const ManagerProc : ObjDef.GeneralProc); stdcall;

  exports Execute name 'ObjExit_Execute';


  procedure GetExtraData
             (const dataH     : pointer;
              var   extraData : pointer); stdcall;

  exports GetExtraData name 'ObjExit_GetExtraData';


  procedure GetLastError
             (const dataH : pointer;
              var   Error : integer;
              var   Des   : array of char); stdcall;

  exports GetLastError name 'ObjExit_GetLastError';


  procedure GetLibraryName
             (var   libraryName : array of char); stdcall;

  exports GetLibraryName name 'ObjExit_GetLibraryName';


  procedure HistoricalLink
             (const dataH        : pointer;
              var   Link         : integer;
              var   exitType     : integer;
              var   TheInterface : integer;
              var   ObjectLabel  : array of char;
              var   done         : boolean); stdcall;

  exports HistoricalLink name 'ObjExit_HistoricalLink';


  function IsDone
             (const dataH : pointer) : boolean; stdcall;

  exports IsDone name 'ObjExit_IsDone';


  function IsOpen
             (const dataH : pointer) : boolean; stdcall;

  exports IsOpen name 'ObjExit_IsOpen';


  function LargeBitmapId
             (const dataH : pointer) : cardinal; stdcall;

  exports LargeBitmapId name 'ObjExit_LargeBitmapId';


  procedure LinkOccurred
             (const dataH        : pointer;
              var   Link         : integer;
              var   exitType     : integer;
              var   TheInterface : integer;
              var   ObjectLabel  : array of char;
              var   done         : boolean); stdcall;

  exports LinkOccurred name 'ObjExit_LinkOccurred';


  procedure ObjectClassDes
             (var   Des : array of char); stdcall;

  exports ObjectClassDes name 'ObjExit_ObjectClassDes';


  procedure ObjectClassName
             (var   ClassName : array of char); stdcall;

  exports ObjectClassName name 'ObjExit_ObjectClassName';


  procedure ObjectComponentName
             (const dataH         : pointer;
              var   componentName : array of char); stdcall;

  exports ObjectComponentName name 'ObjExit_ObjectComponentName';


  procedure Open
             (const ExitName       : array of char;
              const instanceNumber : cardinal;
              const extra          : pointer;
              var   dataH          : pointer); stdcall;

  exports Open name 'ObjExit_Open';


  procedure RegisterClass; stdcall;

  exports RegisterClass name 'ObjExit_RegisterClass';


  procedure SetExtraData
             (const dataH     : pointer;
              const extraData : pointer); stdcall;

  exports SetExtraData name 'ObjExit_SetExtraData';


  procedure SetLinkInfo
             (const dataH        : pointer;
              const Link         : integer;
              const exitType     : integer;
              const TheInterface : integer;
              const ObjectLabel  : array of char;
              const isLink       : boolean); stdcall;

  exports SetLinkInfo name 'ObjExit_SetLinkInfo';


  function SmallBitmapId
             (const dataH : pointer) : cardinal; stdcall;

  exports SmallBitmapId name 'ObjExit_SmallBitmapId';


  procedure StoreDefault
             (const editFlag   : boolean;
              var   objectName : array of char;
              const objectDes  : array of char;
              var   ObjID      : cardinal); stdcall;

  exports StoreDefault name 'ObjExit_StoreDefault';


  function ValidObject
             (const dataH : pointer) : boolean; stdcall;

  exports ValidObject name 'ObjExit_ValidObject';