+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تغير لون الكلمه (/showthread.php?tid=849)
تغير لون الكلمه - NOna - 26-04-2009
السلام عليكم
برنامجي عباره عن إدخال كلمة في EditBox
ومن ثم إخراج هذه الكلمه في Memo ولكن بلون مختلف
ملاحظه : أنا أستخدم Delphi 2007 ومبتدئه
جزاكم الله خيرا جميعا
تغير لون الكلمه - I_Tiger - 26-04-2009
في الخاصية Font للMemo غيري الخاصية الفرعية Color الى اي لون تريدين
تغير لون الكلمه - NOna - 27-04-2009
أسفه أخي يمكن ما شرحت المقصود صح
التكست الخارج في ال memo راح يكون عباره عن جزء من مقال كامل ، المطلوب إن الكلمه التي أدخلها المستخدم في ال EditBox لأسترجاع هذا الجزء من المقال لحالها تطلع بلون مختلف وليس كل التكست
تغير لون الكلمه - kachwahed - 27-04-2009
السلام عليكم
تستعمل في مثل هذه الحالة خاصية 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;
تغير لون الكلمه - AL-MOB4RM3G - 27-04-2009
بارك الله فيك اخي kachwahed,,, شرح مميز,, اشكرك كثيرا على الإفادة,,
تغير لون الكلمه - NOna - 27-04-2009
شكرا يا أخي kachwahed جوزيت الجنه
وجزاكم الله خيرا جميعا
تغير لون الكلمه - AL-MOB4RM3G - 28-04-2009
اشكر مرة اخرى السآئل بارك الله فيك وأشكر المجيب
وأغتنم الفرصة وأسأل عن المكون label ان كان به الإمكانية لتغيّير كلمة واحدة من الجملة وشكرا لكم,,
تغير لون الكلمه - kachwahed - 29-04-2009
إقتباس :المكون label ان كان به الإمكانية لتغيّير كلمة واحدة من الجملةإذا كان المقصود تغيير الـ Font لكلمة واحدة في Caption لـ TLabel فهذا غير ممكن مباشرة
لكن لا يوجد شيء مستحيل مادام أنه منطقي...
يمكن استخدام خدعة صغيرة عن طريق رسم كلمة بـاستغلال TCanvas عوض الكملة المراد تغيير خطها.
تغير لون الكلمه - AL-MOB4RM3G - 30-04-2009
نعم بارك الله لك اخي,, جزاك الله خيرا
ربما الكانفاس شئ مهم في دلفي ويجب علي تعلمه؟
شكرا لك