Форум: "Основная";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];
Вниз
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] был шутки ради?
похоже у вас проблема с F1procedure 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 вся ветка
Форум: "Основная";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.037 c
