Текущий архив: 2005.01.02;
Скачать: CL | DM;
ВнизCtrl+C >> *(%*^(*&^&^(*%5 Найти похожие ветки
← →
HrenovijMaster (2004-12-16 00:53) [0]Респект Вам !!! при коприовании текста (кирилицы) из Memo а затем вставке в другой редактор - вместо руских букв вывоится совсем другая кдровка !!! как быть? что делать ???
← →
Walker © (2004-12-16 04:17) [1]Такая ерунда встречается не только в Memo, а вообще в WindowsXP в том случае, если перед копированием стоит "другая" раскладка
У меня эта проблема решается так: сначала переключаю раскладку клавиатуры на Кириллицу, затем копирую в буфер - и всё нормально
← →
Zacho © (2004-12-16 04:21) [2]Или использовать не TMemo а какой-либо unicode-компонент.
← →
HrenovijMaster (2004-12-16 19:07) [3]Respect once more !!!!!
2 Walker: da so smenoj rasklaki polu4aetsya ! ))) no 4to zhe delat, programno pereklu4at raskladku kazhdij raz kogda polzovatel copiruet teskt ??? MOshet est sposob menee gemorojnij ???
2 Zacho: mozhno ssil4ki plz !!!!
← →
Anatoly Podgoretsky © (2004-12-16 19:33) [4]А ты не лезь в прерогатмвы пользоваетеля. Или вставляй в буфер сведенья о кодировке, или гони в Юникод.
← →
Yanis © (2004-12-16 19:39) [5]Может OEMConvert сработает?
← →
KSergey © (2004-12-17 08:44) [6]> [4] Anatoly Podgoretsky © (16.12.04 19:33)
> А ты не лезь в прерогатмвы пользоваетеля. Или вставляй в
> буфер сведенья о кодировке, или гони в Юникод.
Прошу прощения, а не подскажете как?
← →
Fay © (2004-12-17 08:58) [7]2 Anatoly Podgoretsky © (16.12.04 19:33) [4]
>> Или вставляй в буфер сведенья о кодировке
Вы не могли бы прокомментировать и/или привести пример кода.
Был бы (думаю, не я один) очень признателен.
← →
MBo © (2004-12-17 09:00) [8]>KSergey © (17.12.04 08:44) [6]
вот процедура Alex Konshin
procedure SetClipboardText( const AText : String );
var len, ulen : Integer;
hClip : THandle;
pClip : Pointer;
begin
if Win32Platform=VER_PLATFORM_WIN32_NT then
begin
len := Length(AText)+1;
ulen := len+len;
hClip := GlobalAlloc(GMEM_MOVEABLE,ulen);
if hClip=0 then raise Exception.Create(SysErrorMessage(GetLastError))
else
try
pClip := PWideChar(GlobalLock(hClip));
if pClip=nil then raise Exception.Create(SysErrorMessage(GetLastError))
else
begin
try
MultiByteToWideChar(CODEPAGE,0,PChar(AText),len,pClip,ulen);
finally
GlobalUnlock(hClip);
end;
Clipboard.SetAsHandle(CF_UNICODETEXT,hClip);
end;
except
GlobalFree(hClip);
raise;
end;
end
else
begin
Clipboard.SetTextBuf(PChar(AText));
SetClipboardData(CF_LOCALE,LANG_RUSSIAN);
end;
end;
← →
Fay © (2004-12-17 09:03) [9]Спасибы
← →
KSergey © (2004-12-18 11:54) [10]> MBo © (17.12.04 09:00) [8]
Благодарю!
← →
Kolan © (2004-12-18 15:18) [11]
> HrenovijMaster (16.12.04 19:07) [3]
У меня тоже есть знакомый
- Х..вый повор. На экзамене венегрет кубиками по 5см нарезал :). Сдал
- Х..вый милиционер - торч.
А весь мой факультет - х..вые программисты :)
← →
BlackTr (2004-12-19 00:32) [12]HKLM\SYSTEM\CurrentControlSet\Control\Nls\CodePage
SetValue "1250"="c_1251.nls"
HKLM\SYSTEM\CurrentControlSet\Control\Nls\CodePage
SetValue "1252"="c_1251.nls"
Вроде должно помочь
← →
GrayFace © (2004-12-19 10:30) [13]Anatoly Podgoretsky © (16.12.04 19:33) [4]
А ты не лезь в прерогатмвы пользоваетеля.
Я бы не сказал, что это прераготивы пользователя. Но с глюками операционки тоже бороться не нужно.
Страницы: 1 вся ветка
Текущий архив: 2005.01.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.041 c