Antonio Linares wrote:FWH supports this syntax now:
@ ..., .. GET ... ACTION ... BITMAP ...
There is no need to keep using TBtnGet.
METHOD CreateButton() CLASS TGet
local oThis := Self
if ValType( ::bAction ) == "B" .and. Upper( ::ClassName() ) == "TGET"
if Empty( ::cBmpName )
@ 0, ::nWidth - ::nHeight BUTTONBMP ::oBtn OF Self ;
ACTION ( Eval( oThis:bAction, oThis ) ) ; // , oThis:LostFocus() ) ;
SIZE ::nHeight - 4, ::nHeight - 4 PIXEL
if Empty( ::oBtn:hBitmap )
::oBtn:SetText( "..." )
endif
else
@ 0, ::nWidth - ::nHeight BUTTONBMP ::oBtn OF Self ;
ACTION ( Eval( oThis:bAction, oThis ) ) ; // oThis:SetFocus() ) ;
SIZE ::nHeight - 4, ::nHeight - 4 PIXEL BITMAP ::cBmpName
endif
// add this 3 lines.
if Upper( ::oWnd:ClassName() ) == "TDIALOG" .and. ::oWnd:lResize16
::oBtn:nLeft = ( ::nWidth * 1.167 ) - ::nHeight
end
// add above 3 lines
::oBtn:lCancel = .T. // so the GET VALID is not fired when the button is focused
/*
// We force a WM_NCCALCSIZE msg to be sent to the GET
SetWindowPos( ::hWnd, 0, 0, 0, 0, 0,;
nOr( SWP_NOMOVE, SWP_NOSIZE, SWP_NOZORDER, SWP_FRAMECHANGED ) )
*/
endif
return nilFUNCTION Main()
LOCAL o := MyClass():New()
RETURN Nil
CLASS MyClass
DATA dData
METHOD New() CONSTRUCTOR
ENDCLASS
METHOD New() CLASS MyClass
LOCAL oGet4, lWhen := .T., oDlg
::dData := Date()
DEFINE DIALOG oDlg
@ 1, 1 GET oGet4 VAR ::dData OF oDlg PICTURE "@D"; // RESOURCE "B_Cld"
SIZE 50, 12 ;
ACTION (::dData:=Date()-10)
ACTIVATE DIALOG oDlg
RETURN SelfDescrizione: Warning BASE/1005 Message not found: TGET:_DDATA
Args:
Stack Calls
===========
Called from: source\rtl\tobject.prg => TGET:ERROR(172)
Called from: source\rtl\tobject.prg => TGET:MSGNOTFOUND(205)
Called from: source\rtl\tobject.prg => TGET:_DDATA(0)
Called from: SRC-WIN\TEst\Source\Test.prg => (b)MYCLASS:NEW(82)
Called from: prg\TGET.prg => (b)TGET:CREATEBUTTON(465)
Called from: prg\BUTTON.prg => TBUTTONBMP:CLICK(177)
Called from: prg\CONTROL.prg => TBUTTON:HANDLEEVENT(1412)
Called from: prg\BUTTONB.prg => TBUTTONBMP:HANDLEEVENT(168)
Called from: prg\WINDOW.prg => _FWH(3345)
Called from: => SENDMESSAGE(0)
Called from: prg\WINDOW.prg => TGET:COMMAND(1014)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: prg\CONTROL.prg => TCONTROL:HANDLEEVENT(1454)
Called from: prg\TGET.prg => TGET:HANDLEEVENT(561)
Called from: prg\WINDOW.prg => _FWH(3345)
Called from: => DIALOGBOXINDIRECT(0)
Called from: prg\DIALOG.prg => TDIALOG:ACTIVATE(273)
Called from: SRC-WIN\TEst\Source\Test.prg => MYCLASS:NEW(84)
Called from: SRC-WIN\TEst\Source\Test.prg => MAIN(60)
#include "Fivewin.ch"
FUNCTION Main()
LOCAL o := MyClass():New()
RETURN Nil
CLASS MyClass
DATA dData
METHOD New() CONSTRUCTOR
ENDCLASS
METHOD New() CLASS MyClass
LOCAL oGet4, lWhen := .T., oDlg, oSelf := Self
::dData := Date()
DEFINE DIALOG oDlg
@ 1, 1 GET oGet4 VAR ::dData OF oDlg PICTURE "@D"; // RESOURCE "B_Cld"
SIZE 50, 12 ;
ACTION (oSelf:dData:=Date()-10)
ACTIVATE DIALOG oDlg
RETURN SelfDear Enrico,
work well, of course! 
thank you.
This is a bug?
The other clauses (valid,spinner,when etc.) work well using directly the class variable.
There is also the RESOURCE
How to use the resource instead bitmap image?
Ugo wrote:This is a bug?
Ugo wrote:There is also the RESOURCE
How to use the resource instead bitmap image?
Enrico Maria Giordano wrote:Ugo wrote:This is a bug?
It seems not. Look inside tget.prg, method CreateButton() and you will see that the same technique is used there. I tried it under Harbour with the same result (the local variable is still required).
Ugo wrote:The other clauses (valid,spinner,when etc.) work well using directly the class variable
FUNCTION Main()
LOCAL o
Set century on
SET EPOCH TO 2000
o := MyClass():New()
RETURN Nil
CLASS MyClass
DATA dData
DATA lTest INIT .T.
METHOD New() CONSTRUCTOR
ENDCLASS
METHOD New() CLASS MyClass
LOCAL oGet4, lWhen := .T., oDlg, oSelf := Self, cTxt := Space( 10 ), oGet5
::dData := Date()
DEFINE DIALOG oDlg
@ 1, 1 GET oGet4 VAR ::dData OF oDlg PICTURE "@D"; // RESOURCE "B_Cld"
SIZE 50, 12 ;
WHEN ::lTest;
VALID IF( ::lTest,;
IF( MyTest( ::dData ),;
( MsgInfo( "Test OK", ::dData ), .T. ),;
( MsgInfo( "Test KO", ::dData ), .F. ) ),;
.T. );
ACTION (oSelf:dData:=Date()-10)
@ 3, 1 GET oGet5 VAR cTxt OF oDlg
ACTIVATE DIALOG oDlg
RETURN Self
STATIC FUNCTION MyTest( dData )
MsgInfo( "Test in corso" + CRLF + ;
DToS( dData ) + " < " + DToS( Date() ) + CRLF + ;
cValToChar( dData < Date() ) , dData )
RETURN dData < Date()Enrico Maria Giordano wrote:Ugo wrote:There is also the RESOURCE
How to use the resource instead bitmap image?
It is not supported yet. You have to modify CreateButton() method for this. Antonio?
Ugo wrote:Dear Enrico,
Test it:
<.pass.>, [<.lNoBorder.>], <nHelpId>,,,,,, <{uAction}>, <cBmpName>, <"uVar"> )