![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#4
|
||||
|
||||
|
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 |
|
|
|