While doing some HD cleaning and filing some old Xailer projects I found something I did many time ago.

Hope you like it.

Download xatris.zip

Regards.

Vista has a new kind of control named CommandLink which behaves like a standar button, but enhances the user experience.

Look at the screenshot:

The control shows an image, a main text and a brief description of the action.

To understand how ity works we can see the source code to create the second button on the image above:

WITH OBJECT TCommandLink():New( oForm )
   :cText := "CommandLink"
   :cNote := "This is the new TCommandLink control"
   :lShield := .T.
   :Create()
END

The file vistacommandlink.zip
has all the control source code. Just compile it and add the OBJ to any project where you want to use it.

Regards.