Скачать: CL | DM;

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

← →
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"ы, пока не нашёл нужный... И не все фонты поддерживают французский.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c