Otto wrote:Hello Silvio,
"I'm not the youngest of your group. I've been using fivewin since version 14.4 (1992). Maybe you are the youngest; in fact, I don't remember seeing you in the famous Outlook newsgroups!"
This was not Outlook but Compuserve!
"My users will never access the web with my applications, and I have already explained to you several times why."
How do they access windows from their smartphones?
"I see no need to create web applications when Windows applications, especially basic procedures, are not correct."
I mean, you can use webview2 from Fivewin. It's great!
"You, who make web applications, can you do everything in the Windows system? I don't think so... There are still many things that don't work properly or that you don't care about."
I can do it all and more. Ask me something you think can't be done.
"And I'm not young; I'm 57 years old. In 5 years, I'll be retiring as a teacher, and I don't think I'll be making applications in Windows anymore. Instead, I'll take care of gardening and my grandchildren until the last day of my old age."
I don't believe that. You are such a passionate, creative, and innovative programmer that I am convinced you'll never stop.
Best regards,
Otto
Compuserve existed before Outlook. Compuserve, founded in 1969, was one of the earliest commercial online services that provided email, forums, and other communication features. It was a popular platform for accessing online communities and exchanging messages. Microsoft Outlook, on the other hand, is an email client that was introduced in 1997 as part of the Microsoft Office suite.
Silvio.Falconi wrote:for tcalendar now I resolved with datepick styles but not refresh the button
METHOD Notify(...)
...
case nCode == DTN_CLOSEUP
::lClosed = .T.
if bValid != nil
::bValid = { || If( ::lClosed, Eval( bValid, Self ), .F. ) }
endif
Jimmy wrote:Silvio.Falconi wrote:for tcalendar now I resolved with datepick styles but not refresh the button
when you "close" Datepicker than Notify Event DTN_CLOSEUP is send
- Code: Select all Expand view
METHOD Notify(...)
...
case nCode == DTN_CLOSEUP
::lClosed = .T.
Datepicker have VALID where can can place a ACTION into ::bValid Codeblock
- Code: Select all Expand view
if bValid != nil
::bValid = { || If( ::lClosed, Eval( bValid, Self ), .F. ) }
endif
@ nRow, 70 DTPICKER aGet[1] VAR ddatacambio OF oDlgSub SIZE 198, 25 PIXEL ;
FONT oFont UPDATE PICTURE "ddd dd mmm yyyy" ;
ON CHANGE oBtnGetExchange:refresh() STYLE DTS_SHOWNONE
@ nRow, 70 GET aGet[2] VAR nCambio SIZE 200,24 PIXEL OF oDlgSub RIGHT
@ nRow-0.2, 320 BTNBMP oBtnGetExchange ;
PROMPT "Aggiorna on line" OF oDlgSub;
SIZE 120, 24 PIXEL FLAT GDIPLUS ;
BITMAP "BTN_INTERNET" LEFT NOROUND ;
ACTION ...
Silvio.Falconi wrote:How ?
- Code: Select all Expand view
@ nRow, 70 DTPICKER aGet[1] VAR ddatacambio OF oDlgSub SIZE 198, 25 PIXEL ;
FONT oFont UPDATE PICTURE "ddd dd mmm yyyy" ;
ON CHANGE oBtnGetExchange:refresh() STYLE DTS_SHOWNONE
@ nRow, 70 GET aGet[2] VAR nCambio SIZE 200,24 PIXEL OF oDlgSub RIGHT
@ nRow-0.2, 320 BTNBMP oBtnGetExchange ;
PROMPT "Aggiorna on line" OF oDlgSub;
SIZE 120, 24 PIXEL FLAT GDIPLUS ;
BITMAP "BTN_INTERNET" LEFT NOROUND ;
ACTION ...
VALID oBtnGetExchange:refresh() STYLE DTS_SHOWNONE
VALID (oBtnGetExchange:refresh(), .T.) STYLE DTS_SHOWNONE
VALID ( DoSwitch( oBtnGetExchange ) ) STYLE DTS_SHOWNONE
STATIC FUNCTION DoSwitch( oBtnGetExchange )
oBtnGetExchange:Refresh()
RETURN .T.
Jimmy wrote:hi Silvio,
- Code: Select all Expand view
VALID oBtnGetExchange:refresh() STYLE DTS_SHOWNONE
you must RETURN a Logic Value for VALID
try this
- Code: Select all Expand view
VALID (oBtnGetExchange:refresh(), .T.) STYLE DTS_SHOWNONE
or this Way
- Code: Select all Expand view
VALID ( DoSwitch( oBtnGetExchange ) ) STYLE DTS_SHOWNONE
STATIC FUNCTION DoSwitch( oBtnGetExchange )
oBtnGetExchange:Refresh()
RETURN .T.
@ nRow, 70 DTPICKER
@ nRow, 70 GET
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Enrico Maria Giordano, Google [Bot] and 32 guests