السلام عليكم
ما هي طريقة ضبط النص في memo أو RichEdit بالنمط Justify (ضبط)
والذي يجعل النص كأنه مجموع بمسطرتين من اليمين واليسار فلا نرى سطرا أطول من آخر أو أقصر منه.
لم أجد في خاصية Alginment و Center وLeft و Right.
طريقة ضبط النص Justify
يمكنك إستخدام إستخدام الخاصية CaretPos لتحديد موقع المؤشر عموديا وأفقيا CaretPos.X CaretPos.Y
ومن ثم تعيد ضبط المؤشر للمكان الذي تريد أذكر أنني فعلتها ولكن لم أعد أذكر كيف أعدت ضبط المؤشر ممكن كان بإستخدام
SendMessage سأحاول لعلي أجد ذلك
السلام عليكم
أخي الكريم تابع المثال المرفق من دلفي في المسار C:\Program Files\Borland\Delphi7\Demos\RichEdit
و ستجد فيه مطلبك بعون الله أرجو أن يكون كذلك و إن لم يكن كذلك سيكون هناك حل أخر بعون الله
شاهد الصورة المرفقة و لاحظ الدوائر الحمراء
I'm Away For Sometimes
I'll Finish My Works
Come Back Soon
More Study > More Search > More Try > More Learning > Great Success
السلام عليكم ... هاكم المثال :
أي الضبط من الطرفين وكما قلت
اقتباسكأنه مجموع بمسطرتين من اليمين واليسار
وشكرا
memo و RichEdit لا تدعمان خاصية الضبط.
نفس المثال المرفق في دلفي
I'm Away For Sometimes
I'll Finish My Works
Come Back Soon
More Study > More Search > More Try > More Learning > Great Success
السلام عليكم...
المثال المرفق في دلفي لا يحتوي على طريقة لضبط النص من الجانبين، كما يطلب الأخ.
يمكن ذلك بإرسال رسالة (SendMessage) إلى الـ RichEdit كالتالي:
1. أضف الوحدة RichEdit إلى جملة uses في قسم الـ interface
2. استعمل الكود التالي
- procedure TFRtlForm1.Button1Click(Sender: TObject);
- var
- PF2: PARAFORMAT2;
- begin
- PF2.cbSize := SizeOf(PARAFORMAT2);
- PF2.dwMask := PFM_ALIGNMENT;
- PF2.wAlignment := PFA_JUSTIFY;
- SendMessage(RichEdit1.Handle, EM_SETPARAFORMAT, 0, Integer(@PF2));
- end;
الكود السابق يعمل على ضبط الفقرة المحتوية على مؤشر الكتابة أو الفقرات المحددة معاً.
تبقى مشكلة وحيدة: الأسطر الناقصة (التي لا يمكن توسيعها إلى الجانبين) تتم محاذاتها إلى اليسار، و هذا قد لا يتناسب مع اللغة العربية (إذا وجدت حلاً فالرجاء إخبارنا به).
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم