Efecto visual DBGrid

[Minio]

Buenas tardes, como no sabía donde colocar mi problema pues aquí lo dejo.

Bueno el tema es que en un DBGrid se produce un efecto visual muy raro, y no he conseguido averiguar por que me pasa. Este efecto solo pasa cuando inserto la primera línea en el DbGrid, y se percibe de manera que el color de la fuente es negro y además en negrita y esta adquiere un color gris como si el DBGrid estuviera des habilitado. Esto es lo primero que yo comprobé, pero mi sorpresa fue que al desplegar la barra de inicio de Windows y quitarse, justo el texto que tapaba del DBGrid adquiría el color propio y el resto queda como he explicado. Lo mismo ocurre al arrastrar una ventana por encima.

Esto es rarisimo, solo me lo hace la primera línea, las siguientes no tiene el mismo problema. Ni siquiera cuando abro un nuevo albarán y cargo los datos, todo perfecto.

Bueno si alguien sabe algo o me puede ayudar, yo encantado...

Gracias a todos.

[Neftali [Germán.Estévez]]

No acabo de entender muy bien, pero por lo que explicas debe ser problema del pintado. ¿Está usando el Grid estandar? ¿Has modificado rutinas de pintado? ¿Puedes colocar una imagen?

[Minio]

Este código es el que tengo puesto en el evento OnDrawColumCell del DBGrid.

Ahora te paso una imagen para que te hagas una idea

Código Delphi [-]
procedure TFmAlbCli.DBGDatosDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  DBGDatos.Columns[0].Font.Color := clBlue;
  with (Sender as TDBGrid) do
    begin
      if DMGestion.TDetAlb.RecNo mod 2 = 0 then
        begin
          Canvas.Brush.Color := clYellow;
          if DBCPOnline.Checked = True then
            begin
              Columns[5].Font.Size := 6;
              Columns[6].Font.Size := 6;
            end
            //Canvas.Font.Size := 6
          else
            begin
              Columns[5].Font.Size := 8;
              Columns[6].Font.Size := 8;
            end
            //Canvas.Font.Size := 8;
        end
      else
        begin
          Canvas.Brush.Color := clWhite;
          if DBCPOnline.Checked = True then
            begin
              Columns[5].Font.Size := 6;
              Columns[6].Font.Size := 6;
            end
            //Canvas.Font.Size := 6
          else
            begin
              Columns[5].Font.Size := 8;
              Columns[6].Font.Size := 8;
            //Canvas.Font.Size := 8;
            end
        end;
        DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;
  if (gdSelected in State) then
      begin
        DBGDatos.Canvas.Brush.Color := clBlue;
        DBGDatos.Canvas.Font.Style := [fsBold];
        DBGDatos.Canvas.Font.Color := clWhite;
        DBGDatos.DefaultDrawColumnCell(Rect, Datacol, Column, State);
      end;
end;

[Minio]

Bueno adjunto te mando 3 imagenes en jpg con cada uno de los estados. Las he tenido que reducir para poder subirlas, no se si lo podrás apreciar bien.

En el primer estado verás lo que pasa cuando inserto el primer registro.

En el segundo lo que he hecho es desplegar la barra de inicio de windows.

Y en el tercero como puedes ver la barra de inicio ha vuelto a su estado normal y lo que se percibe es que la parte que tapaba la barra de menú ha cambiado al color que debe tener. Esto mismo ocurre si pincho sobre la celda, que adquiere el color negro normal, pero solo la celda que he pinchado con el puntero. Al igual sin arrastro una ventana por encima hace lo mismo.

Cuando cargo mas líneas ya no pasa nada raro todo funciona normal.

Bueno he aqui el dilema....

Gracias tio, por que no se por donde cogerlo.[IMG]file:///C:/DOCUME%7E1/Minio/CONFIG%7E1/Temp/moz-screenshot-2.jpg[/IMG]

[Neftali [Germán.Estévez]]

Debes subir las imágenes a algun servidor público, para que podamos verlas. http://imageshack.us/ por ejemplo, y luego utilizas ese link.

[Minio]

Estado 1


Estado 2


Estado 3