15-11-2009, 07:52 PM
السلام عليكم
إستفسار:في دلفي7 : كيف يمكن في Edit تغيير إتجاه النص حسب لغة الكتابة . يعني :
-عندما أكتب بالفرنسية يتجه النص من اليسار إلى اليمين
وعندما أكتب بالعربية يتجه النص من اليمين إلى اليسار آليا وفي نفس الـ Edit
الصفحات : 1 2
15-11-2009, 07:52 PM
16-11-2009, 03:16 PM
وعليكم السلام ورحمة الله أخي
أهلا بك في المنتدى
راجع الموضوع:
http://www.delphi4arab.net/forum/showthr...p?tid=1822
لا تنسى خاصية البحث.
بالتوفيق.
أهلا بك في المنتدى
راجع الموضوع:
http://www.delphi4arab.net/forum/showthr...p?tid=1822
لا تنسى خاصية البحث.
بالتوفيق.
17-11-2009, 05:05 PM
لم أجد ما أبحث عنه في ذلك الموضوع أخي
17-11-2009, 08:12 PM
السلام عليكم ورحمة الله وبركاته ،
وجدت في الإنترنت الكود التالي
لكن صراحة لم أفلح في الكتابة من اليمين إلى اليسار ،
لكن وجدت مكون جميل جدا و خفيف جدا مثل Edit اسمه CDEdit
رابط التحميل
http://gummi.free.fr/download.php?fichier=CDEdit
لا تنسى الرد،:bye1:
دمت في رعاية الرحمن.:monster1:
وجدت في الإنترنت الكود التالي
كود :
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 ؟
فهو أفضل بكثير.
هل جربت المكون 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 )
لك دعاء في قلبي أخي جزاك الله كل خير
بارك الله فيك أخي على تعاونك لن أنسى مساعدتك
لكن الكود دائما يضهر العربية.
--
يكون في النهاية مثلا
if GetWindowsLanguage='Arabe (Algérie)' then
Edit1.Text:='ar'
else
Edit1.Text:='Fr';
--
أي إن كانت لغة النضام الحالية عربية يكتب في AR) Edit )
وإن كانت غير ذلك يكتب فيFr) Edit )
لك دعاء في قلبي أخي جزاك الله كل خير
الصفحات : 1 2