Mudar a Cor das Linhas de Grade do DBGrid

Question

Pessoal,Algu�m saberia como mudar a cor das linhas de grade do DBGrid???Valeu Galera!!!!!!!!!!!!!!!Marcelo Ribeiro...

Marceloribeiro · Answer

por favor pessoal... ajuda a�!!!!eu sei que aqui s� tem fera..... p�.......

Pro-luck · Answer

Procure no link Pesquisar que se encontra no topo desta p�gina e tente localizar digitando o seguinte assunto: Colorir o DBGrid.Aperece aos montes...Espero q consiga......

Marceloribeiro · Answer

Cara,O c�digo p/ mudar a cor da linha selecionada e j� tenho...O que eu procuro, � uma forma de deixar aquelas linhas (cinza) da grade do DBGrid tudo preto, ou seja, no lugar do cinza deixar preto, ser� que � poss�vel???? ser� que uma coisa t�o b�sica assim o Delphi n�o permite?Agrade�o a ajuda!!!...

Massuda · Answer

[quote:2eb895df25=�MarceloRibeiro�]O que eu procuro, � uma forma de deixar aquelas linhas (cinza) da grade do DBGrid tudo preto, ou seja, no lugar do cinza deixar preto, ser� que � poss�vel????[/quote:2eb895df25]N�o. Depois de dar uma olhada em como o grid � desenhado, deu para ver que a cor da linha � hard coded... a �nica coisa que se prev� � no caso da cor do grid ser clSilver (o cinza que voc� mencionou), a cor da linha � mudada para clGray (cinza escuro).Neste caso, voc� teria que tirar as linhas do grid (tire as linhas da propriedade Options do grid) e passar a desenhar as linhas voc� mesmo no evento OnDrawColumnCell (no caso do TDBGrid) ou OnDrawCell (caso do TStringGrid e do TDrawGrid)....

Macario · Answer

[quote:1377d9361e=�Massuda�][quote:1377d9361e=�MarceloRibeiro�]O que eu procuro, � uma forma de deixar aquelas linhas (cinza) da grade do DBGrid tudo preto, ou seja, no lugar do cinza deixar preto, ser� que � poss�vel????[/quote:1377d9361e]N�o. Depois de dar uma olhada em como o grid � desenhado, deu para ver que a cor da linha � hard coded... a �nica coisa que se prev� � no caso da cor do grid ser clSilver (o cinza que voc� mencionou), a cor da linha � mudada para clGray (cinza escuro).Neste caso, voc� teria que tirar as linhas do grid (tire as linhas da propriedade Options do grid) e passar a desenhar as linhas voc� mesmo no evento OnDrawColumnCell (no caso do TDBGrid) ou OnDrawCell (caso do TStringGrid e do TDrawGrid).[/quote:1377d9361e]Tipo seria usando a variavel Rect???E nesse caso h� alguma perca de performance?...

Massuda · Answer

[quote:6620bc08fd=�Macario o Aspone�]Tipo seria usando a variavel Rect???[/quote:6620bc08fd]Se eu entendi o que voc� quis dizer, sim. Voc� desenha um peda�o da grade em cada c�lula.

[quote:6620bc08fd=�Macario o Aspone�]E nesse caso h� alguma perca de performance?[/quote:6620bc08fd]N�o a ponto de ser percept�vel.

Macario · Answer

legal. 8) Neste caso preciso aprender sobre ela �TRect�.Tipo alguem pode indicar algum material sobre o assunto?Grato....

Fx|hand · Answer

Ficou um pouco complicado... + se vc intender, e conseguir fazer os loopings pra colorir o negociu... fica legal... ^^
eu usei o StringGrid... + se vc usar o DBGrid tbm dah na mesma !!!

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
r: TRect;
begin
{PEGANDO A LOCALIZA��O DA LINHA}
r.Left := StringGrid1.ColWidths[0] + 2;
r.Top := StringGrid1.RowHeights[0];
r.Bottom := StringGrid1.RowHeights[0] * 2;
r.Right := StringGrid1.Width;

//MUDANDO A COR PRA VERMELHO
StringGrid1.Canvas.Brush.Color := clRed;

//PREENCHENDO COM O VERMELHO A LOCALIZA��O DA LINHA INTEIRA
StringGrid1.Canvas.FillRect(r);

//MUDANDO PRA BSCLEAR
StringGrid1.Canvas.Brush.Style := bsClear;

//MUDANDO A COR DA FONTE
StringGrid1.Canvas.Font.Color := clWhite;

//IMPRIMINDO O TEXTO DA CELULA 1,1
//CENTRALIZADO DE CIMA PRA BAIXO
StringGrid1.Canvas.TextOut(r.Left,(r.Top + r.Bottom - 
StringGrid1.Canvas.TextHeight(StringGrid1.Cells[1,1])) div 2,StringGrid1.Cells[1,1]);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//PREENCHENDO ALGUMAS CELULAS
StringGrid1.Rows[1].Text := �teste�;
StringGrid1.Cols[1].Text := �teste�;
StringGrid1.Cells[1,1] := �teste�;
end;

Byee

Macario · Answer

Na boa n�o consegui adaptar o codigo pra dbgrid.Tipo o tempo ta curto, ultimamente. :roll:...

Emrj · Answer

:D Valeu FX|HanD !!!Me ajudou muito!fiz somente uma adapta��o[b:269edbc866]  if ( ACol mod 2) > 0 then  begin     sgMapa.Canvas.Brush.Color:=$0053A9FF;     sgMapa.Canvas.Font.Color :=clBlack;     sgMapa.Canvas.FillRect(Rect);     sgMapa.Canvas.TextOut(Rect.Left+2, Rect.Top+10, sgMapa.Cells[Acol,ARow]);  end;[/b:269edbc866]Desse jeito cada celula fica de uma cor.Vlw!...

F�rum Mudar a Cor das Linhas de Grade do DBGrid #284995