Fórum Alterar fonte em célula do DBGrid #273477
22/03/2005
0
Como posso fazer para alterar a fonte de determinada célula do DBGrid? Por exemplo, se o sexo for [b:20a6a8d78c]M[/b:20a6a8d78c], a fonte é Arial 8pt azul, e se for [b:20a6a8d78c]F[/b:20a6a8d78c] a fonte é Tahoma 8pt vermelho.
Bruno Gomes
Curtir tópico
+ 0
Responder
Posts
22/03/2005
Raserafim
no evento OnDrawColumnCell
if Column.FieldName = ´NomeDaCaluna´ then
begin
if Column.Field.AsString = ´M´ then
begin
DBGrid.Canvas.Font.Name := ´Arial´;
DBGrid.Canvas.Color := clBlue;
DBGrid.Canvas.Size := 8;
end
else if Column.Field.AsString = ´F´ then
begin
DBGrid.Canvas.Font.Name := ´Tahoma´;
DBGrid.Canvas.Color := clRed;
DBGrid.Canvas.Size := 8;
end;
end;
obs: NomeDaColuna é o nome da coluna da DBGrid em que será exibido o M ou F. Onde tiver DBGrid substitua pelo nome do seu DBGrid.
if Column.FieldName = ´NomeDaCaluna´ then
begin
if Column.Field.AsString = ´M´ then
begin
DBGrid.Canvas.Font.Name := ´Arial´;
DBGrid.Canvas.Color := clBlue;
DBGrid.Canvas.Size := 8;
end
else if Column.Field.AsString = ´F´ then
begin
DBGrid.Canvas.Font.Name := ´Tahoma´;
DBGrid.Canvas.Color := clRed;
DBGrid.Canvas.Size := 8;
end;
end;
obs: NomeDaColuna é o nome da coluna da DBGrid em que será exibido o M ou F. Onde tiver DBGrid substitua pelo nome do seu DBGrid.
Responder
Gostei + 0
22/03/2005
Bruno Gomes
:D valeu, mano
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)