changing xbrowse size

[Silvio.Falconi]

I need to create a dialgo with a control radio
when the user select an option the brow must change the size
I tried and I have this error


OPtion1



This is how it looks in its initial state

Option2













do you see a frame above the xbrowse?

[nageswaragunupudi]

Don't use xbrowse border

[Silvio.Falconi]

Don't use xbrowse border

Why?
Then I have bad xbrowse without border

[karinha]

Code: Select all  Expand view

#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   LOCAL oDlg, oBrw, oFont, oRad, nValue := 3, oGet1, cTestGet, oExit

   USE CUSTOMER NEW ALIAS CUST VIA "DBFCDX"

   cTestGet := "SILVIO FALCONI TITLE 1"

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0, -16 BOLD

   DEFINE DIALOG oDlg SIZE 700, 650 PIXEL TRUEPIXEL FONT oFont ;
      TITLE "XBROWSE() AND RADIOS"

   oDlg:lHelpIcon := .F.

   @ 20.5,  15 RADIO oRad VAR nValue ITEMS "Option 1" OF oDlg SIZE 120, 20  ;
      ON CHANGE {|| RadioBtnTest( oRad:nOption, oGet1, @ctestget ) }        ;
      UPDATE PIXEL

   @ 20.5, 150 RADIOITEM "Option 2" RADIOMENU oRad OF oDlg SIZE 120, 20     ;
      UPDATE PIXEL

   @ 080, 15 GET oGet1 VAR cTestGet SIZE 250, 30 OF oDlg UPDATE             ;
     COLORS METRO_GREEN, CLR_WHITE FONT oFont PIXEL NOBORDER

   oGet1:Disable()
   oGet1:lDisColors      := .F.
   oGet1:nClrTextDis     := CLR_WHITE
   oGet1:nClrPaneDis     := METRO_GREEN

   @ 140, 20 XBROWSE oBrw SIZE -20, -20 PIXEL OF oDlg ;
      DATASOURCE "CUST"                               ;
      COLUMNS .F., "FIRST", "CITY", "SALARY"          ;
      HEADERS ""                                      ;
      CELL LINES FOOTERS // NOBORDER

   WITH OBJECT oBrw

      :nMarqueeStyle    := MARQSTYLE_HIGHLROWMS

      :CreateFromCode()

   END

   @ 10, 400 BTNBMP oExit PROMPT "&Exit"  SIZE 100, 40 PIXEL OF oDlg FLAT ;
      ACTION ( oDlg: End() )

   oExit:lCancel := .T.

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE FONT oFont

return nil

FUNCTION RadioBtnTest( nValue, oGet1, cTestGet )

   IF nValue = 1

      cTestGet = "SILVIO FALCONI TITLE 1"

   ELSEIF nValue = 2

      cTestGet = "SILVIO FALCONI TITLE 2"

   ENDIF

   oGet1:ReFresh()

RETURN NIL

// FIN / END
 

Regards, saludos.

[Silvio.Falconi]

Code: Select all  Expand view

#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   LOCAL oDlg, oBrw, oFont, oRad, nValue := 3, oGet1, cTestGet, oExit

   USE CUSTOMER NEW ALIAS CUST VIA "DBFCDX"

   cTestGet := "SILVIO FALCONI TITLE 1"

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0, -16 BOLD

   DEFINE DIALOG oDlg SIZE 700, 650 PIXEL TRUEPIXEL FONT oFont ;
      TITLE "XBROWSE() AND RADIOS"

   oDlg:lHelpIcon := .F.

   @ 20.5,  15 RADIO oRad VAR nValue ITEMS "Option 1" OF oDlg SIZE 120, 20  ;
      ON CHANGE {|| RadioBtnTest( oRad:nOption, oGet1, @ctestget ) }        ;
      UPDATE PIXEL

   @ 20.5, 150 RADIOITEM "Option 2" RADIOMENU oRad OF oDlg SIZE 120, 20     ;
      UPDATE PIXEL

   @ 080, 15 GET oGet1 VAR cTestGet SIZE 250, 30 OF oDlg UPDATE             ;
     COLORS METRO_GREEN, CLR_WHITE FONT oFont PIXEL NOBORDER

   oGet1:Disable()
   oGet1:lDisColors      := .F.
   oGet1:nClrTextDis     := CLR_WHITE
   oGet1:nClrPaneDis     := METRO_GREEN

   @ 140, 20 XBROWSE oBrw SIZE -20, -20 PIXEL OF oDlg ;
      DATASOURCE "CUST"                               ;
      COLUMNS .F., "FIRST", "CITY", "SALARY"          ;
      HEADERS ""                                      ;
      CELL LINES FOOTERS // NOBORDER

   WITH OBJECT oBrw

      :nMarqueeStyle    := MARQSTYLE_HIGHLROWMS

      :CreateFromCode()

   END

   @ 10, 400 BTNBMP oExit PROMPT "&Exit"  SIZE 100, 40 PIXEL OF oDlg FLAT ;
      ACTION ( oDlg: End() )

   oExit:lCancel := .T.

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE FONT oFont

