hedgewars/uChat.pas
branchsdl2transition
changeset 11344 b0df3f2fcafc
parent 11343 9006e158a81f
child 11356 b8b208501475
equal deleted inserted replaced
11343:9006e158a81f 11344:b0df3f2fcafc
   724     end;
   724     end;
   725 end;
   725 end;
   726 
   726 
   727 procedure CopyToClipboard(var newContent: shortstring);
   727 procedure CopyToClipboard(var newContent: shortstring);
   728 begin
   728 begin
   729     SendIPC(_S'y' + copy(newContent, 1, 253) + #0);
   729     // SDL2 clipboard
       
   730     SDL_SetClipboardText(Str2PChar(newContent));
   730 end;
   731 end;
   731 
   732 
   732 procedure CopySelectionToClipboard();
   733 procedure CopySelectionToClipboard();
   733 var selection: shortstring;
   734 var selection: shortstring;
   734 begin
   735 begin