VIEW-AS TOGGLE-BOX

Discussão em 'Comandos Básicos' iniciado por fdantas, Fevereiro 3, 2009.

  1. fdantas

    fdantas Administrator Moderador

    /******************** STATEMENTS**************************************
    **
    ** VIEW-AS TOGGLE-BOX (DEF VARIABLE...)
    **
    ** DEFINE RECTANGLE
    **
    **********************************************************************/

    Código:
    DEF BUTTON bt-fim LABEL "&Fim".

DEF VARIABLE mostra-retangulo AS LOGICAL LABEL "Mostra retangulo"
    VIEW-AS TOGGLE-BOX INITIAL YES.
    
DEFINE RECTANGLE rt-moldura SIZE 20 BY 5 EDGE-PIXELS 2.
    
DEFINE FRAME f-rec
       mostra-retangulo
       bt-fim
       rt-moldura AT ROW 2 COLUMN 2
       bt-fim AT ROW 7.5 COLUMN 2
       WITH CENTERED ROW 4 SIZE 25 BY 8.
       
DISPLAY mostra-retangulo WITH FRAME f-rec.        
       
ENABLE mostra-retangulo bt-fim WITH FRAME f-rec.

ON VALUE-CHANGED OF mostra-retangulo
   DO:
      IF mostra-retangulo:SCREEN-VALUE = "YES" THEN
         rt-moldura:HIDDEN = NO.
      ELSE
         rt-moldura:HIDDEN = YES.   
   END.

WAIT-FOR choose OF bt-fim.
    fdantas, Fevereiro 3, 2009
    #1

Compartilhe esta Página