FiveTech Software tech support forums

Hola a todos El siguiente código funciona en FW16 @15,80 GET oget0 VAR cget0 OF odlgeu RIGHT SIZE 50,9 PIXEL UPDATE; VALID ; Eval ( { || IF (CGET1 = 0 , (CGET2:=CGET2), .F. ),; (CGET2,( CGET2:=CGET1*CGET0), oGET2:Refresh(),; (CGET4,( CGET4:=CGET3*CGET0), oGET4:Refresh(),; .T. )) } ) Al pasarlo ...

... the testget.prg and testsay.prg Reference from otto.prg. // testget.prg #include "FiveWeb.ch" function Main() LOCAL oDlg, oGET1 local cGet1:=SPACE(20) local aParams /* if pcount() > 0 aParams := hb_aTokens( cParams, ":" ) MSGINFO(aParams[2]) Go(aParams) return nil endif ...

... DIALOG oDLG(1) FROM nTop,nIzq-3 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 ...

... ; SEL_ASC(nRPos,nCPos, oGet1, oAsc) ) } Incremental seek in xBrowse from GET. oGet1:bChange = { |n,f,oGet| cKey1 := SHOW_ASC( cGet1 ), ; oBrw1:nRowSel := (1)->(ORDKEYNO()), ; oBrw1:nColSel := nCPos, ; oBrw1:Refresh(), oAsc:Refresh() } Best regards Uwe :?:

... by myself. I will create a little testfile with these special errors. The same mystery happend with this error : LOCAL oWnd1, oSay[4], oGet1, ,cGet1 := "?" I added these errors to \samples\testfile.prg #include "FiveWin.ch" function Main() local oText := TTxtFile():New( ...

... http://www.pflegeplus.com/pictures/incre2.jpg http://www.pflegeplus.com/pictures/incre3.jpg @ 4, 185 GET oGet1 VAR cGet1 PICTURE "@" ; SIZE 20, 20 OF oFld:aDialogs[ 1 ] PIXEL FONT oFont3 UPDATE // ; oGet1:bChange := {|| cKey1 := ASC(cGet1), oSay[6]:Refresh(), ...

... from buttonaction is OK Both are using the same function !!! http://www.pflegeplus.com/pictures/ascan1.jpg @ 4, 175 GET oGet1 VAR cGet1 PICTURE "!!!!!!!!!!" ; SIZE 105, 20 OF oFld:aDialogs[ 2 ] PIXEL FONT oFont3 UPDATE oGet1:bKeyDown := { | nKey, nFlags | ; IIF( nKey ...

Hi, If I run this little program .... #include "fivewin.ch" #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 ...

... many *little* problems are solved. Thank you #include "fivewin.ch" #define crlf CHR(13)+CHR(10) FUNCTION main() local oDlg local oGet1 , cGet1 := "Marco Boschi " local oGet2 , cGet2 := "Enrico Maria Giordano " define dialog oDlg @ 1,1 get oGet1 var cGet1 of oDlg @ ...

... is to use in these gets "multiline" property how have I to define them? Many thanks marco FUNCTION main() local oDlg local oGet1 , cGet1 := "Marco " local oGet2 , cGet2 := "Enrico Maria Giordano " define dialog oDlg @ 1,1 get oGet1 var cGet1 of oDlg @ 2,1 get ...

Enrico, I'm sorry. The original code of my sample is #include "fivewin.ch" FUNCTION MAIN() LOCAL oDlg LOCAL oGet1 , cGet1 := SPACE(100) LOCAL oGet2 , cGet2 := SPACE(100) SET( _SET_INSERT , .T. ) DEFINE DIALOG oDlg FROM 10 , 10 TO 400 , 700 PIXEL @ 10 , 1 GET oGet1 VAR cGet1 ...

Patrizio, @ 40, 30 GET oGet1 VAR cget1 OF oTitle1 SIZE 100, 25 PIXEL FONT oSysFont UPDATE // Get the needed Hight for the Get from Fontsize // @ 40, 30 GET oGet1 VAR cget1 OF oTitle1 SIZE 100, oSysFont:nInpHeight + 5 PIXEL FONT oSysFont UPDATE ...

... in a valid function. Like a double click of the mouse in a get field. #include "fivewin.ch" FUNCTION MAIN() LOCAL oDlg LOCAL oGet1 , cGet1 := SPACE(10) LOCAL oGet2 , cGet2 := SPACE(10) DEFINE DIALOG oDlg @ 1 , 1 GET oGet1 VAR cGet1 VALID myfunction() @ 2 , 1 GET oGet2 VAR cGet2 ACTIVATE ...

... #include "fivewin.ch" FUNCTION MAIN() LOCAL oDlg LOCAL oFld LOCAL aFld := { } LOCAL oSay1 , cSay1 := "First" LOCAL oGet1 , cGet1 := SPACE( 10 ) LOCAL oSay2 , cSay2 := "Second" LOCAL oGet2 , cGet2 := SPACE( 10 ) DEFINE DIALOG oDlg RESOURCE "DIALOG_1" REDEFINE ...

Maybe ( with any Color and Pen-Size ) ??? http://www.service-fivewin.de/pictures/getbox.jpg REDEFINE GET oGET1 VAR cGET1 ID 250 OF oDlg UPDATE // TOP, LEFT, hDC, WIDTH, HEIGHT, PEN, COLOR oGet1:bPainted := { |hDC| DRAWBOX ( 0, 0, hDC, oGet1:nWidth-5, oGet1:nHeight-5, 3, ...