if QueryVisible.asInteger =  0  then
    begin
    if (gdFocused in State) or (gdSelected in State) then
        begin
        Grid.Canvas.Brush.Color := clSilver;
        Grid.Canvas.Font.Color := clBlack;
        end
    else
        begin
        Grid.Canvas.Brush.Color := clGray;
        Grid.Canvas.Font.Color := clSilver;
        end;
    end;
Grid.DefaultDrawColumnCell(Rect,DataCol,Column,State);