PC Toledo

Código: Selecionar todos

REQUEST HB_CODEPAGE_PTISO

#include "hbclass.ch"

PROCEDURE Main()

   LOCAL a, b, c

   SetMode(25,80)
   CLS
   Set( _SET_CODEPAGE, "PTISO" )

   a := TestObj():New()
   WITH OBJECT a
      :x := 10
      c := { || :x }
   ENDWITH
   WITH OBJECT b
      ? eval( c )
      ? a:x
   ENDWITH

   Inkey(0)

   RETURN

CREATE CLASS TestObj
   VAR x INIT 0
   ENDCLASS

Código: Selecionar todos

// C:\FWH\SAMPLES\TESTE.PRG

#include "FiveWin.ch"
#include "hbclass.ch"

REQUEST HB_CODEPAGE_PTISO

PROCEDURE Main

   LOCAL a, b, c, x

   Set( _SET_CODEPAGE, "PTISO" )

   a := TestObj():New()

   WITH OBJECT a

      :x := 10

      c  := :x

   END WITH

   WITH OBJECT b

      ? "Objeto A: ", c

      ? "Objeto B: ", a:x

   END WITH

RETURN

CREATE CLASS TestObj

   VAR x INIT 0

ENDCLASS

// FIN / END

Código: Selecionar todos

WITH OBJECT a
   :x := 10
   c := { || :x }
ENDWITH

Código: Selecionar todos

? Eval( c )

Código: Selecionar todos

WITH OBJECT y
   :Value := Eval( c )
ENDWITH

Código: Selecionar todos

WITH OBJECT y
   :CodeBlock := c
ENDWITH

Código: Selecionar todos

   WITH OBJECT xControl
      :SetArray( Array( cnSQL:RecordCount() ) )
      :bOnSkip := { || cnSQL:Move( xControl:nArrayAt - 1, 1 ) }
      :bClrStd := { || { CLR_BLACK, iif( Mod( cnSQL:AbsolutePosition, 2 ) == 0, CLR_WHITE, RGB(179,207,231) ) } }
      :xUserData := cnSQL
      :xUserValue := 1
      :nArrayAt := 1
   ENDWITH
   FOR EACH aItem IN oTBrowse
      ADD oCol TO xControl ;
         DATA aItem[ 2 ] ;
         HEADER aItem[ 1 ]
   NEXT