equal
deleted
inserted
replaced
8 implementation |
8 implementation |
9 uses uFLIPC; |
9 uses uFLIPC; |
10 |
10 |
11 var uiCallbackPointer: pointer; |
11 var uiCallbackPointer: pointer; |
12 uiCallbackFunction: TUICallback; |
12 uiCallbackFunction: TUICallback; |
|
13 isGame: boolean; |
13 |
14 |
14 procedure engineMessageCallback(p: pointer; msg: PChar; len: Longword); |
15 procedure engineMessageCallback(p: pointer; msg: PChar; len: Longword); |
15 begin |
16 begin |
16 if len = 128 * 256 then uiCallbackFunction(uiCallbackPointer, mtPreview, msg, len) |
17 if msg^ = 'T' then |
|
18 begin |
|
19 inc(msg); |
|
20 isGame:= msg^ = 'G'; |
|
21 exit; |
|
22 end; |
|
23 |
|
24 if isGame then |
|
25 begin |
|
26 end |
|
27 else begin |
|
28 if len = 128 * 256 then |
|
29 uiCallbackFunction(uiCallbackPointer, mtPreview, msg, len) |
|
30 else if len = 1 then |
|
31 uiCallbackFunction(uiCallbackPointer, mtPreviewHogCount, msg, len) |
|
32 end; |
17 end; |
33 end; |
18 |
34 |
19 procedure registerUIMessagesCallback(p: pointer; f: TUICallback); cdecl; |
35 procedure registerUIMessagesCallback(p: pointer; f: TUICallback); cdecl; |
20 begin |
36 begin |
21 uiCallbackPointer:= p; |
37 uiCallbackPointer:= p; |