[lazarus-br] Mudar a cor de texto de uma célula do dbGrid

Discussion:

Marcelo Weihmayr

2011-08-22 16:02:58 UTC

Estou tentando mudar a fonte de uma célula em um dbGrid, mas sempre acusa
este erro:

" Identifier not found "TGridDrawState" "

O debug aponta para a procedure do DrawColumnCell onde estou codificando.

--
Você recebeu esta mensagem porque está inscrito no Grupo "Lazarus-BR"
nos Grupos do Google.
Para postar neste grupo, envie um e-mail para
lazarus-br-/***@public.gmane.org
Para cancelar a sua inscrição neste grupo, envie um e-mail para
lazarus-br+unsubscribe-/***@public.gmane.org
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/lazarus-br?hl=pt-BR

silvioprog

2011-08-22 23:51:36 UTC

Permalink

Post by Marcelo Weihmayr
Estou tentando mudar a fonte de uma célula em um dbGrid, mas sempre acusa
" Identifier not found "TGridDrawState" "
O debug aponta para a procedure do DrawColumnCell onde estou codificando.

Marcelo Weihmayr

2011-08-23 00:04:31 UTC

Permalink

OK, vou tentar ser mais claro!

Estou tentando mudar o font.color de uma célula em questão!
Pesquisei e encontrei algumas alguns posts relacionados e até mesmo alguns
exemplos seu (Silvio), mas mesmo assim ocorre erro na compilação, o código
que estou testando em um DbGrid é este:

if (DBGrid1.Cells[aCol, aRow] = 'Test') then
DBGrid1.Font.Color := clBlue
else
DBGrid1.Font.Color := clWindowText;

Que encontrei neste link http://www.freepascal.com.br/viewtopic.php?t=321 !

Fiz o teste em um StringGrid e deu certo. Mas quero usar um DbGrid e tentei
usar o mesmo evento "DBGrid1PrepareCanvas" da dbGrid porém o mesmo erro
ocorre não encontrando o identificador "unit1.pas(30,46) Error: Identifier
not found "TGridDrawState"

Grato.

Post by silvioprog

Geralmente quando ninguém responde é pq o autor da dúvida não foi mais
específico na pergunta. Dificilmente alguém poderá ajudá-lo sem ver
pelo menos parte do código onde você esta tentando pintar a célula.
--
Silvio Clécio
===============================================
Blog - <silvioprog.com.br>
Twitter - <twitter.com/silvioprog>
LazSolutions - <code.google.com/p/lazsolutions>
LazWebSolutions - <code.google.com/p/lazwebsolutions>
Lazarus-BR - <groups.google.com.br/group/lazarus-br?hl=pt-BR>
===============================================
* Conheça nosso canal IRC sobre Lazarus: #lazarus-br *
===============================================
--
Você recebeu esta mensagem porque está inscrito no Grupo "Lazarus-BR"
nos Grupos do Google.
Para postar neste grupo, envie um e-mail para
Para cancelar a sua inscrição neste grupo, envie um e-mail para
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/lazarus-br?hl=pt-BR

Daniel Gaspary

2011-08-23 00:14:51 UTC

Permalink

Post by silvioprog
o código
if (DBGrid1.Cells[aCol, aRow] = 'Test') then
DBGrid1.Font.Color := clBlue
else
DBGrid1.Font.Color := clWindowText;

Poderia ter colado o erro, mas deve estar dando errado porque Cells é
propriedade de uma Grid, não dbgrid.

Marcelo Weihmayr

2011-08-23 00:17:36 UTC

Permalink

O aviso de erro é este "Identifier not found "TGridDrawState" " apontando
para a procedure

procedure DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;
Column: TColumn; AState: TGridDrawState);

Post by Daniel Gaspary

Post by silvioprog
o código
if (DBGrid1.Cells[aCol, aRow] = 'Test') then
DBGrid1.Font.Color := clBlue
else
DBGrid1.Font.Color := clWindowText;

Poderia ter colado o erro, mas deve estar dando errado porque Cells é
propriedade de uma Grid, não dbgrid.
--
Você recebeu esta mensagem porque está inscrito no Grupo "Lazarus-BR"
nos Grupos do Google.
Para postar neste grupo, envie um e-mail para
Para cancelar a sua inscrição neste grupo, envie um e-mail para
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/lazarus-br?hl=pt-BR

Marcelo Weihmayr

2011-08-23 00:38:10 UTC

Permalink

Obrigado pela paciência e resposta de todos, encontrei o que eu precisava,
na sequencia do post:
procedure TcadEmpresasF.DBGrid2DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);

begin
inherited;
if (Column.Field.FieldName = 'NOME') then // Aqui o campo a colorir
begin
if condição then // coloque aqui sua condição de quando colorir
begin
DBGrid1.Canvas.Brush.Color:= clAqua;
DBGrid1.Canvas.Font.Color:= clWindowText;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;

http://www.freepascal.com.br/viewtopic.php?f=11&t=321&start=10

Post by Marcelo Weihmayr
O aviso de erro é este "Identifier not found "TGridDrawState" " apontando
para a procedure
procedure DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;
Column: TColumn; AState: TGridDrawState);

Post by Daniel Gaspary

Post by silvioprog
o código
if (DBGrid1.Cells[aCol, aRow] = 'Test') then
DBGrid1.Font.Color := clBlue
else
DBGrid1.Font.Color := clWindowText;

Marcelo Weihmayr

2011-08-23 00:39:31 UTC

Permalink

Ah, gostaria de entender a linha após o begin "inherited" (herdando)?

Post by Marcelo Weihmayr
Obrigado pela paciência e resposta de todos, encontrei o que eu precisava,
procedure TcadEmpresasF.DBGrid2DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
inherited;
if (Column.Field.FieldName = 'NOME') then // Aqui o campo a colorir
begin
if condição then // coloque aqui sua condição de quando colorir
begin
DBGrid1.Canvas.Brush.Color:= clAqua;
DBGrid1.Canvas.Font.Color:= clWindowText;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;
http://www.freepascal.com.br/viewtopic.php?f=11&t=321&start=10
O aviso de erro é este "Identifier not found "TGridDrawState" " apontando

Post by Marcelo Weihmayr
para a procedure
procedure DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;
Column: TColumn; AState: TGridDrawState);

Post by Daniel Gaspary

Post by silvioprog
o código
if (DBGrid1.Cells[aCol, aRow] = 'Test') then
DBGrid1.Font.Color := clBlue
else
DBGrid1.Font.Color := clWindowText;

Marcelo Weihmayr

2011-08-23 08:33:57 UTC

Permalink

Eu havia feito um teste em um form separado e aparentemente deu certo.
Tentando fazer novamente o mesmo problema ocorre
Este é meu código:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
inherited;
if (Column.Field.FieldName = 'estestatus') then
begin
if (Column.Field.Value = 'E') then
begin
DBGrid1.Canvas.Brush.Color:= clAqua;
DBGrid1.Canvas.Font.Color:= clWindowText;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;

O mesmo erro (error) unit1.pas(23,63) Error: Identifier not found
"TGridDrawState", não compila.

Post by Marcelo Weihmayr
Ah, gostaria de entender a linha após o begin "inherited" (herdando)?
Obrigado pela paciência e resposta de todos, encontrei o que eu precisava,

Post by Marcelo Weihmayr
procedure TcadEmpresasF.DBGrid2DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
inherited;
if (Column.Field.FieldName = 'NOME') then // Aqui o campo a colorir
begin
if condição then // coloque aqui sua condição de quando colorir
begin
DBGrid1.Canvas.Brush.Color:= clAqua;
DBGrid1.Canvas.Font.Color:= clWindowText;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;
http://www.freepascal.com.br/viewtopic.php?f=11&t=321&start=10
O aviso de erro é este "Identifier not found "TGridDrawState" " apontando

Post by Marcelo Weihmayr
para a procedure
procedure DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;
Column: TColumn; AState: TGridDrawState);

Post by Daniel Gaspary

Post by silvioprog
o código
if (DBGrid1.Cells[aCol, aRow] = 'Test') then
DBGrid1.Font.Color := clBlue
else
DBGrid1.Font.Color := clWindowText;

Rafael Tuim Elias

2011-08-23 10:24:29 UTC

Permalink

Testei o código abaixo e funcionou com perfeição em um aplicativo meu.

procedure TFManutRetornos.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State:
TGridDrawState);
begin
if (Column.Field.FieldName = 'peso') then
begin
if (Column.Field.Value > 10) then
begin
DBGrid1.Canvas.Brush.Color:= clAqua;
DBGrid1.Canvas.Font.Color:= clWindowText;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;

Lazarus 0.9.31 31999 + FPC 2.5.1 em WinXP32
--
___________________________________________________

* **Rafael Tuim Elias*

Ubuntu User number is # 33865
Site - lazarus-cgi <http://lazarus-cgi.co.cc>
Yield Better - www.yieldbetter.com.br
LazSolutions - http://code.google.com/p/lazsolutions/
LazWebSolution - http://code.google.com/p/lazwebsolutions/

Junte-se a nós no canal IRC *#lazarus-br* em *Freenode*

silvioprog

2011-08-23 10:39:32 UTC

Permalink

Post by Rafael Tuim Elias
Testei o código abaixo e funcionou com perfeição em um aplicativo meu.
procedure TFManutRetornos.DBGrid1DrawColumnCell(Sender: TObject;
TGridDrawState);
begin
if (Column.Field.FieldName = 'peso') then
begin
if (Column.Field.Value > 10) then
begin
DBGrid1.Canvas.Brush.Color:= clAqua;
DBGrid1.Canvas.Font.Color:= clWindowText;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;
Lazarus 0.9.31 31999 + FPC 2.5.1 em WinXP32
--
___________________________________________________
* **Rafael Tuim Elias*
Ubuntu User number is # 33865
Site - lazarus-cgi <http://lazarus-cgi.co.cc>
Yield Better -www.yieldbetter.com.br
LazSolutions -http://code.google.com/p/lazsolutions/
LazWebSolution -http://code.google.com/p/lazwebsolutions/
Junte-se a nós no canal IRC *#lazarus-br* em *Freenode*

No meu também \o/ :

http://imagebin.org/169281

--
Silvio Clécio
===============================================
Blog - <silvioprog.com.br>
Twitter - <twitter.com/silvioprog>
LazSolutions - <code.google.com/p/lazsolutions>
LazWebSolutions - <code.google.com/p/lazwebsolutions>
Lazarus-BR - <groups.google.com.br/group/lazarus-br?hl=pt-BR>
===============================================
* Conheça nosso canal IRC sobre Lazarus: #lazarus-br *
===============================================

Marcelo Weihmayr

2011-08-23 12:52:01 UTC

Permalink

OK, realmente declarei a unit Grids e funcionou perfeitamente! Embora, em um
teste que eu havia feito fora do meu projeto ter dado certo. Imaginei que as
units Graphics, DBGrids eram o bastante.
Grato mais uma vez pelo socorro.

Post by silvioprog

http://imagebin.org/169281
--
Silvio Clécio
===============================================
Blog - <silvioprog.com.br>
Twitter - <twitter.com/silvioprog>
LazSolutions - <code.google.com/p/lazsolutions>
LazWebSolutions - <code.google.com/p/lazwebsolutions>
Lazarus-BR - <groups.google.com.br/group/lazarus-br?hl=pt-BR>
===============================================
* Conheça nosso canal IRC sobre Lazarus: #lazarus-br *
===============================================
--
Você recebeu esta mensagem porque está inscrito no Grupo "Lazarus-BR"
nos Grupos do Google.
Para postar neste grupo, envie um e-mail para
Para cancelar a sua inscrição neste grupo, envie um e-mail para
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/lazarus-br?hl=pt-BR

silvioprog

2011-08-23 10:24:39 UTC

Permalink

Em 23 de agosto de 2011 05:33, Marcelo Weihmayr <weihmayr.m-***@public.gmane.org> escreveu:
[...]

Post by Marcelo Weihmayr
O mesmo erro (error) unit1.pas(23,63) Error: Identifier not found
"TGridDrawState", não compila.

O erro é claro, e o compilador te deu uma boa dica para resolvê-lo, ou
seja: se você declarar a unit onde o tipo TGridDrawState esta
declarado, este erro será resolvido.

Declare a unit Grids, dá essa forcinha ao Lazarus, não tem como ele
encontrar ela sozinho. :)
--
Silvio Clécio
===============================================
Blog - <silvioprog.com.br>
Twitter - <twitter.com/silvioprog>
LazSolutions - <code.google.com/p/lazsolutions>
LazWebSolutions - <code.google.com/p/lazwebsolutions>
Lazarus-BR - <groups.google.com.br/group/lazarus-br?hl=pt-BR>
===============================================
* Conheça nosso canal IRC sobre Lazarus: #lazarus-br *
===============================================

silvioprog

2011-08-23 10:21:09 UTC

Permalink

Ah, gostaria de entender a linha após o begin "inherited" (herdando)?

Além da tipagem, herança é uma das coisas mais fortes do Object
Pascal, tanto que se nela não houvesse herança, acredito que boa parte
dos adeptos ao Object Pascal já teriam mudado de linguagem (e eu estou
no meio). Ou seja, diretivas como inherited, override, overload,
reintroduce etc., são coisas básicas que acredito que todo programador
Delphi ou Lazarus deveria ter conhecimento do que se trata:

http://www.delphibasics.co.uk/RTL.asp?Name=Inherited
--
Silvio Clécio
===============================================
Blog - <silvioprog.com.br>
Twitter - <twitter.com/silvioprog>
LazSolutions - <code.google.com/p/lazsolutions>
LazWebSolutions - <code.google.com/p/lazwebsolutions>
Lazarus-BR - <groups.google.com.br/group/lazarus-br?hl=pt-BR>
===============================================
* Conheça nosso canal IRC sobre Lazarus: #lazarus-br *
===============================================

silvioprog

2011-08-23 10:08:54 UTC

Permalink

Post by Marcelo Weihmayr
OK, vou tentar ser mais claro!
Estou tentando mudar o font.color de uma célula em questão!
Pesquisei e encontrei algumas alguns posts relacionados e até mesmo alguns
exemplos seu (Silvio), mas mesmo assim ocorre erro na compilação, o código

[...]

Qual seria o exemplo?
--
Silvio Clécio
===============================================
Blog - <silvioprog.com.br>
Twitter - <twitter.com/silvioprog>
LazSolutions - <code.google.com/p/lazsolutions>
LazWebSolutions - <code.google.com/p/lazwebsolutions>
Lazarus-BR - <groups.google.com.br/group/lazarus-br?hl=pt-BR>
===============================================
* Conheça nosso canal IRC sobre Lazarus: #lazarus-br *
===============================================