RichEdit

← →
Lamak © (2002-11-09 03:09) [0]

Здраствуйте, есть два вопроса.
Можно ли с помощью процедуры Add добавлять строки разных цветов, если да, то как?
Как зделать автопрокрутку, при добавлении новой строки?

← →
Николай Быков © (2002-11-09 03:22) [1]

Ну можно так
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) RichEdit1: TRichEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin RichEdit1.Lines.Add("qwerty"); SendMessage(RichEdit1.Handle,EM_SCROLL,0,1); end; end.
Здесь есть кнопка и RichEdit1. По нажатии на кнопку добавляется строка и посылаетса сообщение RichEdit"y о прокрутке текста на одну строку вниз и на 0 букв в право.

← →
Lamak © (2002-11-09 03:28) [2]

На одну строку Вверх, а как зделать, чтобы вниз?

← →
Николай Быков © (2002-11-09 03:32) [3]

> Lamak © (09.11.02 03:28)

Вместо 1 поставить -1 :-)

← →
Николай Быков © (2002-11-09 03:36) [4]

только надо поставить -2, т.к. у тебя добавляется одна строка вниз и на одну вверх ты поднимаешься, если -1 поставить

← →
Lamak © (2002-11-09 03:39) [5]

Все равно вверх ползет...

← →
Lamak © (2002-11-09 03:43) [6]

С прокруткой разобрался, надо было вместо em_scroll писать em_linescroll, теперь бы с цветами.

← →
Николай Быков © (2002-11-09 03:49) [7]

> Lamak © (09.11.02 03:43)

Я писал EM_SCROLL. У меня все работало, ну да ладно. С цветами смотри соседнюю ветку

А по конкретней что-нибудь можно?
На примерах...

см. хэлп по
SelAttributes
SelStart
SelLength

Спасибо, разобрался...

RichEdit Найти похожие ветки