Hola a todos:
tengo este código para cambiar de color a AMARILLO o si es salida y verde si es ENTRADA sin embargo en el grid si traigo
mediante un procedimiento todas las entradas el color es correcto pero si en el procedimiento traigo "Todo" ENTRADA Y SALIDAS se pone Amarillo las Entrada y Verde la Salida pero solamente cuando traigo todo los movimientos.
Código Delphi
[-]
procedure TfrmMovimientoProductos.dbgMovDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with TDBGrid(Sender).Canvas do
begin
if dbgMov.DataSource.DataSet.FieldByName('TIPO_MOVIMIENTO').AsString =
'ENTRADAS' then
begin
dbgMov.Columns[8].Color := clGreen;
dbgMov.Columns[8].Font.Color := clWhite;
end
else
begin
dbgMov.Columns[8].Color := clYellow;
dbgMov.Columns[8].Font.Color := clWindowText;
end;
end;
end;
Agradeciendo cualquier comentario referente a este comportamiento. También adjunte imagen donde se muestra esto.
Saludos y Bendiciones
pd: como se hace para adjuntar directamente las imagenes?