Page 1 of 1

About EDITBOX CONTROL

Posted: Tue Sep 13, 2016 3:32 pm
by 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?

Re: About EDITBOX CONTROL

Posted: Tue Sep 13, 2016 3:54 pm
by srvet_claudio
Andrés,
I think the answer is no to all 3 questions.

Re: About EDITBOX CONTROL

Posted: Tue Sep 13, 2016 4:01 pm
by andyglezl
Gracias Dr. Claudio, buscaré otras opciones. :cry:

Re: About EDITBOX CONTROL

Posted: Wed Sep 14, 2016 11:20 am
by pctoledo
andyglezl wrote: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

Re: About EDITBOX CONTROL

Posted: Wed Sep 14, 2016 11:51 am
by KDJ
msdn wrote: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.

Re: About EDITBOX CONTROL

Posted: Wed Sep 14, 2016 12:46 pm
by andyglezl
pctoledo wrote: 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.