jak w Richedit zmienic czcionke-zadne głupie pytanie:)

Mam wsawic do rich edit symbole delta suma i takie tam. Oczywiscie <ort>kozytamy </ort>z czcionki symbol
tylko ze:

with RichEdit1.DefAttributes do
begin
Name:='Symbol';
Color:=clRed;
end;
RichEdit1.Lines.Add('This line of text will be red.');

zmienia kolor ale nie zmienia czcionka. Po

RichEdit1.SelAttributes.Name:='symbol';
RichEdit1.SelAttributes.Color:=clRed;
RichEdit1.Lines.Add('This line of text will be red.');

kolor oki ale czcionak ta sama i juz mi to wkur....

Zmian czcionki działą ale dopiero po zaznaczemiu textu.

Jak ktos by sie tym bawił to był bym wdzięczny

zaspany

:| Lekko dziwne, u mnie ten kodzik dziala, ale nie na wszystkie czcionki :| miedzy innymi wlasnie na "Symbol" "Wingdings" i nie wiem jeszcze na ktore, ale fakt faktem jezeli wybiore te czcionki to nie dziala :/

Ja bym spróbował najpierw ustawić SelAttributes, a potem SelText:=... Ale nie wiem, czy pomoże...

Zmień Charset tego tekstu

w unicie Windows masz zdefiniowane stałe
np. ANSI_CHARSET = 0 , SYMBOL_CHARSET = 2 czy EASTEUROPE_CHARSET = 238

Napisz RichEdit.SelAttributer.Charset:=SYMBOL_CHARSET i powinno działać.

Możesz również zrobić coś podobnego jak w unicie Graphics czyli tablicę stałych FontCharsets, choć korzystania z niej tak jak w unicie nie nie polecam
FontCharsets: array[0..17] of TIdentMapEntry = (
(Value: 0; Name: 'ANSI_CHARSET'),
(Value: 1; Name: 'DEFAULT_CHARSET'),
(Value: 2; Name: 'SYMBOL_CHARSET'),
(Value: 77; Name: 'MAC_CHARSET'),
(Value: 128; Name: 'SHIFTJIS_CHARSET'),
(Value: 129; Name: 'HANGEUL_CHARSET'),
(Value: 130; Name: 'JOHAB_CHARSET'),
(Value: 134; Name: 'GB2312_CHARSET'),
(Value: 136; Name: 'CHINESEBIG5_CHARSET'),
(Value: 161; Name: 'GREEK_CHARSET'),
(Value: 162; Name: 'TURKISH_CHARSET'),
(Value: 177; Name: 'HEBREW_CHARSET'),
(Value: 178; Name: 'ARABIC_CHARSET'),
(Value: 186; Name: 'BALTIC_CHARSET'),
(Value: 204; Name: 'RUSSIAN_CHARSET'),
(Value: 222; Name: 'THAI_CHARSET'),
(Value: 238; Name: 'EASTEUROPE_CHARSET'),
(Value: 255; Name: 'OEM_CHARSET'));

Widzę, że idziesz tą samą drogą, co ja jakiś miesiąc temu, więc jeżeli mogę ci doradzić, to rób na JvxRichEdit z pakietu Jedi - zaoszczędzisz dużo czasu a jak będziesz chciał to sobie kopię Worda zrobisz (ale o to to ci na pewno nie chodzi). Jest tam proporties LangOptions jeżeli LangOptions=[rlAutoFont], to dzieje się dokładnie to o czym piszesz, jeżeli LangOptions=[], to te problemy znikają

Juz chodzi:)
Jak by ktos chcial to cos do symboli:

procedure tform7.znak(Ch:string);
begin
form10.RichEdit1.SelAttributes.Name:='Symbol';
form10.RichEdit1.SelAttributes.Charset:=SYMBOL_CHARSET;
form10.RichEdit1.SelText:=ch;
form10.RichEdit1.SelAttributes.Charset:=DEFAULT_CHARSET;
form10.RichEdit1.SelAttributes.Name:='arial';
end;