تغير لون الكلمه

[NOna]

السلام عليكم

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

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

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

[I_Tiger]

في الخاصية Font للMemo غيري الخاصية الفرعية Color الى اي لون تريدين

[NOna]

أسفه أخي يمكن ما شرحت المقصود صح
التكست الخارج في ال memo راح يكون عباره عن جزء من مقال كامل ، المطلوب إن الكلمه التي أدخلها المستخدم في ال EditBox لأسترجاع هذا الجزء من المقال لحالها تطلع بلون مختلف وليس كل التكست

[kachwahed]

السلام عليكم
تستعمل في مثل هذه الحالة خاصية 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]

بارك الله فيك اخي kachwahed,,, شرح مميز,, اشكرك كثيرا على الإفادة,,

[NOna]

شكرا يا أخي kachwahed جوزيت الجنه
وجزاكم الله خيرا جميعا

[AL-MOB4RM3G]

اشكر مرة اخرى السآئل بارك الله فيك وأشكر المجيب


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

[kachwahed]

المكون label ان كان به الإمكانية لتغيّير كلمة واحدة من الجملة

إذا كان المقصود تغيير الـ Font لكلمة واحدة في Caption لـ TLabel فهذا غير ممكن مباشرة
لكن لا يوجد شيء مستحيل مادام أنه منطقي...
يمكن استخدام خدعة صغيرة عن طريق رسم كلمة بـاستغلال TCanvas عوض الكملة المراد تغيير خطها.

[AL-MOB4RM3G]

نعم بارك الله لك اخي,, جزاك الله خيرا

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

شكرا لك