Nuevo FWH 11.11
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Nuevo FWH 11.11
Hola a todos
Quien me puede ayudar a compilar con fwh 11.11 y borlan con harbour, me da el error too many DEF File name
Y pues la verda no se ya ni que cambiarle
Gracias a Todos
Carlos De La Rosa
Quien me puede ayudar a compilar con fwh 11.11 y borlan con harbour, me da el error too many DEF File name
Y pues la verda no se ya ni que cambiarle
Gracias a Todos
Carlos De La Rosa
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Nuevo FWH 11.11
Carlos,
Ese error se debe a que tienes puesta una coma de más ó de menos al llamar a ilink32.exe
Si no lo encuentras (compara tu forma de llamar a ilink32.exe con samples\buildh.bat) usa TeamViewer, nos envias por email id y contraseña, y te ayudamos desde aqui![Smile :-)](./images/smilies/icon_smile.gif)
Ese error se debe a que tienes puesta una coma de más ó de menos al llamar a ilink32.exe
Si no lo encuentras (compara tu forma de llamar a ilink32.exe con samples\buildh.bat) usa TeamViewer, nos envias por email id y contraseña, y te ayudamos desde aqui
![Smile :-)](./images/smilies/icon_smile.gif)
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Nuevo FWH 11.11
Hemos publicado unaversión revisada de FWH 11.11
Incluye los ficheros make para VisualFW (32 y 64 bits) y tambien el fichero make para samples\FiveGen\*
Soluciona un bug con la reciente clausula GRADIENT que no estaba correctamente liberando el brush usado con anterioridad
Por favor descargadlo de nuevo, gracias!![Smile :-)](./images/smilies/icon_smile.gif)
Incluye los ficheros make para VisualFW (32 y 64 bits) y tambien el fichero make para samples\FiveGen\*
Soluciona un bug con la reciente clausula GRADIENT que no estaba correctamente liberando el brush usado con anterioridad
Por favor descargadlo de nuevo, gracias!
![Smile :-)](./images/smilies/icon_smile.gif)
Re: Nuevo FWH 11.11
OTRA PREGUNTA MAS
LA FUNCION CURDRIVE QUE PIDE EN LA COMPILACION ES DE ALGUNA LIBRERIA QUE NO ESTOY ANEXANDO, LA USO EN ALGUNOS PROCEDIMIENTOS, EN DONDE LA LOCALIZO, YA QUE ANTES ME LO DABA AUTOMATICAMENTE
FWH 11.11 BORLAND 5.82
CARLOS I. DE LA ROSA
carloslmm@hotmail.com
Gracias
LA FUNCION CURDRIVE QUE PIDE EN LA COMPILACION ES DE ALGUNA LIBRERIA QUE NO ESTOY ANEXANDO, LA USO EN ALGUNOS PROCEDIMIENTOS, EN DONDE LA LOCALIZO, YA QUE ANTES ME LO DABA AUTOMATICAMENTE
FWH 11.11 BORLAND 5.82
CARLOS I. DE LA ROSA
carloslmm@hotmail.com
Gracias
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Nuevo FWH 11.11
Carlos,
Renombra CurDrive() a hb_CurDrive()
Renombra CurDrive() a hb_CurDrive()
Re: Nuevo FWH 11.11 *
Muchas Gracias Sr Linares
Eso me Hacia Falta
Eso me Hacia Falta
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Nuevo FWH 11.11
Acabamos de publicar una versión revisada de FWH 11.11
Por favor, volved a descargarla, gracias!![Smile :-)](./images/smilies/icon_smile.gif)
Por favor, volved a descargarla, gracias!
![Smile :-)](./images/smilies/icon_smile.gif)
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Nuevo FWH 11.11
Estamos publicando una versión revisada de FWH 11.11
Estamos subiéndola ahora por que que estará disponible dentro de unos minutos!![Smile :-)](./images/smilies/icon_smile.gif)
Estamos subiéndola ahora por que que estará disponible dentro de unos minutos!
![Smile :-)](./images/smilies/icon_smile.gif)
Re: Nuevo FWH 11.11
Antonio,
Veo que en el método Keydown de la clase window se ha cambiado
por
Algo que viene muy bien a los que, como yo, tenemos clases basadas en la clase tget.
Siguiendo este cambio, propongo que se realice lo mismo en:
En este caso cambiaría Upper( o:ClassName() ) $ "....." por el IsKindOf de cada clase
Ya que, por ejemplo en mi caso, tengo clases nueva para tget, tmultiget y tcombobox.
Veo que en el método Keydown de la clase window se ha cambiado
Code: Select all
if Upper( ::ClassName() ) != "TGET" .and. ::bKeyDown != nil
Code: Select all
if ! ::IsKindOf( "TGET" ) .and. ::bKeyDown != nil
Siguiendo este cambio, propongo que se realice lo mismo en:
Code: Select all
METHOD Initiate( hWndFocus, hWnd ) CLASS TDialog
...
if ::lTransparent
FixSays( ::hWnd )
//fgondi
AEval( ::aControls,;
{ | o | If( ! Upper( o:ClassName() ) $ ;
"TGET;TMULTIGET;TBTNBMP;TCOMBOBOX;TWBROWSE;TCBROWSE;TXBROWSE;TLISTBOX;TDBCOMBO" .and. ;
! o:IsKindOf( 'TXBROWSE' ), o:lTransparent := .t., ) } )
Ya que, por ejemplo en mi caso, tengo clases nueva para tget, tmultiget y tcombobox.
Un saludo
Fernando González Diez
ALSIS GHE Sistemas Informáticos
Fernando González Diez
ALSIS GHE Sistemas Informáticos
Re: Nuevo FWH 11.11
Señor Antonio
Tengo problemas con los botones que antes mis aplicaciones con enter ejecutaban una accion correctamente, con esta version 11.11 al dar enter y mandar un reporte o agregar un registro lo hace 2 veces manda el reporte dos veces o agrega 2 registros, esto con la clase button, probe con la clase btnbmp y con esta si funciona correctamente, solo que tendria que cambiar bastante codigo de todas mis aplicaciones, si se puede corregir esto me ayudaria bastante.
Gracias y Saludos
Carlos I. De La Rosa
carloslmm@hotmail.com
Fwh 11.11, bcc 5.82, harbour
Tengo problemas con los botones que antes mis aplicaciones con enter ejecutaban una accion correctamente, con esta version 11.11 al dar enter y mandar un reporte o agregar un registro lo hace 2 veces manda el reporte dos veces o agrega 2 registros, esto con la clase button, probe con la clase btnbmp y con esta si funciona correctamente, solo que tendria que cambiar bastante codigo de todas mis aplicaciones, si se puede corregir esto me ayudaria bastante.
Gracias y Saludos
Carlos I. De La Rosa
carloslmm@hotmail.com
Fwh 11.11, bcc 5.82, harbour
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Nuevo FWH 11.11
Carlos,
Por favor prueba FWH\samples\TestBtn2.prg que prueba las acciones de los botones tanto en un diálogo como en una ventana.
Aqui funciona bien y solo ejecuta la acción una vez, gracias
Por favor prueba FWH\samples\TestBtn2.prg que prueba las acciones de los botones tanto en un diálogo como en una ventana.
Aqui funciona bien y solo ejecuta la acción una vez, gracias
Re: Nuevo FWH 11.11
Señor Antonio
Ya probe si se checa normal los botones sin esta funcion todo correcto SkinButtons( )
pero al anexarla pasa lo de duplicar las acciones aqui el ejemplo de samples con el cambio
Si omite dicha funcion todo correcto
Gracias
Carlos I. De La Rosa
carloslmm@hotmail.com
Ya probe si se checa normal los botones sin esta funcion todo correcto SkinButtons( )
pero al anexarla pasa lo de duplicar las acciones aqui el ejemplo de samples con el cambio
Code: Select all
// TestBtns.prg 10-19-98
// From John Cole at john@adpa.com
#include 'FIVEWIN.CH'
static oWinMain := nil
PROCEDURE Main()
local oFont, oDlg
[b]SkinButtons( )[/b]
define font oFont name 'MS Sans Serif' size 6,15
define window oWinMain from 5,5 to 30,85 title "TestBtns" menu BuildMenu()
@ 3,10 BUTTON "Button 01 Test" size 100,50 font oFont OF oWinMain ACTION MsgInfo("Button 01 Test on oWinMain")
@ 3,40 BUTTON "Button 02 Test" size 100,50 font oFont OF oWinMain ACTION MsgInfo("Button 02 Test on oWinMain")
@ 3,70 BUTTON "Button 03 Test" size 100,50 font oFont OF oWinMain ACTION reporte()
define dialog oDlg from 0,0 to 12,35 font oFont title 'Test Button on Dialog'
@ 1,3 BUTTON "&Button Test on Dialog" size 100,50 font oFont OF oDlg ACTION MsgInfo("Button Test on Dialog")
activate dialog oDlg centered
set message of oWinMain to "TestBtns" date time noinset
activate window oWinMain maximized
return
FUNCTION BuildMenu()
local oMenu
menu oMenu
// File menu --------------------------------------------
menuitem '&File'
menu
menuitem "&ACTION MsgInfo Test" MESSAGE "ACTION MsgInfo Test" ;
ACTION MsgInfo("ACTION MsgInfo Test")
separator
menuitem 'E&xit' ;
action oWinMain:End() ;
message 'Exit TestBtns'
endmenu
// About menu --------------------------------------------
menuitem '&About' ;
action MsgAbout()
endmenu
return oMenu
Function reporte()
local oprn, xRow1, xCol1
printer oprn DOC 'Reporte de Corte de Caja' preview
DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-08 of oprn
DEFINE FONT oFont1a NAME "ARIAL" SIZE 0,-08 BOLD of oprn
DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-10 BOLD of oprn
DEFINE FONT oFont3 NAME "ARIAL" SIZE 0,-12 BOLD of oprn
xRow1 = oprn:nVertRes() / 66 // We want 66 rows
xCol1 = oprn:nHorzRes() / 130 // We want 135 cols
oprn:lprvmodal := .t.
page
oprn:say(2 *xrow1,01 *xcol1,'Reporte de Corte' ,ofont2)
oprn:say(2 *xrow1,40 *xcol1,'Fecha:'+dtoc( date() )+"AL "+dtoc( date() ) ,ofont2)
oprn:say(2 *xrow1,100 *xcol1,'Pagina:'+transform(oprn:npage,'999,999') ,ofont2,,,,2)
oprn:box(3 *xrow1,1 *xcol1,5 *xrow1,125*xcol1)
endpage
endprinter
return .t.
Gracias
Carlos I. De La Rosa
carloslmm@hotmail.com
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Nuevo FWH 11.11
Carlos,
Todos los botones del ejemplo se ejecutan dos veces ? El del diálogo tambien ?
Aqui funciona bien...
Usas alguna clase de FWH modificada ?
Todos los botones del ejemplo se ejecutan dos veces ? El del diálogo tambien ?
Aqui funciona bien...
Usas alguna clase de FWH modificada ?