return nil

FUNCTION RadioBtnTest( nValue, oGet1, cTestGet )

   IF nValue = 1

      cTestGet = "SILVIO FALCONI TITLE 1"

   ELSEIF nValue = 2

      cTestGet = "SILVIO FALCONI TITLE 2"

   ENDIF

   oGet1:ReFresh()

RETURN NIL

// FIN / END
 

Regards, saludos.

???????
Perhaps not understood the problem

[Silvio.Falconi]

it is more complicated

[karinha]

FiveWin is not COMPLICATED, you are the one who is too complicated and annoying. hahahahahahaha. Post the code. You already know how it works. Why do you keep acting naive? Get involved bro.

FiveWin no es COMPLICADO, tú eres el que es demasiado complicado y molesto. jajajajajajaja. Publica el código. Ya sabes cómo funciona. ¿Por qué sigues actuando ingenuamente? Participa hermano.

In portuguese:

FiveWin não é COMPLICADO, você é que é complicado e chato demais da conta. hahahahahahaha. Poste o código. Você já sabe como funciona. Porquê fica bancando o ingênuo? Se liga mano.

Regards, saludos.

[Silvio.Falconi]

FiveWin is not COMPLICATED, you are the one who is too complicated and annoying. hahahahahahaha. Post the code. You already know how it works. Why do you keep acting naive? Get involved bro.

FiveWin no es COMPLICADO, tú eres el que es demasiado complicado y molesto. jajajajajajaja. Publica el código. Ya sabes cómo funciona. ¿Por qué sigues actuando ingenuamente? Participa hermano.

In portuguese:

FiveWin não é COMPLICADO, você é que é complicado e chato demais da conta. hahahahahahaha. Poste o código. Você já sabe como funciona. Porquê fica bancando o ingênuo? Se liga mano.

Regards, saludos.

Humildemente le pido perdón, querido profesor, usted que sabe más que yo, pero al parecer no ha entendido nada de lo que tengo que hacer. No le publicaré el examen, ella nunca lo entendería, es demasiado difícil para ella, de hecho todavía no ha entendido nada del título del tema, de hecho el examen que tomó no tiene relación con lo que yo Estoy preguntando. pero usted profesor siempre quiere discutir cualquier cosa que le pido, usted y el otro profesor de turno....compiten para ver quién responde primero con tonterías...que bien se divierten!!!!

[karinha]

Silvio: Be technical. One question: Does anyone use any of your systems? hahaha.

Silvio: Sea técnico. Una pregunta: ¿Alguien utiliza alguno de sus sistemas? jajaja.

No publicas el código porque te da vergüenza, ¿verdad? jajaja.

You don't post the code because you're embarrassed, is that it? hahaha.

Regards, saludos.

[Silvio.Falconi]

Silvio: Be technical. One question: Does anyone use any of your systems? hahaha.

Silvio: Sea técnico. Una pregunta: ¿Alguien utiliza alguno de sus sistemas? jajaja.

No publicas el código porque te da vergüenza, ¿verdad? jajaja.

You don't post the code because you're embarrassed, is that it? hahaha.

Regards, saludos.

No publico porque nunca lo entenderías.
De hecho, nunca he visto una clase de objeto de tu creación.
no eres mi amigo