Font Size selector

← →
aleyna (2005-12-29 00:14) [0]

вот зделал Font selector. Но не могу по этойже схеме зделать Font Size selector,помагите.

procedure TForm1.ComboBox1Change(Sender: TObject); begin richedit1.Font.Name:=combobox1.Text; end;
on create
combobox1.Items:=screen.Fonts;

← →
Bogdan1024 © (2005-12-29 00:20) [1]

richedit1.Font.size:=strtoint(edit1.text);

← →
Bogdan1024 © (2005-12-29 00:20) [2]

или тебе нужно загнать все размеры шрифта в комбобокс?

← →
Bogdan1024 © (2005-12-29 00:22) [3]

Шрифты не имеют ограниченный набор своих размеров, пропиши свои значения сам "по умолчанию".

> richedit1.Font.Name:=combobox1.Text;

чтобы изменить не весь текст а только часть:
richedit1.SelAttributes.name:=strtoint(combobox1.text)

← →
aleyna (2005-12-29 01:15) [5]

спасибо всем.

Font Size selector Найти похожие ветки