FiveTech Software tech support forums

... Local ndatabits :=8 Local nparity :=0 //0NONE, 1 Odd, 2Even Local nstopbit :=1 Local cRead :="" Local cBuffer :=SPACE(512) Local cRes :="" DEFAULT cPortName:="COM3" IF !Init_Port( cPortName, nBaudeRate , nDatabits , nParity , nStopbit , cBuffer ) MSGALERT("Balanza ...

... Setting a higher value produces a increase in item height - Added parameter lPop to METHOD AddEdit, for use as MENU POPUP AddEdit( aColors, cFile, cRes, lPop ) Sample: Function MyEditMnu( nR, nC, nF, oDlg ) local oMnu MENU oMnu POPUP oMnu:AddEdit(,,,.T.) ENDMENU ACTIVATE MENU oMnu OF oDlg AT nR, ...

... of menu principal and popups * Enhancement: CLASS TMENU, allow resource of file image to menuitems in methods METHOD AddEdit( aColors, cFile, cRes ) METHOD AddFile( aColors, cFile, cRes ) METHOD AddHelp( cAbout, cCopyRight, aColors, cFile, cRes ) METHOD AddMdi( aColors, cFile, cRes ) * New ...

Antonio:
Muchas gracias, eso buscaba, pero cual es mi sorpresa que si pongo en el action del redefine del button esto cres:=str(::nid-1100,3,0)
me tira un error en ejecución diciendo que no existe la variable self.
Gracias.
Un saludo

... // Logical oGet:bKeyDown := { | nKey | VerKey(nKey,oBSum,oBMin,oBMol,oBDiv,oBPer,oBCan,oBRes) } @ 1,5.6 GET oRes VAR cRes OF oDlg SIZE 55,10 RIGHT COLOR CLR_RED,CLR_WHITE READONLY //@ 1.3,1 BUTTON oBtn PROMPT "&Paste" OF oDlg ACTION (oBCan:Click(),SayNum(oGet,nVal)) ...

Since version 10.08, we can use oCol:AddBitmap( cResourceOrBmpFileName ) or oCol:AddBitmap( aArrayOfResourcesOrBmpFileNames ) in a single call, instead of calling oCol:AddResource( cRes ) and oCol:AddBmpFile( cBmpFile ) multiple times. --- oLbx:aCols[1]:AddResource( ...

... //----------------------------------------------------------------------------// CLASS TDialog FROM TWindow CLASSDATA lRegistered AS LOGICAL DATA cResName, cResData DATA hResources DATA lCentered, lModal, lModify DATA bStart DATA lHelpIcon // Windows 95 help icon pressed DATA lResize16 // resize ...

Adhemar... oCol:cHeader:=IF(cRes="E","LO EJECUTO","LO REALIZA") de esta forma estas creando La columna con un unico valor segun la condicion, para que el header sea dinamico deberia ser un codeblock, el cual ...

... cuando una variable o un radio cambia de valor Ej: oCol := oBrw1:AddCol() oCol:bStrData := { || OEMTOANSI(TRAB->RESPONSABL)} oCol:cHeader:=IF(cRes="E","LO EJECUTO","LO REALIZA") oCol:nWidth:=175 oCol:nHeadStrAlign := AL_CENTER La primera vez lo coloca, pero si ...

... and opinions it 's a prototipe, i do not show code yet we can show images on cell without added array, no need methods METHOD AddResource( cRes ) METHOD AddBmpFile( cFile ) METHOD AddBmpHandle( hBmp ) New DATA bStrImage // String data codeblock (returns a string with imagen name) New nEditType ...

... estas imagenes no hacen falta precargarlas en el array por columnas, es decir, para presentarlas no se necesitan los metodos METHOD AddResource( cRes ) METHOD AddBmpFile( cFile ) METHOD AddBmpHandle( hBmp ) el prototipo mostrado tiene una nueva DATA bStrImage, es un codeblock que devuelve el ...

... ) => <x> #xTranslate _DLL_FUNCT_ <cFunction> PARAMS [<Par1> AS <Typ1>] [,<ParN> AS <TypN>] [AS <cRes>] [LIB <cLib>] [ALIAS <cAlias>] =>; Local hDll:=DllHandle( <cLib> );; Local uResult, cFarProc;; IF Abs(hDll) > 32 ;; ...

... esta la imagen que quiero mostrar... para cargar la imagen a oBrw:oCols:aBitmaps se pueden usar los METODOS METHOD AddResource( cRes ) // Adds a new bitmap to the ::aBitmaps array giving his resource name METHOD AddBmpFile( cFile ) // Adds a new bitmap to the ::aBitmaps array ...

... Function Main() Local oBrw , otecla PRIVATE cChav:="",oChar,cChar:=SPACE(25),cres:="",nsk:=1 Field First, Last USE Employee SHARED NEW Index On Trim( First ) + Space( 1 ) + Last Tag Name Index On State Tag estado // CDX DEFINE ...

... //----------------------------------------------------------------------------// function Main() local oWnd local oBrw, oCol local oRes, cRes LOCAL aInhalt := directory("*.emf","D") LOCAL oFnt LOCAL ob0, ob1, ob2, ob3, ob4, ob5, xRes DEFINE FONT oFnt NAME "ARIAL" SIZE 6 ,15 BOLD DEFINE ...