Clipper On Line

Caros amigos y maestros de este foro.

Antes que todo quiero que sepan que es mi deseo y mi oración que Dios cuide de ustedes y que los prospere.

Acudo a ustedes en busca de ayuda para lo siguiente:

#define nStyle   WS_CHILD + WS_TABSTOP + WS_VISIBLE + WS_CLIPCHILDREN
FUNCTION SetControles(cBrow)
&cBrow.:nHeightHead+= 07
&cBrow.:nLineStyle:= LINES_VERT
&cBrow.:lNoResetPos:= .F.
&cBrow.:Look3d(.T.,,, .F.)
&cBrow.:ChangeFont(GetFontHandle('Font_4'), 0, 2)
&cBrow.:lNoHScroll:= .T.
&cBrow.:nWheelLines:= 1
&cBrow.:STYLE:= nStyle    // Compila bien pero NO corre, esa linea da error
                          // como puedo hacer para que funcione?
RETURN NIL

Desde ya agradezco mucho su ayuda, un gran abrazo.
Adalberto.

nStyle está sendo definido em tempo de compilação. Teste usando nStyle como uma variável.

Não use define.

Acho que a resposta que dei está errada. Vou fazer um teste aqui.

Não encontrei referência a essa propriedade. Vamos ver se alguém com mais experiência tem a resposta. Desculpa.

Vlademiro, buenos días

Por favor no se disculpe, yo le agradezco mucho la buena voluntad y el deseo de colaborar.

Aun no encontré solución y estoy aguardando las noticias de los amigos y maestros del foro.

Muy agradecido.

Abrazos, Adalberto.

eu uso assim em HWGUI

   INIT DIALOG oDlg TITLE "Cadastro de Operadores"  ;
      ICON MEMVAR->SGC_ICON  ;
      AT 0, 0 SIZE 1008,600 CLIPPER  NOEXIT  ;
      ON INIT {|| onDlgInit( oDlg ) }

   @ 4,70 BROWSE oBrowse1 ARRAY SIZE 1000,497 STYLE WS_BORDER + WS_VSCROLL +WS_HSCROLL ;
         ON SIZE ANCHOR_TOPABS + ANCHOR_LEFTABS + ANCHOR_RIGHTABS + ANCHOR_BOTTOMABS ;
         ON KEYDOWN {|oBrowse1,nKeyPress| oBrowse1_onKeyDown( oBrowse1,nKeyPress, oDlg, oServer, @cProgressKey, @cAlvo_Consulta ) }      
      
      oBrowse1:oStyleHead := HStyle():New( { 0xffffff, 0xbbbbbb }, 1,, 0.4, 16759929 )
      oBrowse1:oFont := HFont():Add( '',0,-15,700,,,)   
//      oBrowse1:freeze := 2
      oBrowse1:aArray := CARREGA_OPERADOR( oServer, cAlvo_Consulta )   

Fernando, buenos días.

Agradezco tu generosidad, es una alegría saber que hay personas que desean ayudar.
Te comento que yo utilizo MiniGui Ext y funciona muy bien de la siguiente manera:

//
XSele('EmpAseg', 2)
DBGoTo(nRecNo)
DEFINE TBROWSE oBrowEmp AT 125, 010 ALIAS 'EmpAseg'   ;
   HEIGHT (nRowW - 200) WIDTH (nColW - 40)      ;
   BACKCOLOR MiFondo FONT 'Font4' SIZE 12 BOLD      ;
   HEADERS 'Código', 'Razón Social'                    ;
   WIDTHS  070, 320                     ;
   FIELDS  Codigo, Nombre PICTURE '######', Char           ;
   ON DBLCLICK (EditarEmp(RECNO()), CancelEdit())   ;
   ON CHANGE ((nRegBrow:= RECNO()), SayEstado())   ;
   STYLE nStyle    //  Con esta linea funciona muy bien

Con el ejemplo que publiqué al inicio de este post lo que pretendo es hacer una función que sea general para todos los TBrowse que vaya creando.

Ojalá sea posible hacer que funcione de la forma que pretendo, aguardo la ayuda de los amigos y maestros del foro.

Abrazos, desde Santa cruz de la Sierra - Bolivia
Adalberto

Amigos y maestros del foro, buenos días.

Con las indicaciones y ayuda generosa de Grigory, he obtenido la solución a este problema que había planteado, así es la solución:

FUNCTION SetControles(cBrow)
&cBrow:nHeightHead+= 07
&cBrow:nLineStyle:= LINES_VERT
&cBrow:lNoResetPos:= .F.
&cBrow:Look3d(.T.,,, .F.)
&cBrow:ChangeFont(GetFontHandle('Font_4'), 0, 2)
&cBrow:lNoHScroll:= .T.
&cBrow:nWheelLines:= 1
&cBrow.:nSTYLE:= nStyle     // Así compila y funciona
RETURN NIL

&cBrow.:nSTYLE:= nStyle
Agradezco la buena voluntad de cada uno de ustedes, Dios los bendiga siempre.

Un abrazo desde Bolivia.

Adalberto

Amigos, buenos días y feliz inicio de semana.

compartirles cómo quedó el redondeo de las esquinas en el TBrowse y en los controles, bastante práctico y sencillo, el resultado agradable a la vista, bonita presentación.




En este mensaje quiero aprovechar para saludar a los maestros del foro y agradecerles su ayuda en todo momento.

Un abrazo, sin corona virus, desde Santa Cruz de la Sierra - Bolivia.

Adalberto

Obrigado por compartilhar!

Adalberto, você usa alguma IDE para construir suas telas ?

Vlademiro, buenas tardes.

No utilizo ninguna IDE, soy de la vieja escuela y todo lo hago a uña y a ojo; intenté usar varias IDE´s pero no me agradó el hecho de que no me dan el control total de los PRG´s, manejan otra extensión y a cada control le ponen clausulas que a veces ni necesito.

Un abrazo y mi agradecimiento sincero por tu ayuda.

Siempre a tus órdenes.

Adalberto