Cor de Valor Negativo no DBGrid

Question

pessoalgostaria de mudar a cor da fonte de um valor negativo no meu DBGrid...a rotina eu j� tenho.. s� que minha coluna s�o todas centralizadas e quando coloco a rotina abaxio, o registro que tem um v...

Massuda · Answer

A procedure TCanvas.TextOut n�o alinha texto... use DrawText da API do Windows para alinhar o texto dentro de um ret�ngulo:

procedure TFrm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
var
  S: string;
begin 
  if (VAlor < 0)then 
  begin 
    with DBGrid.Canvas do 
    begin 
      Font.Color  := clRed; 
      FillRect(Rect); 

      S := Column.Field.AsString;
      DrawText(Handle, PChar(S), Length(S), Rect, DT_CENTER or DT_VCENTER); 
    end; 
  end; 
end;

Diogoalles · Answer

Ol� Massuda obrigado pela dicas� que est� me dando um erro q n�o consegui resolverusei a mesma rotina que vc passou e ocorre o erro:[color=red:e26e66bd3d][Error] Gcm931P.pas(330): Constant object cannot be passed as var parameter[/color:e26e66bd3d]saberia me dizer o q � ?obrigadoDiogo...

Diogoalles · Answer

complementando,o erro ocorre na linha:[code:1:d3eee1de34]  DrawText(Handle, PChar(S), Length(S), &#91;color=red&93;Rect&91;/color&93;, DT_CENTER or DT_VCENTER);[/code:1:d3eee1de34]e aponta onde diz �Rect�...

Massuda · Answer

Desculpe... n�o tinha testado. Assim deve funcionar:

procedure TFrm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
var 
  S: string; 
  R: TRect;
begin 
  if (VAlor < 0)then 
  begin 
    with DBGrid.Canvas do 
    begin 
      Font.Color  := clRed; 
      FillRect(Rect); 

      S := Column.Field.AsString; 
      R := Rect;
      DrawText(Handle, PChar(S), Length(S), R, DT_CENTER or DT_VCENTER); 
    end; 
  end; 
end;

Diogoalles · Answer

Blz Massuda.. tudo ok,essa rotina centraliza todas as colunas,caso eu tenha uma coluna q deva ser alinhada a esquerda como eu posso encaixar nessa fun��o?obrigado...

Massuda · Answer

[quote:6e03ec447b=�diogoalles�]caso eu tenha uma coluna q deva ser alinhada a esquerda como eu posso encaixar nessa fun��o?[/quote:6e03ec447b]No mesmo evento OnDrawColumnCell, voc� pode tratar individualmente cada coluna conforme o valor de DataCol ou de Column.Para ter diferentes alinhamentos, basta mudar o �ltimo parametro de DrawText conforme sua necessidade; DrawText alinha tanto na horizontal (esquerda, centro, direita) como na vertical (topo, centro, fundo) al�m de fazer algumas outras m�gicas... veja mais detalhes [url=//msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/fontext_0odw.asp]neste link[/url]....

F�rum Cor de Valor Negativo no DBGrid #264726