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

Данный проект закрыт! Создан новый скриптовый язык с тем же именем. Всё доступно на GitHub.
Также попробуйте нашу open source кроссплатформенную программу для создания и управления скриптами.

Реклама

Инсталлятор CreateInstall
Бесплатные и коммерческие инсталляторы

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 
Редактировать