Помогите мне

← →
Stepan © (2002-07-23 16:13) [0]

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

← →
nick_sniper © (2002-07-25 01:05) [1]

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

← →
KilkennyCat © (2002-07-25 01:12) [2]

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

← →
nick_sniper © (2002-07-25 02:06) [3]

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

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;

← →
December24 (2002-07-26 17:31) [4]

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

Помогите мне Найти похожие ветки