In this leasson we are going to create the VENTAS default style.
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 (441 Downloads )