| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Помогите мне

Stepan ©   (2002-07-23 16:13:00) 

Как отобразить в RichEdit французкий шрифт
Некоторые символы которые есть только во французком не отображаются!!!!

---

December24   (2002-07-26 17:31:00) [1]

Как всё сложно... я просто перебирал CharSet"ы, пока не нашёл нужный... И не все фонты поддерживают французский.

---

nick_sniper   (2002-07-25 02:06:00) [2]

Нашел.
Я тоже когда-то встретился с такой проблемой.
Вот кусок кода:

function TRichMainForm.CurrText: TTextAttributes;
begin
if Editor.SelLength > 0 then Result := Editor.SelAttributes
else Result := Editor.DefAttributes;
end;

procedure TRichMainForm.SelectFont(Sender: TObject);
begin
FontDialog1.Font.Assign(Editor.SelAttributes);
if FontDialog1.Execute then
CurrText.Assign(FontDialog1.Font);
Editor.SetFocus;
end;

procedure TRichMainForm.SetCharset;
begin
CurrText.Charset := EASTEUROPE_CHARSET;
end;

Думаю разберешься что к чему. Но не забудь: для того чтобы в ричедиторе писать французкими буквами нужно в виндах добавить французкий язык, переключиться на него и тогда все будет чики-пики. Ну само, собой нужно вызвать SetCharset;

---

KilkennyCat   (2002-07-25 01:12:00) [3]

RichEdit1.SelAttributes.Charset - это на выделенный шрифт.
так что, не сработает, если не выделить :)

---

nick_sniper   (2002-07-25 01:05:00) [4]

Мне кажется что простыми методами - никак.
Теоретически вот так:
RichEdit1.SelAttributes.Charset := EASTEUROPE_CHARSET;
Но, помоему, это не сработает.
Наверное нужно править в прямо в .rtf - там должно почучиться. (Это формат в котором ричедитор сохраняет текст. Это универсальный формат и описуху на него, по моему, можно даже на этом сайте найти).

---

Наверх