+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : طريقة تغيير إتجاه النص في Edit حسب اللغة (/showthread.php?tid=1331)
الصفحات:
1
2
طريقة تغيير إتجاه النص في Edit حسب اللغة - khiro.alg - 15-11-2009
السلام عليكم
إستفسار:في دلفي7 : كيف يمكن في Edit تغيير إتجاه النص حسب لغة الكتابة . يعني :
-عندما أكتب بالفرنسية يتجه النص من اليسار إلى اليمين
وعندما أكتب بالعربية يتجه النص من اليمين إلى اليسار آليا وفي نفس الـ Edit
طريقة تغيير إتجاه النص في Edit حسب اللغة - kachwahed - 16-11-2009
وعليكم السلام ورحمة الله أخي
أهلا بك في المنتدى
راجع الموضوع:
http://www.delphi4arab.net/forum/showthread.php?tid=1822
لا تنسى خاصية البحث.
بالتوفيق.
طريقة تغيير إتجاه النص في Edit حسب اللغة - khiro.alg - 17-11-2009
لم أجد ما أبحث عنه في ذلك الموضوع أخي
طريقة تغيير إتجاه النص في Edit حسب اللغة - أبو معاذ - 17-11-2009
السلام عليكم ورحمة الله وبركاته ،
وجدت في الإنترنت الكود التالي
كود :
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:
طريقة تغيير إتجاه النص في Edit حسب اللغة - khiro.alg - 18-11-2009
بارك الله فيك أخي
لكن هذا الكود يرجع كل اللغات إلى اليمين
طريقة تغيير إتجاه النص في Edit حسب اللغة - kachwahed - 19-11-2009
لمعرفة لغة النظام:
كود :
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;طريقة تغيير إتجاه النص في Edit حسب اللغة - أبو معاذ - 19-11-2009
السلام عليكم ورحمة الله وبركاته،
هل جربت المكون CDEdit ؟
فهو أفضل بكثير.
طريقة تغيير إتجاه النص في Edit حسب اللغة - khiro.alg - 22-11-2009
unprogramme كتب :هل جربت المكون cdedit ؟
حملته ولم أجربه لأني لا أعرف طريقة تثبيته
kachwahed كتب :لمعرفة لغة النظام:
أين أضع هذا الجزء؟
طريقة تغيير إتجاه النص في Edit حسب اللغة - kachwahed - 23-11-2009
إقتباس :أين أضع هذا الجزء؟لا تضع أي جزء، فقط استخدم الدالة GetWindowsLanguage كما كتبت لك في المثال.
للتوضيح أكثر... انسخ الدالة GetWindowsLanguage ثم اكتب في حدث الضغط على أي زر:
كود :
ShowMessage(GetWindowsLanguage)طريقة تغيير إتجاه النص في Edit حسب اللغة - khiro.alg - 24-11-2009
الأخ kachwahed :
بارك الله فيك أخي على تعاونك لن أنسى مساعدتك
لكن الكود دائما يضهر العربية.
--
يكون في النهاية مثلا
if GetWindowsLanguage='Arabe (Algérie)' then
Edit1.Text:='ar'
else
Edit1.Text:='Fr';
--
أي إن كانت لغة النضام الحالية عربية يكتب في AR) Edit )
وإن كانت غير ذلك يكتب فيFr) Edit )
لك دعاء في قلبي أخي جزاك الله كل خير