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) -
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
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
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
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
5 matches
Mail list logo