تعريب أدوات ومكونات DynamicSkinForm

[CMT-10]

وعليكم السلام

ان هذا الاجراء موجود بالوحدة SpUtils

كود :

procedure SPDrawText3(Cnvs: TCanvas; S: String; R: TRect; HorOffset: Integer); var TX, TY: Integer; begin if S = '' then Exit; // TX := R.Left + 2 + HorOffset; TX := R.Left + ((R.Right - R.Left)- Cnvs.TextWidth(S)) + HorOffset; TY := R.Top + RectHeight(R) div 2 - Cnvs.TextHeight(S) div 2; // if (Cnvs.Font.Height div 2) <> (Cnvs.Font.Height / 2) then Dec(TY, 1); // Cnvs.TextRect(R, TX, TY, S); end;

وحتى الاجراء الثاني موجود بنفس الوحدة وهو ليس موجود بالوحدة SkinMenus

كود :

procedure SPDrawText2(Cnvs: TCanvas; S: String; R: TRect); var TX, TY: Integer; begin if S = '' then Exit; // TX := R.Left + 2; TX := R.Left + (R.Right - R.Left)- Cnvs.TextWidth(S); TY := R.Top + RectHeight(R) div 2 - Cnvs.TextHeight(S) div 2; // if (Cnvs.Font.Height div 2) <> (Cnvs.Font.Height / 2) then Dec(TY, 1); // Cnvs.TextRect(R, TX, TY, S); end;

ولاحظ التغييرات بكل اجراء ولقد نسختهما مباشرة من الملف وبشكل كامل

[Anter2010]

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

اخي cmt-10 اعلم ذالك جيدا فقط عندي استفسار حول الصورة التي وضعتها للقوائم هي لمكونات
AlphaControl
وليست للمكونات DynamiqueSkin
اذا كانت لمكونات Alphacontrol فانا ليس عندي مشكلة مع القوائم المشكلة فيما يخص القوائم في DynamiqueSkin

نجح الامر نسبيا
اظن ان المكون spSkinMainMenuBar1 يلعب دور ايضا في تغير الاتجاه القائمة في بداية الامر لما وضعت المكون على النافذة تغير الاتجاه الى اليمين
ولما اضفت المكونات spcmprsdstrdskn1 +spdynmcsknfrm1 +spskndt1 على الفورم يعود الاتجاه الي اليسار
صورة المثال

[CMT-10]

وعليكم السلام

الصورة ليست لمكون Alphacontrol والوحدة spSkinMainMenuBar1 تلعب دورا ايضاً هذا صحيح .
اذا لم ينجح معك فربما نسيت ان ادرج تغييرا قمت به . لاني اقوم بالتصليحات ولا ادونها او فاتني منها البعض ربما

[Anter2010]

السلام عليكم و رحمة الله تعالى و بركاته
اخي cmt-10
اولا :اشكرك لما تقوم به من مجهودات و تفاعلك مع الموضوع
ثانيا : ثانيا لا باس في ان ترفق الوحدة المعدلة ان اردت ان لم يكن هناك مانع و شكرا لك مسبقا
ثالثا: عندي استفسار فقط حول امكانية استعمال المكونات المعربة باللغة الاجنبية ثانية هل هذا يمكن

[CMT-10]

السلام عليكم

ساحاول رفع الملفات لا مشكلة .ولكن المشكلة هي انني قد اكون اجريت تعديلا بوحدة من الوحدات ونسيتها .
على العموم ساراجع كل الوحدات عندما احصل على وقت فراغ .
بالنسبة للغة الانجليزية فيمكنك اعادت السطور الى ما كانت عليه .
أو افعل ما كنت سأفعله وهو اختبار قيمة IsRightToLeft للنموذج عن طريق الخاصية Parent أو من أي خاصية .
اذا كانت من اليمين الى اليسار طبقت التغيير والا فيتم تطبيق الكود الرئيسي .
المشكلة أنني انهي منظومة الان ومشغول بها وببعض الامور والا لكنت اكملت العمل . وعكفت على دراسة الكود .
واعتقد انك مبرمج لا بأس به ولن يعجزك الامر لو حاولت . بالنسبة للقوائم هي اصعب من الاشياء الاخرى .
لانه يجب وضع النص ومحاذاته الى اليمين وكذلك اللوح الذي تحت الكتابة .
وكذلك القائم ككل الى يمين النموذج . عمل كثير ...!
انجزت بعضه وكنت احتاج الى تدخل المهتمين مثلك لنكمل العمل معاً. ولم يتبقى الكثير .
والله الموفق

[Anter2010]

السلام عليكم و رحمة الله تعالى و بركاته
اخي بارك الله فيك على كل حال انت مشكور على كل ما تقدمه من الطرح و المجهودات المثمرة و الطيبة
اعادها الله عليك في ميزان الحسنات
ساحاول بما استطعت فعله فعلا انا لم اصل المستوى الذي انت عليه لكن ساحاول ان شاء الله

[CMT-10]

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

لا عليك كلنا نحاول التعلم والاستفادة على العموم انظر للمرفق



  1255dsf.rar (الحجم : 117.57 ك ب / التحميلات : 54)

[Anter2010]

السلام عليكم و رحمة الله تعالى و بركاته
اخي CMT-10 هذا ما حدث معي