wielkość czcionki w programie

jak zmienić wielkość czcionki w elemencie richedit za pomocą okna rozwijanego combo box?

w oncreate wpisz combobox1.items := screen.fonts;

potem w combobox1 Onchange wpisz

(tutaj podam na globalny tekst - wszystko zmieni (nie ten ktory zaznaczysz))

richedit1.font.name :=combobox1.text;

Jak chcesz do calosci to:
RichEdit1.Font.Size := StrToInt(ComboBox1.Text);

A jak do zaznaczonego text to:
najpierw walnij soebi taka funkcje:

function TForm1.CurrText: TTextAttributes;
begin
if RichEdit1.SelLength &gt 0 then Result := RichEdit1.SelAttributes
else Result := RichEdit1.DefAttributes;
end;

a uywasz tego tak:
currtext.Size := StrToInt(ComboBox1.Text)

ZIOMBER on chcial rozmiar czcionki :-)

pozdrawiam PEDROS {hello}

Nie uzywajcie irca i tak nie ma tam nic ciekawego.

Delphi6 Personal

aaa sorry
w oncreate for I:=6 to 100 do
begin
combobox1.items.add(inttostr(i));
end;

w onchange w combobox

richedit1.font.size := strtoint(combobox1.text);

i juz