| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Edit и буфер обмена... [D6, Win95/98, WinXP]
MacroDenS © (2004-08-06 16:42:00)Доброго времени суток мастера!
Может кто встречался с таким делом:
есть компонент edit1, просто висит на форме.
задаю для него свойства шрифта:
font > charset = russian_charset
Name = Times New Roman Cyr
в поле Text запысываю Тест
запусаю прогу.
выделяю текст в edit1, копирую в буфер,
открываю блокнот и втавляю туда.
Но вместо слова Тест абракадабра рисуется, причем в блокноте шрифт использую тоже Times New Roman Cyr, с набором символов Киррилический.
Так вот я и думаю, в чем же прикол?
MacroDenS (2004-08-06 17:15:00) [1]to Rouse_
Твой способ нормально работает...
Но по ходу придется свои обработчики на копирование ставить...
MacroDenS (2004-08-06 17:10:00) [2]to Anatoly Podgoretsky ©
>>Name = Times New Roman Cyr это шрифт
Да это шрифт.
Rouse_ (2004-08-06 17:02:00) [3]Еще проверь вот так:
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;
Anatoly Podgoretsky (2004-08-06 16:59:00) [4]Name = Times New Roman Cyr это шрифт или из Win 3.1 в крайнем случае мапированый. В Win 95 шрифт нащыватся Times New Roman
MacroDenS (2004-08-06 16:52:00) [5]копирую либо через комбинацию, либо через стандартное контекстное меню...
абракадабра примерно такого плана: Òåñò êîìïîíåíòà (в переводе Тест компонента)
искажаются только русские буквы
Rouse_ (2004-08-06 16:48:00) [6]Как копируешь?
Абракадабра какого плана? все буквы искажены или только русские?
Rouse_ (2004-08-06 16:44:00) [7]При русской раскладке копируешь?
MacroDenS (2004-08-06 16:44:00) [8]да без разницы при какой...
и так и эдок одинаково...
| |
