Меняем цвет текста в элементе - Общие вопросы Delphi - Страница 2

Pitbull · 12.09.2007, 17:34

Цитата:

Сообщение от Sargon

Нет. Не так работает.

AddColoredLine(RichEdit1, 'Добро пожаловать!', $ffffff);
AddColoredLine(RichEdit1, 'Загрузка программы - завершено', $00a650);
AddColoredLine(RichEdit1, 'Ожидание команд...', $cc0000);

пишу это в загрузку формы вобще не реагирует.
Ставлю на кнопку третья строка выводися не тем цветом(крастный должен, показывает синий).

используй clRed

Sargon · 12.09.2007, 17:51

procedure TForm1.FormCreate(Sender: TObject);
begin
AddColoredLine(RichEdit1, 'Добро пожаловать!', $ffffff);
AddColoredLine(RichEdit1, 'Загрузка программы - завершено', $00a650);
AddColoredLine(RichEdit1, 'Ожидание команд...', clred);
end;

При загрузке не работает. Нет текста. Независемо от цвета

Alex21 · 12.09.2007, 19:46

$cc0000 - верно, это синий цвет.
В Delphi считается так: BBGGRR

Код в студию.

Sargon · 12.09.2007, 21:03

Куча справочников и ничего нужного. К примеру мне надо в текстовом поле загнать в переменную первые 5 символов. Немогу найти текстовые операторы.

Alex21 · 12.09.2007, 21:13

str:=COPY(edit1.Text,1,5);

Sargon, "не рабочий" код в студию.

Stilet · 13.09.2007, 08:06

У меня все работает. Ищи в коде ошибку.

12.09.2007, 19:46	#13
Alex21 With best regards Участник клуба Регистрация: 20.04.2007 Сообщений: 1,448	$cc0000 - верно, это синий цвет. В Delphi считается так: BBGGRR Код в студию. Life is too short, play more... Как правильно задавать вопросы

12.09.2007, 21:13	#15
Alex21 With best regards Участник клуба Регистрация: 20.04.2007 Сообщений: 1,448	str:=COPY(edit1.Text,1,5); Sargon, "не рабочий" код в студию. Life is too short, play more... Как правильно задавать вопросы Последний раз редактировалось Alex21; 13.09.2007 в 08:45.

13.09.2007, 08:06	#16
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	У меня все работает. Ищи в коде ошибку. I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как изменить цвет текста на всей строке в RichEdit, если строка содержит определенное слово??	IIpopoK	Общие вопросы Delphi	0	22.06.2008 07:57
Меняем Explorer	Veiron	Свободное общение	4	19.05.2008 12:51
меняем CS:IP	Shacal	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	11	11.01.2007 20:18
Цвет текста в Мемо через Handle	rpy3uH	Win Api	1	30.10.2006 20:05

12.09.2007, 17:51	#12
Sargon Пользователь Регистрация: 12.09.2007 Сообщений: 34	procedure TForm1.FormCreate(Sender: TObject); begin AddColoredLine(RichEdit1, 'Добро пожаловать!', $ffffff); AddColoredLine(RichEdit1, 'Загрузка программы - завершено', $00a650); AddColoredLine(RichEdit1, 'Ожидание команд...', clred); end; При загрузке не работает. Нет текста. Независемо от цвета

12.09.2007, 21:03	#14
Sargon Пользователь Регистрация: 12.09.2007 Сообщений: 34	Куча справочников и ничего нужного. К примеру мне надо в текстовом поле загнать в переменную первые 5 символов. Немогу найти текстовые операторы.