function AlinhaEdit(pEdit: TEdit): TEdit;
var
vIntAux : Integer;
vCanAux : TCanvas;
vHwnAux : HWND;
begin
vCanAux := TCanvas.Create;
//vCanAux.Handle := GetDeviceContext(vHwnAux);
vCanAux.Font := pEdit.Font;
vIntAux := round((pEdit.Width - vCanAux.TextWidth(pEdit.Text) - 8) /
vCanAux.TextWidth( ' '));
pEdit.Text := stringofchar(' ', vIntAux) + pEdit.Text;
Result := pEdit;
end;
Eduardo Castro Alves
Analista de Sistemas
-----Original Message-----
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of José Otavio DTI
Sent: segunda-feira, 24 de abril de 2006 10:21
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Alinhar o texto de um Edit
Alguem sabe alinhar um texto de um edit a direita (valores)?
Agradeço desde já a atenção de todos.
Jose Otavio
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< 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 Termos do Serviço do Yahoo!.