[pr] Problem z czcionką w RichEdit

No więc tak mam procedurkę: (pisze z pamięci bo delphi u mnie uruchamia sie chyba ze dwie miuty ;-) )

If Richedit.SelText <> '' //jesli jest jakis zaznaczony tekst 
then RichEdit.SelAtributes.Font.Size:=StrToInt Combobox.Text //Daje rozmiar zaznaczonemu tekstowi jaki jest w Comboboxie
else //i tu już nie wiem ;-)

Chodzi o to że gdy nie ma zanzaczonego tekstu to niech ustawi taką czcionke jak jest w comboboxie i niech dalej pisze taką, A ten tekst który był wcześniej ma zostać w swoim romiarze. A i tak pewnie mnie nie zrozumiecie :-/ .

[do postu niżej]
Troche źle mnie zrozumiałeś. Chodzi mi oto co by dodać po else gdy nie jest żaden tekst, żeby zmieniło czcionke na inną. Tak jak masz w Wordzie. Klikasz żeby pisało 14 to pisze dalej 14, a jak zanzaczysz jakiś tekst i zmienisz na 14 to tylko ten zaznaczony tekst zmieni na 14. Może mnie ktoś zrozumie.

[dopisane]
Dzięki wam za wszystko. Ttroche źle tłumaczyłem i nieznam się zabardzo na delphi. Ale wszystko jest juz OK.

z tego co rozumiem to bez tego else bedzie ok :-|

RichEdit1.SelAttributes.Name := nazwa czcionki;

nie wiem czy zczailem ale w wordzie jest w podobie :

dodaj do buttona
//r to TRichEdit
with r.SelAttributes do
color := clRed;
r.SelAttributes.Name := 'CourierNew';
r.SelAttributes.Style := Font.Style + [fsBold];
//lub inne opjce zwiazane z TRichEdit

end;

z tego co rozumiem to bez tego else bedzie ok :-|

No wlaśnie. Tez tak myśle po co ci else?
Walisz tylko:

if Richedit.SelText <> '' //jesli jest jakis zaznaczony tekst
then RichEdit.SelAttributes.Size:=(strtoint(Combobox.text)) //Daje rozmiar zaznaczonemu tekstowi jaki jest w Comboboxie

i już.
[browar]

A po co ci w ogóle RichEdit.SelText<>' '
Jeśli SelText=' ' to własnie oznacza, że zmieniasz parametry tekstu za kursorem, a zatem napisz po prostu

RichEdit1.SelAttributes.Size:=
StrToInt(ComboBox.Items.Strings[ComboBox.ItemIndex]);

Jak będizesz chciał pokazać parametr tekstu w aktualnym miejscu kursora to dla OnKeyDown i OnMouseDown napisz
ComboBox.ItemIndex:=
ComboBox.Items.IndexOf(IntToStr(RichEdit1.SelAttributes.Size));

gdzie w ComboBox wpiszesz poszczególne wartości rozmiarów
np: 8
9
10
itd