Her er noget kode som farver alt der er imellem <Comment> og </Comment> blå, og gøre selve attributerne røde:
<pre>
procedure Higlight(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 = '>') then isTag := False;
end;
RichEdit.SelLength := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Lines.BeginUpdate;
Highlight(RichEdit1, clBlue, clRed, clGreen);
RichEdit1.Lines.EndUpdate;
end;
</pre>
I eksemplet har jeg brugt en RichEdit og en Button - Når man klikker Button1 bliver teksten highlighted.
Du kan også skrive <Comment Color="black"> Hej </Comment> så bliver alt der er imellem " og " grønt..
Du kan selvf. selv bestemme farverne og hvilken richedit der skal bruges, ved at ændre det ved :
Highlight(RichEdit1, clBlue, clRed, clGreen);
Highlight proceduren er lavet således:
procedure Highlight(RichEdit: TRichEdit; TextCol, TagCol, DopCol: TColor);
RichEdit er den richedit du bruger, TextCol er altså teksten der er imellem <Comment> og </Comment>, TagCol er selve attributerne, og DopColor er teksten der er imellem " og ".
Håber det virker og at du kan bruge det..
Med Venlig Hilsen
Armen L.A.
EvoxSoft
[Redigeret d. 15/03-04 06:28:14 af Armen L.A.]