Colocar o conteudo do Edit no centro do próprio Edit
Ei pessoal, como faço pra colocar o conteudo de um Edit centralizado dentro deste próprio Edit?
Valew Abraçaum....
Falow
Valew Abraçaum....
Falow
Reynaldo Giane
Curtidas 0
Respostas
Rafael Heise
17/08/2003
bom... um edit nada mais é do que um desenho em tela.. assim como todos os outros componentes....
então, para tal.. você deve criar um novo componente pois o edit não tem um evento onPaint. Descender a propriedade onPaint do edit e fazer o seguinte...
criar uma propriedade no edit onde você informe se é para centralizar ou não... do tipo CenterText (True/False);
depois, no OnPaint você verifica se a propriedade é true e dai desenha o texto em questão...
LeftText := Self.Width - Self.Canvas.Text.Widht(Texto) div 2;
TopText := valor;
WidthText := Self.Canvas.Text.Widht(Texto);
HeigthText := Self.Canvas.Text.Height(Texto);
Canvas.TextOut(Rect(TopText,WidthText,HeightText),Texto);
beleza ? a idéia é mais ou menos essa.. tem que ver certinho como fazer.. mas acho que é mais ou menos assim..
valeu
então, para tal.. você deve criar um novo componente pois o edit não tem um evento onPaint. Descender a propriedade onPaint do edit e fazer o seguinte...
criar uma propriedade no edit onde você informe se é para centralizar ou não... do tipo CenterText (True/False);
depois, no OnPaint você verifica se a propriedade é true e dai desenha o texto em questão...
LeftText := Self.Width - Self.Canvas.Text.Widht(Texto) div 2;
TopText := valor;
WidthText := Self.Canvas.Text.Widht(Texto);
HeigthText := Self.Canvas.Text.Height(Texto);
Canvas.TextOut(Rect(TopText,WidthText,HeightText),Texto);
beleza ? a idéia é mais ou menos essa.. tem que ver certinho como fazer.. mas acho que é mais ou menos assim..
valeu
GOSTEI 0