Скачать: CL | DM;

Д7 и Ворд недружат малость   Найти похожие ветки 

← →
ПЛОВ ©   (2007-04-23 17:23) [0]

Доброе в.с. Подскажите пожалуйста, как решить следующую проблему - при копировании текста из TEdit-а, Memo и пр. в Ворд, вставляется вот такое - Îáùåñòâî ñ îãðàíè÷åííîé îòâåòñòâåííîñ&# 242;üþ. Где подкрутить гайку? Сам что-то не могу найти. Спасибо.

---

← →
Desdechado ©   (2007-04-23 17:26) [1]

Копировать, когда активна русская раскладка.

---

← →
ПЛОВ ©   (2007-04-23 17:28) [2]

> Desdechado ©   (23.04.07 17:26) [1]

Спасибо :) Но это не выход. Представляю, как я это объясню заказчику ) Ище и полная луна желательно и Марс в таком-то созвездии )))

---

← →
clickmaker ©   (2007-04-23 18:03) [3]

>  [2] ПЛОВ ©   (23.04.07 17:28)

клади текст в буфер в уникоде

---

← →
ПЛОВ ©   (2007-04-23 18:10) [4]

> клади текст в буфер в уникоде

Можно небольшой примерчик или ссылку. Буду очень признателен

---

← →
clickmaker ©   (2007-04-23 18:21) [5]

>  [4] ПЛОВ ©   (23.04.07 18:10)

if Win32Platform = VER_PLATFORM_WIN32_NT then begin

         cbSize := MultiByteToWideChar(CP_ACP, 0, PChar(sText), STextLen, nil, 0);
         if (cbSize > 0) then begin
           hMem := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, (cbSize shl 1) + 1);
           if hMem <> 0 then begin
             pData := GlobalLock(hMem);
             try
               if pData <> nil then begin
                 MultiByteToWideChar(CP_ACP, 0, PChar(sText), STextLen, pData, cbSize);
                 SetClipboardData(CF_UNICODETEXT, hMem);
               end;
             finally
               GlobalUnlock(hMem);
             end;
           end;  
         end;
       end;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.033 c