About EDITBOX CONTROL

[andyglezl]

Hola a todos


1.- Alguien sabrá si es posible cambiar de ubicación la barra de Scroll de la derecha a la izquierda ?
2.- Es posible desactivar el Scroll Vertical (NOVSCROLL) pero que siga funcionando la rueda del ratón ?
3.- Se puede agregar la propiedad TRANSPARENT a este control ?
-----------------------------------------------------------------------------------------------------------------------------
Hello everyone

1. Anyone know if you can change location Scroll bar from right to left?
2. You can disable the Vertical Scroll (NOVSCROLL) but the mouse wheel keep it running?
3. You can add the property TRANSPARENT this control?

[srvet_claudio]

Andrés,
I think the answer is no to all 3 questions.

[andyglezl]

Gracias Dr. Claudio, buscaré otras opciones.

[pctoledo]

1.- Alguien sabrá si es posible cambiar de ubicación la barra de Scroll de la derecha a la izquierda ?

Code: Select all

#include "hmg.ch"

Function Main

   DEFINE WINDOW Form_1 ;
      AT 0,0 ;
      WIDTH 500 HEIGHT 300 ;
      TITLE 'EditBox Demo' ;
      MAIN

      @ 30,10 EDITBOX Edit_1 ;
         WIDTH 400 ;
         HEIGHT 200 ;
         VALUE 'EditBox: ScrollBar Left demo!!!' 

      HMG_ChangeWindowStyle ( GetControlHandle("Edit_1","Form_1"), WS_EX_LEFTSCROLLBAR, NIL, .T. )

   END WINDOW

   Form_1.Center()
   Form_1.Activate()
Return Nil

[KDJ]

WS_EX_LEFTSCROLLBAR
If the shell language is Hebrew, Arabic, or another language that supports reading order alignment, the vertical scroll bar (if present) is to the left of the client area. For other languages, the style is ignored.

[andyglezl]

HMG_ChangeWindowStyle ( GetControlHandle("Edit_1","Form_1"), WS_EX_LEFTSCROLLBAR, NIL, .T. )

Perfecto Toledo, muy agradecido por tu ayuda.
----------------------------------------------------------
Toledo perfect, very grateful for your help.