تغير لون الكلمه

[kachwahed]

السلام عليكم
تستعمل في مثل هذه الحالة خاصية SelAttributes الخاصة بالمكون TRichEdit
تسمح هذه الخاصية بتغيير: لون، خط، حجم الخط، ... للجزء المحدد من النص
يتم تحديد جزء من النص المراد التعديل عليه بتمرير قيمة لـ SelStart (التي تمثل بداية الجزء المحدد) وقيمة لـ SelLength (التي تمثل طول الجزء المحدد) ثم القيام بالتعديل باستعمال SelAttributes.
هذا المثال يوضح طريقة الاستعمال:
نضع في مشروع جديد مكون TButton نسمية Button1، ومكون TRichEdit نسميه RichEdit1، ونضيف:

PHP كود :

procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor);
begin
  with ARichEdit do
  begin
    SelStart := Length(Text);
    SelAttributes.Color := AColor;
    SelAttributes.Size := 8;
    SelAttributes.Style := [fsBold];
    SelAttributes.Name := 'Tahoma';
    Lines.Add(AText);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  AddColoredLine(RichEdit1, 'Delphi4Arab', clBlue);
  AddColoredLine(RichEdit1, 'Kachwahed', clGreen);
end;