FWH 8.08 - Nueva claúsula ACTION para los GETs

[Patricio Avalos Aguirre]

Antonio

Sugerencia

En los SAY y CHECKBOX

Actualmente estamos obligados a declarar una variable para poder dejar
transparent

Code: Select all  Expand view

REDEFINE SAY oSay ID 103
oSay:lTransparent := .t.

y dejarla de esta forma

Code: Select all  Expand view

REDEFINE SAY ID 103 TRANSPARENT

[Antonio Linares]

Desde recursos:

[Antonio Linares]

Patricio,

Muy buena sugerencia. Gracias!

[Antonio Linares]

Cambiando el contenido del GET desde el ACTION:

Code: Select all  Expand view

#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 desde recursos:

[Antonio Linares]

Patricio,

Implementado el TRANSPARENT para el SAY

Te envio los cambios por email para que los pruebes, gracias