Реклама

 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 
19 method ustr locustr.Text <result>( vComp curcomp )
20 {
21    uint comp as curcomp
22    if !&comp: comp as App
23    if !comp.pAutoLang 
24    {
25       result = this.Value
26       return 
27    }
28 ifdef $DESIGNING {
29    ustr ret
30    uint form as comp.GetForm()->vComp
31       
32    if &form && ( ( form.p_designing && *DesApp.Lng.getlang( this.Value, result ) ) ||
33       ( !form.p_designing && *App.Lng.getlang( this.Value, result ) ) )
34    {
35       
36    //ret = app.getlangid( this )
37    //print( "Textss \n" )
38    /*if &ret
39    {
40       return ret
41    }*/
42    }   
43    else
44    {
45       result = this.Value
46    }   
47 }
48 else {   
49    ustr ret 
50    if *App.Lng.getlang( this.Value, result )
51    {
52    //ret = app.getlangid( this )
53    //print( "Textss \n" )
54    /*if &ret
55    {
56       return ret
57    }*/
58    }
59    else
60    {
61       result = this.Value
62    }
63 }
64    //return this.Value    
65 }
66 /*
67 property ustr locustr.Value
68 {
69    return this.pValue
70 }
71 
72 property locustr.Value( ustr newval )
73 {
74 str t
75    if this.pValue != newval
76    {
77       print( "newwal \(newval.str()))\n" )
78       this.pValue = newval//"newval"
79       //t = .pValue
80       //print( "aa"@t@"xx \(*t)" )
81       //print( "pval \(.pValue.str())\n" )
82       //print( "pval \(newval.use) \(newval.size) \(newval.data)\n" )
83       //print( "pval \(&this) \(this.pValue.use) \(this.pValue.size) \(this.pValue.data) \(this.onChange.obj)\n" )
84       //this.onChange.run()
85    }
86 }*/
87 
88