FIX: Copy to clipboard for non UTF-8 encoding

This commit is contained in:
Alexander Koblov 2011-12-30 10:11:31 +00:00
commit 365f2821ac

View file

@ -2380,7 +2380,7 @@ begin
Exit;
Clipboard.Clear; // prevent multiple formats in Clipboard (specially synedit)
SetString(sText, GetDataAdr + FBlockBeg, FBlockEnd - FBlockBeg);
Clipboard.AsText := sText;
Clipboard.AsText := ConvertToUTF8(sText);
end;
function TViewerControl.GetNextCharAsAscii(const iPosition: PtrInt; out CharLenInBytes: Integer): Cardinal;