Ver Mensaje Individual
  #2  
Antiguo 02-05-2004
Avatar de Combat-F2D
Combat-F2D Combat-F2D is offline
Miembro
 
Registrado: may 2003
Ubicación: Toletum
Posts: 454
Reputación: 22
Combat-F2D Va por buen camino
no de si conoceras los componentes RX denominados las rusas; miralas por encima, re ofrecen bastantes posibilidades en cuanto a posibilidades de componentes, con efectos, calendarios y demas; en el club debesde tener los link a ellas.

en cuanto a cambiar el color de una celda determinada, prueba con este evento y este codigo:

Cita:
procedure TfGestionAlbaranes.dbGrigAlbaranDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
const
clPaleGreen = TColor($CCFFCC);
clPaleRed = TColor($CCCCFF);
begin
if Column.Field.Dataset.FieldbyName('IMPORTE').AsFloat = 0
then
if (gdFocused in State)
then
begin
dbGrigAlbaran.canvas.brush.color := clBlack;

end
else
begin
dbGrigAlbaran.canvas.brush.color := clPaleGreen;
dbGrigAlbaran.canvas.Font.Color := clRed;
end;
dbGrigAlbaran.DefaultDrawColumnCell(rect,DataCol,Column,State)
end;
si te fijas dependiendo del valor del campo IMPORTE, toma un color u otro;

espero que te sirva
__________________
online
Responder Con Cita