Vista previa

[guillotmarc]

Hola

Quizá te sirva esta función del maestro Marteens. Le pasas por parámetro un control en pantalla (el RxRichEdit), y te devuelve un bitmap con la representación en pantalla del control.

function CrearBitmap(WinCtrl: TWinControl): TBitmap;
begin
  Result := TBitmap.Create;
  try
    Result.Width := WinCtrl.Width;
    Result.Height := WinCtrl.Height;
    Result.Canvas.Lock;
    try
      WinCtrl.PaintTo(Result.Canvas.Handle, 0, 0);
    finally
      Result.Canvas.Unlock;
    end;
  except
    Result.Free;
    Raise;
  end;
end;

NOTA : De esta forma, en el bitmap tendrás en su posición correspondiente las imagenes del RichEdit, y el texto conservará su formato (negrita, tamaño, ...). El problema es que solo obtendrás lo visible, si hay texto escondido, que hay que usar la barra de Scroll para bajar y verlo, no aparecerá en el bitmap.

Saludos.