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