XProfan

Class EinTest = EinTest@,
hParent&,
br%,
x%

Proc EinTest.EinTest

    Parameters cc%
    .hParent& = %hwnd
    .x% = cc%
    .br% = Width(.hParent&) - 2 * .x%

EndProc

Cls
Declare aa#
AA# = New(EinTest,2)

With AA#

    Var x% = .br%  das knallt
    Var X& = .br%  das funktioniert

EndWith

print x%
waitinput

proc __xpse__endofprogram__

    PARAMETERS exitcode&
    REM {{SOMEEXTRAENDCOMMAND}}
    case %pcount=1 : end exitcode&
    end

endproc

DECLARE AA#,BB#
class EINTEST=EINTEST@,HPARENT&,BR%,X%
struct TEST=H%

proc EINTEST.EINTEST

    PARAMETERS CC%
    .HPARENT&=%HWND
    .X%=CC%
    .BR%=WIDTH(.HPARENT&) - 2 * .X%

endproc

CLS
DIM BB#,TEST
AA#=NEW(EINTEST,2)
BB#.H%=10

WITH AA#

    VAR X%=(.BR%)

ENDWITH

VAR G%=BB#.H%
PRINT X%
PRINT BB#.H%,G%
WAITINPUT
__xpse__endofprogram__

declare €1$
€1$="test"
print €1$
waitkey
end