equal
deleted
inserted
replaced
21 // called by pascal code, they deal with the objc code |
21 // called by pascal code, they deal with the objc code |
22 function IPH_getDocumentsPath: PChar; cdecl; external; |
22 function IPH_getDocumentsPath: PChar; cdecl; external; |
23 procedure IPH_showControls; cdecl; external; |
23 procedure IPH_showControls; cdecl; external; |
24 |
24 |
25 // retrieve protocol information |
25 // retrieve protocol information |
26 function HW_protoVer: LongInt; cdecl; export; |
26 procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export; |
27 |
27 |
28 // called by the touch functions (SDL_uikitview.m) |
28 // called by the touch functions (SDL_uikitview.m) |
29 // they emulate user interaction from mouse or keyboard |
29 // they emulate user interaction from mouse or keyboard |
30 procedure HW_click; cdecl; export; |
30 procedure HW_click; cdecl; export; |
31 procedure HW_zoomIn; cdecl; export; |
31 procedure HW_zoomIn; cdecl; export; |
44 {$ENDIF} |
44 {$ENDIF} |
45 |
45 |
46 implementation |
46 implementation |
47 |
47 |
48 {$IFDEF IPHONEOS} |
48 {$IFDEF IPHONEOS} |
49 function HW_protoVer: LongInt; cdecl; export; |
49 procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export; |
50 begin |
50 begin |
51 HW_protoVer:= cNetProtoVersion; |
51 if netProto <> nil then netProto^:= cNetProtoVersion; |
|
52 if versionStr <> nil then versionStr^:= string(cVersionString); |
52 end; |
53 end; |
53 |
|
54 |
54 |
55 procedure HW_click; cdecl; export; |
55 procedure HW_click; cdecl; export; |
56 begin |
56 begin |
57 leftClick:= true; |
57 leftClick:= true; |
58 end; |
58 end; |