Вниз
Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.014 c
1-82773
MixerPro
2002-11-14 15:07
2002.11.25
Надо определить параметры Рабочего Стола.


4-83059
MSAlex
2002-10-10 20:08
2002.11.25
Как отобразить картинку на форме...


3-82663
Holms
2002-11-06 16:22
2002.11.25
ADO + Allow NULL


1-82704
Linder
2002-11-14 13:53
2002.11.25
Динамический массив


1-82689
MetalFan
2002-11-14 11:56
2002.11.25
есть ли дискета в дисководе




   Наверх