FiveTech Software tech support forums

... de memoria, espacio reservado, compatibilidad y demás) He probado todas las combinaciones de stack y heap, y sigue igual, el módulo que estoy añadiendo es una clase y en el momento que añado algo como METHOD Load(), empieza a aparecerme ese mensaje y no funciona la aplicación, lo curioso es ...

Antonio
El TGet como está no tolera la alineación derecha. Lo he solucionado modificando el nStyle añadiendo ES_MULTILINE.

Creo recordar que este problema aparecia en algunas versiones del SO.
Quizas deberias incluir el ES_MULTILINE.

Saludos
Toni Sales

Lo he solucionado, gracias a la idea de Alfredo, de la forma siguiente:

1) Añadiendo a Winapi.ch:

#define CBS_NOINTEGRALHEIGHT 1024


2) En el programa, indicando en el combobox:

STYLE CBS_DROPDOWNLIST | CBS_NOINTEGRALHEIGHT

... aadd(asem,atmp) en comparación con este que es el que uso: aadd(asem,{val1,val2,val3,val4,val5,val6}) de esta forma estoy seguro de que estoy añadiendo una fila con todos esos valores a asem Es lo mismo usar cualquiera de las 2 formas? Un saludo Marcelo Jingo

... cambia el comportamiento de las window. Y como muestra un boton. Compila con el buildce el ejemplo testmenu y lo compilas nuevamente indicando añadiendo el __FLAT__. Si te pasa lo que a mí veras el menu de forma diferente. Saludos

... Si el código anterior no funciona, estoy casi seguro, que el problema está en la clase TGET. Yo lo tuve hace tiempo y lo solucione gracias a LKM, añadiendo una línea en TGET en el Method EditUpdate(): METHOD EditUpdate() CLASS TGet if ::oGet:HasFocus ::DispText() ::oGet:Assign() //LKM actualiza ...

... Si el código anterior no funciona, estoy casi seguro, que el problema está en la clase TGET. Yo lo tuve hace tiempo y lo solucione gracias a LKM, añadiendo una línea en TGET en el Method EditUpdate(): METHOD EditUpdate() CLASS TGet if ::oGet:HasFocus ::DispText() ::oGet:Assign() //LKM actualiza ...

... 2.7, Harbour 45.0 (flex), bcc 5.5.1 y el link de Borland. Tengo el TWORD.PRG bajado de la sección Utilidades de este foro y la intenté compilarla añadiendo como un PRG más en el VERCE, pero obtuve errores de variables de memoria no definidas, así que añadí al inicio del tword.prg todas la varibles ...

... que cumplen, es mejor usar DbSetFilter, ya que ADSExecuteSqlDirect() tiene que crear un DBF temporal con todos los registros, osea, uno a uno ir añadiendo registros en una DBF. Sin embargo con DbSetFilter lo único que haces es aplicar un filtro sobre una tabla ya abierta. Sin son pocos los que ...

... a la Clase TReBar. Para que te muestre los iconos tendras que crear una ImageList : nSize:=32 oImgList:=TimageList():New(nSize,nSize) // Y aqui ir añadiendo todos los bitmaps oImgList:AddMasked( TBitmap():Define( ,cBmp, oWndMdi), nRGB( 192, 192, 192 ) ) Mira los samples de fwh que hay dos o tres ...

... a la Clase TReBar. Para que te muestre los iconos tendras que crear una ImageList : nSize:=32 oImgList:=TimageList():New(nSize,nSize) // Y aqui ir añadiendo todos los bitmaps oImgList:AddMasked( TBitmap():Define( ,cBmp, oWndMdi), nRGB( 192, 192, 192 ) ) Mira los samples de fwh que hay dos o tres ...

Antonio,

También falla al llamar a SETCHARFORMAT() y pulsar cancelar, se arreglaría añadiendo

aFont := ChooseFont( aFont, @nColor )

if !Empty( aFont[ LF_FACENAME ]) <---- Esta línea

................

Endif


Un Saludo,
Joaquín

Antonio, Es el ejemplo tutor11, añadiendo en el metodo :Saybitmap(), el cuarto y quinto parametro (nWidth, nHeight) function Main() local oWnd, oBmp DEFINE BITMAP oBmp FILE CurDir() + "\test.bmp" DEFINE WINDOW ...

Antonio, Esta bien, pero p.e. si ejecutas el codigo (tutor11) añadiendo el ancho y alto en oWnd:SayBitmap(), aparecen los dos mensajes pero despues muestra el bitmap redimensionado. No habria manera de momento, 'capar' estas dos funciones. #include "FWCE.ch" ...

Gracias, Antonio y Oscar por contestar. Intentaré lo que me has comentado, Antonio. Ahora lo que estaba haciendo es quitar esas funciones, ir añadiendo una a una y volver a compilar, a ver dónde está el fallo. La verdad es que me estoy encontrando con más dificultades de lo que pensaba, porque ...