Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.02;
Скачать: CL | DM;

Вниз

Копирование текста в Clipboard   Найти похожие ветки 

 
Mishenka   (2005-09-05 17:23) [0]

При копировании русского текста в Clipboard методом AsText при в ставке в других приложениях текст изображается иероглифами, при том, что с английским всё нормально.  Как это исправить?


 
Digitman ©   (2005-09-05 17:28) [1]

перед копированием установи русскую раскладку клавы
после вставки верни на место прежнюю раскладку


 
REA   (2005-09-05 17:47) [2]

Есть готовый компонент на королевстве.


 
Mishenka   (2005-09-05 21:52) [3]


> Digitman ©   (05.09.05 17:28) [1]

А можно обойтись без смены раскладок?


 
Турист   (2005-09-05 22:27) [4]


uses
 Clipbrd;

type
 TClipboardAccess = class(TClipboard);

procedure CopyToClipboard(const aText: string);
var
 wText: WideString;
begin
 if Win32Platform = VER_PLATFORM_WIN32_NT then begin
   wText := aText;
   TClipboardAccess(Clipboard).SetBuffer(CF_UNICODETEXT, wText[1], (Length(wText) + 1) * 2)
 end else
   Clipboard.AsText := aText
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 CopyToClipboard("Русский текст")
end;


 
Mishenka   (2005-09-07 08:40) [5]


> Турист   (05.09.05 22:27) [4]

Спасибо, всё заработало!



Страницы: 1 вся ветка

Текущий архив: 2005.10.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
1-1126510226
Курдль
2005-09-12 11:30
2005.10.02
Кто имеет опыт печати штрих-кода из Crystal Reports?


6-1118333564
olevacho_
2005-06-09 20:12
2005.10.02
Отсылка сообщения на комп в локальной сети


6-1118038275
ZubrZubr
2005-06-06 10:11
2005.10.02
Просмотр Защищенного хранилища


4-1123174440
Serg1981
2005-08-04 20:54
2005.10.02
Источник бесперебойного питания


14-1126247342
Igorek
2005-09-09 10:29
2005.10.02
Профпригодность модератора