Скачать: CL | DM;

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.

---

← →
Defunct ©   (2004-10-08 03:38) [16]

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

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

---

← →
ЮЮ ©   (2004-10-08 04:25) [17]

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

---

← →
Fedia ©   (2004-10-08 04:39) [18]

Попробуй это:

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;


---

← →
ЮЮ ©   (2004-10-08 04:55) [19]

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

---

← →
Fedia ©   (2004-10-08 05:05) [20]

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

---

← →
Fedia ©   (2004-10-08 05:07) [21]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.49 MB
Время: -0.979 c