Fórum Underline em edit #346879
02/10/2007
0
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
Curtir tópico
+ 0Posts
04/10/2007
Edilcimar
Gostei + 0
09/10/2007
Edilcimar
sobe pela última vez
Gostei + 0
10/10/2007
Adriano Santos
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
10/10/2007
Edilcimar
Gostei + 0
10/10/2007
Adriano Santos
Gostei + 0
10/10/2007
Edilcimar
Gostei + 0
10/10/2007
Adriano Santos
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
11/10/2007
Edilcimar
Gostei + 0
13/10/2007
Edilcimar
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
14/10/2007
Anonymous
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
17/10/2007
Adriano Santos
Gostei + 0
17/10/2007
Edilcimar
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)