Ads

 1 type locustr <inherit=ustr>
 2 {
 3    //ustr    Value
 4    //ustr    pText
 5    //onevent onChange   
 6 }
 7 
 8 property ustr locustr.Value <result>
 9 {
10    result = this   
11 }
12 
13 property locustr.Value( ustr val )
14 {
15    this = val
16 }
17 
18 method ustr locustr.Text <result>( vComp comp )
19 {
20 ifdef $DESIGNING {
21    ustr ret
22    uint form as comp.GetForm()->vComp
23       
24    if &form && ( ( form.p_designing && *DesApp.Lng.getlang( this.Value, result ) ) ||
25       ( !form.p_designing && *App.Lng.getlang( this.Value, result ) ) )
26    {
27       
28    //ret = app.getlangid( this )
29    //print( "Textss \n" )
30    /*if &ret
31    {
32       return ret
33    }*/
34    }   
35    else
36    {
37       result = this.Value
38    }   
39 }
40 else {   
41    ustr ret 
42    if *App.Lng.getlang( this.Value, result )
43    {
44    //ret = app.getlangid( this )
45    //print( "Textss \n" )
46    /*if &ret
47    {
48       return ret
49    }*/
50    }
51    else
52    {
53       result = this.Value
54    }
55 }
56    //return this.Value    
57 }
58 /*
59 property ustr locustr.Value
60 {
61    return this.pValue
62 }
63 
64 property locustr.Value( ustr newval )
65 {
66 str t
67    if this.pValue != newval
68    {
69       print( "newwal \(newval.str()))\n" )
70       this.pValue = newval//"newval"
71       //t = .pValue
72       //print( "aa"@t@"xx \(*t)" )
73       //print( "pval \(.pValue.str())\n" )
74       //print( "pval \(newval.use) \(newval.size) \(newval.data)\n" )
75       //print( "pval \(&this) \(this.pValue.use) \(this.pValue.size) \(this.pValue.data) \(this.onChange.obj)\n" )
76       //this.onChange.run()
77    }
78 }*/
79