FiveTech Software tech support forums

... y así no interfiere con los GET's DEFINE BITMAP oBmp NAME "...." DEFINE DIALOG oDlg ... ... ... REDEFINE GET oGet1 ... REDEFINE GET oGet2 ... REDEFINE GET oGet3 ... ... oDlg:bPainted := { |hDc| PintDlg(hDc,oBmp) ACTIVATE DIALOG oDlg ... FUNCTION PintDlg(hDc,oBmp) PalBmpDraw(hDc,X,Y,oBmp:hBmp) ...

... That Works with Multiline Get // ------ Font - Source + Color ---------------------- REDEFINE GET oGet2 VAR SOURCETEXT ID 530 OF oDlg MULTILINE UPDATE oGet2:bGotFocus := {|| oGet2:SetColor( 0, 16577214 ) } oGet2:bLostFocus := {|| oGet2:SetColor( ...

... ID 100 OF oDlg UPDATE oGet1:bGotFocus := {|| oGet1:SetColor( 16777215, 128 ) } oGet1:bLostFocus := {|| oGet1:SetColor( 0, ) } REDEFINE GET oGet2 VAR SOURCETEXT2 ID 101 OF oDlg UPDATE oGet2:bGotFocus := {|| oGet2:SetColor( 16777215, 128 ) } oGet2:bLostFocus := {|| oGet2:SetColor( 0, ) } ...

... lChk1 = .T., lChk1 := .F., lChk1 := .T. ), oChk1:Refresh() } @ 70,750 GET oGet1 Var nGet1 Of oDlg PIXEL DESIGN Size 70,25 FONT oFont @ 110,750 GET oGet2 Var nGet2 Of oDlg PIXEL DESIGN Size 70,25 FONT oFont @ 150,750 GET oGet3 Var nGet3 Of oDlg PIXEL DESIGN Size 70,25 FONT oFont oGet3:bRclicked:={|| ...

... ( DRAWBOX( 0, 0, hDC, oGet1:nWidth-5, oGet1:nHeight-5, 3, 128 ), ; DRAWBOX( 0, 0, hDC, 0, 0, 0, 0) ), NIL) } oGet1:bGotFocus := { |hDC| nPos := 1, oGet2:Refresh(), oGet3:Refresh() } REDEFINE GET oGET2 VAR cGET2 ID 260 OF oDlg UPDATE oGet2:bPainted := { |hDC| IIF( nPos = 2, ( DRAWBOX( 0, 0, hDC, ...

... no esta soportando los eventos de los objetos. #Include 'Fivewin.ch' FUNCTION Test() LOCAL sText := 'Implementando Scripts' LOCAL oWnd2, oGet1, oGet2, cGet1, cGet2 Alert(sText) //MsgInfo(sText) DEFINE WINDOW oWnd2 FROM 0,0 TO 12,35 TITLE 'Test' cGet1 := "Hola " cGet2 := "Bye " ...

... cFaxCli, cDniCif, cContacto Function Main() local ofrm ofrm:= TFormPrincipal():new() ofrm:show() return nil class TFormPrincipal DATA oGet1 DATA oGet2 DATA oGet3 DATA oGet4 DATA oGet5 DATA oGet6 DATA oGet7 DATA oGet8 DATA oGet9 DATA oGet10 DATA oDlg DATA oDbfCli DATA cCodClif DATA cNomClif DATA ...

... cCliNum, cCliNom, cSel, lSoloPen, oPrn, cTitulo, cTitRep, ; cTitRep2, Pagina, nLinea FUNCTION EmiEdo() LOCAL oDlg, oCbx, oChk, oBAce LOCAL oGet1, oGet2 LOCAL aItems := {"Selectivo", ; "General "} SETKEY( VK_F2,{|| VerCli()} ) USE cfac INDEX cfaccli NEW USE pag INDEX pagfac ...

... Function Main() local oBrw,oGet1,oGet2 local n:=0,oCol Local oDlg, nConsec:=0,dFecIni:=Date() local aMiArray:={{"","","",""}} SET DATE BRITISH ...

...   function Main()            local oDlg, cFirst := Space( 20 ), cLast := Space( 20 )          Local oGet1, oGet2, oGet3, oGet4, oGet5, oGet6, oGet7, oGet8   Local cVar1, cVar2, cVar3, cVar4, cVar5, cVar6, cVar7, cVar8    DEFINE DIALOG oDlg TITLE "Test" ...

... función a la que es llamada por el GET LA PARTE DE LA RUTINA DE LOS GET, ES LA SIGUIENTE: func PROALBANCO() local oBCO, WOK:= .F., QOK:= 0, oGET1, oGET2, oGET3,oGET4,oGET5,oBTO1, oBTO2, oBTO3, oBTO5 LOCAL QEMPRE,QBANCO,WNBCO15,WNBCO30 STORE 0 TO QEMPRE,QBANCO STORE SPACE(3) TO WBANCO STORE SPACE(4) ...

... { |o| lValid .OR. EVAL(o:bValid) } En caso contrario tendras que evaluarlos uno por uno: lValid := EVAL( oGet1:bValid ) .OR. EVAL( oGet2:bValid ) .OR. ...... Lo que puedes hacer es utilizar un ARRAY: LOCAL aGet := ARRAY(7) . . REDEFINE GET aGet[1] .... REDEFINE GET aGet[2] .... ...

... { |o| lValid .OR. EVAL(o:bValid) } En caso contrario tendras que evaluarlos uno por uno: lValid := EVAL( oGet1:bValid ) .OR. EVAL( oGet2:bValid ) .OR. ...... Lo que puedes hacer es utilizar un ARRAY: LOCAL aGet := ARRAY(7) . . REDEFINE GET aGet[1] .... REDEFINE GET aGet[2] .... ...

... EVALUA NUNCA") OF oDlg SIZE 60, 10 COLOR "W/G" PICTURE "@K" @ 1.8, 2 SAY "ACA LO CAPTURO:" OF oDlg @ 2, 6 GET oGet2 VAR AQUI OF oDlg SIZE 60, 10 PICTURE "9999999.99" oGet2:bGotFocus:={ || CAPTURANDOEVENTODESPUESDELECTOR()} @ 3, 7 BUTTON "&Ok" ...

... > 2- dentro de un Listbox como se implementa la misma situacion, es decir saltar el foco a otro control? Exactamente igual :-) En vez de usar oGet2:oJump usas oListBox:oJump. > 3- esta clase de metodos donde tiene algo de literatura? El dato oJump pertenece a la Clase TControl y está documentado ...