Escrevi um artigo pro site da revista ClubeDelphi falando sobre redefinição
de componentes da VCL sem a necessidade de se criar novos componentes. No
código fonte que acompanha o artigo, tem um exemplo de como alinhar o
conteúdo de um TEdit a esquerda, direta ou centro.

Sds.


>From: "Eduardo Alves" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: <delphi-br@yahoogrupos.com.br>
>Subject: RE: [delphi-br] Alinhar o texto de um Edit
>Date: Mon, 24 Apr 2006 12:20:00 -0300
>
>Ta na mão ...
>
>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
>
>
>
>
>
>
>
>

_________________________________________________________________
MSN Messenger: converse com os seus amigos online.
http://messenger.msn.com.br



--
<<<<< 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]



Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE


Links do Yahoo! Grupos

Responder a