مربع النص متعدد الأسطر-RichEdit in Delphi
في هده التدوية سنرى مكون شبيه بمربع النص العادي الموجود في حزمة المكونات Win32 وهو مكونRichEdit1
وهو مربع نص متعدد الأسطر بإمكاننا كتابة عدد كبير من الأسطر بذخله حسب الحجم المستعمل داخل الفورم
يمكننا أيضا التحكم في الخائص و الأحداث الخاصة بهذا المكون و التي نعمل عليها و رأينها و سنراها خلال جميع الدروس
طيلة هذه الدورة و طيلة عملنا بالبرمجة على لغة دلفي
يمكننا استعمال هذا المكون في برمجة محرر نصوص BLOC - NOTE شبيه بمحرر النصوص الموجود على الويندوز
من أهم الخصائص الموجودة في لائحة الخصاص هل الخاصية Lines
هده الخاصية تسمع لنا بإضافة أسكر و قيم
و لكن من المهم جدا العمل على هذا المكون عن كريق الأكواد
لدينا مجموعة من الأكواد للعمل على هذا المكون
procedure TForm1.FormShow(Sender: TObject);
begin
with RichEdit1 do نستعمل التعليمة لعدم تكرار اسم المكون أثناء البرمجة
begin
SetSelText('xcvxcvxvxvxvxcvxvxvcvxcvxvxcvxvxcvxcv'
+ #13#10) ; نستعمل هذا الكود للنزول الى السطر
-------------------------------------------------------------------------------------------------------------
SelAttributes.Size := 20;
SelAttributes.Color := clred;
SetSelText('xcvxcvxvxvxcvxvxcvxcv'+ #13#10 ) ; هذا الكود خاص بتغيير لون الكتابة و ارجاعها
SelAttributes.Size := 14;
SelAttributes.Color := clblack;
SetSelText('xcvxcvxvxvxvxcvxvxvcvxcvxvxcvxvxcvxcv' ) ;
-------------------------------------------------------------------------------------------------------------
SelAttributes.Style := [fsBold];
SetSelText('xcvxcvxvxvxvxcvxvxvcvxcvxvxcvxvxcvxcv'+ #13#10 ) ;
SelAttributes.Style := [TFontStyle.fsItalic];
SetSelText('xcvxcvxvxvxvxcvxvxvcvxcvxvxcvxvxcvxcv' + #13#10) ;
قد يعجبك ايضا
SelAttributes.Style := [TFontStyle.fsUnderline];
SetSelText('xcvxcvxvxvxvxcvxvxvcvxcvxvxcvxvxcvxcv'+ #13#10 ) ;
SelAttributes.Style := [TFontStyle.fsStrikeOut];
SetSelText('xcvxcvxvxvxvxcvxvxvcvxcvxvxcvxvxcvxcv'+ #13#10 ) ;
--------------------------------------------------------------------------------------------------------------
الكود السابق لغيير بعض الخصائص بالنسبة للكتابة
SelAttributes.Style := SelAttributes.Style - [TFontStyle.fsItalic];
SetSelText('xcvxcvxvxvxvxcvxvxvcvxcvxvxcvxvxcvxcv'+ #13#10 ) ;
SelAttributes.Style := SelAttributes.Style - [TFontStyle.fsUnderline];
SetSelText('xcvxcvxvxvxvxcvxvxvcvxcvxvxcvxvxcvxcv'+ #13#10 ) ;
SelAttributes.Style := SelAttributes.Style - [TFontStyle.fsStrikeOut];
SetSelText('xcvxcvxvxvxvxcvxvxvcvxcvxvxcvxvxcvxcv'+ #13#10 ) ;
SelAttributes.Style := SelAttributes.Style - [fsBold];
SetSelText('xcvxcvxvxvxvxcvxvxvcvxcvxvxcvxvxcvxcv'+ #13#10 ) ;
الكود السابق لحذغ ماتم تغييره و العودة الى الحالة الأولى
end;
وفي هذا الفيديو سنرى بالتفصيل العمل على هذا المكون
