Project

General

Profile

rect-6.p

Marius Gligor, 04/15/2014 07:22 AM

Download (684 Bytes)

 
1 
DEFINE RECTANGLE Rect1 SIZE-CHARS 12 BY 8 NO-FILL EDGE-CHARS 2.
2 
DEFINE RECTANGLE Rect2 SIZE 12 BY 8 DCOLOR 25 PFCOLOR 28 GRAPHIC-EDGE.
3 
DEFINE RECTANGLE Rect3 SIZE 12 BY 8 GRAPHIC-EDGE NO-FILL.
4 
DEFINE RECTANGLE Rect4 SIZE 12 BY 8 GRAPHIC-EDGE NO-FILL.
5 
DEFINE BUTTON btn-Exit LABEL "Exit".
6 
DEFINE BUTTON btn-Rect LABEL "Display Rectangle".
7 
DEFINE FRAME fr Rect1 SPACE(1) Rect2 SPACE(1) Rect3 SPACE(1) Rect4.
8 

    		
  

  

    
      9
    
    
      
Rect4:DCOLOR = 25.


    		
  

  

    
      10
    
    
      
Rect4:PFCOLOR = 36.


    		
  

  

    
      11
    
    
      

    		
  

  

    
      12
    
    
      
ENABLE SKIP(1) btn-Rect SKIP(1) btn-Exit SKIP(1) WITH SIDE-LABELS NO-BOX.


    		
  

  

    
      13
    
    
      

    		
  

  

    
      14
    
    
      
ON CHOOSE OF btn-Rect


    		
  

  

    
      15
    
    
      
DO:


    		
  

  

    
      16
    
    
      
   DISPLAY Rect1 SPACE(1) Rect2 SPACE(1) Rect3 SPACE(1) Rect4 WITH FRAME fr NO-BOX.


    		
  

  

    
      17
    
    
      
END.


    		
  

  

    
      18
    
    
      

    		
  

  

    
      19
    
    
      
WAIT-FOR CHOOSE OF btn-Exit.