Project

General

Profile

demo_widgets_2.p

Sergey Ivanovskiy, 06/13/2018 04:04 PM

Download (449 Bytes)

 
1 
DEF VAR chf AS CHAR  VIEW-AS FILL-IN LABEL "fill-in" FORMAT "x(20)".
2 
DEF VAR chf2 AS CHAR  VIEW-AS FILL-IN LABEL "fill-in2" FORMAT "x(20)".
3 

    		
  

  

    
      4
    
    
      
DEF VAR iif AS INTEGER VIEW-AS FILL-IN LABEL "int" FORMAT "ZZZZZZZZZZ".


    		
  

  

    
      5
    
    
      
DEF VAR df2 AS DEC VIEW-AS FILL-IN LABEL "dec" FORMAT ">>>>>>>>>>,>>>>>>>>>>".


    		
  

  

    
      6
    
    
      

    		
  

  

    
      7
    
    
      
def frame f2 chf chf2 skip


    		
  

  

    
      8
    
    
      
             iif df2 with side-labels size 60 by 10.


    		
  

  

    
      9
    
    
      

    		
  

  

    
      10
    
    
      
enable all with frame f2.


    		
  

  

    
      11
    
    
      

    		
  

  

    
      12
    
    
      
wait-for close of this-procedure.


    		
  

  

    
      13