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 )
لك دعاء في قلبي أخي جزاك الله كل خير
ومن يتهيب صعود الجبال يعش أبد الدهر بين التلال و الحفر