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

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

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;

to Rouse_

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

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

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