FiveTech Software tech support forums

... GetProfString( "Devices", 0 ) que a su vez llama a GetPrivateProfileString() de la api. De esto me dí cuenta hace tiempo y para evitarlo añadí lo siguiente: METHOD PrintersMenu() CLASS TPreview   local oPop, aPrinters, m, n := 1, aborra := {}, npos := 0 //WinGetPrinters() ...

... programa Twebcam ver 1.0 32bits que esta publicado en las contribuciones de Fivewin, dejarme un par de semanas para publicar la versión 1.5 que le añadí hacer una foto de la Webcan y poder recortar la imagen con la clase TImagesV y quitarle el apartado de Streming que funciona pero no estoy contento ...

... el programa Twebcam 1.0 32bits que esta publicado en las contribuciones de Fivewin, dejarme un par de semanas para publicar la versión 1.5 que le añadí hacer una foto de la Webcan y poder recortar la imagen con la clase TImagesV y quitarle el apartado de Streming que funciona pero no estoy contento ...

... yo lo resolví corrigiendo el encabezado de la clase tswitch en switchtst.prg añadiendo los valores loval y lradstyle. Así funciona perfectamente, añadí al ejemplo que los switches fueran uno no oval, uno oval y uno radstyle : #include "fivewin.ch"#xcommand @ <nRow>, <nCol> ...

No funciona, continua el problema. Estoy trabajando con los ejemplos: testdllp.prg y pcodedll.prg a testdllp.prg le añadí el código que me indicas y el resultado de la compilación es el siguiente: Compiling... xHarbour 1.2.3 Intl. (SimpLex) (Build 20170513) Copyright 1999-2017, http://www.xharbour.org ...

... de edición, y hace los replaces. Nacio para ahorrarse el trabajo de declarar variables intermedias para editar y/o crear registros, y después le añadí unas cuantas florituras entre las que está el timestamping, con lo que eso se hace de manera automática. Hace poco el Rafa escribió algo sobre ...

... nuevo -----   IF ::lPreview      Eval( ::bPreview )   endif  //------------------   HPDF_Free( ::hPdf )RETURN nResult  5.- Añadí estas funciones auxiliares ( a imitación de Tprinter ) Function PrintHaruBegin( cFileName, cPassword, cOwnerPassword, nPermission , lPreview ...

De no funcionarte, prueba asi:

@ ..., ... IMAGE oImg ...

en vez de DEFINE IMAGE ...

y usando las líneas que añadí en el mensaje anterior

... podrán ver, debo escalar verticalmente la impresión de los formularios para que se impriman completos en un papel que es 2.5cm mas corto... Ya le añadí a Windows un papel de 8.5" x 13" (Panel de Control ==> Herramientas Administrativas ==> Administrador de Impresión ==> Servidores ...

Tu implementación es mejor que la que yo hice , si quieres puedes añadir la data que yo añadí para que puedas regular aún mejor el comportamiento según lo que se desea : METHOD Disable() INLINE   ::hBitmap3 := IF(::hBitmap3=0 , if (::ldisableBmp, BMP2DIS(::hBitmap1), ...

... Creé una DATA nueva en la clase BTNBMP DATA   nZeroZeroClr INIT Nil  2.- En el método Paint , en todas las llamadas a la function DrawTransBmp, añadí esa DATA como parámetro final (creo que son 4 llamadas a esa funcion) Por ejemplo .../...            else               DrawTransBmp( ::hDC, ...

... pero en un ordenador con siete 64 bits aparecía en la ventana principal el mensaje "No reponde" y podía tardar 45 segundos. Simplemente añadí un MsgMeter que ejecuta la función de búsqueda y mejoró mucho. Por eso creo que cuando el programa está haciendo algo que no envía mensajes o ...

Gracias a ambos por contestar. LucasdeBeltran, añadí la clausula ADDITIVE y aparentemente funciona correcto, pero al salir del programa y volver a entrar me genera un error justo al abrrir las DBF, del tipo: Unrecoverable error 9104: hb_cdxIndexFree: ...

... aparece vacio. Inclui en la ventana un BRUSH y no lo cerré despues del ACTIVATE y aparecía el mismo mensaje que puse en mi pregunta anterior Añadí el oBrush:End() y el checkres.txt aparece vacio. Gracias una vez mas Saludos

Esteban, A mi me funcionaba bien en XP pero no en Windows-7 Professional. Le añadí al principio del módulo Loadlib32 ("iphlpapi.dll") y entonces me funcionó. A los que ya le funcionen,perfecto. Pero a los que no,pueden probar añadiendo la librería. Saludos ...