FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour GET con BMP
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
GET con BMP
Posted: Wed Apr 27, 2011 04:06 PM
Hola,

el siguiente c贸digo no funciona

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

function Main()

   local oWnd, cTest := "Hello world!", accion := {|o| msginfo('HOLA') }
   ? valtype(accion)
   EVAL( accion )

   DEFINE WINDOW oWnd COLOR "N/W*"

   @ 2, 2 GET cTest SIZE 110, 22 ;
      ACTION accion BITMAP "..\bitmaps\16x16\find.bmp"

   ACTIVATE WINDOW oWnd

return nil


seg煤n el c贸digo de la clase GET, se pasar铆a como par谩metro a ACTION si es que este fuera un codeblock el mismo objeto get, pero en este ejemplo, ni siquiera se ejecuta el bloque de c贸digo accion definido en ACTION

saludos

Marcelo
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: GET con BMP
Posted: Wed Apr 27, 2011 05:11 PM
Hola

en la clausula ACTION debes enviar "acciones" no bloques de codigo, la clausula hace la convercion de las "acciones" a un codeblock y el envia como parametro el objeto self...

ahora si vas a instanciar el objeto usando POO deberas enviar el codeblock

lo correcto seria para la forma como lo tienes es:
Code (fw): Select all Collapse
 ACTION Eval( accion, Self ) BITMAP "..\bitmaps\16x16\find.bmp"
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
Re: GET con BMP
Posted: Wed Apr 27, 2011 06:07 PM

Daniel,

muchas gracias por tu atenci贸n y responder.

saludos

Marcelo

Continue the discussion