caracteres raros en delphi

[unko!]

olaaa?

[[Lepe]]

Al menos en los chats, lo que se suele hacer es enviar el texto ":)" cuando se recibe, se interpreta que es una carita, y entonces en un RichEdit, por ejemplo, se inserta la carita asociada. (vamos... lo mismo hace este foro )

La carita puede estar en un TImageList, e insertarla en el RichEdit cuando sea apropiado.

Otra Solución más fácil es cambiar la fuente a "Wingdings" ahí si tienes las 3 caritas principales y esos gráficos simples.

Saludos

[unko!]

procedure TForm1.Label1Click(Sender: TObject);
begin
memo1.Lines.Add('<marquee behavior="scroll" direction="down" scrollamount="5" style="position:absolute; left:130px; top:150px; width:16px; height:548px;"><span style="color: !important;">'+edit1.text+'</span></marquee>');

esa no seia la solucion :[ por que cambia todos los caracteres i al momento de ser copiados y pegados a notepad (opr ehemplo) pasarian como simples caracteres.
[lo comprobe haciendolo i el resultado fue que al momento de pegarlos al notepad salieron los caracteres ♥ como una ?]

[unko!]

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Text:='';
end;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
label1.Font.Color:=clred;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.Font.Color:=clblack;
end;

procedure TForm1.Label2MouseEnter(Sender: TObject);
begin
label2.Color:=clactivecaption;
label2.Font.Color:=clwhite;
end;

procedure TForm1.Label2MouseLeave(Sender: TObject);
begin
label2.Color:=clBtnFace;
label2.Font.Color:=clblack;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label3.Visible:=false;
 label2.Visible:=true;
end;

procedure TForm1.Label3MouseEnter(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.Label3MouseLeave(Sender: TObject);
begin
timer1.Enabled:=false;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
label3.Visible:=true;
end;

procedure TForm1.Label4Click(Sender: TObject);
begin
Application.MessageBox ('hecho x mapache. agradecimiento al posker.','Info!',
mb_ok+mb_Iconinformation);
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
memo1.Lines.Add('[marquee behavior="scroll" direction="down" scrollamount="5" style="position:absolute; left:130px; top:150px; width:16px; height:548px;"][span style="color: !important;"]'+edit1.text+'[/span][/marquee]');
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
memo1.SelectAll
end;

procedure TForm1.Label3Click(Sender: TObject);
begin
memo1.CopyToClipboard
end;

end.

eso es lo que mi programa hace para que sepan mas o menos de lo que trata
PD: reemplaze las < > del codigo en HTML por estos [] porque el foro los aceptaba xD