Ver Mensaje Individual
  #9  
Antiguo 23-02-2013
Avatar de TiammatMX
TiammatMX TiammatMX is offline
Miembro
 
Registrado: jun 2006
Ubicación: Universo Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Puebla\Heróica Puebla de Zaragoza\Jardines de San Manuel\Home
Posts: 746
Reputación: 18
TiammatMX Va camino a la fama
Cita:
Empezado por Casimiro Notevi Ver Mensaje
¿Y esos caracteres de control no están en el .Text?, ¿dónde están?
Es por curiosidad.
Son parte del texto, pero son los que "embellecen" el RichEdit. Por ejemplo, yo tengo éste procedimiento...

Código Delphi [-]
procedure Tform.FormateaTextoRTF(sTexto1,sTexto2: string;iTipo: Integer;Destino:TwwDBRichEdit);
begin
   with Destino do
   begin
      SelStart := GetTextLen;
      case iTipo of
         0 : begin
                SelAttributes.Size := 12;
                SelAttributes.Style := [fsBold];
                SelAttributes.Color := clNavy;
             end;
         1 : begin
                SelAttributes.Size := 10;
                SelAttributes.Style := [fsBold];
                SelAttributes.Color := clNavy;
             end;
         2 : begin
                SelAttributes.Size := 9;
                SelAttributes.Style := [fsBold];
                SelAttributes.Color := clWindowText;
             end;
         3 : begin
                SelAttributes.Size := 8;
                SelAttributes.Style := [fsBold];
                SelAttributes.Color := clWindowText;
             end;
      end;
      SelText := sTexto1;
      SelAttributes.Size := 8;
      SelAttributes.Style := [];
      SelAttributes.Color := clWindowText;
      if Trim(sTexto2) > '' then
         SelText := sTexto2;
      SelText := CRLF;
   end;
end;

Si te das cuenta, primero le da formato al texto Y DESPUÉS lo escribe. Éstos caracteres de control son los que no alcanza a copiar el .Text de un RichEdit a otro...
__________________
Felipe Eduardo Ortiz López. Delphi programmers does it recursively...

"Un programador, es un creador de universos en donde sólo él es responsable. Universos de complejidad prácticamente ilimitada que se puede crear en forma de programas de ordenador." - Joseph Weizenbaum.

Témele a los profetas... y a aquellos que están listos para morir por "la verdad", ya que como regla general hacen morir a muchos otros con ellos, frecuentemente antes que ellos, y a veces en lugar de ellos. — Umberto Eco
Responder Con Cita