| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

RichEdit

Страницы:   < 1 2 >

Wish ©   (2004-10-06 17:46:00) 

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

---

Fedia   (2004-10-08 05:07:00) [1]

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

---

Fedia   (2004-10-08 05:05:00) [2]

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

---

ЮЮ   (2004-10-08 04:55:00) [3]

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

---

Fedia   (2004-10-08 04:39:00) [4]

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

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:25:00) [5]

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

---

Defunct   (2004-10-08 03:38:00) [6]

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

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

---

MBo   (2004-10-07 23:50:00) [7]

Если какие-либо атрибуты выделенного текста были изменены, изменение 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.

---

Okcid   (2004-10-07 23:41:00) [8]

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

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

---

Wish   (2004-10-07 23:25:00) [9]

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

---

Defunct   (2004-10-06 23:25:00) [10]

Уверен?

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

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

---

Wish   (2004-10-06 22:04:00) [11]

> RichEdit1.DefAttributes.Size := 15;


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

---

Defunct   (2004-10-06 21:06:00) [12]

Wish ©   (06.10.04 18:50) [4]

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

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

---

Defunct   (2004-10-06 21:00:00) [13]

Wish ©   (06.10.04 20:00) [8]

Attributes
SelAttributes

---

Wish   (2004-10-06 20:00:00) [14]

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

---

CHES   (2004-10-06 19:09:00) [15]

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

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

---

Wish   (2004-10-06 18:56:00) [16]

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

---

CHES   (2004-10-06 18:50:00) [17]

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

---

Wish   (2004-10-06 18:50:00) [18]

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

---

Wish   (2004-10-06 18:04:00) [19]

Jay
RichEdit1.Font.Size := Integer;

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

---

Jay   (2004-10-06 17:47:00) [20]

RichEdit1.Font

---

Страницы:   < 1 2 >

Наверх