equal
deleted
inserted
replaced
1 unit uFLTypes; |
1 unit uFLTypes; |
2 interface |
2 interface |
3 |
3 |
4 type TIPCMessage = record |
4 type |
|
5 TMessageType = (mtPreview); |
|
6 |
|
7 TIPCMessage = record |
5 str: shortstring; |
8 str: shortstring; |
6 len: Longword; |
9 len: Longword; |
7 buf: Pointer |
10 buf: Pointer |
8 end; |
11 end; |
9 TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword); |
12 TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword); |
|
13 TGUICallback = procedure (p: pointer; msgType: TMessageType; msg: PChar; len: Longword); |
10 |
14 |
11 implementation |
15 implementation |
12 |
16 |
13 end. |
17 end. |