تغییر رنگ خطوط richedit

[shining_eye]

کدی میخوام که خطی که روش هستیم تو richedit کل اون خط به یه رنگ دیگه در آد (مثل زمانی که تو deldhi خطا میگیره و خط قرمز میشه)

[tdkhakpur]

کد زیر را برای پروسه button داخل فرم قرار بدید.


procedure TForm1.Button1Click(Sender: TObject);
var
c, i, len: integer;
begin
c:=0;
With Richedit1 do
begin
for i:=0 to CaretPos.Y-1 do
c:= c + Length(Lines[i])+2; // 2 is for 10 and 13 keys
len := Length(Lines[CaretPos.Y]);
SelStart := c;
SelLength := len;
SelAttributes.Color := clBlue;
SelAttributes.Style := [fsBold, fsItalic];
SelLength:= 0;
end;
end;

[shining_eye]

نمی خوام مقادیری که توی خط هستند رنگشون عوض بشه میخوام دور کل خطی که روش هستم یه کادر رنگی بیاد گفتم مثل حالتی که وقتی تو دلفی یه خطی errorمیده اون خط کلا رنگی میشه

[tdkhakpur]

نمی خوام مقادیری که توی خط هستند رنگشون عوض بشه میخوام دور کل خطی که روش هستم یه کادر رنگی بیاد گفتم مثل حالتی که وقتی تو دلفی یه خطی errorمیده اون خط کلا رنگی میشه

خب RichEdit امکان ترسیم خط را ندارد مگر اینگه خودتان canvas را دستکاری کنید.
ولی این کار احتیاج به کد و تنظیمات زیادی دارد.

[shining_eye]

اینکارو با چه ابزار دیگه ای میتونم انجام بدم؟که ساده هم باشه؟

[kabody]

سلام
منم میخواهم رنگ نوشته لیبل رو عوض کنم بیرون از برنامه می نویسم جواب میده ولی توی برنامه جواب نمیده
procedure TForm1.Button1Click(Sender: TObject);
begin
Doa_label.Caption:=Doa_label.Caption+' ÓáÇã ÍÇáÊ ØæÑå ';
Doa_label.Caption:=Doa_label.Caption+' ãÑÓí ';
Doa_label.Font.Color:=clRed;
Doa_label.Caption:=Doa_label.Caption+'Ç˜Ñã';
Doa_label.Font.Color:=clBlack;
end;

[mbshareat]

سلام
می بخشید چرا بلا فاصله قبل از اینکه رنگ لیبل اعمال بشه رنگ لیبل رو عوض و سیاه می کنین؟