ButtonBmp TABSTOP
ButtonBmp TABSTOP
Hi,
How I can change buttonbmp status to TABSTOP or not TABSTOP in execution program?
Thanks in advance.
How I can change buttonbmp status to TABSTOP or not TABSTOP in execution program?
Thanks in advance.
Re: ButtonBmp TABSTOP
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
Saludos,
Carlos Gallego
*** FWH-24.07, xHarbour 1.3.1 Build 20240624, Borland C++7.70, PellesC ***
Carlos Gallego
*** FWH-24.07, xHarbour 1.3.1 Build 20240624, Borland C++7.70, PellesC ***
Re: ButtonBmp TABSTOP
Hi Carlos,Cgallegoa wrote: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
Your example works great but if i put this solution (I use pelles c .res file) not work. See the line above. Thank you!
REDEFINE BUTTONBMP botaonfs ID 4031 of Folder1:aDialogs[2] Bitmap "DIGNOTAS" TRANSPARENT TOOLTIP "Informar Nfe(s)" cancel action CadNfs()
botaonfs:nStyle:= nOR(WS_CHILD, WS_VISIBLE)
Re: ButtonBmp TABSTOP
Hi,
TestBmp.prg
TestBmp.rc
Working fine too.
TestBmp.prg
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
}
Saludos,
Carlos Gallego
*** FWH-24.07, xHarbour 1.3.1 Build 20240624, Borland C++7.70, PellesC ***
Carlos Gallego
*** FWH-24.07, xHarbour 1.3.1 Build 20240624, Borland C++7.70, PellesC ***
Re: ButtonBmp TABSTOP
I think I wasn't very clear, in the .res file I put it as a tabstop but as I use the same dialog for 2 different options in the system I would like to set via program whether the button would use the tabstop or not, this is all to avoid creating two dialogs different. Only the tabstop option for this button changes in the 2 options on my system.Cgallegoa wrote:Hi,
TestBmp.prgTestBmp.rcCode: 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
Working fine too.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 }
Thanks!
- nageswaragunupudi
- Posts: 10691
- Joined: Sun Nov 19, 2006 5:22 am
- Location: India
- Contact:
Re: ButtonBmp TABSTOP
Code: Select all | Expand
? oBtn:WinStyle( WS_TABSTOP ) --> lActive
oBtn:WinStyle( WS_TABSTOP, .T. (or) .F. ) // Enable/Disable the TabStop style
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Re: ButtonBmp TABSTOP
Mr. Nagesnageswaragunupudi wrote:Code: Select all | Expand
? oBtn:WinStyle( WS_TABSTOP ) --> lActive oBtn:WinStyle( WS_TABSTOP, .T. (or) .F. ) // Enable/Disable the TabStop style
Desn't work. In the TABSTOP option of the button in Pelles c I set it to YES but when I use oBtn:WinStyle( WS_TABSTOP, .F. ) it it still continues obeying the initial TABSTOP.
Thank you!
Re: ButtonBmp TABSTOP
wartiaga, explique em português o que você realmente quer fazer no segundo botão, você quer ligar/desligar depois de uma ação do programa(ACTION)? é isso? Qual a razão de ligar/desligar o TABSTOP de um botão? Sinceramente não entendi qual o objetivo disto!
SDS,
Regards, saludos.
SDS,
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Re: ButtonBmp TABSTOP
Oi Karinha tudo bem?karinha wrote:wartiaga, explique em português o que você realmente quer fazer no segundo botão, você quer ligar/desligar depois de uma ação do programa(ACTION)? é isso? Qual a razão de ligar/desligar o TABSTOP de um botão? Sinceramente não entendi qual o objetivo disto!
SDS,
Regards, saludos.
Veja só, tenho uma dialog criada em um .res no pelles c ok? Tenho 2 opções no meu sistema que utiliza essa mesma dialog. Em uma das opções eu quero que esse botão não tenha o tabstop e na outra tenha. Isso é para não criar uma outra dialog só por conta do tabstop do botão entendeu? Como é uma dialog que contém muitos objetos não faz sentido eu criar uma nova igual mudando o comportamento no pelles c do tabstop do referido botão.
Obrigado.
Re: ButtonBmp TABSTOP
LOCAL DeOndeVemTenho 2 opções no meu sistema que utiliza essa mesma dialog.
Dispara do MENU com DeOndeVem e controla na função.
Como você parte(DeOndeVem) do Menu?
Code: Select all | Expand
IF DeOndeVem = "OPCAO1"
DEFINE BUTTON... WHEN(..) // Hide/Enable()/Disable(), etc.
ELSE
DEFINE BUTTON ... WHEN(..)
ENDIF
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Re: ButtonBmp TABSTOP
Veja como eu façco em COMPRAS.PRG para o módulo de COMPRAS() saber o que fazer com o mesmo Botão:
Regards, saludos.
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."
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Re: ButtonBmp TABSTOP
E posso controlar qualquer controle(ID) do diálogo, disparar para a função que eu quiser; Ligar/Desligar qualquer controle(ID), etc.
Regards, saludos.
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
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Re: ButtonBmp TABSTOP
Veja só, não quero desabilitar o botão ele tem que permanecer cliclável só não pode receber o foco quando der o tab ou o enter entendeu? Em um prg usando essa dialog ele tem que pular o botão com o enter e em outro ele que que receber o foco, só isso. Valeu!karinha wrote:LOCAL DeOndeVemTenho 2 opções no meu sistema que utiliza essa mesma dialog.
Dispara do MENU com DeOndeVem e controla na função.
Como você parte(DeOndeVem) do Menu?
Sds.Code: Select all | Expand
IF DeOndeVem = "OPCAO1" DEFINE BUTTON... WHEN(..) // Hide/Enable()/Disable(), etc. ELSE DEFINE BUTTON ... WHEN(..) ENDIF
Regards, saludos.
Re: ButtonBmp TABSTOP
Quando PARTIR do MENU com a OPCAO, no ON INIT do DIALOGO, use o XFOCUS() e ponha o FOCO no botão que você quiser.
Regards, saludos.
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Re: ButtonBmp TABSTOP
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
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341