como pintar colunas no dbgrid apos locate

Question

ola amigos, tenho dezenas de registros e 3 colunas em 1 tabela, preciso pintar somente as 3 colunas apos o locate, como proceder?poste o codigo por favorjunior...

Bruno Belchior · Answer

[code:1:34503b5267]var  Cont: Byte;begin  if Table1.Locate(�Name�, �Boa�, &#91;&93;) then  begin    for Cont := 0 to 2 do      DBGrid1.Columns&91;Cont&93;.Color := clRed;  end;end;[/code:1:34503b5267]Pelo menos foi o que entendi que queria fazer...  :oops:...

Njuniorba · Answer

eh a ideia, mas ele esta pintando todo o grid, quero pintar somente uq achei ex:coluna1   coluna2   coluna3BOLA       AZUL       GRANDEMEIA        PRETA      SUJAse eu busco por MEIA , kero q apos o locate pinte toda a linha da meia, no caso-> MEIA   PRETA   SUJA...

Gigatel · Answer

Estude este c�digo[code:1:8909082451]SELECT DEPT_NO, FIRST_NAME, LAST_NAME, JOB_CODE FROM EMPLOYEE WHERE UPPER(CAST(DEPT_NO AS CHAR(6))||FIRST_NAME||LAST_NAME||JOB_CODE)LIKE�[/code:1:8909082451]aki seleciona somente o procurado.. ainda num tive tempo de trabalhar neste fun��o.....

Bruno Belchior · Answer

mas voc� j� n�o a seleciona com o locate? ou vc quer restringir a sua grid a apenas o conte�do que o [b:de34d66ee5]locate[/b:de34d66ee5] possivelmente encontrou :?:...

Martins · Answer

[quote:4a7ee031cd=�njuniorba�][quote:4a7ee031cd=�Bruno Belchior�][code:1:4a7ee031cd]var  Cont: Byte;begin  if Table1.Locate(�Name�, �Boa�, &#91;&93;) then  begin    for Cont := 0 to 2 do      DBGrid1.Columns&91;Cont&93;.Color := clRed;  end;end;[/code:1:4a7ee031cd]Pelo menos foi o que entendi que queria fazer...  :oops:[/quote:4a7ee031cd]eh a ideia, mas ele esta pintando todo o grid, quero pintar somente uq achei ex:coluna1   coluna2   coluna3BOLA       AZUL       GRANDEMEIA        PRETA      SUJAse eu busco por MEIA , kero q apos o locate pinte toda a linha da meia, no caso-> MEIA   PRETA   SUJA[/quote:4a7ee031cd]Olha s�, o [b:4a7ee031cd]Bruno[/b:4a7ee031cd] lhe passou o c�digo pro q vc pediu, vc foi bem claro em dizer �ola amigos, tenho dezenas de registros e 3 colunas em 1 tabela, [b:4a7ee031cd]preciso pintar somente as 3 colunas apos o locate[/b:4a7ee031cd], como proceder?�. Vc queria pintar as 3 colunas do seu Grid, o c�digo faz isso, mas se a inten��o era encontrar um c�digo q pintasse apenas a linha selecionada com [b:4a7ee031cd]Locate[/b:4a7ee031cd], vc deveria de escrito linha ou inv�s de coluna, por tanto tente mudar o c�digo de Columns para Rows, deve funcionar OK!!Boa Sorte!!!...

Martins · Answer

S� pra lembrar q vc deve fazer algumas modifica��es no c�digo do [b:86cdbd0e5d]Bruno[/b:86cdbd0e5d], pq vc n�o quer selecionar as 3 colunas e sim a linha encontrada pelo locate, ent�o fa�a as devidas modifica��es no c�digo.

Boa Sorte!!!!

Bruno Belchior · Answer

Na verdade no caso de linhas n�o � t�o simples assim. Par isso coloque esse c�digo no evento [b:375a286be3]OnDrawColumCell[/b:375a286be3] do seu grid:

  if gdSelected in State then
    if UpperCase(Column.FieldName) = UpperCase(�Name�) then
      DBGrid1.Canvas.Brush.Color := clRed;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

o detalhe � que aqui eu comparei apenas com a columa [b:375a286be3]Name.[/b:375a286be3] Mas � s� voc� adaptar a suas necessidades comparando com todas as colunas que voc� queira mudar de cor... (obs.: o c�digo s� funciona para o registro selecionado, o mesmo que estaria por exemplo num DBEdit associado ao mesmo DataSource)... :wink:

Martins · Answer

[quote:f3eefef3f5=�Bruno Belchior�]Na verdade no caso de linhas n�o � t�o simples assim. Par isso coloque esse c�digo no evento [b:f3eefef3f5]OnDrawColumCell[/b:f3eefef3f5] do seu grid:

  if gdSelected in State then
    if UpperCase(Column.FieldName) = UpperCase(�Name�) then
      DBGrid1.Canvas.Brush.Color := clRed;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

o detalhe � que aqui eu comparei apenas com a columa [b:f3eefef3f5]Name.[/b:f3eefef3f5] Mas � s� voc� adaptar a suas necessidades comparando com todas as colunas que voc� queira mudar de cor... (obs.: o c�digo s� funciona para o registro selecionado, o mesmo que estaria por exemplo num DBEdit associado ao mesmo DataSource)... :wink:[/quote:f3eefef3f5]

Blz [b:f3eefef3f5]Bruno[/b:f3eefef3f5], agora o colega vai poder utilizar o Grid como queria.

Valew!!!!!

F�rum como pintar colunas no dbgrid apos locate #294373