VPF::как изменить цвет текста в memo - Форум программистов

c1ber

Дата 22.4.2010, 17:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 1.3.2010
Где: Уфа

Репутация: нет
Всего: нет

str := Nick +' '+ DateToStr(DateTimePicker1.Date)+ #13 + #10 + Edit1.Text;
надо Nick +' '+ DateToStr(DateTimePicker1.Date) сделать жирным и другим цветом, а Edit1.Text не трогать, и чтобы при изменении цвета в мемо с помощью memo1.Font:=fontdialog1.Font; менялся только Edit1.Text
помогите пожалуйста))

~FoX~

Дата 22.4.2010, 17:51 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68

c1ber, Либо RichEdit, либо TextOut

--------------------

…множественность никогда не следует полагать без необходимости…

c1ber

Дата 22.4.2010, 19:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 1.3.2010
Где: Уфа

Репутация: нет
Всего: нет

А можно пример?

Добавлено через 2 минуты и 54 секунды
а как в RichEdit это затолкать если оно должно быть в Memo

VahaC

Дата 22.4.2010, 23:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 4.9.2007

Репутация: нет
Всего: нет

Цитата(c1ber @ 22.4.2010, 19:34

)

А можно пример?

Посмотрите в
DRKB -> VCL -> TRichEdit

Snowy

Дата 23.4.2010, 10:26 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Цитата(c1ber @ 22.4.2010, 19:34

)

а как в RichEdit это затолкать если оно должно быть в Memo

Ты уж определись - либо красить, либо Memo.
Мемо не предназначено для форматированного текста - это банальный многострочный Edit.
Для форматированного текста как раз и существует RichEdit

c1ber

Дата 26.4.2010, 16:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 1.3.2010
Где: Уфа

Репутация: нет
Всего: нет

колдовал я с richedit так и не понял как вот эту часть кода str := Nick +' '+ DateToStr(DateTimePicker1.Date) сделать жирной и синего цвета(((

~FoX~

Дата 26.4.2010, 16:33 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68

Цитата

%Program Files%\Borland\Delphi%Number%\Demos\RichEdit

--------------------

…множественность никогда не следует полагать без необходимости…

c1ber

Дата 26.4.2010, 16:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 1.3.2010
Где: Уфа

Репутация: нет
Всего: нет

я этих примеров кучу видел,но сделать не получается(((не уж то я так туп?
может поможете кодом пещерному человеку?

Matematik

Дата 26.4.2010, 17:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 7
Всего: 50

Код


procedure AddText(ARichEdit: TRichEdit; const AText: string; ABold: Boolean; AColor: TColor);
var sel: TCharRange;
begin
  sel.cpMin := ARichEdit.GetTextLen;
  sel.cpMax := sel.cpMin;
  // перейти в конец рича
  ARichEdit.Perform(EM_EXSETSEL, 0, Longint(@sel));
  // установить стиль
  if ABold then
    ARichEdit.SelAttributes.Style := [fsBold]
  else
    ARichEdit.SelAttributes.Style := [];
  ARichEdit.SelAttributes.Color := AColor;
  // добавить текст
  ARichEdit.Perform(EM_REPLACESEL, 0, Longint(PChar(AText)));
// прокрутить в конец  ARichEdit.Perform(EM_SCROLl, SB_PAGEDOWN , 0);
end;

procedure test;
begin
  RichEdit1.Clear;
  AddText(RichEdit1, '1234', False, clBlack);
  AddText(RichEdit1, 'abcd'#13#10, True, clRed);
  AddText(RichEdit1, 'qwerty', False, clBlack);
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »