-->
software
software
software
In this leasson we are going to create the VENTAS default style.

style-example

We start by making a .per screenform for our window:

DATABASE FORMONLY

SCREEN {

 [editfield               ]

}

ATTRIBUTES
Edit editfield = FORMONLY.editfield;

Compile this example with “fcompile -xml style.per”
And now we are going to create our window:

MAIN

IF aclfgl_sendfile_to_ui("default.4st") THEN END IF

OPEN WINDOW w_1 WITH FORM "style"

MENU "Navi"
   COMMAND "Ok"
   COMMAND "End"
      EXIT MENU
END MENU

END MAIN

The default.4st can be downloaded here. You need to place the default.4st file in the same folder as the program.

VENTAS default style (265 Downloads)