In this lesson we are going to learn how to use the different attributes of A4gl like:
“Checkboxes” , “Combobox” , “Dateedit” and “Textedit”.

Now we create a new file named m_attributes.per

DATABASE FORMONLY

SCREEN
{
Juice Voting!
————————————————————————————-
Do you like Apple Juice?      Yes [mx1 ]   No [mx2 ]
————————————————————————————–
When not choose one             [mx3 ] [mx9 ]
————————————————————————————–
Which date do you like it?       [mx4 ]
————————————————————————————–
From State [mx6 ] [mx7 ]
————————————————————————————–
Other answers [mx5      ]
[mx5      ]
}

ATTRIBUTES

CHECKBOX mx1 = FORMONLY.mx1, COLOR=RED, REQUIRED, TEXT=”Yes”;
CHECKBOX mx2 = FORMONLY.mx2, COLOR=BLUE, REQUIRED, TEXT=”No”;

COMBOBOX mx3 = FORMONLY.ecombo, ITEMS=(”Banana Juice”,”Tomato Juice”);
COMBOBOX mx9 = FORMONLY.color TYPE CHAR;
DateEdit mx4 = FORMONLY.edate;
TextEdit mx5 = FORMONLY.etext, UPSHIFT, VALUEMAX=40, STYLE=”normal” WANTTABS;
BUTTONEDIT mx6 = FORMONLY.button, IMAGE=”f5″, ACTION=f5;
BUTTONEDIT mx7 = FORMONLY.buttonhide, INVISIBLE;
EDIT mx8 = FORMONLY.number, UNHIDABLE, INCLUDE=(0,1,2,3);

With DateEdit you can select a date through the integrated calendar, with “TextEdit” you can write a long text, “ComboBox” is for the pulldown that allows you to choose an option and with the “CHECKBOX” you can select the options with a click. In this example, you can see the different characteristic of the different attributes.

Now we create our main file named “m_attributes.4gl”

MAIN

   DEFINE edate CHAR(255),
                   etext CHAR(255),
                   ecombo CHAR(255),
                   number INTEGER,
                   button CHAR(255),
                   string STRING

   CLOSE WINDOW screen

   CALL ui.Interface.loadActionDefaults(”default”)
   CALL ui.Interface.loadStyles(”default”)

   OPEN WINDOW attributes WITH FORM “m_attributes”

   MENU “Navigation”
      COMMAND “Ok”
         IF string IS NULL
            THEN LET string = “Please fill the Fields”
         END IF
         CALL auswert(string)
      COMMAND “Edit”
         CALL edit_date() RETURNING string
      COMMAND “Cancel”
         EXIT MENU
   END MENU

END MAIN

FUNCTION edit_date()
   DEFINE edate CHAR(255),
                   etext CHAR(255),
                   number INTEGER,
                   ecombo CHAR(255),
                   cb ui.Combobox,
                   color CHAR(3),
                   button CHAR(255),
                   string STRING

   LET cb = ui.ComboBox.forName(color”)
   CALL cb.clear()
   CALL cb.addItem (”Yellow”, “Yellow Banana Juice”)
   CALL cb.addItem(”Red”, “Red Tomato Juice”)
   CALL cb.addItem(”Red”, “Red Apple Juice”)
   CALL cb.addItem(”Yellow”, “Yellow Apple Juice”)

   OPTIONS INPUT WRAP

   INPUT BY NAME edate,
                                  etext,
                                  number,
                                  ecombo,
                                  button

   BEFORE INPUT
      DISPLAY “00-00-0000″ TO edate

   AFTER FIELD edate
      IF edate IS NULL
         THEN LET edate = TODAY
      END IF

   END INPUT

LET string = “Your Date: “, edate CLIPPED, “\n”,
                       ”Your choose: “, ecombo CLIPPED, ” Color: “, color CLIPPED, “\n”,
                        ”Number: “, number CLIPPED, “\n”,
                        ”Other answers: “, etext CLIPPED, “\n”

RETURN string
END FUNCTION

FUNCTION auswert(string)
   DEFINE string STRING

   MENU “Your Voting result:”
   ATTRIBUTE (STYLE =”dialog”,
                           COMMENT = string CLIPPED)
      COMMAND “Ok”
         EXIT MENU
         RUN “fglgo attributes.4ae”
   END MENU
END FUNCTION

Now you can compile this example with “4glpc m_attributes.4gl -o attributes.4ae” and see the result: