hedgewars/uFLTypes.pas
branchqmlfrontend
changeset 10444 47a6231f1fc1
parent 10440 b74a7bbe224e
child 10450 bf9e30b4ef9b
equal deleted inserted replaced
10442:c58db813240b 10444:47a6231f1fc1
     1 unit uFLTypes;
     1 unit uFLTypes;
     2 interface
     2 interface
     3 
     3 
     4 type
     4 type
     5     TMessageType = (mtPreview);
     5     TMessageType = (mtPreview, mtAddPlayingTeam, mtRemovePlayingTeam, mtAddTeam, mtRemoveTeam);
     6 
     6 
     7     TIPCMessage = record
     7     TIPCMessage = record
     8                    str: shortstring;
     8                    str: shortstring;
     9                    len: Longword;
     9                    len: Longword;
    10                    buf: Pointer
    10                    buf: Pointer