Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вывод знаков псевдографики в RichEdit [D7, WinXP]

Страницы: < 1 2
mefodiy © (2006-05-21 13:59:00)
Как можно вывести в RichEdit показанные ниже знаки псевдографики?

┌────┬────┐
│ │ │
├────┼────┤
│ │ │
└────┴────┘

mefodiy (2006-06-02 09:54:00) [21]
Вот это мне никак не удается.
Подскажи как сделать?

Cash (2006-06-02 09:38:00) [22]
mefodiy (02.06.06 08:34) [13]:
А ты собери в Ворде строку из псевдографики, вставь ее в свой RichEdit,
а потом посмотри, какие атрибуты у этой строки поставлены и какие
кодировки у этих символов.

mefodiy (2006-06-02 09:30:00) [23]
А точнее...

TButton (2006-06-02 09:00:00) [24]
а... кхм... а если в свойствах параграфа менять кодировку?

mefodiy (2006-06-02 08:34:00) [25]
Прогоняю символы с 0 по 255 в RichEdit, нужных симовол там вообще нет.
Захоже в режим эмуляции DOS (Command Prompt) нажимаю Alt+218 нужный символ нормально выводится в командной строке.
Кроме того захожу в Word, в режиме вставки символа выбираю символ с щестнадцатиричным юникодом 250C, копирую его в Clipboard, а потом вставляю в RichEdit, опять все номально появляется.
А вот в runtime вывести символы в RichEdit не удается никак.

TButton (2006-06-02 08:01:00) [26]

> with PrintForm.RichEdit do
> begin
> Font.Charset := OEM_CHARSET;
> Font.Name := 'Courier New';
> Lines.Clear;
> Lines.Add(Chr(218));
> end;
>
> Выводит в RichEdit букву "Ъ".

пральна.
в конце кодировки ДОС расположены символы кирилицы
прогони символы с 0 по 255
посмотри какие номера у нужных
и есть ли они там вообще

mefodiy (2006-06-02 07:55:00) [27]
with PrintForm.RichEdit do
begin
Font.Charset := OEM_CHARSET;
Font.Name := 'Courier New';
Lines.Clear;
Lines.Add(Chr(218));
end;

Выводит в RichEdit букву "Ъ".

Amoeba (2006-06-01 16:58:00) [28]

> ни изменения Charset ни изменения фонта ни дают никакого
> результата

Где, как и когда меняешь?

mefodiy (2006-06-01 15:30:00) [29]
Мастера помогитеееееееееееее!

mefodiy (2006-05-23 14:54:00) [30]
Господа, отзовитесь

mefodiy (2006-05-22 21:06:00) [31]
Все это я уже пробовал. Но в RichEdit выводятся не знаки псевдографики, а буквы кириллицы, например,

RichEdit1.Lines.Add(Chr(218)) дает "Ъ"
RichEdit1.Lines.Add(Chr(196)) дает "Д"
RichEdit1.Lines.Add(Chr(194)) дает "В" и т.д.

Причем, ни изменения Charset ни изменения фонта ни дают никакого результата

ANB (2006-05-22 18:20:00) [32]
Более удобный способ : использовать шрифт Curier New, а в чарсете указать OEM_CHARSET.
Таким способом я печатал DOS документы и проблем не было.

han_malign (2006-05-22 17:58:00) [33]
интересно, часть псевдографических символов, таки перевирается...

han_malign (2006-05-22 17:55:00) [34]
│┤╡╢╖╕╣║╗╝╜ 563;┐└┴┬├─┼╞╟╚╔ ;╩╦╠═╬╧╨╤╥╙╘&# 9554;╓╫╪┘┌
CP866: 179..218

#218#196#194#196#191
#179' '#179' '#179
#195' '#197' '#180
#179' '#179' '#179
#192#196#193#196#217

Steplerr (2006-05-22 15:11:00) [35]
Прогони функцию Chr в цикле - получишь таблицу соответствия кодов символам. Выбирай какой тебе нравится и добавляй через Chr.

mefodiy (2006-05-22 14:56:00) [36]
Шрифт установлю, а что писать в

RichEdit1.Lines.Add(Знак);

вместо Знак?

Leonid Troyanovsky (2006-05-21 18:50:00) [37]

> mefodiy (21.05.06 13:59)

> Как можно вывести в RichEdit показанные ниже знаки псевдографики?

Поставить ему, скажем, шрифт Терминал.
Анахоа?

--
Regards, LVT.

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »