06-05-2011, 02:38 PM
06-05-2011, 03:25 PM
لم أفهم سؤالك
شاهد المرفق وعسا يفيدك
شاهد المرفق وعسا يفيدك
06-05-2011, 03:50 PM
شكرا على المحاولة ولكن ليس هذا ما ابحث عنة
الصورة واضحة هل يمكنك ان تصنع مثلها بالدلفي؟
لا ينبغي ان يشمل التغير كل text ولكن البعض فقط وليس الكل
هذا العبارة
تحويلها مثل الصورة
![[صورة: picture0001h.png]](http://img638.imageshack.us/img638/2550/picture0001h.png)
الصورة واضحة هل يمكنك ان تصنع مثلها بالدلفي؟
لا ينبغي ان يشمل التغير كل text ولكن البعض فقط وليس الكل
هذا العبارة
كود :
This Delphi 2010 Development Essentials manual covers the fundamentals and the new
features in Delphi 2010, 2009 and 2007 compared to Delphi 7.![[صورة: picture0001h.png]](http://img638.imageshack.us/img638/2550/picture0001h.png)
06-05-2011, 04:39 PM
استخدم TRichEdit
بالتوفيق
06-05-2011, 05:18 PM
ممكن توضح بمثال اذا تكرمت
06-05-2011, 07:18 PM
كود :
procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor);
begin
with ARichEdit do
begin
SelStart := Pos(AText, Text) - 1;
SelLength := Length(AText);
SelAttributes.Color := AColor;
SelAttributes.Size := 16;
SelAttributes.Style := [fsBold];
SelAttributes.Name := 'MS Sans Serif';
SelText := AText;
// Lines.Add(AText);
end;
end;كود :
procedure TForm1.Btn1Click(Sender: TObject);
begin
AddColoredLine(RichEdit1, 'delphi, clGreen);
AddColoredLine(RichEdit1, 'Hallo', clred);
end;06-05-2011, 07:39 PM
اخي B.M.AbdelAziZ انت حقا خبير ومتواضع وصاحب معرفة ليس لها حدود
انا اهنيك واشكرك جزيل الشكر واتمنى ان تضل معنا في هذا المنتدى الرائع.
انا اهنيك واشكرك جزيل الشكر واتمنى ان تضل معنا في هذا المنتدى الرائع.
06-05-2011, 10:06 PM
السلام عليكم ورحمة الله وبركاته ،
ممكن تستعين بالمثال المرفق مع الدلفي ،
تجده في المسار :
C:\Program Files\Borland\Delphi7\Demos\RichEdit
وفقك الله لكل خير.
ممكن تستعين بالمثال المرفق مع الدلفي ،
تجده في المسار :
C:\Program Files\Borland\Delphi7\Demos\RichEdit
وفقك الله لكل خير.