Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
1-1103232328
Фёдор Мегатронов
2004-12-17 00:25
2005.01.02
русский шрифт в консоли - как ?


3-1102071354
Vadim S
2004-12-03 13:55
2005.01.02
Delphi5 +ADO(DMAC 2.6) + MS SQL 2000


14-1102992265
Думкин
2004-12-14 05:44
2005.01.02
С днем рождения! 14 декабря


1-1103275006
Dima
2004-12-17 12:16
2005.01.02
MetaFile


14-1103124402
DiamondShark
2004-12-15 18:26
2005.01.02
А не забыли ли вы пингвинов?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский