Fórum BitMap em TRXRichEdit #182327

e ae, blz?

estou colocando um bitmap pra separar linha em um RXRichEdit (com se fosse um <HR> do HTML), porem queria q ele ficasse do tamanha da linha, com exceção das margens. Estou fazendo assim:

iWidthSeparador := richEdit.Width - ( richEdit.Paragraph.LeftIndent + richEdit.Paragraph.RightIndent )

mas naum esta dando certo, fika maior do q o tamanho q eu quero. Alguem sabe o q eu posso fazer?

Ae embaixo estah a procedure q cria o desenho:

procedure TFormRelPPP.TrocaValor(var RichEditAux: TRxRichEdit; sProcurar, sSubstituir: String);
var
iEncontrou : LongInt;
sStream: TStringStream;
iLinha: Integer;
rOrigem, rDestino: TRect;
reImage : TRxRichEdit;
begin
// Substitui um texto em um RichEdit, mantendo os atributos;
iEncontrou := 0;
rOrigem := Rect(0,0, iOrigem.Picture.Bitmap.Width, iOrigem.Picture.Bitmap.Height);
rDestino:= Rect(0,0, iWidthSeparador, iOrigem.Picture.Bitmap.Height);

iDestino.Picture.Bitmap.Height := rOrigem.Bottom;
iDestino.Picture.Bitmap.Width := rDestino.Right;
iDestino.Canvas.CopyRect(rDestino,iOrigem.Picture.Bitmap.Canvas,rOrigem);

sStream := TStringStream.Create(BitmapToRTF(iDestino.Picture.Bitmap));

reImage := TRxRichEdit.Create(RichEditAux.Owner);
reImage.Parent := RichEditAux.Parent;
reImage.Visible := False;
reImage.Lines.LoadFromStream(sStream);

reImage.SelStart := 0;

iEncontrou := RichEditAux.FindText(sProcurar, 0, Length(RichEditAux.Text),[stWholeWord]);
if ( iEncontrou <> -1 ) then
begin
RichEditAux.SelStart := iEncontrou;
RichEditAux.SelLength := Length(sProcurar);
RichEditAux.CutToClipboard;
try
reImage.SelLength := Length(reImage.Lines.Strings[0]);
reImage.CopyToClipboard;
finally
sStream.Free;
end;
RichEditAux.PasteFromClipboard;
end;
end;

Rafael Sangalli