как в RichEdit добавить линию разделитель, на весь его размер ?

← →
SeNtiMeL © (2003-03-06 01:03) [0]

← →
крот © (2003-03-06 05:42) [1]

В RichEdit - никак, но можно разделить два RichEdit-а

← →
SeNtiMeL © (2003-03-06 22:08) [2]

Зачем мне разделять два РичЕдита ?
Мне нужно добавить просто линию разделитель в текст...

← →
Спрашивающий (2003-03-07 03:20) [3]

крот © частично прав частично нет просто нарисовать линию проблемы нет а вот что называется "закрепить" и использовать для каких либо целей не так то просто(нужно постараться!) вот пример кода рисующего линию на РичЕдит поставь его Клиетом на Форму
procedure TForm1.Button1Click(Sender: TObject);
var
C:TCanvas;
begin
c:=TCanvas.Create;
c.Handle:=GetWindowDc(RichEdit1.Handle);
with C do begin
MoveTo(RichEdit1.Left+3,RichEdit1.Height div 2);
LineTo(RichEdit1.Width-3,RichEdit1.Height div 2);
end;
ReleaseDC(RichEdit1.Handle,c.Handle);
c.Free;

end;

← →
крот © (2003-03-07 06:12) [4]

>SeNtiMeL © (06.03.03 22:08)

А зачем сплиттер в текст, что он там должен делить?

← →
Спрашивающий (2003-03-07 08:50) [5]

А действительно зачем? Не проще ли использовать
RichEdit1.Lines.Add("__________________________");

← →
Anatoly Podgoretsky © (2003-03-07 09:06) [6]

Он же просил на всю ширину, что также подразумевает, что при изменении размеров она также должна меняться. Геморой еще тот.

Да, в том то все и дело....
Нарисовать просто "---", легко, но при изменение ширины, то линия остается на месте, а мне надо, чтобы она менялась...

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var Mx, Lh :Integer; const LineN = 3; // Где линия будет begin Lh := 0; for Mx:=0 to Memo1.Lines.Count-1 do if (Length(Memo1.Lines[Mx])>Lh) and (Mx<>LineN)then Lh := Length(Memo1.Lines[Mx]); Memo1.Lines[LineN] := StringOfChar("_",Lh); end;

Ага, знаю что не то...

да не, это.
Вывести линию на весь экран из "-" легко, но при изменении ширины она не меняется... Можно конечено сделать обработчик и он будет каждый раз, просматривать ричедит и если находит строку с линей перерисовывает ее, под новый размер...

как в RichEdit добавить линию разделитель, на весь его размер ? Найти похожие ветки