topic-17748

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

HScroll en richtext ** SOLUCIONADO **
Posted: Sun Jan 03, 2010 06:51 PM

Amigos,

He buscado por todos lados y no encuentro como adicionarle el scroll horizontal al control, esto es posible?

Saludos y gracias de antemano

Feliz 2010

William, Morales

Saludos

méxico.sureste

fespinoza

Posts: 188

Joined: Wed Feb 01, 2006 06:59 PM

Re: HScroll en richtext
Posted: Sun Jan 03, 2010 08:12 PM

William

Yo uso los controles RichEdit definiendolos con el PellesC con las siguientes caracteristicas para el estilo:

Estilo de ventana: 0x50A11004
Estilo de ventana extendido: 0x00000000
Nombre de clase: RichEdit20A

Al momento de ejecutar la aplicación; el control aparece sin el scroll, pero si el texto introducido sobrepasa el número de líneas visibles del control, en ese momento se muestra automáticamente el scroll horizontal.

Saludos

Fernando Espinoza

Saludos

Fernando Espinoza

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: HScroll en richtext
Posted: Mon Jan 04, 2010 03:57 AM

fespinoza,

Efectivamente así mismo lo tengo en el control, pues use el ejemplo de FWH/samples.

pero negativo, si cargo un texto que sobrepase el tamaño del control (horizontal) este le hace un salto de linea, lo que quiero es que se mantenga la misma linea y obviamente funcione con el scroll horizontal.

El ejemplo que tome, fue el testrich.prg de la carpeta samples, y le cargue un archivo de texto con una linea larga.

Espero comentarios

Gracias de antemano

William, Morales

Saludos

méxico.sureste

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: HScroll en richtext
Posted: Mon Jan 04, 2010 07:40 AM

Hola William:

wmormar wrote:He buscado por todos lados y no encuentro como adicionarle el scroll horizontal al control, esto es posible?

Desde recursos solo debes agregar el estilo |WS_HSCROLL| al control "RichEdit20A"
Desde código solo agrega WS_HSCROLL a oRich:nStyle, también el comando RICHEDIT soporta la cláusula HSCROLL.

Con dicho estilo, el control actúa en la forma que has mencionado.

Un abrazo con mis mejores deseos para este 2010.

manuelmercado at prodigy dot net dot mx

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: HScroll en richtext
Posted: Mon Jan 04, 2010 02:13 PM

mmercado,

Maestro aquí una imagen ya agregándole el style

Aquí el codigo usado.

Code (fw): Select all Collapse

      hRichDLL   := LoadLibrary( "riched20.dll" )
      DEFINE DIALOG oDlg RESOURCE "EDITAPROCESO" OF ::oWnd TRANSPARENT COLOR ::nClrTxtDlg, ::nClrFndDlg
         oRich := TRichEdit():Redefine( 101, {|| ""}, oDlg,, ::oFont:EDITOR, ;
                  NIL, .f., .f., "", NIL, .f.  )
         oRich:bChange      := {|| oDlg:AEvalWhen()}
         oRich:nStyle       := WS_HSCROLL // 1048576   // HScroll

         REDEFINE BUTTON ID 301 OF oDlg ACTION (lFolder := .f.) WHEN lFolder
         REDEFINE BUTTON ID 302 OF oDlg ACTION msginfo( oRich:IsModify() ) WHEN oRich:IsModify()
         REDEFINE BUTTON ID 303 OF oDlg ACTION (lSalir := .t., oDlg:END())
      ACTIVATE DIALOG oDlg CENTERED VALID lSalir ON INIT oRich:cText( cText )

      FreeLibrary( hRichDLL )

El recurso es usado desde un .RES no un .RC y no puedo agregarle la propiedad scroll desde pellesc o cual sería el style exacto para capturarlo en el formato 0x50A11004

Gracias

William, Morales

Saludos

méxico.sureste

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: HScroll en richtext ( SOLUCIONADO )
Posted: Mon Jan 04, 2010 02:29 PM

Amigos,

** SOLUCIONADO **

En el RC de ejemplo en forma de texto le incluí el HScroll al style ( a mano con el notepad ) y después abrí el RC desde PellesC y copié el estilo generado a mi recurso en formato .RES
Gracias a todos.

William, Morales

Saludos

méxico.sureste

FiveTech Support Forums

Continue the discussion