محاذة toolbar و pagecontrol نحو اليمين

amine_aa كتب:

السلام عليكم ورحمة الله وبركاته

اعاني كثيرا مع البرامج باللغة العربية خصوصا مع toolbar و pagecontrol و treeview

مع انني استخدمت المكون الذي برمجه الاخ عروة لكن دون فائدة ارجو منكم مساعدتي

بارك الله فيكم

وعليكم السلام ورحمة الله وبركاته

استخدم Raize Components

تجدها في الرابط التالي في نسختها الاخيره

الرابط الخاص بي

وفقك الله

السلام عليكم...

بالنسبة إلى الـ ToolBar و الـ PageControl فإن الـ Raize Components كما قال الأخ hez124 تقدم الحل الأمثل لمظهر اليمين-إلى-اليسار (Right-to-Left lLayout).

أما بالنسبة إلى الـ TreeView فإن تقنية المرآة باستعمال دوال API تنفع معها:

1. قم بتعريف الإجراء التالي:

procedure MakeControlRTL(Control: TWinControl);
var
    OldLong: LongWord;
begin
    OldLong := GetWindowLong(Control.Handle, GWL_EXSTYLE);
    Control.BiDiMode := bdLeftToRight;
    SetWindowLong(Control.Handle, GWL_EXSTYLE, OldLong or WS_EX_LAYOUTRTL);
    Control.Repaint;
end;

2. في إجراء الحدث OnCreate للـ Form قم باستدعاء الإجراء مع تمرير اسم الـ TreeView:

procedure TForm1.FormCreate(Sender: TObject);
begin
    MakeControlRTL(TreeView1);
end;

* جربت من مدة استعمال نفس الطريقة مع الـ ToolBar. تتم عملية الانعكاس و لكن يظهر تشوه على الـ ToolBar.

نرجو الاستفادة و السلام.

بالمناسبة مجموعة i18n Package

تقدم حلول كثيره للغة العربية مثل توفير رزنامه هجرية وصناديق رسائل عربيه و treeview باتجاه عربي وغيرها

وتوجد في الرابط

i18n Package

شكرا