hedgewars/uFLTypes.pas
branchqmlfrontend
changeset 10452 03519fd9f98d
parent 10450 bf9e30b4ef9b
child 10819 57e21f7621b0
equal deleted inserted replaced
10450:bf9e30b4ef9b 10452:03519fd9f98d
     1 unit uFLTypes;
     1 unit uFLTypes;
     2 interface
     2 interface
     3 
     3 
     4 type
     4 type
     5     TMessageType = (mtPreview, mtAddPlayingTeam, mtRemovePlayingTeam, mtAddTeam, mtRemoveTeam);
     5     TMessageType = (mtPreview, mtAddPlayingTeam, mtRemovePlayingTeam, mtAddTeam, mtRemoveTeam
       
     6                    , mtTeamColor);
     6 
     7 
     7     TIPCMessage = record
     8     TIPCMessage = record
     8                    str: shortstring;
     9                    str: shortstring;
     9                    len: Longword;
    10                    len: Longword;
    10                    buf: Pointer
    11                    buf: Pointer