procedure TfrmVisualizacaoDadosRemessa.grdPacientesDrawDataCell(
Sender: TObject; const Rect: TRect; Field: TField;
State: TGridDrawState);
begin
With grdPacientes do
Begin
If Field.Index = 'Numero do field começando do zero' Then
Begin
Canvas.Brush.Color:= clAqua;
Canvas.Font.Color:= clBlack;
End
Else
Begin
Canvas.Font.Color:= clWindowsText;
Canvas.Font.Color := clWindowsBackGround;//nao lembro o nome da cor rsrsr
End;
Canvas.FillRect(Rect);
DefaultDrawColumnCell(Rect, DataCol, Column, State);
End;
end;
André Mota <[EMAIL PROTECTED]> escreveu: to na urgência pra fuçar muito
o código abaixo eh teste, alguem me ajuda a resolver, pq nao esta exibindo o
texto, nem mesmo usando o TextOut do canvas, tô meio sem tempo galera,
agradeço muito.....
André
vê ae:
procedure TfrmVisualizacaoDadosRemessa.grdPacientesDrawDataCell(
Sender: TObject; const Rect: TRect; Field: TField;
State: TGridDrawState);
begin
inherited;
if Field.FieldName = 'PACIENTE_NOME' then
begin
grdPacientes.Canvas.Brush.Color:= clAqua;
grdPacientes.Canvas.FillRect(Rect);
grdPacientes.Canvas.Font.Color:= clBlack;
//grdPacientes.Canvas.TextRect(Rect, 0, 0, Field.AsString);//não esta
funcionando
end
else
grdPacientes.Canvas.Font.Color:= clRed;
//grdPacientes.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
---------------------------------
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
Leandro...
[> Mutuka <]
---------------------------------
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
