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

مشاهدة النسخة كاملة : تلوين جزء من الميموا عن طريق ال colordialog ؟

AL-MOB4RM3G
02-01-2009, 06:54 PM
السلام عليكم ورحمة الله
اخواني الكرام...

اليوم صادفتني مشكلة والله المستعان..

وهي كيفية التعامل مع الألوان في ميمو ؟
يعني المراد هو... تلوني بعض الكلامات وليس كل الكلمات...

يعني دعوني اضرب لكم مثال للتوضيح...

لو اردت انا ان الون الميمو كلها لستخدمت هذا الكود :

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
if colordialog1.Execute then
memo1.Font.Color:= colordialog1.Color;
end;

ولكن المطلوب هو تلوين قطعة من الكتابة ..

يعني مثلا

تلوين قطعة من الميموا

فكرت ولكن بدون جدوا...
بارك الله فيكم
rober
02-01-2009, 09:47 PM
السلام عليكم
أخي الكريم استبدل الـ memo بـ richedit
هناك مثال جاهز و جيد للتعامل معها في المسار program Files\Borland\Delphi\Demos\RichEdit
يمكنك تلوين جزء معين من النص كما تريد بأستخدامها
AL-MOB4RM3G
03-01-2009, 06:58 AM
نعم ...
بارك الله لك اخي على مساعادتك...

سأراها الآن ان شاء الله..
AL-MOB4RM3G
03-01-2009, 12:36 PM
السلام عليكم اخواني...

في الحقيقة اخي الملف الذي ذكرته ليس موجود عندي..
وبلتالي المشكلة ما زالت موجودة...

بارك الله فيكم..
Dr.MOT
03-01-2009, 12:39 PM
السلام عليكم ,,

هناك مكون يعمل عمل هذا ,, طرح في المنتدىا


اليك هذا المكون المعروف لعمل ما يسمى بالـــ highlighting مرفق مع امثلة كثيرة لكيفية استعماله



هــنــا (http://delphi4arab.com/forum/attachment.php?attachmentid=411&d=1230294814)

والسلام عليكم ,
AL-MOB4RM3G
03-01-2009, 03:51 PM
نعم اخي الله يكرمك...
لم اكن اعلم ان هذا الموكون يقوم بهذا العمل..
هو موجود مع الدرس الأخير و الله اعلم... اليس كذلك :rolleyes:

على كل حال سأجربه ان شاء الله وأرد عليكم خبر,,,

بارك الله لك..
Delphawi
13-07-2009, 07:55 PM
هل هناك طريقة أخرى غير استعمال المكونات ؟

لأنني تعبت كثيرا مع Memo و RichEdit ولم أصل إلى حل
kachwahed
13-07-2009, 09:00 PM
السلام عليكم
أخي المبرمج... تلوين كلمة من TMemo غير ممكن (مبدئيا)، ولذلك تستخدم TRichEdit، راجع:
http://www.delphi4arab.com/forum/showpost.php?p=7123&postcount=4
أظنك نسيت البحث هذه المرة :D
Delphawi
13-07-2009, 10:16 PM
جزاك الله خيراً أخي على الطريقة

وانا تسرعت قليلاً, فبعد وضعي للمشاركة السابقة وجدت الحل في هذه الصفحة :
http://www.mail-archive.com/delphi@elists.org/msg02087.html

:)
AL-MOB4RM3G
14-07-2009, 09:46 AM
أظنك نسيت البحث هذه المرة

ههههه,, لا اخي,, بل اظن انك نسيت ان تطلع على تآريخ الموضوع ,,, :D

على كل حآل اخي دلفآوي,, رآبط قد يفيد مع ال RichEdit من هنا (http://delphi.about.com/od/delphitips2008/qt/format_richedit.htm)
James
16-07-2009, 02:41 AM
عندما تضع هذا السطر في العملية التنفيدية لأي زر procedure OnClick :
;RichEdit1.SelAttributes.Color:=clred
وطبعا بعد اختيار selction جزء من الكتابة في RichEdit
انقر على الزر وسيصبح الجزء المختار سابقا ملونا باللون الأحمر.... يمكنك تغيير clred باالون المختار من colorDlG
................هذا والله أعلم