topic-44555

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

changing xbrowse size
Posted: Tue May 28, 2024 11:30 AM

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?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: changing xbrowse size
Posted: Tue May 28, 2024 12:10 PM

Don't use xbrowse border

Regards

G. N. Rao.

Hyderabad, India

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: changing xbrowse size
Posted: Tue May 28, 2024 03:54 PM

nageswaragunupudi wrote:Don't use xbrowse border

Why?
Then I have bad xbrowse without border

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: changing xbrowse size
Posted: Tue May 28, 2024 05:21 PM

Code (fw): Select all Collapse

#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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: changing xbrowse size
Posted: Tue May 28, 2024 07:11 PM

karinha wrote:

Code (fw): Select all Collapse

#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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: changing xbrowse size
Posted: Wed May 29, 2024 09:15 AM

it is more complicated

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: changing xbrowse size
Posted: Wed May 29, 2024 12:44 PM

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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: changing xbrowse size
Posted: Fri May 31, 2024 12:44 PM

karinha wrote: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!!!!

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: changing xbrowse size
Posted: Fri May 31, 2024 01:13 PM

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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: changing xbrowse size
Posted: Mon Jun 03, 2024 08:46 AM

karinha wrote: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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion