Project

General

Profile

update_vars_with_frame.p

Sergey Ivanovskiy, 02/05/2016 04:23 AM

Download (2.16 KB)

 
1 
/** Define widgets **/
2 
define variable Combo as character format "x(14)" initial "Item number 0"
3 
    view-as combo-box list-items
4 
       "Item number 00",
5 
       "Item number 01",
6 
       "Item number 02",
7 
       "Item number 03",
8 
       "Item number 04",
9 
       "Item number 05",
10 
       "Item number 06",
11 
       "Item number 07",
12 
       "Item number 08",
13 
       "Item number 09",
14 
       "Item number 0A",
15 
       "Item number 0B",
16 
       "Item number 0C",
17 
       "Item number 0D",
18 
       "Item number 0E",
19 
       "Item number 0F",
20 
       "Item number 10",
21 
       "Item number 11",
22 
       "Item number 12",
23 
       "Item number 13",
24 
       "Item number 14",
25 
       "Item number 15",
26 
       "Item number 16",
27 
       "Item number 17",
28 
       "Item number 18",
29 
       "Item number 19",
30 
       "Item number 1A",
31 
       "Item number 1B",
32 
       "Item number 1C",
33 
       "Item number 1D",
34 
       "Item number 1E",
35 
       "Item number 1F"
36 
       inner-lines 20 sort.
37 
define variable Combo2 as character format "x(14)" initial "Item number 0"
38 
    view-as combo-box list-items
39 
       "Item number 00",
40 
       "Item number 01",
41 
       "Item number 02",
42 
       "Item number 03",
43 
       "Item number 04",
44 
       "Item number 05",
45 
       "Item number 06",
46 
       "Item number 07",
47 
       "Item number 08",
48 
       "Item number 09",
49 
       "Item number 0A",
50 
       "Item number 0B",
51 
       "Item number 0C",
52 
       "Item number 0D",
53 
       "Item number 0E",
54 
       "Item number 0F",
55 
       "Item number 10",
56 
       "Item number 11",
57 
       "Item number 12",
58 
       "Item number 13",
59 
       "Item number 14",
60 
       "Item number 15",
61 
       "Item number 16",
62 
       "Item number 17",
63 
       "Item number 18",
64 
       "Item number 19",
65 
       "Item number 1A",
66 
       "Item number 1B",
67 
       "Item number 1C",
68 
       "Item number 1D",
69 
       "Item number 1E",
70 
       "Item number 1F"
71 
       inner-lines 20 sort.
72 

    		
  

  

    
      73
    
    
      

    		
  

  

    
      74
    
    
      
default-window:min-width-chars = 10.


    		
  

  

    
      75
    
    
      
default-window:min-height-chars = 10.


    		
  

  

    
      76
    
    
      

    		
  

  

    
      77
    
    
      

    		
  

  

    
      78
    
    
      

    		
  

  

    
      79
    
    
      
def var i as int.


    		
  

  

    
      80
    
    
      
def var ch as char.


    		
  

  

    
      81
    
    
      

    		
  

  

    
      82
    
    
      
def button btn label "a button".


    		
  

  

    
      83
    
    
      

    		
  

  

    
      84
    
    
      
form i  skip ch skip Combo skip Combo2 skip btn with frame f1 side-labels title "the title".


    		
  

  

    
      85
    
    
      

    		
  

  

    
      86
    
    
      
i = 12345.


    		
  

  

    
      87
    
    
      
ch = "abcdef".


    		
  

  

    
      88
    
    
      

    		
  

  

    
      89
    
    
      
update i ch Combo Combo2 btn with frame f1.


    		
  

  

    
      90