Underline em edit

Delphi

02/10/2007

Alguém sabe como colocar apenas uma letra com underline, em um edit?
Eu quero escrever um texto com N letras, ao apertar uma determinada tecla, por exemplo F10 eu quero que apenas a última letra (ou a próxima letra) fique com underline (não quero todo o texto do edit com underline)


Edilcimar

Edilcimar

Curtidas 0

Respostas

Edilcimar

Edilcimar

02/10/2007

sobe


GOSTEI 0
Edilcimar

Edilcimar

02/10/2007

O nome do ladrão é lula
sobe pela última vez


GOSTEI 0
Adriano Santos

Adriano Santos

02/10/2007

Underline? Não seria UpperCase?

Fiz dois exemplos:

1. Altera a primeira letra do texto de um Edit.

procedure TForm1.Button1Click(Sender: TObject);
var
  I : Integer;
  S : string;
begin
  S := ´´;
  for I := 1 to Length(Edit1.Text) do
    if I = 1 then
      S := S + UpperCase(Edit1.Text[I])
    else
      S := S + LowerCase(Edit1.Text[I]);

  Edit1.Text := S;
end;


2. Altera o caracter indicado por um SpinEdit.

procedure TForm1.Button2Click(Sender: TObject);
var
  I : Integer;
  S : string;
begin
  S := ´´;
  for I := 1 to Length(Edit1.Text) do
    if I = SpinEdit1.Value then
      S := S + UpperCase(Edit1.Text[I])
    else
      S := S + LowerCase(Edit1.Text[I]);

  Edit1.Text := S;
end;



GOSTEI 0
Edilcimar

Edilcimar

02/10/2007

Não é um UperCase que eu quero, o que realmente quero é um underline (1 única letra sublinhada) é que fiz um dicionário e quero marcar a letra tônica com um underline


GOSTEI 0
Adriano Santos

Adriano Santos

02/10/2007

Ahhhh, entendi. Então é um sublinhado. Vixi. No Edit? Acho que não funciona, teria que fazer um TMemo ou TRichText que ai você tem os métodos de atribuição de fontes.


GOSTEI 0
Edilcimar

Edilcimar

02/10/2007

com richedit eu sei, só que estou precisando num edit


GOSTEI 0
Adriano Santos

Adriano Santos

02/10/2007

com richedit eu sei, só que estou precisando num edit

Então mano, mas o Edit não suporta. Esse é o problema.
Eu faria talvez um esquema pra ´enganar´ o usuário. Usando memo, mas bem pequeno como se fosse um Edit...o problema é controlar as linhas do bicho.


GOSTEI 0
Edilcimar

Edilcimar

02/10/2007

este é o meu problema, eu realmente preciso de um edit e um underline!


GOSTEI 0
Edilcimar

Edilcimar

02/10/2007

luladrão
parece que terei que mudar de linguagem, infezmente, já que as poucas perguntas que fiz no forum, a maioria não foi respondida por falta suporte do delphi!


GOSTEI 0
Anonymous

Anonymous

02/10/2007

Vamos por partes:

Não, edit com suporte a rich-text não tem mesmo... agora, soluções, tem:

1) Usar um RichEdit pequeno...
2) No site do torry.net tem dezenas de labels com suporte rtf/html...
3) Santo-Google, não esqueça os 10¬
4) RichView (tem que pagar...)


GOSTEI 0
Adriano Santos

Adriano Santos

02/10/2007

Assino me baixo.


GOSTEI 0
Edilcimar

Edilcimar

02/10/2007

para mim seria um edit


GOSTEI 0
POSTAR