![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
RichEdit [D6, WinXP]
Lamak © (2002-11-09 03:09:00)Здраствуйте, есть два вопроса.
Можно ли с помощью процедуры Add добавлять строки разных цветов, если да, то как?
Как зделать автопрокрутку, при добавлении новой строки?
lamak (2002-11-14 00:26:00) [1]Спасибо, разобрался...
Guerrillero (2002-11-10 23:32:00) [2]см. хэлп по
SelAttributes
SelStart
SelLength
Lamak (2002-11-10 21:32:00) [3]А по конкретней что-нибудь можно?
На примерах...
Николай Быков (2002-11-09 03:49:00) [4]
> Lamak © (09.11.02 03:43)
Я писал EM_SCROLL. У меня все работало, ну да ладно. С цветами смотри соседнюю ветку
Lamak (2002-11-09 03:43:00) [5]С прокруткой разобрался, надо было вместо em_scroll писать em_linescroll, теперь бы с цветами.
Lamak (2002-11-09 03:39:00) [6]Все равно вверх ползет...
Николай Быков (2002-11-09 03:36:00) [7]только надо поставить -2, т.к. у тебя добавляется одна строка вниз и на одну вверх ты поднимаешься, если -1 поставить
Николай Быков (2002-11-09 03:32:00) [8]
> Lamak © (09.11.02 03:28)
Вместо 1 поставить -1 :-)
Lamak (2002-11-09 03:28:00) [9]На одну строку Вверх, а как зделать, чтобы вниз?
Николай Быков (2002-11-09 03:22:00) [10]Ну можно так
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 букв в право.