equal
deleted
inserted
replaced
50 |
50 |
51 {$IFDEF HWLIBRARY} |
51 {$IFDEF HWLIBRARY} |
52 procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export; |
52 procedure HW_versionInfo(netProto: PShortInt; versionStr: PString); cdecl; export; |
53 begin |
53 begin |
54 if netProto <> nil then netProto^:= cNetProtoVersion; |
54 if netProto <> nil then netProto^:= cNetProtoVersion; |
55 if versionStr <> nil then versionStr^:= string(cVersionString); |
55 if versionStr <> nil then versionStr^:= shortstring(cVersionString); |
56 end; |
56 end; |
57 |
57 |
58 procedure HW_click; cdecl; export; |
58 procedure HW_click; cdecl; export; |
59 begin |
59 begin |
60 leftClick:= true; |
60 leftClick:= true; |