Nuevo FWH 11.11

[Antonio Linares]

viewtopic.php?f=16&t=22942

[carloslmm]

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

[Antonio Linares]

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

[Antonio Linares]

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!

[carloslmm]

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

[Antonio Linares]

Carlos,

Renombra CurDrive() a hb_CurDrive()

[carloslmm]

Muchas Gracias Sr Linares

Eso me Hacia Falta

[Antonio Linares]

Acabamos de publicar una versión revisada de FWH 11.11

Por favor, volved a descargarla, gracias!

[Antonio Linares]

Estamos publicando una versión revisada de FWH 11.11

Estamos subiéndola ahora por que que estará disponible dentro de unos minutos!

[fgondi]

Antonio,

Veo que en el método Keydown de la clase window se ha cambiado

Code: Select all  Expand view

if Upper( ::ClassName() ) != "TGET" .and. ::bKeyDown != nil

por

Code: Select all  Expand view

if ! ::IsKindOf( "TGET" ) .and. ::bKeyDown != nil

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:

Code: Select all  Expand view

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.

[fgondi]

up

[carloslmm]

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

[Antonio Linares]

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

[carloslmm]

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

Code: Select all  Expand view

//  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.
 

Si omite dicha funcion todo correcto

Gracias

Carlos I. De La Rosa
carloslmm@hotmail.com

[Antonio Linares]

Carlos,

Todos los botones del ejemplo se ejecutan dos veces ? El del diálogo tambien ?

Aqui funciona bien...

Usas alguna clase de FWH modificada ?