15-07-2022, 09:01 PM
(15-07-2022, 08:49 PM)Delphi4Us كتب : [ -> ]هذا مثال على السريع جربهشكرا بارك الله فيك
كود :if (Column.Field.FieldName='name') and (Fname = Column.Field.Value) then begin DBGrid1.Canvas.Brush.Color := clRed ; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end else begin DBGrid1.Canvas.Brush.Color := clWhite ; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; if (Column.Field.FieldName='name') then Fname:=Column.Field.Value;
الفكرة على السريع تحتاج منك ان تقوم بترتيب الاسماء ابجديا بحيث تصبح المتكررة وراء بعضها
بعدها في حدث الرسم تقوم بمقارنة القيمة الجديدة بالقيمة السابقة
لاحظ اقول السابقة لان المتغير الذي نضع فيه الاسم بنهاية الكود مما يجعل قيمته دائما هي القيمة السابقة
فلو كانت متطابقة للقيمة الجديدة بالسطر الجديد يجعل لونه بالاحمر
يحتاج منك الى القليل من الضبط والاهتمام
ولو انني لا افضل هذا الاسلوب واظهار القيم المكررة بواسطة استعلام