FauGomes

Olá, pessoal, me chamo Fabio, Tudo bem? É o seguinte, não estou conseguindo alinhar VERTICAL do componente DBGRID do Delphi 5. Coloquei programa do wConsultaDrawColumnCell, não alinha nada. Segue o programa abaixo: procedure TTSIST9600.wConsultaDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); Var S: string; R: TRect; begin If Column.Field = QRYCLIENTES.FieldByName('NUMERO') Then begin with wConsulta.Canvas do begin FillRect(Rect); S := IntToStr(QRYCLIENTES.FieldByName('NUMERO').AsInteger); R := Rect; DrawText(Handle, PChar(S), Length(S), R, DT_VCenter); end; End; End; Aguardo a resposta. Obrigado