|
Ando super perdida, no entender nada...
mira aqui te muestro como lo escribi.....y mas abajito te explico...
Procedure GrillaDrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer; Column:TColumn; State: TGridDrawState);
begin
if (Grilla.DataSource.DataSet['Espesor'] > 0 ) then begin
Grilla.DataSource.DataSet['Espesor'].OnGetText := qrCotDetalleEspesorGetText ;
end;
Procedure qrDetalleEspesorGetText(Sender:TField; var Text:string; DisplayText:Boolean) ;
Begin
if TField(sender).Value > 0 Then
Text := FormatFloat('0.0000',TField(Sender).Value) ;
end ;
en el evento DrawColumnCell de la Grilla (GrillaDrawColumnCell), aqui es la instancia en donde necesito evaluar el dato, por decir algo aqui se esta dibujando la grilla.
al compilar asi como esta escrito arriba, me reclama por falta de parametros en "qrCotDetalleEspesorGetText", que a simple vista si me faltan...
despues de alguna manera agrego los parametros que faltan, compilo y me sale el sgte msg de error
project sisventas.exe raised exception class EVariantInvalidOpError with message "Invalid variant operation'.
y lo otro que no logro entender, como replico lo que tu me explicas en el post, con respecto hacer click en tabla, add all fields, evento, onGetText, mi tabla o query no existe hasta que se ejecuta el programa....
igual trate de hacer algo pero no di.,....
pucha ojala no te aburras,,, y sigas tratando de explicarme....
|