FiveTech Software tech support forums

... get a Vertical BMP / Text- Adjustment using BUTTONBMP ? The Text is vertical centered and the BMP is placed on TOP or BOTTOM. REDEFINE BUTTONBMP oBtn3 ID 130 OF oDlg70 ; ACTION MsgAlert("Test" ) ; BITMAP aPICTURES[3][3] PROMPT TRIM(aBTNTEXT[3][1]) TEXTBOTTOM REDEFINE BUTTONBMP oBtn6 ...

... of the Bar, und changed the 2. oDlg in oDlg1 ( double define ) Static FUNC _utilmenu( oDlg, oBtn_1 ) LOCAL oWndChild, oDlg1 , oBtn1, oBTN2, oBTN3, oBTN4, oBTN5, oBTN6 ... ... DEFINE DIALOG oDlg1 RESOURCE "UTILMENU" ; // OF oWndChild ; TITLE "Utility Menu" The bar now ...

... 290, .f. ), DisableX(oDlg3, .T.), ; oBtn1:SetSize( W_BUTTONH * 2 , W_BUTTONV * 2 , .T. ), ; oBtn2:SetSize( W_BUTTONH * 2, W_BUTTONV * 2, .T. ), ; oBtn3:SetSize( W_BUTTONH * 2, W_BUTTONV * 2, .T. ), ; oBtn4:SetSize( W_BUTTONH * 2, W_BUTTONV * 2, .T. ), ; oBtn5:SetSize( W_BUTTONH * 2, W_BUTTONV ...

... oBTN2:ENABLE() // Mofid.Anular SP Else oBTN2:DISABLE() // Mofid.Anular SP EndIf If AccePRESU .and. (PRESUPU)->PRE_NRO <> 0 oBTN3:ENABLE() // PRESUPUESTO Else oBTN3:DISABLE() // PRESUPUESTO EndIf ACTIVATE DIALOG oDlgCar CENTERED ; ON INIT (oTmr:Activate()) dbcloseall() return ...

... local getlist := {} local oDlg, oGet, oDlg1 local mhelp := 1 // := 205 local aRect[4] local oBtn1 local oBtn2 local oBtn3,oBtn4 local oSay1 local oSay2,oSay3 local xMonth local small_font //:= 0 local hDc local aMonth := {} local oCbx local setOrder ...

... BTNBMP oBtn2 RESOURCE "PMGR" ; SIZE 145, 15 OF oDlg1; ACTION( IF( _Addum( oDlg1 ),nOK := 4 , nOK := 2 )) oBtn2:lTransparent := .T. @ 90, 10 BTNBMP oBtn3 RESOURCE "CANCEL" ; SIZE 145, 15 OF oDlg1 ; ACTION( oDlg1:END(), nOK := 3) oBtn3:lTransparent := .T. ACTIVATE DIALOG oDlg1 CENTERED DO CASE CASE ...

... Browse Outlook2003 --------------------------- FUNCTION PROG_4(oWnd,oDlg,aCtrl,nPage,oOutL2003) local oDlg3, oFile1, cFile1 := "", oBtn1, oBtn2, obtn3, oBtn4, oBrw5, DBFTYP := "" local oFilter, cFilter := SPACE( 70 ), cFELD := "", l_INDEX := .F. local oSUCH, cSUCH := "", aSCOPE, nSCOPE := 1 local ...

... cuando sale del focus del get. mi pregunta es? como hacer que el valid no se ejecute al momento de presionar un boton por ejemplo. REDEFINE BUTTON oBtn3 ID 401 OF oDlg ACTION ( oGet2:SetFocus(.t.),; cPassw:=cPassw+ASC("1"),; oGet2:Refresh() ) lo que quiero es ejecutar el boton sin que se active ...

... zPOOLID ) UPDATE // mtrpslct.prg //---------------------- Func MTRPGET( cNAME, cMODE, oOBJ, oRs, cTABLE ) LOCAL oDLG,oLBX LOCAL oBTN1,oBTN2,oBTN3 LOCAL oRsMTP, oErr, cSQL IF cNAME = "ALL" .and. cMODE = 'R' RETURN(.T.) ENDIF IF EMPTY( oOBJ ) oOBJ := " " ENDIF IF cMODE = "E" DO CASE CASE cTABLE ...

... INIT(AddBar(oData,oLbx,nNum,oStock)); VALID(WinOpen(oMainWnd,0),lExit) static function AddBar(oData,oLbx,nNum,oStock) local oBar,oBtn,oBtn1,oBtn2,oBtn3,cExitTip := '',cAddTip := '',cDelTip := '',cPrintTip := '',lRecs := FALSE if nNum == 1 cExitTip := 'Exit Department Code Screen' cAddTip := 'Add ...

Jeff,

Please try this too besides the bKeyChar/bKeyDown:

oBtn1:nDlgCode = DLGC_WANTALLKEYS
oBtn2:nDlgCode = DLGC_WANTALLKEYS
oBtn3:nDlgCode = DLGC_WANTALLKEYS
oBtn4:nDlgCode = DLGC_WANTALLKEYS

... you should assign bKeyDown or bKeyChar to all of them: oBtn1:bKeyChar = { | nKey | MsgInfo( nKey ) } oBtn2:bKeyChar = { | nKey | MsgInfo( nKey ) } oBtn3:bKeyChar = { | nKey | MsgInfo( nKey ) } oBtn4:bKeyChar = { | nKey | MsgInfo( nKey ) } Instead of MsgInfo(), call a function where you check nKey ...

Hola,,,,

DEFINE DIALOG......
...
..
...

ACTIVATE DIALOG oDlg ON INIT (oBtn1:Disable(), oBtn2:Disable(), oBtn3:Disable())


Salu2
Willi

... oBtn2 NAME "SETUP" NOBORDER SIZE 11, 11 ACTION PRINTERSETUP() OF oDlgT ;oBtn2:cTOOLTIP:= "Configuración de Impresion " @ 12+12+12+24, 0 BTNBMP oBtn3 NAME "GET" NOBORDER SIZE 11, 11 OF oDlgT ;oBtn3:cTOOLTIP:= "Jalar una expresion " ;oBtn3:oDragCursor = oCursor @ 12+12+12+24,15 BTNBMP oBtn4 NAME ...

... "Image.ch" //----------------------------------------------------------------------------// function Main() LOCAL oDlg, oImage, oBtn1, oBtn2,oBtn3,oBtn4,oBtn5 DEFINE DIALOG oDlg RESOURCE "DLG_WEBCAM_FOTO" REDEFINE IMAGE oImage ID 108 OF oDlg SCROLL // ADJUST oImage:Progress( .f. ) REDEFINE ...