13 unit PascalExports;

    13 unit PascalExports;

    14 

    14 

    15 interface

    15 interface

    16 uses uKeys, uConsole;

    16 uses uKeys, uConsole;

    17 

    17 

    18 {$IFDEF IPHONEOS}

    20 {$IFDEF IPHONEOS}

    19 // called by pascal code, they deal with the objc code

    21 // called by pascal code, they deal with the objc code

    20 function  IPH_getDocumentsPath: PChar; cdecl; external;

    22 function  IPH_getDocumentsPath: PChar; cdecl; external;

    21 procedure IPH_showControls; cdecl; external;

    23 procedure IPH_showControls; cdecl; external;

    22 

    27 

    23 // called by the touch functions (SDL_uikitview.m)

    28 // called by the touch functions (SDL_uikitview.m)

    24 // they emulate user interaction from mouse or keyboard

    29 // they emulate user interaction from mouse or keyboard

    25 procedure HW_click; cdecl; export;

    30 procedure HW_click; cdecl; export;

    26 procedure HW_zoomIn; cdecl; export;

    31 procedure HW_zoomIn; cdecl; export;

    38 {$ENDIF}

    43 {$ENDIF}

    39 

    44 

    40 implementation

    45 implementation

    41 

    46 

    42 {$IFDEF IPHONEOS}

    47 {$IFDEF IPHONEOS}

    43 procedure HW_click; cdecl; export;

    53 procedure HW_click; cdecl; export;

    44 begin

    54 begin

    45 	WriteLnToConsole('HW - left click');

    55 	WriteLnToConsole('HW - left click');

    46 	leftClick:= true;

    56 	leftClick:= true;

    47 	exit

    57 	exit