FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour GET ACTION BITMAP
Posts: 83
Joined: Mon Oct 17, 2005 10:33 AM
GET ACTION BITMAP
Posted: Tue May 12, 2009 11:58 AM

I use GET ... ACTION ... BITMAP

Is there a way to display a special tooltip only when the cursor in moved on the bitmap to explain the action?
If not, this would be a nice feature!

Thanks,
Dietmar

Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: GET ACTION BITMAP
Posted: Tue May 12, 2009 01:12 PM
Hello..

Yes you can do that...

but is necesary initiate dialog first...

oGet:cToolTip := "My ToolTip"

Code (fw): Select all Collapse
#include "FiveWin.ch"

function Main()
   LOCAL oDlg, oGet
   LOCAL cCad := "Testing    " // pad("Testing Gets",40)
   LOCAL nNum := 0
   LOCAL dDat := Date()

   Set century On
   Set Date Ansi
   Set Date format "mm/dd/yyyy"

   SET _3DLOOK ON

   DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION

   @ 1,    2 SAY "Text..:" OF oDlg
   @ 1,    6 GET oGet VAR cCad OF oDlg SIZE 60, 10 COLOR "W/G" PICTURE "@K"
   @ 1.8,  2 SAY "Number:" OF oDlg
   @ 2,    6 GET oGet VAR nNum OF oDlg SIZE 60, 10 PICTURE "9999999.99"
   @ 2.6,  2 SAY "Date:" OF oDlg
   @ 3,    6 GET oGet1 VAR dDat PICTURE "@E" OF oDlg SIZE 60, 10  action( msginfo( "This a test" ) ) // "@
   @ 3,    7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()
   @ 3,   16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL

   ACTIVATE DIALOG oDlg CENTERED on init oGet1:oBtn:cToolTip := "My ToolTip"

return nil
Posts: 83
Joined: Mon Oct 17, 2005 10:33 AM
Re: GET ACTION BITMAP
Posted: Tue May 12, 2009 02:32 PM

Many thanks - it is working fine!
Dietmar

Continue the discussion