FWH 8.08 - New ACTION clause for GETs

[Antonio Linares]

Júlio,

We are doing all kind of tests to check that it properly works.

Thanks for the reminder of using right alignment contents

[Antonio Linares]

Gianni,

It uses the standard Windows themes colors.

[Antonio Linares]

Uwe,

No need to modify the resources at all. It is a standard GET

FiveWin creates the button, opens the bitmap, etc. automatically

[Patrick Mast]

In FWH 8.08 an ACTION can be used with a GET. So there is no longer need for Class TBtnGet

This is a faeture I wanted for such a long time!
I remember, in the 16 bits world, I move mountains to simulate this. it worked, but it got kinda slow.

Thank you for this Antonio.

Patrick

[JC]

Harvey,

Your application uses Windows themes when you include these lines in your RC file:

Code: Select all  Expand view  RUN

#ifdef __FLAT__
  1 24 "WindowsXP.Manifest"
#endif


You can find the file "WindowsXP.Manifest" in FWH\samples\winxp folder.

Alternatively you can also have themes support if such file is in the same folder where your EXE is. Not sure about this way, as it is a long time since we don't use it.

Exists a way to do for apply the XP theme..

Just put this code into resource file ( .RC )

Code: Select all  Expand view  RUN

1 24
{
'3C 3F 78 6D 6C 20 76 65 72 73 69 6F 6E 3D 22 31'
'2E 30 22 20 65 6E 63 6F 64 69 6E 67 3D 22 55 54'
'46 2D 38 22 20 73 74 61 6E 64 61 6C 6F 6E 65 3D'
'22 79 65 73 22 3F 3E 0D 0A 3C 61 73 73 65 6D 62'
'6C 79 20 78 6D 6C 6E 73 3D 22 75 72 6E 3A 73 63'
'68 65 6D 61 73 2D 6D 69 63 72 6F 73 6F 66 74 2D'
'63 6F 6D 3A 61 73 6D 2E 76 31 22 20 6D 61 6E 69'
'66 65 73 74 56 65 72 73 69 6F 6E 3D 22 31 2E 30'
'22 3E 0D 0A 3C 61 73 73 65 6D 62 6C 79 49 64 65'
'6E 74 69 74 79 0D 0A 20 20 20 20 76 65 72 73 69'
'6F 6E 3D 22 31 2E 30 2E 30 2E 30 22 0D 0A 20 20'
'20 20 70 72 6F 63 65 73 73 6F 72 41 72 63 68 69'
'74 65 63 74 75 72 65 3D 22 58 38 36 22 0D 0A 20'
'20 20 20 6E 61 6D 65 3D 22 56 69 61 4F 70 65 6E'
'2E 56 69 61 43 4F 52 41 4C 2E 33 32 62 69 74 73'
'22 0D 0A 20 20 20 20 74 79 70 65 3D 22 77 69 6E'
'33 32 22 0D 0A 2F 3E 0D 0A 3C 64 65 73 63 72 69'
'70 74 69 6F 6E 3E 56 69 61 43 4F 52 41 4C 20 76'
'31 2E 30 20 66 6F 72 20 28 78 29 48 61 72 62 6F'
'75 72 20 61 6E 64 20 46 69 76 65 57 69 6E 2E 3C'
'2F 64 65 73 63 72 69 70 74 69 6F 6E 3E 0D 0A 3C'
'64 65 70 65 6E 64 65 6E 63 79 3E 0D 0A 20 20 20'
'20 3C 64 65 70 65 6E 64 65 6E 74 41 73 73 65 6D'
'62 6C 79 3E 0D 0A 20 20 20 20 20 20 20 20 3C 61'
'73 73 65 6D 62 6C 79 49 64 65 6E 74 69 74 79 0D'
'0A 20 20 20 20 20 20 20 20 20 20 20 20 74 79 70'
'65 3D 22 77 69 6E 33 32 22 0D 0A 20 20 20 20 20'
'20 20 20 20 20 20 20 6E 61 6D 65 3D 22 4D 69 63'
'72 6F 73 6F 66 74 2E 57 69 6E 64 6F 77 73 2E 43'
'6F 6D 6D 6F 6E 2D 43 6F 6E 74 72 6F 6C 73 22 0D'
'0A 20 20 20 20 20 20 20 20 20 20 20 20 76 65 72'
'73 69 6F 6E 3D 22 36 2E 30 2E 30 2E 30 22 0D 0A'
'20 20 20 20 20 20 20 20 20 20 20 20 70 72 6F 63'
'65 73 73 6F 72 41 72 63 68 69 74 65 63 74 75 72'
'65 3D 22 58 38 36 22 0D 0A 20 20 20 20 20 20 20'
'20 20 20 20 20 70 75 62 6C 69 63 4B 65 79 54 6F'
'6B 65 6E 3D 22 36 35 39 35 62 36 34 31 34 34 63'
'63 66 31 64 66 22 0D 0A 20 20 20 20 20 20 20 20'
'20 20 20 20 6C 61 6E 67 75 61 67 65 3D 22 2A 22'
'0D 0A 20 20 20 20 20 20 20 20 2F 3E 0D 0A 20 20'
'20 20 3C 2F 64 65 70 65 6E 64 65 6E 74 41 73 73'
'65 6D 62 6C 79 3E 0D 0A 3C 2F 64 65 70 65 6E 64'
'65 6E 63 79 3E 0D 0A 3C 2F 61 73 73 65 6D 62 6C'
'79 3E 0D 0A'
}

[vilian]

Antonio,

Excellent, now only it lacks the Buttonbmp with themas. When he is ready ?

[Antonio Linares]

Vilian,

Class TButtonBmp uses standard Windows themes for now.

This new feature will be available in FWH 8.08, this month.

[vilian]

Antonio,

A small correction. What I am waiting is clause 2007 in this command. It goes to be ready in FWH 8.08?

[mmercado]

Alternatively you can also have themes support if such file is in the same folder where your EXE is. Not sure about this way, as it is a long time since we don't use it.

Just copy or rename WindowsXP.MANIFEST to MYAPP.EXE.MANIFEST in the same folder where MYAPP.EXE is.

But the actual reason of my post is to say you CONGRATULATIONS!! .

By this way, in a short time, 3rd party classes won't be necessary at all and that is a very good thing for FiveWin, for you, and for us.

Best regards.

Manuel Mercado.

[Antonio Linares]

From resources:

[Antonio Linares]

Changing the GET contents from the ACTION:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local oDlg, cTest := "hello world!"

   DEFINE DIALOG oDlg RESOURCE "Test"

   REDEFINE GET cTest ID 10 OF oDlg ;
      ACTION ( MsgInfo( "Do what you need here and then assign a value" ), ::VarPut( "FiveWin power" ), ::Refresh() )

   ACTIVATE DIALOG oDlg CENTERED

return nil


[Antonio Linares]

REDEFINE GET ... ACTION ... BITMAP from resources:

[dutch]

Dear Antonio,

Great job, it's my waiting too. It will be good, if it has a default TBtnBmp.

Regards,
Dutch

[MGA]

Sr. Antonio,

Excellent...