FWH 8.08 - Nueva claúsula ACTION para los GETs

Postby Patricio Avalos Aguirre » Thu Aug 07, 2008 8:41 pm

Antonio

Sugerencia

En los SAY y CHECKBOX

Actualmente estamos obligados a declarar una variable para poder dejar
transparent

Code: Select all  Expand view  RUN
REDEFINE SAY oSay ID 103
oSay:lTransparent := .t.


y dejarla de esta forma

Code: Select all  Expand view  RUN
REDEFINE SAY ID 103 TRANSPARENT
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
User avatar
Patricio Avalos Aguirre
 
Posts: 1060
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile

Postby Antonio Linares » Fri Aug 08, 2008 7:43 am

Desde recursos:

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Antonio Linares » Fri Aug 08, 2008 7:43 am

Patricio,

Muy buena sugerencia. Gracias! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Antonio Linares » Fri Aug 08, 2008 7:47 am

Cambiando el contenido del GET desde el 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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Antonio Linares » Fri Aug 08, 2008 8:00 am

REDEFINE GET ... ACTION ... BITMAP desde recursos:

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Antonio Linares » Fri Aug 08, 2008 9:09 am

Patricio,

Implementado el TRANSPARENT para el SAY :-)

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Previous

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 47 guests