Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.02.25;
Скачать: [xml.tar.bz2];

Вниз

как разукрасить текст? - очень нужно ...   Найти похожие ветки 

 
человек в сети   (2004-02-12 00:50) [0]

здравствуйте, мастера ... вот конкретный и, думаю, для вас легкий вопрос: у меня есть на форме ричэдит, кнопка1, кнопка2 и простой эдит. Я ввожу слово в эдите, нажимаю на кнопка1 или на кнопка2 и текст из эдита добавляется отдельной строкой в ричэдит. как бы сделать так, чтобы, если нажимаешь на кнопку1, в ричэдит добавлялся текст из эдита синий, а если на кнопку2 то, чтобы красным??? ... заранее благодарен.


 
Алхимик   (2004-02-12 01:01) [1]

RichEdit.SelAttribute.Color
Вроде так.


 
Defunct   (2004-02-12 01:02) [2]

Это совсем не легкий вопрос, сам задавался этим вопросом, но никто не смог помочь. Проблема вот в чем. При раскраске текста ричедит передергивает. Могу поделиться тремя путями раскраски:

1. RichEdit.SelAttributes (можно изменить цвет выделенного фрагмента).

2. Загонять в ричедит строки в формате RTF.

3. Изменять SelAttributes.Color перед выводом строки.

Примеры кода:
http://delphimaster.net/view/1-1076373284/


 
человек в сети   (2004-02-12 01:36) [3]

всем спасибо, Defunc - тебе отдельное ... !


 
человек в сети   (2004-02-12 04:19) [4]

может какие ещё есть соображания по поводу ?


 
Defunct   (2004-02-12 05:50) [5]

А что таки мерцает?
Если вдруг найдешь способ избавиться от мерцания, вышлю пиво по email ;)

IMHO компонент написан криво, в RichEdit даже если цвет не менять, вводимая строка дергается.


 
TUser   (2004-02-12 07:50) [6]

RichEdit1.Lines.BeginUpdate;
// чего-то делаем
RichEdit1.Lines.EndUpdate;
// высылаем пиво


 
человек в сети   (2004-02-12 19:12) [7]

а вообще как решить ту задачу, о которой я говорил в самом начале? ... я ещё просто новичек, и не во всем так сразу могу разобраться. помогите пожалуйста :)


 
Defunct   (2004-02-12 19:40) [8]

procedure TForm1.Button1Click(Sender: TObject);
var Col:TColor;
begin
col:=RichEdit1.SelAttributes.Color;
RichEdit1.SelAttributes.Color:=clRed;
RichEdit1.SelText:=Edit1.Text;
RichEdit1.SelAttributes.Color:=clGreen;
RichEdit1.SelText:=Edit1.Text;
RichEdit1.SelAttributes.Color:=col;
End;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.02.25;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.031 c
1-80017
Developer
2004-02-13 08:59
2004.02.25
Объект автоматизации с поддержкой определенного COM-интерфейса


1-79865
h0use
2004-02-09 16:58
2004.02.25
Работа в D8


14-80196
K.o.Z
2004-01-30 22:10
2004.02.25
DelphiGFX


1-79718
Aligator
2004-02-12 17:12
2004.02.25
Организация запуска программы по рассписанию (напр. раз в месяц)


3-79654
Lucky[ELF]
2004-01-31 01:23
2004.02.25
Как правильно настроить IB6.0 сервер и клиент





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский