دخول

Med-01 · 05-02-2022, 08:49 PM

اشتغل لاكن كان لدي كود في الاول من اجل تغير مسار محادات الخلية من الى اليمين الان بعد اضافة الكود الذي وضعته اصبح لا يشتغل الكل ياتي على اليسار بدل اليمين مشكلة اخر اصبح يقوم بملئ جميع الخليا ب 0.00 بشكل تلقائي ؟؟؟ الكود الذي استخدمه من اجل المحدات الى اليمين

كود :
S := StringGrid1.Cells[ACol, ARow];
        SavedAlign := SetTextAlign(StringGrid1.Canvas.Handle, TA_RIGHT);  //  TA_RIGHT     TA_CENTER
      //StringGrid1.Canvas.TextRect(Rect, Rect.Left + (Rect.Right - Rect.Left) div 2, Rect.Top + 2, S);   //   TA_CENTER
        StringGrid1.Canvas.TextRect(Rect, Rect.Right - 2, Rect.Top +5, S);  //  TA_RIGHT
        SetTextAlign(StringGrid1.Canvas.Handle, SavedAlign) ;

Ndagor · 09-02-2022, 11:35 AM

معذرة على الرد المتأخر ,,, في الاول ان كان التطبيق بالعربية فاغير BidiMode الى bdRightToLeft فسوف يتغير Alignement الى اليمين بصفة الية و كذلك العمود الاول سيصبح على اليمين,,

إقتباس :مشكلة اخر اصبح يقوم بملئ جميع الخليا ب 0.00 بشكل تلقائي ؟؟؟

عادة في معظم التطبيقات يتم اظهار قيم العمود بنفس الطريقة ,,,ولكن لا اعلم ما تريد و لا طبيعة تطبيقك ,,,المهم هذا ليس مشكل كبير ان كنت تريد فقط اظهار القيم الصحيحة

كود :
procedure TForm5.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Value:Double;
  W:Integer;
  S:string;
begin
 with StringGrid1 do
  if (ACol=0) then
  begin
     if TryStrToFloat(Cells[ACol, ARow],Value) then
     begin
        S:=FormatFloat('0.00',Value);
        W:=Canvas.TextWidth(S);
        Canvas.TextRect(Rect, Rect.Right-W-2, Rect.Top+2,S);
     end;
  end;
end;

Med-01

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

Ndagor · 10-02-2022, 12:12 PM

على مايبدو انت تحاول كتابة تطبيق قاعدة بيانات او شيء من هذا القبيل فكل المشاكل التي ذكرتها تم معالجتها في المكون TDBGrid لذا يمكنك استعمال ادوات و مكونات قاعدة بيانات صغيرة و سهلة اما باستعمال TClientDataSet او TADO والتي تسهل لك عملية الطباعة ان كنت تحتاتها,,

إقتباس :لو متلا اردت اضافة زر حذف او اضافة سطر في StringGrid1 كيف اقوم بذلك

متلا لدي جدول به 3 اعمدة في هذا الجدول به صفوف وقفت على سطر واردت حذفه او اضافة قبله سطر ؟

لقد قمت باضافت كلاس TU فارغ من اجل الولوج الى الدالتين المخفيتين DeleteRow و MoveRow من اجل حذف و اضافة سطر ,,,

كود :
type
 TU=class(TStringGrid)
 end;
procedure TForm5.DeleteRow();
begin
  with TU(StringGrid1) do
  begin
     if RowCount > 1 then
       DeleteRow(Row)
     else
       Rows[Row].Clear;
  end;
end;
procedure TForm5.InsertRow();
begin
  with TU(StringGrid1) do
  begin
     RowCount:=RowCount+1;
     MoveRow(RowCount-1,Row);
  end;
end;

Med-01 · 11-02-2022, 12:44 PM

بطل والله جزاك الله خيرا
بانسبة لتطبيق انا لا اريد التعامل مع dbgrid لانه عند التكابة في الخلية يتم الحفظ بشكل تلقائ في قاعدة البينات دون ان تطلب ذالك
StringGrid1 احسن اريد بعد ملئها ان يقوم المستخدم بحفظها على راحته او يقوم بطباعتها فيما بعد اريد وضع جدولين في قاعدة البينات
احدهم فيها مستخدم id user متلا والتاني خلايا StringGrid1 كل مستخدم عند له عدد من StringGrid1 خاصة به
نفس فكرة masterdétail
بانسبة للكودين السابقين هذا ما اردته يبقى مشكل يواجهني
متلا عندا خذف سطر اريد ان يبقى التحديد في السطر الذي تحته لانه بعد الحذف اكيد سيصعد السطر السلفي الى الاعلى او يبقى في مكانه
مدام السطر السفلي هو الذي سيصعد الانه الان يتوجه الى اخر خلية في StringGrid1
نفس الشئ عند اضافة سطر جديد اريد ان يبقى التحديد في السطر الذي فوق اي السطر الجديد

Ndagor · 11-02-2022, 09:20 PM

إقتباس :انسبة لتطبيق انا لا اريد التعامل مع dbgrid لانه عند التكابة في الخلية يتم الحفظ بشكل تلقائ في قاعدة البينات دون ان تطلب ذالك

لاباس ان كان التعامل مع StringGrid تفي بالغرض لاحاجة لاعادة كتابت البرنامج خاصة اذا كنت قطعت شوط بعيد ,,,المهم في حال اردت تعامل مع قاعدة بيانات دون تغيير محتواها يمكنك استعمال StartTransaction, عند بدء عملية تحرير المعطيات ثم مناداة Commit لتخزين التغييرات في قاعدة البيانات او Rollback لالغاء كل شيء ,,,بالتوفيق ان شاء الله

إقتباس :متلا عندا خذف سطر اريد ان يبقى التحديد في السطر الذي تحته لانه بعد الحذف اكيد سيصعد السطر السلفي الى الاعلى او يبقى في مكانه
مدام السطر السفلي هو الذي سيصعد الانه الان يتوجه الى اخر خلية في StringGrid1
نفس الشئ عند اضافة سطر جديد اريد ان يبقى التحديد في السطر الذي فوق اي السطر الجديد

الكود السابق كان فيه خطا بسيط في حال حذف ثم اذافة سطر فهذا السطر الجديد لايكون فارغ لذا كان يجب حذف معطيات المرافقة,,, اما بالنسبة لاختيار السطر بعد الحذف فقط قم بتسجيل ترتيب Row السطر الحالي في متغير محلي قبل الحذف او الاضافة و بعد اجراء العملية نعيد Row الى ترتيب الاصلي ,,على كل حال كما في Excel يمكنك تغير هدا السلوك على حسب الطريقة التي تراها مناسبة

كود :
type
TU=class(TStringGrid)
end;
procedure TForm5.DeleteRow();
var
  Curr:integer;
begin
  with TU(StringGrid1) do
  begin
     Curr:=Row;
     Rows[Row].Clear;
     if RowCount > 1 then
       DeleteRow(Row);
     if Curr = RowCount then
        dec(Curr);
     Row:=Curr;
  end;
end;

procedure TForm5.InsertRow();
var
  Curr:integer;
begin
  with TU(StringGrid1) do
  begin
     Curr:=Row;
     RowCount:=RowCount+1;
     MoveRow(RowCount-1,Row);
     Row :=Curr;
     Rows[Row].Clear;
  end;
end;

Med-01

عمل ممتاز في ميزان حسناك ان شاء الله

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

[صورة: 444444.jpg]

Ndagor · 12-02-2022, 10:51 AM

لست متاكد اني فهمت ماقلت و لكن اظن ان النص الذي يظهر مرتين راجع الى عدم مسح الخلية قبل الكتابة ,,,في الدالة OnDrawCellلذا اضافة سطرين قبل عملية الكتابة

كود :
     if TryStrToFloat(Cells[ACol, ARow],Value) then
     begin
        S:=FormatFloat('0.00',Value);
        W:=Canvas.TextWidth(S);
        Canvas.Brush.Color:=Color; // <---
        Canvas.FillRect(Rect);    //  <---
        Canvas.TextRect(Rect, Rect.Right-W-2, Rect.Top+2,S);
     end;

Med-01

السلام علكيم اخي الكريم شكرا لكل مجهود تبذله من اجل المساعدة
ان الله لايضيع اجر المسحنين
هل جزاء الاحسان الا الاحسان
في ميزان حسناتك يارب

بخصوص الكود قم بتحميل الكود br>

https://www.casimages.com/f_get.php?f=8X7IBnRL4Xb
املاء متلا خليتين متلا 100 و 200 اي رقم لا يهم بعدها ضع المؤشر في اول خلية اضغط على shift
و سهم الاسفل لتحديد الخليا سيظهر اما 100 رقم 100 اخر و امام 200 رقم 200 اخر

[صورة: vvvvvvvvvvvv.jpg]

Ndagor · 13-02-2022, 10:08 AM

نعم لقد فهمت و رايت ذلك السلوك في المثال الذي ارسلته و لكن اعتقد ان مشكل في نسخة الدلفي لان البرنامج المصمم في D2009 لاتظهر فيه هذه المشكلة انظر الى ملف D2009في الملف المرفق,,,

لقد قمت باجراء بعض التعديلات لالغاء عملية كتابة النص لاصلية ل TStringGrid و الاكتفاء فقط بالكود DrawCell ,,,

https://www.casimages.com/f_get.php?f=M8X3NOLW4Xb

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة