delphi4arab منتديات دلفي للعرب

هل توجد طريقة تمكنني من تلوين Tntdbgrid
فكل الأكواد التي جربتها تعمل فقط على dbgrid الافتراضية

بعد التعديل على الكود الذي وضعه الأخ delphi4ever في موضوع مستقل....نجحت العملية

أولا
نقوم بزيادة السطر التالي مباشرة تحت

كود :
{$R *.dfm}

كود :
type
       AlternGrid = class(TtntCustomDBGrid);

ثم نذهب إلى الحدث OnDrawColumCell الخاص بالمكون TNTDbGridt ونكتب الكود التالي:

كود :
var dataset:Tdataset;
 myColumn: TTntColumn;
begin
  myColumn := Column as TTntColumn;
dataset:= (Sender as TtntDBGrid).DataSource.DataSet;
    with AlternGrid(Sender) do
    begin
         if (DataSet.RecNo mod 2 = 1 ) then
Canvas.Brush.Color := $00E6D9C4
         else
Canvas.Brush.Color := $00EAF7FF;
      if  DataLink.ActiveRecord = Row -1 then
                               begin
Canvas.Font.Color:=clwhite ;
Canvas.Brush.Color:=clblack;
    end;           end ;


tntDBGrid1.DefaultDrawColumnCell(Rect,DataCol,myColumn, State);

you_per7

you_per7