Nuevo FWH 21.01
Posted: Thu Sep 18, 2008 8:15 pm
www.FiveTechSoft.com
https://fivetechsoft.com/forums/
Code: Select all
METHOD MouseLeave( nRow, nCol, nFlags ) CLASS TBtnBmp
::lMOver = .F.
XEval( ::bMMoved, ::lMOver )
::Setcolor( CLR_BLACK ) //Ésta
::Refresh()
return nil
Code: Select all
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
Code: Select all
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
Code: Select all
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
Code: Select all
#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
Code: Select all
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
Code: Select all
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
Please let us know if you are having this problem with FWH2007 also?- When a column header is clicked, the header is painted in the topbar area
fixed.
http://forums.fivetechsupport.com/viewt ... 85#p233785