unit jawt_delphi;

interface
uses windows,JNI;

type
    jawt_Rectangle=packed record
       x:jint;
       y:jint;       width:jint;       height:jint;
    end;

    Pjawt_DrawingSurface=^jawt_DrawingSurface;
    pJAWT_Rectangle=^jawt_Rectangle;
    PJAWT_DrawingSurfaceInfo=^jawt_DrawingSurfaceInfo;
    jawt_DrawingSurfaceInfo=packed record
       platformInfo:pointer;
       ds:Pjawt_DrawingSurface;       JAWT_Rectangle:trect;       clipSize:jint;       clip:pJAWT_Rectangle;
    end;

   jawt_DrawingSurface=packed record
     env:pJNIEnv;     target:jobject;     Lock:function(ds: Pjawt_DrawingSurface): JInt; stdcall;     GetDrawingSurfaceInfo:function(ds: Pjawt_DrawingSurface): PJAWT_DrawingSurfaceInfo; stdcall;     FreeDrawingSurfaceInfo:procedure(dsi: PJAWT_DrawingSurfaceInfo); stdcall;     Unlock:procedure(ds: Pjawt_DrawingSurface); stdcall;    end;

    Pjawt=^jawt;
    jawt=packed record
     version:jint;     GetDrawingSurface:function(env:pJNIEnv;target:jobject):PJAWT_DrawingSurface;stdcall;     FreeDrawingSurface:procedure(ds:pJAWT_DrawingSurface);stdcall;     Lock:procedure(env:pJNIEnv);stdcall;     Unlock:procedure(env:pJNIEnv);stdcall;     GetComponent:function(env:pJNIEnv;platformInfo:pointer):jobject;stdcall;    end;    function JAWT_GetAWT(env: PJNIEnv; awt: Pjawt): jboolean;stdcall;
    function JAWT_GetAWT; external 'jawt.dll' name '_JAWT_GetAWT@8';

const
 JAWT_LOCK_ERROR=$00000001;
 JAWT_LOCK_CLIP_CHANGED=$00000002; JAWT_LOCK_BOUNDS_CHANGED=$00000004; JAWT_LOCK_SURFACE_CHANGED=$00000008;

 JAWT_VERSION_1_3= $00010003;
 JAWT_VERSION_1_4= $00010004;

implementation

end.