Опять TRichEdit...

← →
STANT (2003-11-05 01:18) [0]

Не могу догадаться: как в сабж сделать, чтобы отступы были n-ой длины. Вроде мелочь, а нервы потрепала.
И еще, посложнее. Нужно бы подсветить строчку цветом (как в Делфи, подсвечивается строка с ошибкой).
Спасибо.

← →
Спрашивающий_ (2003-11-05 04:18) [1]

1.RichEdit1.Paragraph.FirstIndent := ;
2.
RichEdit1.SelStart:=
RichEdit1.SelLength:=
RichEdit1.SelAttributes.Color:=

← →
Stant (2003-11-06 14:33) [2]

1. Из хелпа: FirstIndent определяет отступ в пикселах первой строки параграфа относительно левого поля. А я имею ввиду отступ, вводимый клавишей Tab на клавиатуре (tab stop). В том же хелпе я нашел свойство Tab, вроде то, что нужно. Но, я так понял, это свойство применяется только к текущему параграфу. Мне же нужно, чтобы свойство было для всех параграфов по умолчанию, как это сделано в редакторе Делфи. Иначе, придется при каждый раз при открытии файла, выделять весь тест и применять к нему атрибуты.
2. К сожалению, тоже не то. Мне необходимо подсветить полностью всю строку начала до конца, а не только текст в этой строке.

Уточню: я делаю не редактор текста, а компилятор. Конечно, RichEdit, не удобен для этого, но на написание собственной компоненты уйдет слишком много времени, решение задачи при этом станет не оправданным. Пригодилась бы готовая компонента.

← →
Serge (2003-11-07 11:03) [3]

Если тебе надо редактор исходников то воспользуйся SynEdit.

← →
han-bratan (2003-11-07 14:36) [4]

with RichEdit do
begin
Lines.Clear;

CurrText.Style := [fsBold];
Lines.Add(ForWord);
ADOQuery.First;
while (not ADOQuery.Eof) do
begin
s := TrimRight(ADOQuery.FieldValues["TRANSLATION"]);
Lines.Add(s);

SelStart := Length(Text) - Length(s) - 2;
SelLength := Length(s);
Paragraph.FirstIndent := 10;
Paragraph.LeftIndent := 10;
CurrText.Style := [];
ADOQuery.Next;
end;
SelStart := 0;
lbCnv.Canvas.Font.Assign(Font);
h := lbCnv.Canvas.TextHeight("G") * Lines.Count;
dh := ClientHeight - h;
if Lines.Count > 1 then
begin
Self.Height := Self.Height - dh + lbCnv.Canvas.TextHeight("G");
// aViewPreview.Execute;
end
else
aViewManager.Execute;
end;

Если че не понятно - пиши прямо на мыло. И не надо SynEdit (rkfccyfz штука, но если не жмет, то лучше не тянуть с собой такой набор компонентов)

Опять TRichEdit... Найти похожие ветки