الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه Lola في 11 مايو 2002 · 8 رد · 667 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

لو سمحتوا يا اخوان عندي سؤال في تغير Font

اريد ان يكون كل سطر بلون مختلف

لانني عملت برنامج شات واريد ان يكون مثل MSN Messanger

بحث ان يجعل لكل شخص لونه الذي اختاره

اي انه يكون في الميمو اكثر من لون

اذا كان عند اي احد فكره اخرى باستخدام شئ غير الMemo??

#2

السلام عليكم

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

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

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

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

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

#3

شكرا اخ pati

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

#4

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

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

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

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

C:Program FilesBorlandDelphi6DemosRichEdit

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

#5

شكرا اخ SUM :)

#6

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

فيمكنك استخدام هذا الفانكشن الذي سوف يساعدك في تنسيق النص داخل ال 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

#7

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

#8

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

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;

#9

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

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

هذا الموضوع مغلق.

مواضيع مشابهة