11-09-2010, 02:33 AM
شكرا مشرفنا العزيز على الرد
وكل عام وانت بخير وجميع اسرة منتدانا العزيز وجميع الاعضاء الكرام
عزيزي انا ما اقدرت ان اوضف الجدول محل الصورة لكي اعرض ارقام التاريخ
هذا المشروع كاملا مرفق
عسى نلقى الحل عندكم وشكرا مقدما
وكل عام وانت بخير وجميع اسرة منتدانا العزيز وجميع الاعضاء الكرام
عزيزي انا ما اقدرت ان اوضف الجدول محل الصورة لكي اعرض ارقام التاريخ
كود :
For i:=1 to 37 do begin
with ImgArray[i] do begin
Picture.Bitmap.Canvas.Brush.Style:=bsClear;
ADate:=StrToDate('1.'+'9'+'.'+'2010');
If (GD=1) then begin
If (DayOfWeek(ADate)=WeekDay) Then begin
Picture.Bitmap.Canvas.Font.Color:=clRed;
Picture.Bitmap.Canvas.Font.Size:=10;
Picture.Bitmap.Canvas.TextOut(15,1,IntToStr(GD));
هنا يبدأ بطباعة التاريخ كيف يطبع في ال stringGrid بدلا من picture.bitmap.canvace
فقط استبدل الصورة بجدول فقط
Tag:=GD;
GD:=GD+1;عسى نلقى الحل عندكم وشكرا مقدما