Nuevo FWH 24.04
Posted: Thu Sep 18, 2008 8:15 pmFiveTech Software tech support forums
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
Nuevo FWH 24.04
https://forums.fivetechsupport.com/viewtopic.php?f=6&t=12759
Page 1 of 2
Re: Nuevo FWH 19.09
Posted: Tue May 30, 2017 9:28 am.
Re: Nuevo FWH 18.01
Posted: Fri Mar 02, 2018 7:37 pmEstimado Antonio
Puede agregar ésta línea en la Clase Btnbmp
Gracias
Puede agregar ésta línea en la Clase Btnbmp
- Code: Select all Expand view
METHOD MouseLeave( nRow, nCol, nFlags ) CLASS TBtnBmp
::lMOver = .F.
XEval( ::bMMoved, ::lMOver )
::Setcolor( CLR_BLACK ) //Ésta
::Refresh()
return nil
Gracias
Re: Nuevo FWH 18.01
Posted: Sat Mar 03, 2018 8:26 amAdhemar,
Se cambia el color del texto del botón en caso de no hacerlo ?
Por qué cambia el color ?
Debería seguir usándose el valor contenido en ::nClrText
Se cambia el color del texto del botón en caso de no hacerlo ?
Por qué cambia el color ?
Debería seguir usándose el valor contenido en ::nClrText
Re: Nuevo FWH 18.01
Posted: Mon Mar 05, 2018 12:38 pmEstimado Antonio
Hago lo siguiente:
Modifiqué la clase así
https://ibb.co/nMjQTS
https://ibb.co/g2txa7
https://ibb.co/gcCR2n
Cómo podría hacer para no modificar la clase
Muchas gracias por la ayuda.
Hago lo siguiente:
- Code: Select all Expand view
If lPuede //Botón activo
REDEFINE BTNBMP oBtn ID xI+100 OF oDlgMnu RESOURCE "Boton1",Nil,Nil,"Boton2" PROMPT oMenu:Item ACTION (&aAct,oDlgMnu:SetFocus()) FONT oFontMenu TRANSPARENT ADJUST 2007
oBtn:bMMoved:= {|| lColor:=.t.,cMsg:=vMsg,BusFoto(vTab,xI), oMsg:Refresh(),oBtn:Setcolor( CLR_HBLUE )}
Else ////Botón Desactivado
REDEFINE BTNBMP oBtn ID xI+100 OF oDlgMnu RESOURCE "Boton1",Nil,Nil,"Boton1" PROMPT oMenu:Item FONT oFontMenu TRANSPARENT ADJUST 2007
oBtn:SetColor( CLR_GRAY )
oBtn:bMMoved:= {|| lColor:=.F.,cMsg:=vMsg,BusFoto(vTab,xI), oMsg:Refresh(),oBtn:Setcolor( CLR_GRAY )}
ENDif
Modifiqué la clase así
- Code: Select all Expand view
METHOD MouseLeave( nRow, nCol, nFlags ) CLASS TBtnBmp
::lMOver = .F.
XEval( ::bMMoved, ::lMOver )
If lColor //Para controlar cuando el botón está desactivado y no se ponga CLR_BLACK
::Setcolor( CLR_BLACK )
Endif
::Refresh()
return nil
https://ibb.co/nMjQTS
https://ibb.co/g2txa7
https://ibb.co/gcCR2n
Cómo podría hacer para no modificar la clase
Muchas gracias por la ayuda.
Re: Nuevo FWH 18.01
Posted: Mon Mar 05, 2018 2:17 pmPossible that you can simplify the code with something similar to this:
If the button is disabled the text color is always GRAY.
If the button is active when the mouse is over the text color is BLUE and when the mouse is away the text color is black.
You may not need to use bMMoved block
- Code: Select all Expand view
- REDEFINE BTNBMP oBtn ID xI+100 OF oDlgMnu RESOURCE "Boton1",Nil,Nil,"Boton2" ;
PROMPT oMenu:Item ACTION (&aAct,oDlgMnu:SetFocus())
COLOR { |lMOver| If( lMover, CLR_BLUE, CLR_BLACK ) }, CLR_WHITE ;
FONT oFontMenu TRANSPARENT ADJUST 2007
if !lPuede
oBtn:Disable()
endif
If the button is disabled the text color is always GRAY.
If the button is active when the mouse is over the text color is BLUE and when the mouse is away the text color is black.
You may not need to use bMMoved block
Re: Nuevo FWH 18.01
Posted: Mon Mar 05, 2018 2:19 pmThis example can be used to test
- Code: Select all Expand view
- #include "fivewin.ch"
function Main()
local oDlg, oFont, oBtn1, oBtn2
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14 BOLD
DEFINE DIALOG oDlg SIZE 400,300 PIXEL TRUEPIXEL FONT oFont
@ 020,20 BTNBMP oBtn1 SIZE 200,70 PIXEL OF oDlg ;
FILE "\fwh\bitmaps\32x32\cascade.bmp", nil, nil, ;
"\fwh\bitmaps\32x32\tiled.bmp" ;
PROMPT "Prompt" 2007 ;
COLOR { |lMOver| If( lMover, CLR_HRED, CLR_BLACK ) }, CLR_WHITE ;
ACTION MsgInfo( "Some Action" ) ;
MESSAGE "MouseOver"
@ 120,20 BTNBMP oBtn2 SIZE 200,70 PIXEL OF oDlg ;
FILE "\fwh\bitmaps\32x32\cascade.bmp", nil, nil, ;
"\fwh\bitmaps\32x32\tiled.bmp" ;
PROMPT "Prompt" 2007 ;
COLOR { |lMOver| If( lMover, CLR_HRED, CLR_BLACK ) }, CLR_WHITE ;
ACTION MsgInfo( "Some Action" ) ;
MESSAGE "MouseOver"
oBtn2:Disable()
oDlg:bInit := <||
DEFINE MSGBAR OF oDlg PROMPT "" 2007
return nil
>
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont
return nil
Re: Nuevo FWH 18.01
Posted: Mon Mar 05, 2018 7:39 pmThanks Mr. Rao
Compiling this gives this error: D:\Sistemas\RRHH\DATA\PRG\RRHH.PRG(230) Error E0030 Syntax error "syntax error at 'BTNBMP'"
Without the COLOR line, compile OK
The example compiles ok maybe it's because of the resource
Compiling this gives this error: D:\Sistemas\RRHH\DATA\PRG\RRHH.PRG(230) Error E0030 Syntax error "syntax error at 'BTNBMP'"
- Code: Select all Expand view
REDEFINE BTNBMP oBtn ID xI+100 OF oDlgMnu RESOURCE "Boton1",Nil,Nil,"Boton2" ;
PROMPT oMenu:Item ACTION (&aAct,oDlgMnu:SetFocus()) ;
COLOR { |lMOver| If( lMover, CLR_BLUE, CLR_BLACK ) }, CLR_WHITE ;
FONT oFontMenu TRANSPARENT ADJUST 2007
Without the COLOR line, compile OK
The example compiles ok maybe it's because of the resource
Re: Nuevo FWH 18.01
Posted: Mon Mar 05, 2018 10:21 pm- Code: Select all Expand view
- REDEFINE BTNBMP oBtn ID xI+100 OF oDlgMnu RESOURCE "Boton1",Nil,Nil,"Boton2" ;
PROMPT oMenu:Item ACTION (&aAct,oDlgMnu:SetFocus())
FONT oFontMenu TRANSPARENT ADJUST 2007
oBtn:nClrText := { |lMOver| If( lMover, CLR_BLUE, CLR_BLACK ) }
if !lPuede
oBtn:Disable()
endif
Re: Nuevo FWH 18.01
Posted: Mon Mar 05, 2018 10:43 pmPerfect!!
Thank you very much
Thank you very much
Re: Nuevo FWH 18.05
Posted: Sun Jul 22, 2018 5:03 pmRe: Nuevo FWH 20.07
Posted: Tue Aug 11, 2020 3:02 pmHola buenos dias Antonio,
He probado xbrbar.prg: shows inbuilt buttonbar in xbrowse. en un ejemplo mio, y me hace el siguiente efecto al pulsar sobre la cabecera o sobre la buttonbar.
Adjunto un archivo gif para que aprecie el efecto que hace al poner
Saludos
Marcelo
He probado xbrbar.prg: shows inbuilt buttonbar in xbrowse. en un ejemplo mio, y me hace el siguiente efecto al pulsar sobre la cabecera o sobre la buttonbar.
Adjunto un archivo gif para que aprecie el efecto que hace al poner
Saludos
Marcelo
Re: Nuevo FWH 20.07
Posted: Wed Aug 12, 2020 3:50 amYes.
This was a bug in FWH2006, fixed in FWH2007.
Whatsnew.txt
Please let us know if you are having this problem with FWH2007 also?
This was a bug in FWH2006, fixed in FWH2007.
Whatsnew.txt
- When a column header is clicked, the header is painted in the topbar area
fixed.
viewtopic.php?f=3&t=39178&p=233785#p233785
Please let us know if you are having this problem with FWH2007 also?
Re: Nuevo FWH 20.07
Posted: Wed Aug 12, 2020 11:43 amBuenos días Mr. Rao, si efectivamente esto ocurrió en la FWH2007 es por eso que lo reporte en este hilo.
Saludos cordiales desde Argentina.
Saludos cordiales desde Argentina.