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

При копировании в Clipboard русских символов изменяется их код-ка   Найти похожие ветки 

← →
San1712   (2007-11-13 07:31) [0]

Я привязал к ListBox переменную Tstringlist. Если я создаю ListBox1.Item, которая заканчивается латинскими буквами , то при копировании из Tstringlist в Clipboard все русские символы которые были в TStringList заменяются на какие-то др. символы.
Проблема вроде как решается поставил в конце русскую точку и всё. Дык нет пробовал в функции присвоить Edit1.Text {Edit1 сюда у меня вводится название для Item} русскую точку всё равно глюк
остаётся. Пробовал в ListBox и Edit выставлять русскую кодировку и Times New Roman ничего не изменилось. Может кто сталкивался с такой
проблемкой , наведите на мысль?

---

← →
Igor Zorkov ©   (2007-11-13 07:40) [1]

procedure WriteToClipboard(text :WideString);
var Handle: THandle;
   HandlePtr: Pointer;
   Size: Cardinal;
begin
 if OpenClipboard(Self.Handle) then
 begin
   EmptyClipboard;
   Size :=  sizeof(text[1])*(length(text)+1);
   Handle := GlobalAlloc(GMEM_MOVEABLE + GMEM_DDESHARE, Size);
   if Handle = 0 then
     Exit;
   HandlePtr := GlobalLock(Handle);
   Move((PWideChar(text))^, HandlePtr^, Size);
   GlobalUnLock(Handle);
   SetClipboardData(CF_UNICODETEXT, Handle);
   CloseClipboard();
 end;
end;

---

← →
Amoeba ©   (2007-11-13 12:34) [2]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=780 + обсуждение этой статьи.

---

← →
stanislav_   (2007-11-13 12:39) [3]

Когда копируешь раскладка  windows должна быть русской :-)

---

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

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



Память: 0.45 MB
Время: 0.015 c