Текущий архив: 2004.01.16;
Скачать: CL | DM;

Вниз

как выделение цветом текста RichEdit между заданными символами   Найти похожие ветки 

← →
miracle_fox ©   (2004-01-03 13:01) [0]

помогите сделать подсветку (выделение) текста в ричэдите ...
как, например, сделать, чтобы весь текст между квадратными скобочками был красным?

---

← →
Anatoly Podgoretsky ©   (2004-01-03 13:28) [1]

SelAttributes

---

← →
miracle_fox ©   (2004-01-03 13:36) [2]

подскажите поподробнее пожалуйста ... я не понял.
желательно кода немнога. прошу (слёзно). ко мне сестра приехала. я хочу с ней в киев поехать, а мне эту работу млин по ману делать надо. билеты взяты уже. уезжать завтра вечером. но если успевать не буду, то билетики придётся сдать :(((... больше возможности не будет такой ... поэтому я уже 4 дня форумы штормлю
поймите меня правильно. поэтому ко всем и пристаём.. :)

---

← →
Zew ©   (2004-01-03 13:47) [3]

Вот пример но не проверял

procedure HTMLSyntax(RichEdit: TRichEdit; TextCol,
TagCol, DopCol: TColor);
var
i, iDop: Integer;
s: string;
Col: TColor;
isTag, isDop: Boolean;
begin
iDop := 0;
isDop := False;
isTag := False;
Col := TextCol;
RichEdit.SetFocus;

for i := 0 to Length(RichEdit.Text) do
begin
RichEdit.SelStart := i;
RichEdit.SelLength := 1;
s := RichEdit.SelText;

if (s = "<") or (s = "{") then isTag := True;

if isTag then
if (s = """) then
if not isDop then
begin
iDop := 1;
isDop := True;
end
else
isDop := False;

if isTag then
if isDop then
begin
if iDop <> 1 then Col := DopCol;
end
else
Col := TagCol
else
Col := TextCol;

RichEdit.SelAttributes.Color := Col;

iDop := 0;

if (s = ">") or (s = "}") then isTag := False;
end;

RichEdit.SelLength := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Lines.BeginUpdate;
HTMLSyntax(RichEdit1, clBlue, clRed, clGreen);
RichEdit1.Lines.EndUpdate;
end;

---

← →
miracle_fox ©   (2004-01-03 14:23) [4]

спасиба большое ... а куда всё это вставляьб и где здесь менять значки (между которыми выделение)? жду ответа

---

← →
miracle_fox ©   (2004-01-04 00:04) [5]

люде, помогите ... разве никто не знает? напишите кусочек кода ...

---

← →
имя   (2004-01-04 00:14) [6]

Удалено модератором

---

← →
miracle_fox ©   (2004-01-04 00:21) [7]

куда его запихнуть? :) ... так он ведб для html или всё не так ...

---

← →
имя   (2004-01-04 22:23) [8]

Удалено модератором

---

Страницы: 1 вся ветка

Текущий архив: 2004.01.16;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.024 c