How does DataGrid in Delphi make it displayed on the line interval? Like the same name control to .NET.
-------------------------------------------------- -------------
It seems to be written in the onDrawDataAcell event.
-------------------------------------------------- -------------
Procedure TFORM1.DBGRIDDRAWCOLUMNCELL (Sender: TOBJECT)
CONST RECT: TRECT; DATACOL: Integer; Column: tcolumn;
State: TGRIDDRAWSTATE);
Begin
If DBGRID2.DATASOURCE.DataSet.Recno Mod 2 = 1 THEN
Begin
DBGRID2.cANVAS.FONT.COLOR: = CLBLUE
DBGRID2.CANVAS.BRUSH.COLOR: = Clyelow;
end
Else Begin
DBGRID2.CANVAS.FONT.COLOR: = CLRED;
DBGRID2.CANVAS.BRUSH.COLOR: = CLGRADIENTACTIVECAPTION;
END;
DBGRID2.DEFAULTDRAWCOLUMNCELL (Rect, Datacol, Column, State);
END;
