Problemas en el pintado de un Tdbgrid

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

En este caso ya lo he cambiado yo.

[joancmb]

Hola,
El elemento utilizado es un DBGRID normal, el que esta en la Paleta de herramientas en los Data Controls.
No he modificado los colores.
Os pongo el codigo para ver si alguién ve alguna cosa rara.

Código Delphi [-]
procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure dshistoriasDataChange(Sender: TObject; Field: TField);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

uses  Unit1, Unit11;

procedure TForm2.Button1Click(Sender: TObject);
begin
if ehistoria.Text='0' then
begin
  qhistorias.Close;
  qhistorias.SQL.Clear;
  qhistorias.SQL.Add('select * from tabla where apel1 like'+''''+eapellido1.Text+''''+' and apel2 like '+''''+eapellido2.Text+''''+' and nombre like '+''''+enombre.Text+'''');
  qhistorias.sql.Add(' order by apel1,apel2,nombre');
  qhistorias.Open;
end;
if ehistoria.text<>'0'  then
begin
  qhistorias.close;
  qhistorias.sql.clear;
  qhistorias.sql.add('select * from tabla where codhis='+ehistoria.text+' order by codhis');
  qhistorias.open;
end;
ehistoria.text:='0';
eapellido1.text:='%';
eapellido2.text:='%';
enombre.text:='%';

end;

procedure TForm2.Button2Click(Sender: TObject);
begin

tdtinetti.Insert;
tdtinettiHistoria.value:=qhistoriascodhis.value;
tdtinettiDprova.Value:=date;
tdtinetti.Post;
tdtinetti.Edit;
form11.ShowModal;
if form11.ModalResult=mrok then tdtinetti.Post else tdtinetti.Cancel;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm2.DBGrid2DblClick(Sender: TObject);
begin
Form11.showmodal;
end;

procedure TForm2.dshistoriasDataChange(Sender: TObject; Field: TField);
begin
tdtinetti.Close;
tdtinetti.Parameters.ParamByName('ehistoria').Value:=qhistoriascodhis.Value;
tdtinetti.Open;
end;



procedure TForm2.FormShow(Sender: TObject);
begin
    adoconnection1.Open;
    adoconnection2.Open;
    qhistorias.Open;

    if paramcount>0 then
       begin
          ehistoria.Text:=paramstr(2);
          button1.click;
       end
    else
    begin
       ehistoria.Text:='0';
    end;
    qusuarios.Close;
    qusuarios.Parameters.ParamByName('eusuario').Value:=form1.usuario.Text;
    qusuarios.Open;
end;


end.

Gracias.

[joancmb]

Hola a todos,
ya he solucionado el problema en la propiedad drawingStyle del DBGRID le he puesto la opción gdsGradient y ya funciona bien.
Gracias a todos.