المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : تغير لون الكلمه


NOna
26-04-2009, 06:11 PM
السلام عليكم

برنامجي عباره عن إدخال كلمة في EditBox
ومن ثم إخراج هذه الكلمه في Memo ولكن بلون مختلف

ملاحظه : أنا أستخدم Delphi 2007 ومبتدئه

جزاكم الله خيرا جميعا

I_Tiger
26-04-2009, 07:43 PM
في الخاصية Font للMemo غيري الخاصية الفرعية Color الى اي لون تريدين

NOna
27-04-2009, 02:04 AM
أسفه أخي يمكن ما شرحت المقصود صح
التكست الخارج في ال memo راح يكون عباره عن جزء من مقال كامل ، المطلوب إن الكلمه التي أدخلها المستخدم في ال EditBox لأسترجاع هذا الجزء من المقال لحالها تطلع بلون مختلف وليس كل التكست

kachwahed
27-04-2009, 07:48 AM
السلام عليكم
تستعمل في مثل هذه الحالة خاصية SelAttributes الخاصة بالمكون TRichEdit
تسمح هذه الخاصية بتغيير: لون، خط، حجم الخط، ... للجزء المحدد من النص
يتم تحديد جزء من النص المراد التعديل عليه بتمرير قيمة لـ SelStart (التي تمثل بداية الجزء المحدد) وقيمة لـ SelLength (التي تمثل طول الجزء المحدد) ثم القيام بالتعديل باستعمال SelAttributes.
هذا المثال يوضح طريقة الاستعمال:
نضع في مشروع جديد مكون TButton نسمية Button1، ومكون TRichEdit نسميه RichEdit1، ونضيف:
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;

AL-MOB4RM3G
27-04-2009, 10:40 AM
بارك الله فيك اخي kachwahed,,, شرح مميز,, اشكرك كثيرا على الإفادة,,

NOna
27-04-2009, 12:13 PM
شكرا يا أخي kachwahed جوزيت الجنه
وجزاكم الله خيرا جميعا

AL-MOB4RM3G
28-04-2009, 07:52 PM
اشكر مرة اخرى السآئل بارك الله فيك وأشكر المجيب :)


وأغتنم الفرصة وأسأل عن المكون label ان كان به الإمكانية لتغيّير كلمة واحدة من الجملة وشكرا لكم,,

kachwahed
29-04-2009, 10:12 PM
المكون label ان كان به الإمكانية لتغيّير كلمة واحدة من الجملة
إذا كان المقصود تغيير الـ Font لكلمة واحدة في Caption لـ TLabel فهذا غير ممكن مباشرة
لكن لا يوجد شيء مستحيل مادام أنه منطقي...
يمكن استخدام خدعة صغيرة عن طريق رسم كلمة بـاستغلال TCanvas عوض الكملة المراد تغيير خطها.

AL-MOB4RM3G
30-04-2009, 01:59 PM
نعم بارك الله لك اخي,, جزاك الله خيرا

ربما الكانفاس شئ مهم في دلفي ويجب علي تعلمه؟

شكرا لك