RichEdit

← →
Wish © (2004-10-06 17:46) [0]

Как изменить размер всего шрифта в RichEdit.

← →
Defunct © (2004-10-06 17:46) [1]

Attributes

← →
Jay (2004-10-06 17:47) [2]

RichEdit1.Font

← →
Wish © (2004-10-06 18:04) [3]

Jay
RichEdit1.Font.Size := Integer;

Такое пройдет только с Memo, но не RichEdit. Подскажите пожалуста.

← →
Wish © (2004-10-06 18:50) [4]

Ну подскажите пожалуйста.

← →
CHES © (2004-10-06 18:50) [5]

Почему это не пройдет ?
Все замечательно работает.
Пример кода плз.

← →
Wish © (2004-10-06 18:56) [6]

procedure TMessageForm.Large1Click(Sender: TObject); begin large1.Checked := true; richedit1.Font.Size := 10; end;
Вот, это ничего не изменит в тексте.

← →
CHES © (2004-10-06 19:09) [7]

У тебя где-то какая-то ошибка глупая.
Чтобы убедиться кинь на форму кнопку и в
OnClick сделай richedit1.Font.Size := 10;

З.Ы. Ну может у тебя Font.Size и так равен 10. Сделай его равным 100. И будет тебе счастье :)

← →
Wish © (2004-10-06 20:00) [8]

Нет, у RichEdit текст может иметь разные параметры шрифта поэтому это действие не работает, проверь сам если не верешь.

← →
Defunct © (2004-10-06 21:00) [9]

Wish © (06.10.04 20:00) [8]

Attributes
SelAttributes

← →
Defunct © (2004-10-06 21:06) [10]

Wish © (06.10.04 18:50) [4]

Вы считаете, что ответ [1] был шутки ради?
похоже у вас проблема с F1

procedure TForm1.Button2Click(Sender: TObject); begin RichEdit1.DefAttributes.Size := 15; end;

← →
Wish © (2004-10-06 22:04) [11]

> RichEdit1.DefAttributes.Size := 15;

Ничего не меняется.

← →
Defunct © (2004-10-06 23:25) [12]

Уверен?

просто поставь на форму RichEdit, и выполни для него пример [10]

потом обращаемся к справке и читаем про DefAttributes и SelAttributes и делаем уже то, что конкретно требуется в задаче.

← →
Wish © (2004-10-07 23:25) [13]

Почему-то не работает. Странно.

← →
Okcid (2004-10-07 23:41) [14]

Почитал тут ваш спор, решил проверить на себе и пришёл к выводу, что Defunct абсолютно прав! RichEdit1.DefAttributes.Size:=15; РАБОТАЕТ

З.Ы.: может у Wish какой-то неправильный RichEdit?

← →
MBo © (2004-10-07 23:50) [15]

Если какие-либо атрибуты выделенного текста были изменены, изменение DefAttributes больше не действует.
Once any special attributes are applied to a portion of text, no text from that point on is considered to have the default attributes, even if the attributes match the DefAttributes.

[13] это из серии:

При вызове справочной системы всегда появляется инструкция по приготовлению фаршированной рыбы.

В Worde когда-нибудь менял размер шрифта? Сначала надо выделить весь текст и изменить атрибуты выделенного, а затем атрибуты по-умолчанию

Попробуй это:
procedure TForm1.SpeedButton2Click(Sender: TObject); var i, ch: integer; begin ch:=0; for i:=0 to RichEdit1.Lines.Count-1 do ch:=ch+Length(RichEdit1.Lines.Strings[i]) + 1; RichEdit1.SelStart:=0; RichEdit1.SelLength:=ch; RichEdit1.SelAttributes.Size:=10; RichEdit1.SelLength:=0; end;

первые 4 строчки из [18] = RichEdit1.SelectAll

OK. тогда уже первые пять строчек.

Плюс еще и переменные не нужны :)

RichEdit Найти похожие ветки