Ya me funciono.... lo pude hacer... Al final agregue 1 campo más al DBGrid, y en el evento OnDrawColumnCell, puse el siguiente Codigo...
Procedure TOrdenes.DBGrid2DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
Begin
if (Column.Index = 3) then
Begin
DBGrid2.Canvas.TextOut(Rect.Left, Rect.Top, IntToStr(IBQ_Items['DOr_Cantidad']*IBQ_Items['DOr_Valor_Unitario']));
End;
End;
// Explicación :
Column.Index = 3, corresponde a la columna que agregue...
Rect,Left, Rect.Top = en realidad no se que significa, pero no me funciona si no pongo esto?... parece que es la posición dentro de la Celda...
IntToStr(IBQ_Items['DOr_Cantidad']*IBQ_Items['DOr_Valor_Unitario']) : Corresponde al calculo que realizo....
__________________
BlueSteel
|