Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Вниз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. У меня все работало, ну да ладно. С цветами смотри соседнюю ветку
← →
Lamak (2002-11-10 21:32) [8]А по конкретней что-нибудь можно?
На примерах...
← →
Guerrillero (2002-11-10 23:32) [9]см. хэлп по
SelAttributes
SelStart
SelLength
← →
lamak (2002-11-14 00:26) [10]Спасибо, разобрался...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c