مشاهدة النسخة كاملة : تغير لون الكلمه
السلام عليكم
برنامجي عباره عن إدخال كلمة في EditBox
ومن ثم إخراج هذه الكلمه في Memo ولكن بلون مختلف
ملاحظه : أنا أستخدم Delphi 2007 ومبتدئه
جزاكم الله خيرا جميعا
I_Tiger
26-04-2009, 07:43 PM
في الخاصية Font للMemo غيري الخاصية الفرعية Color الى اي لون تريدين
أسفه أخي يمكن ما شرحت المقصود صح
التكست الخارج في ال 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,,, شرح مميز,, اشكرك كثيرا على الإفادة,,
شكرا يا أخي 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
نعم بارك الله لك اخي,, جزاك الله خيرا
ربما الكانفاس شئ مهم في دلفي ويجب علي تعلمه؟
شكرا لك
vBulletin® , Copyright ©2008-2012