Destacar em maiúsculo no DGBrid
Como faço para colocar certo campo do DBGrid em maiúsculo, para destacar mais? Por exemplo, quero que em uma consulta de empregados, todos os que tenham salários maior que R$ 1.000,00 apareçam com o nome em maiúsculo no DBGrid.
Bruno Gomes
Curtidas 0
Respostas
Massuda
01/04/2005
[url=http://forum.clubedelphi.net/search.php]Pesquise[/url] aqui no fórum por [b:80f0928d4a]OnDrawColumnCell[/b:80f0928d4a].
GOSTEI 0
Bruno Gomes
01/04/2005
:( não encontrei nada a respeito...
GOSTEI 0
Raserafim
01/04/2005
bruno, da uma olhada na minha resposta deste tópico, e me diz se resolve o seu problema:
[url]http://forum.clubedelphi.net/viewtopic.php?t=60412&highlight=[/url]
[url]http://forum.clubedelphi.net/viewtopic.php?t=60412&highlight=[/url]
GOSTEI 0
Bruno Gomes
01/04/2005
sim... esse resolveu. Mas agora a solicitação é outra. o destaque deve estar em maiúsculo
GOSTEI 0
Massuda
01/04/2005
Dê uma olhada [url=http://forum.clubedelphi.net/viewtopic.php?t=57495]nesse tópico[/url]... o problema era mostrar ´cliente´ quando o campo continha ´c´.
No seu caso, quando o evento for disparado para desenhar o conteúdo do campo NOME, você precisa acessar o valor do campo SALARIO (pode ser via o DataSet associado ao DBGrid), checar o valor e desenhar o NOME em maiúscula ou não.
No seu caso, quando o evento for disparado para desenhar o conteúdo do campo NOME, você precisa acessar o valor do campo SALARIO (pode ser via o DataSet associado ao DBGrid), checar o valor e desenhar o NOME em maiúscula ou não.
GOSTEI 0
Raserafim
01/04/2005
bruno, agora acho q vai resolver o seu problema. diz æ se resolveu:
no evento OnDrawColumnCell, entre com o seguinte código:
no evento OnDrawColumnCell, entre com o seguinte código:
var S: String; R: TRect; begin if Column.Field.Index = 1 then //testa se é a coluna q vc quer testar begin S := UpperCase(Column.Field.AsString); //deixa o conteúdo em maiúsculo R := Rect; R.Top := R.Top + 2; with TDBGrid(Sender).Canvas do begin FillRect(Rect); Font.Style := [fsBold]; //deixa a fonte em negrito Font.Color := clRed; //muda a cor da fonte DrawText(Handle, PChar(S), Length(S), R, DT_LEFT); //DT_LEFT alinha a esquerda, DT_RIGHT alinha a direita end; end; end;
GOSTEI 0
Bruno Gomes
01/04/2005
blz, galera! problema resolvido
GOSTEI 0