Ver Mensaje Individual
  #2  
Antiguo 15-03-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Confucio.

Si te fuera posible saber la posición donde van los valores y sus monedas, se me ocurre que podrías usar un TRichEdit. Asignar los atributos a la porción de texto que desees, poner su propiedad Visible en False y luego asignar el TRichEdit a la propiedad ParentRichEdit del TQRRichText.

Te pongo un ejemplo de la idea:
Código Delphi [-]
...
implementation

var
  RE: TRichEdit;

procedure TForm1.Button1Click(Sender: TObject);
begin
  RE:= TRichEdit.Create(nil);
  RE.Visible:= False;
  RE.Parent:= Self;
  RE.Text:= 'PRUEBA DE TEXTO EN NEGRITA Y SUBRAYADO';
  // bold
  RE.SelStart:= Pos('NEGRITA',Re.Text)-1;
  RE.SelLength:= Length('NEGRITA');
  RE.SelAttributes.Style:= [fsBold];
  // Underline
  RE.SelStart:= Pos('SUBRAYADO',Re.Text)-1;
  RE.SelLength:= Length('SUBRAYADO');
  RE.SelAttributes.Style:= [fsUnderline];
  QRRichText1.ParentRichEdit:= RE;
  QuickRep1.Preview;
end;
...
procedure TForm1.FormDestroy(Sender: TObject);(Sender: TObject; var Action: TCloseAction);
begin
  if Assigned(RE) then
    RE.Free;
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 18-03-2012 a las 09:30:57.
Responder Con Cita