15-11-2009, 07:52 PM
السلام عليكم
إستفسار:في دلفي7 : كيف يمكن في Edit تغيير إتجاه النص حسب لغة الكتابة . يعني :
-عندما أكتب بالفرنسية يتجه النص من اليسار إلى اليمين
وعندما أكتب بالعربية يتجه النص من اليمين إلى اليسار آليا وفي نفس الـ Edit
delphi4arab منتديات دلفي للعرب
›
منتديات دلفي للعرب التعليمية
›
سؤال و جواب حول دلفي
طريقة تغيير إتجاه النص في Edit حسب اللغة
طريقة تغيير إتجاه النص في Edit حسب اللغة
|
طريقة تغيير إتجاه النص في Edit حسب اللغة
|
 في دلفي7 : كيف يمكن في Edit تغيير إتجاه النص حسب لغة الكتابة . يعني : -عندما أكتب بالفرنسية يتجه النص من اليسار إلى اليمين وعندما أكتب بالعربية يتجه النص من اليمين إلى اليسار آليا وفي نفس الـ Edit
16-11-2009, 03:16 PM
وعليكم السلام ورحمة الله أخي
أهلا بك في المنتدى راجع الموضوع: http://www.delphi4arab.net/forum/showthr...p?tid=1822 لا تنسى خاصية البحث. بالتوفيق.
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...
17-11-2009, 05:05 PM
لم أجد ما أبحث عنه في ذلك الموضوع أخي
ومن يتهيب صعود الجبال يعش أبد الدهر بين التلال و الحفر
17-11-2009, 08:12 PM
السلام عليكم ورحمة الله وبركاته ،
وجدت في الإنترنت الكود التالي كود : procedure TForm1.Button1Click(Sender: TObject);
var
OldSysLocal: TSysLocale;
begin
OldSysLocal:= SysLocale;
SysLocale.MiddleEast:= True;
Edit1.BiDiMode:= bdRightToLeft;
SysLocale:= OldSysLocal;
end;لكن صراحة لم أفلح في الكتابة من اليمين إلى اليسار ، لكن وجدت مكون جميل جدا و خفيف جدا مثل Edit اسمه CDEdit رابط التحميل http://gummi.free.fr/download.php?fichier=CDEdit لا تنسى الرد،:bye1: دمت في رعاية الرحمن.:monster1:
18-11-2009, 01:11 PM
بارك الله فيك أخي
لكن هذا الكود يرجع كل اللغات إلى اليمين
ومن يتهيب صعود الجبال يعش أبد الدهر بين التلال و الحفر
19-11-2009, 04:02 PM
لمعرفة لغة النظام:
كود : function GetWindowsLanguage: string;
var
WinLanguage: array [0..50] of char;
begin
VerLanguageName(GetSystemDefaultLangID, WinLanguage, 50);
Result := StrPas(WinLanguage);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetWindowsLanguage);
end;
19-11-2009, 04:45 PM
السلام عليكم ورحمة الله وبركاته،
هل جربت المكون CDEdit ؟ فهو أفضل بكثير.
22-11-2009, 07:17 PM
unprogramme كتب :هل جربت المكون cdedit ؟ حملته ولم أجربه لأني لا أعرف طريقة تثبيته kachwahed كتب :لمعرفة لغة النظام: أين أضع هذا الجزء؟
ومن يتهيب صعود الجبال يعش أبد الدهر بين التلال و الحفر
23-11-2009, 12:58 PM
إقتباس :أين أضع هذا الجزء؟لا تضع أي جزء، فقط استخدم الدالة GetWindowsLanguage كما كتبت لك في المثال. للتوضيح أكثر... انسخ الدالة GetWindowsLanguage ثم اكتب في حدث الضغط على أي زر: كود : ShowMessage(GetWindowsLanguage)
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...
24-11-2009, 09:30 PM
الأخ kachwahed :
بارك الله فيك أخي على تعاونك لن أنسى مساعدتك لكن الكود دائما يضهر العربية. -- يكون في النهاية مثلا if GetWindowsLanguage='Arabe (Algérie)' then Edit1.Text:='ar' else Edit1.Text:='Fr'; -- أي إن كانت لغة النضام الحالية عربية يكتب في AR) Edit ) وإن كانت غير ذلك يكتب فيFr) Edit ) لك دعاء في قلبي أخي جزاك الله كل خير
ومن يتهيب صعود الجبال يعش أبد الدهر بين التلال و الحفر
|
|
|
يقوم بقرائة الموضوع: بالاضافة الى ( 2 ) ضيف كريم