|
Вопрос # 5 706/ вопрос открыт / |
|
Здравствуйте, эксперты! Подскажите пожалуйста как мне программно менять цвет определенной буквы в строке. Допустим переменная i=3 значит в строке сделать 3-ю букву красной...речь идет о RichEdit. И возможно ли это сделать? с использованием метода TextOut рисую на канве формы. Спасибо!
 |
Вопрос задал: vanechka (статус: Посетитель)
Вопрос отправлен: 31 октября 2011, 15:22
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 6; последнее сообщение — 31 октября 2011, 17:25; участников в обсуждении: 3.
|
min@y™ (статус: Доктор наук), 31 октября 2011, 15:35 [#1]:
Так тебе где надо сделать букву красной-то? В ричэдите или на канвасе?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
vanechka (статус: Посетитель), 31 октября 2011, 15:38 [#2]:
Да мне бы то или другое! На ваш выбор! Но будет просто классно если дадите 2 варианта!
|
|
Olga_K (статус: Посетитель), 31 октября 2011, 17:00 [#3]:
В Richedit я думаю так:
richedit1.SelStart:=2 ; //3 символ
richedit1.SelLength:=1;//1 строка
richedit1.SelAttributes.Color:=clred;
|
|
|
min@y™ (статус: Доктор наук), 31 октября 2011, 17:09 [#4]:
А на канвасе надо будет выводить строку с подкрашенной буквой в несколько этапов:
1) выводишь кусок до нужной буквы текущим шрифтом;
2) Canvas.Font.Color:= нужный_цвет;
3) выводишь нужную букву;
4) Canvas.Font.Color:= цвет_который_был_до_этого;
5) выводишь кусок строки после нужной буквы.
Блин, проще кусок кода написать, чем объяснять!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
vanechka (статус: Посетитель), 31 октября 2011, 17:22 [#5]:
Olga78 спасибо! Работает!
|
|
|
Olga_K (статус: Посетитель), 31 октября 2011, 17:25 [#6]:
На канву
x:=1;
y:=1;
for row:=0 to RichEdit1.Lines.Count do
begin
y:=y+15;
s:=richedit1.Lines[row];
for col:=1 to length(richedit1.Lines[row]) do begin
if (col=n) and (row=1) then form1.canvas.font.color:=clred
else form1.canvas.font.color:=clWindowText;
form1.canvas.textout(x,y,s[col]);
x:=x+10
end;
x:=1;
end;
не знаю на сколько это правильно
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
