اريد تغير لون الخط

السلام عليكم

اعلم ان RichEdit احسن من memo لانها تستعمل لمعالجة النصوص

اما ميمو ا فهي لكتاب نص عادي .

ان كانت هناك مشكل ارجو التوضيح وان شاء الله تجد الرد

************************

دائما معكم باتي

شكرا اخ pati

فعلا RichEdit احسن من memo لانها تستعمل لمعالجة النصوص

اهلاً بك اختي Lola

بالنسبة لتسيق النصوص فهو كما ذكر الأخ pati فأستخدام ال RichEdit

وطبعاً اذا كنت تريدين كيفية التنسق

فيمكنك مراجعة المثال التالي في جهازك :

C:Program FilesBorlandDelphi6DemosRichEdit

وتقبلوا اطيب تحياتي اخوكم SUM

شكرا اخ SUM :)

طبعاً اذا كنت مافهمتي لعملية برمجة المثال الي ذكرته لك

فيمكنك استخدام هذا الفانكشن الذي سوف يساعدك في تنسيق النص داخل ال RichEdit

procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor); 
begin 
  with ARichEdit do 
  begin 
    SelStart := Length(Text); 
    SelAttributes.Color := AColor; 
    SelAttributes.Size := 8; 
    SelAttributes.Name := 'MS Sans Serif'; 
    Lines.Add(AText); 
  end; 
end;

وهذا مثال على كيفية استخدام الفانكشن السابق

 

AddColoredLine(RichEdit1, 'Lola', clRed);

وتقلوا اطيب تحياتي اخوكم SUM

بالفعل استطعت تغير لون الخط يعطيك العافيه:)

هذا الكود يقوم بعمل لون لكل كلمة على حده وليس سطر سطر

procedure AddText(MyText : String; txtColor : TColor; RichEdit : TRichEdit);

begin

RichEdit.SelAttributes.Color := txtColor;

RichEdit.SelText := MyText;

RichEdit.SelAttributes.Color := clWindowText;

end;

ولتقوم بتجربته

procedure TForm1.Button1Click(Sender: TObject);

begin

AddText('arabteam', clRed, RichEdit1);

AddText('arabteam', clBlack, RichEdit1);

AddText('arabteam', clGreen, RichEdit1);

end;

إبراهيم_دياب5

اشكرك اخي :) والله الموفق