Форум: "Основная";
Текущий архив: 2004.08.22;
Скачать: [xml.tar.bz2];

Вниз

Edit и буфер обмена...   Найти похожие ветки 

← →
MacroDenS ©   (2004-08-06 16:42) [0]

Доброго времени суток мастера!

Может кто встречался с таким делом:

есть компонент edit1, просто висит на форме.
задаю для него свойства шрифта:
font > charset = russian_charset
      Name = Times New Roman Cyr
в поле Text запысываю Тест
запусаю прогу.
выделяю текст в edit1, копирую в буфер,
открываю блокнот и втавляю туда.
Но вместо слова Тест абракадабра рисуется, причем в блокноте шрифт использую тоже Times New Roman Cyr, с набором символов Киррилический.

Так вот я и думаю, в чем же прикол?

---

← →
Rouse_ ©   (2004-08-06 16:44) [1]

При русской раскладке копируешь?

---

← →
MacroDenS ©   (2004-08-06 16:44) [2]

да без разницы при какой...
и так и эдок одинаково...

---

← →
Rouse_ ©   (2004-08-06 16:48) [3]

Как копируешь?
Абракадабра какого плана? все буквы искажены или только русские?

---

← →
MacroDenS ©   (2004-08-06 16:52) [4]

копирую либо через комбинацию, либо через стандартное контекстное меню...

абракадабра примерно такого плана: Òåñò êîìïîíåíòà (в переводе Тест компонента)
искажаются только русские буквы

---

← →
Anatoly Podgoretsky ©   (2004-08-06 16:59) [5]

Name = Times New Roman Cyr это шрифт или из Win 3.1 в крайнем случае мапированый. В Win 95 шрифт нащыватся Times New Roman

---

← →
Rouse_ ©   (2004-08-06 17:02) [6]

Еще проверь вот так:

procedure SetClipboardText(const S: string);
 var
   wsz: PWideChar;
   dwSize: Cardinal;
   hData: Cardinal;
 begin
   if (Win32Platform = VER_PLATFORM_WIN32_NT) then begin

     dwSize := (Length(S)+1) * SizeOf(WideChar);
     hData := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, dwSize);
     wsz := PWideChar(GlobalLock(hData));
     StringToWideChar(S, wsz, Length(S)+1);
     GlobalUnlock(hData);
     Clipboard.SetAsHandle(CF_UNICODETEXT, hData);
   end else
     Clipboard.AsText := S;
 end;

---

← →
MacroDenS ©   (2004-08-06 17:10) [7]

to Anatoly Podgoretsky ©
>>Name = Times New Roman Cyr это шрифт
Да это шрифт.

---

← →
MacroDenS ©   (2004-08-06 17:15) [8]

to Rouse_

Твой способ нормально работает...

Но по ходу придется свои обработчики на копирование ставить...

---

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

Форум: "Основная";
Текущий архив: 2004.08.22;
Скачать: [xml.tar.bz2];

Наверх

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