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
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Nuevo FWH 11.11
Page: 1 2 (22 posts)
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 
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!
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
Gracias
Carlos,
Renombra CurDrive() a hb_CurDrive()
Muchas Gracias Sr Linares
Eso me Hacia Falta
Acabamos de publicar una versión revisada de FWH 11.11
Por favor, volved a descargarla, gracias!
Estamos publicando una versión revisada de FWH 11.11
Estamos subiéndola ahora por que que estará disponible dentro de unos minutos!
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
if Upper( ::ClassName() ) != "TGET" .and. ::bKeyDown != nilpor
if ! ::IsKindOf( "TGET" ) .and. ::bKeyDown != nilAlgo 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:
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., ) } )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.
Un saludo
Fernando González Diez
ALSIS Sistemas Informáticos
Fernando González Diez
ALSIS Sistemas Informáticos
up
Un saludo
Fernando González Diez
ALSIS Sistemas Informáticos
Fernando González Diez
ALSIS Sistemas Informáticos
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
Fwh 11.11, bcc 5.82, harbour
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
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
// TestBtns.prg 10-19-98
// From John Cole at <!-- e --><a href="mailto:john@adpa.com">john@adpa.com</a><!-- e -->
#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.Si omite dicha funcion todo correcto
Gracias
Carlos I. De La Rosa
carloslmm@hotmail.com
Carlos,
Todos los botones del ejemplo se ejecutan dos veces ? El del diálogo tambien ?
Aqui funciona bien...
Usas alguna clase de FWH modificada ?
Page: 1 2 (22 posts)