FiveTech Software tech support forums

Horacio,

Puede ser que en el build de FWH que usas el contador de uso del brush se esté decrementando en exceso y FWH lo destruya.

Prueba a hacer oBrush:nCount++

... SendMail( oDlg, cHost, cSender, cTo, cCC,cSubject, cMsg, .F., aAtt, .F. ) oDlg:cMsg := "The messages have sent successfully "+; LTrim( Str( nCount ) ) + " mail(s)" oDlg:Refresh() SysRefresh() next return nil *------------------------------------------------------------------* Function SendMail( ...

Vladimir,

En los fonts, como test, prueba a incrementarles el contador, haciendo oFont:nCount++ despues de crearlos, por si estás destruyéndolos más veces de las necesarias.

... IDs negativos. * Mejora: Cambios menores en la clase TProgress. * Corrección: El método SetBrush() de la clase TWindow no incrementaba la DATA nCount. * Nuevo: Cajas de diálogos transparentes. Ahora puedes usar tus propios Bitmaps como fondos de tus cajas de diálogos y los controles parecerán ...

... to support negative IDs. * Enhancement: Class TProgress minor changes. * Fix: Class TWindow Method SetBrush() was not increasing the brush nCount DATA. * New: DialogBoxes transparency. Now you can use your own bitmaps as the background of your dialogboxes and the controls will look transparent ...

... * ********************************************************* METHOD MakeMenu( ) CLASS tNewRol Local ctext := '' Local nCount Local oSelf := Self MENU oSelf:oMenu MENUITEM "&Ingresos a Tablas" MENU MENUITEM '&1.- Archivo de Empleados' ACTION MsgInfo('hola') WHEN ...

... of FWH functions together for a most needed purpose. Regards, - Ramesh Babu P FUNCTION Diable_X_Move(oWinDlg, lDisableX, lDisable_Move) LOCAL nCount := 0 LOCAL hMenu := 0 LOCAL cClass := oWinDlg:ClassName() hMenu := GetSystemMenu(oWinDlg:hWnd, .F.) nCount := GetMItemCount(hMenu) IF lDisableX ...

... FUNCTION Existencias( cBarCode ) * Begin LOCAL cFile := files_dir+"download\"+alltrim(cBarcode)+"*.exi" LOCAL aFiles := Directory( cFile ) LOCAL nCount := Len(aFiles) LOCAL nExist := NIL LOCAL i asort( aFiles ,,, {|aX,aY|dtos(aX[F_DATE ])+aX[F_TIME] < dtos(aY[F_DATE ])+aY[F_TIME]}) FOR i := ...

... work. My result is to change the page but not the tab. How i can make this? Thanks Eduardo Alicante The procedure procedure ctrl(oDlg,oFld) local ncount:=0 for ncount = 1 to 5 * how to change the page? * this system display a page but not the tab oFld:aDialogs[ncount]:show() *oFld:aDialogs[ncount]:setfocus() ...

... nCol | OpcionMesa( 2, oMesa:nId - 200 ) } return nil y llama a SetRClicked() antes del NEXT Si no funcionase así, prueba con: SetRClicked( oMesa, nCount ) oMesa[ nCount ]:bRClicked = { | nRow, nCol | OpcionMesa( 2, nCount - 200 ) } Esto es a lo que se llama "detached locals" (variables locales ...

... una ventana ó diálogo, sin título, y dibujarlo tu con los colores que precises. Para evitar ese problema con los fonts haz: <oWnd>:oFont:nCount++ en donde <oWnd> es el nombre de la variable de tu ventana.