equal
deleted
inserted
replaced
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 |