• 0
ameedoo3000

تكبير حجم اعمدة الـ grid مع خاصية Anchor

سؤال

اخوانى الاعزاء 

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

اليكم سؤال بخصوص تكبير مساحة اعمدة الـ Grid فى حالة تكبيره بخاصية Anchor ، حيث ان الـ grid يكبر من الخارج فقط وتظل مساحة وحجم الاعمدة كما هى ، بل وحجم الخط بداخل الاعمدة كما هو ايضا ، فهل من طريقة لتكبير مساحة اعمدة الـ grid وحجم الخط به مع استخدام خاصية Anchor 

ارجو الافادة 

مع جزيل شكري وتقديري 

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

10 إجابة على هذا السؤال .

  • 0

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

بالنسبة لتغيير عرض الأعمدة، ضع الكود التالي في اجراء Resize

 

LOCAL lnWidth
m.lnWidth=0
oGrd=THIS
FOR m.x = 1 TO oGrd.COLUMNCOUNT
	m.lnWidth=m.lnWidth + oGrd.COLUMNS(m.x).WIDTH
ENDFOR
IF m.lnWidth <> oGrd.WIDTH
	FOR m.x = 1 TO oGrd.COLUMNCOUNT
		oGrd.COLUMNS(m.x).WIDTH=( oGrd.COLUMNS(m.x).WIDTH/m.lnWidth ) * oGrd.WIDTH
	ENDFOR
ENDIF

بالنسبة لتغيير الخط ( ما حبيته أبدا ) لكن يمكن عندي كود خاص فيه، اذا لقيته بزودك  فيه ان شاء الله.

مع التحية

 

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

جميل جدا المتابعة 

الفكرة بسيطة وجميلة جداً

هي اخذ نسبة عرض العمود قبل التكبير 

(عرض العمود مقسوم على عرض الشبكة)

وبعد التكبير يكون عرض العمود

النسبة المستخرجة مضروبة في عرض الشبكة الجديد

تحياتي للجميع

تم تعديل بواسطه LionIraq
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ما شاء الله لا قوة الا بالله 

شئ جميل جدا ومزهل 

جزاكم الله كل خير - اخوانى فى الله 

هذا هو المطلوب ، وان كنت اطمع فى تغيير حجم الخط ايضا يكون لكم جزيل الشكر والتقدير 

خالص تحياتي 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخوانى فى الله - السلام عليكم 

حاولت فى عمل شئ مشابه للكود الرائع للاستاذ عبد الله الجلاد ، ولكن هناك خطأ فى التنفيذ 

ارجو من سيادتكم التكرم بتوضيح سبب الخطأ ، والهدف هو التعلم 

ولكم جزيل الشكر

الكود هو عبارة عن كود لتوسيع اعمدة الـ grid بالشكل المناسب Autofit 

فكتبت هذا الكود 

FOR i = 1 TO thisform.grdTable1.ColumnCount 
thisform.grdTable1.column(TRANSFORM(i)).Autofit
ENDFOR 

وكان هناك خطأ فى تنفيذ السطر الثاني 
ارجو توضيح سبب الخطأ وتصحيحه 

مع جزيل الشكر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

وعليكم السلام ورحمة الله أهلا أخي أحمد

الخطأ الأول في الكود هو نقص الحرف S في Column

والثاني أنه بحاجة رقم العمود كرقم وليس نص فلا داعي لاستخدام Transform

كالتالي،

FOR i = 1 TO thisform.Grid.ColumnCount
		thisform.Grid.Columns(i).autofit 
ENDFOR

وبجميع الأحول تستطيع استخدام الأمر للـ Grid مرة واحدة على النحو التالي :

thisform.grid.AutoFit

مع التحية

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

والله استاذ ورئيس قسم 

جزاك الله كل خير اخى الكبير عبد الله الجلاد 

بس المشكلة لما بشغل الكود       thisform.grid.Autofit 

يعمل على ضبط اول عمود فقط والباقي لأ 

علشان كده لجأت للكود الثاني 

وعموما جزاك الله كل خير وكما قلت من قبل لا حياة بدون شمس .. وانت شمس المنتدى 

تحياتى لك وللجميع 

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الله يسعدك يا أمير هذا والله من ذوقك

لكن الكود بشتغل عادي مع كل الأعمدة، متأكد من ذلك 100% وأعدت تجربته الآن

 

مع التحية

 

 

 

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اكيد انت الصح يا زعيم 

جزاك الله كل خير 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

grid.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

لقد اضفت بعض التعديلات علي الجريد ولكن يوجد مشكلة اخري .عند اختيار اي بيانات من الكمبو بوكس يقوم بتعديل البيانات في السطور الاخري. برجاء المساعدة

grid2.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .