FiveTech Software tech support forums

Code: Select all | Expand

#include "FiveWin.ch"


#define WS_CHILD                 1073741824  // 0x40000000L
#define WS_VISIBLE               268435456   // 0x10000000L
//#define WS_TABSTOP               65536       // 0x00010000L


Function Main()
  LOCAL oDlg, oBtn[3]

    DEFINE DIALOG oDlg FROM 0,0 TO 300,500 PIXEL TRUEPIXEL 

    @ 30, 30 BUTTONBMP oBtn[1] PROMPT "&One" OF oDlg PIXEL SIZE 50,30 ACTION MsgInfo("One")
    @ 30, 90 BUTTONBMP oBtn[2] PROMPT "&Two" OF oDlg PIXEL SIZE 50,30 ACTION MsgInfo("Two - without TabStop")
    @ 30,150 BUTTONBMP oBtn[3] PROMPT "&Three" OF oDlg PIXEL SIZE 50,30 ACTION MsgInfo("Three")
     
      oBtn[2]:nStyle:= nOR(WS_CHILD, WS_VISIBLE)

    ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

Code: Select all | Expand

#include "FiveWin.ch"


Function Main()
  LOCAL oDlg, oBtn[3]

    DEFINE DIALOG oDlg RESOURCE "TEST"

    REDEFINE BUTTONBMP oBtn[1] PROMPT "&One" ID 201 OF oDlg ACTION MsgInfo("One")
    REDEFINE BUTTONBMP oBtn[2] PROMPT "&Two" ID 202 OF oDlg ACTION MsgInfo("Two - Without TabStop") 
    REDEFINE BUTTONBMP oBtn[3] PROMPT "&Three" ID 203 OF oDlg ACTION MsgInfo("Three")
     
    ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

Code: Select all | Expand

TEST DIALOG DISCARDABLE 6, 15, 223, 66
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "TXBrowse demo"
FONT 8, "MS Sans Serif"
{
  CONTROL "&One", 201, "Button", WS_TABSTOP, 15, 16, 50, 20
  CONTROL "&Two", 202, "Button", 0x00000000, 72, 16, 50, 20         //  <== Look this line for No TabStop
  CONTROL "&Three", 203, "Button", WS_TABSTOP, 129, 16, 50, 20
}
 

Code: Select all | Expand

? oBtn:WinStyle( WS_TABSTOP ) --> lActive
oBtn:WinStyle( WS_TABSTOP,  .T.  (or) .F. ) // Enable/Disable the TabStop style

Code: Select all | Expand

   IF DeOndeVem = "OPCAO1"
      DEFINE BUTTON... WHEN(..)  // Hide/Enable()/Disable(), etc.
   ELSE
      DEFINE BUTTON ... WHEN(..)
   ENDIF
 

Code: Select all | Expand

         //-> ESTA EM C:\GERAL GERAL.EXE - HENNING LEGAL. GOSTEI
         SEPARATOR
         MENUITEM "Pedidos de Compras(Cliente) "                             ;
         RESOURCE "ESTOQUE17" COLORRIGHT CLR_HBLUE BOLD                      ;
            ACTION( COMPRAS( DeOndeVem := [CLIENTES] ) )                     ;
            MESSAGE "Manutenção dos Pedidos de Compras "+                    ;
                    "Por Cliente. "

         //-> ESTA EM C:\GERAL GERAL.EXE - HENNING LEGAL. GOSTEI
         SEPARATOR
         MENUITEM "Pedidos de Compras(Fornec.) "                             ;
            RESOURCE "ESTOQUE18" COLORRIGHT CLR_HBLUE BOLD                   ;
            ACTION( COMPRAS( DeOndeVem := [FORNECE] ) )                      ;
            MESSAGE "Manutenção dos Pedidos de Compras "+                    ;
                    "Por Fornecedor."
 

Code: Select all | Expand

FUNCTION COMPRAS( DeOndeVem )


   IF DeOndeVem = [FORNECE]

      REDEFINE SENSITIVE SAY aSayCliente VAR oSayFornece ID 403 OF oDlg COLOR CLR_CYAN UPDATE RIGHT FONT oFnt TRANSPARENT

      //-> Codigo do Fornecedor - XCODFORNE
      REDEFINE GET aGet[3] VAR XCODFORNE PICTURE "@K 999999999999"           ;
         ID 22 OF oDlg FONT oFnt UPDATE BITMAP "BUSCAR"                      ;
         COLOR nRGB( 000, 000, 000 ), nRGB( 243, 250, 200 )                  ;
         ACTION( MOSTRAR_FORNECEDOR( XCODFORNE, aGet, DbCompras,             ;
                 DbClientes, DbFornece, DbEstoque, DbObserva ) )             ;
         VALID ( PESQUISA_FORNECEDOR( XCODFORNE, aGet, DbCompras,            ;
                 DbClientes, DbFornece, DbEstoque, DbObserva ) )             ;
         WHEN( lCodFornece )

      aGet[3]:lBtnTransparent := .T.       // transparent button
      aGet[3]:bKeyDown := { |nKey| IF( nKey == VK_F7, Eval( aGet[3]:bAction ), Nil ) }
      aGet[3]:cToolTip := OemToAnsi( "Digite o C¢digo do Fornecedor " )

   ENDIF

   IF DeOndeVem = [CLIENTES]

      REDEFINE SENSITIVE SAY aSayCliente VAR oSayCliente ID 403 OF oDlg COLOR CLR_CYAN UPDATE RIGHT FONT oFnt TRANSPARENT

      //-> Codigo do Fornecedor - XCODFORNE
      REDEFINE GET aGet[3] VAR XCODFORNE PICTURE "@K 999999999999"           ;
         ID 22 OF oDlg FONT oFnt UPDATE BITMAP   "BUSCAR"                    ;
         COLOR nRGB( 000, 000, 000 ), nRGB( 243, 250, 200 )                  ;
         VALID ( PESQUISA_CLIENTES( XCODFORNE,                               ;
            aGet, DbCompras, DbClientes, DbFornece, DbEstoque, DbObserva ) ) ;
         ACTION( MOSTRAR_CLIENTES( XCODFORNE,                                ;
            aGet, DbCompras, DbClientes, DbFornece, DbEstoque, DbObserva ) ) ;
         WHEN( lCodFornece )

      aGet[3]:lBtnTransparent := .T.       // transparent button
      aGet[3]:bKeyDown := { |nKey| IF( nKey == VK_F7, Eval( aGet[3]:bAction ), Nil ) }
      aGet[3]:cToolTip := OemToAnsi( "Digite o C¢digo do Fornecedor " )

   ENDIF
 

Code: Select all | Expand

   IF lAppend  // SE FOR UMA INCLUSAO DE PROPOSTA, ENTRAR AQUI.
 
      ACTIVATE DIALOG oDlg NOWAIT     ;
         ON INIT( XFOCUS( aGet[1] ) ) ;
         VALID( !GETKEYSTATE( 27 ) )

   ELSE  // ALTERACAO DE PROPOSTA, ENTRAR AQUI.

      /*
      ACTIVATE DIALOG oDlg CENTERED              ;
               ON INIT( XFOCUS( aGet[3] ) )
      */
      ACTIVATE DIALOG oDlg NOWAIT     ;  // MDI pedido pela LEDA.
         ON INIT( XFOCUS( aGet[3] ) ) ;  // 3
         VALID( !GETKEYSTATE( 27 ) )

   ENDIF

   ACTIVATE WINDOW oWndChild