FiveTech Software tech support forums

nageswaragunupudi wrote:Don't use xbrowse border

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
 

karinha wrote:

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.

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.

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.