EnglishРусский  

   ..

   addustr.g

   app.g

   btn.g

   btnpic.g

   comp.g

   ctrl.g

   ctrlci.g

   dialogs.g

   dlgbtns.g

   edit.g

   events.g

   fonts.g

   form.g

   gray.g

   grey.g

   header.g

   images.g

   label.g

   labeled.g

   locustr.g

   menu.g

   panel.g

   picture.g

   styles.g

   tab.g

   tabitem.g

   tabpage.g

   timer.g

   toolbar.g

   tray.g

   url.g

   vis.g

   viswin.g

The project is closed! You can look at a new scripting language. It is available on GitHub.
Also, try our open source cross-platform automation software.

Ads

Installer and installation software
Commercial and Freeware installers.

source\lib\vis\locustr.g
 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