FiveTech Software tech support forums

Prueba a añadir esto:

oGet2:oBtn:Disable()

... Eval( bLista01 ), NIL ) } oGet1:cToolTip := 'Informe o número da Conta ' bLista01 := {|| cCodigo := ListaCC( cCodigo, oGet1 ) } redefine Get oGet2 var cProduto picture '999' id 102 of oDlg_0051 valid( val_0051a() ) action( Eval( bLista02 ) ) Bitmap "Lupa2" update WHEN .f. oGet2:lBtnTransparent ...

... FUNCTION main() *---------------------- LOCAL odbf,oget,odlg,obtn1,obtn2,obtn3,obtn4,; obrw,midos,; ret_val := .F.,; oget1,oget2 LOCAL oClient1 LOCAL oMenu23, oBrushM1 LOCAL company:="MAKRIS" HB_LangSelect( 'ELWIN' ) HB_SetCodePage("ELWIN") if !empty(oClient1) ...

... TO nBot+40,nDer STYLE nOR( DS_MODALFRAME, WS_POPUP ) PIXEL; COLOR aCOLOR(19),aCOLOR(18) @ 1, 1 get oGet1 var cGet1 picture '@!' @ 1,10 get oGet2 var cGet2 picture '@R' @ 1,40 get oGet3 var cGet3 picture '@S20' etc... @ (nBot-nTop)-2,(nDer-nIzq)/2-71 SBUTTON oBtn[1] PROMPT '&Aceptar' ...

... por cada Get, pero al final, en el boton Aceptar, vuelve a validar. Ej: Redefine Get oGet1 Var... Valid TuFuncion(var1,var2...) Redefine Get oGet2 Var... Valid TuFuncion(var1,var2...) Redefine Get oGet3 Var... Valid TuFuncion(var1,var2...) Redefine button oBt1....... Action TodoOK(var1,var3,varx...) ...

... por cada Get, pero al final, en el boton Aceptar, vuelve a validar. Ej: Redefine Get oGet1 Var... Valid TuFuncion(var1,var2...) Redefine Get oGet2 Var... Valid TuFuncion(var1,var2...) Redefine Get oGet3 Var... Valid TuFuncion(var1,var2...) Redefine button oBt1....... Action TodoOK(var1,var3,varx...) ...

... oBrwReserva:Refresh(), oDlg:Update() ), nil ), .t. ) ; ON CHANGE ( oBrwRooms:Refresh(), oBrwReserva:Refresh() ) @ 10, 100 DTPICKER oGet2 VAR dEnd OF oDlg SIZE 50, 10 PIXEL UPDATE ; VALID ( If( d2 != dEnd, ; ( GetBusyRooms( d1 := Min( dStart, dEnd ), d2 := Max( dStart, dEnd ) ), ...

... a date ... I wish return the value od dFecha and close the odlg... I click on one day but then not close the calendar I use this : @ 10,100 GET oGet2 VAR dEnd ... bitmap"d_ca.bmp" action show_cal(dFechapres,oGet2) Function show_cal(dFechapres,oControl) Local oDlg, oCal Local lOk := ...

... ), oGet1:Refresh() } I got it working like : http://www.pflegeplus.com/pictures/multiline1.jpg function Main() Local oGet1, oGet2, lFocus1 := .F. local cVar:="lalalalala",cVar1:="hoplalalalala" DEFINE DIALOG oDlg FROM 1,10 TO 24,60 @ 1, 12 BUTTON "&End" ...

...  if ::bGotFocus != nil      Eval( ::bGotFocus, Self )   endifreturn nil so now we can do from the example: oGet2:bGotFocus = { || oGet2:SetText( Time() ) } with these tests I have found that the Methods SetCurPos() and SetSel() are not working from within ...

... objeto.. DEFINE DIALOG oDlg FROM 0, 5 TO 20, 40 TITLE "A Dialog Box" @ 1, 2 GET oGet1 VAR cName SIZE 50, 12 OF oDlg UPDATE @ 2, 2 GET oGet2 VAR cFecha SIZE 50, 12 OF oDlg PICTURE "@d" UPDATE oGet1:cToolTip:= "Su nombre completo aquí" oGet1:cToolTip:= "Fecha ...

... ; ON CHANGE { aData1 := aData[oBrw:nArrayAt, 1 ], ; // Value of 1. Column aData2 := aData[oBrw:nArrayAt, 2 ], ; // 2. Column oGet1:Refresh(), oGet2:Refresh() } // 2. get displays Value of Column 2 @ 10, 160 GET oGet1 VAR aData1 OF oDlg SIZE 48, 15 PIXEL ; FONT oTxtFont COLOR 0, 16443068 UPDATE ...

... oBtn1, oBtn2, oBmp, oBmpF, oBrush,cBrush:=".\wall.bmp" local oTitGet1, oTitGet2, oTitGet3, oTitGet4, oTitGet5, oSayText local oGet1, oGet2, oGet3, oGet4, oGet5 local uTemp:=aGet DEFAULT lDecim:=.f. if !Empty(cBrush) .and. file(cBrush) DEFINE BRUSH oBrush FILENAME cBrush endif DEFINE ...

... of a control: SetWindowPos( hWndControl, hWndControlInsertAfter, 0, 0, 0, 0, nOr( SWP_NOMOVE, SWP_NOSIZE ) ) i.e., if you have two GETs, oGet1 and oGet2, then: SetWindowPos( oGet2:hWnd, oGet1:hWnd, 0, 0, 0, 0, nOr( SWP_NOMOVE, SWP_NOSIZE ) ) http://msdn.microsoft.com/en-us/library/windows/desktop/ms633545(v=vs.85).aspx

... #define crlf CHR(13)+CHR(10) FUNCTION main() LOCAL oDlg LOCAL oGet1 , cGet1 := "Aaaaa " + crlf + "Bbbbbbb " LOCAL oGet2 , cGet2 := "Cccccc Dddd Eeeeee " DEFINE DIALOG oDlg @ 1 , 1 GET oGet1 VAR cGet1 OF oDlg SIZE 100 , 30 PIXEL MEMO @ 3 , 1 GET oGet2 VAR ...