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;
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: TObjec
2 matches
Mail list logo
