FWD » Core Development » User Interface

DEFINE VARIABLE CtrlFrame AS WIDGET-HANDLE NO-UNDO.

DEFINE VARIABLE chCtrlFrame AS COM-HANDLE NO-UNDO.

DEFINE FRAME pbFrame

    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY

         SIDE-LABELS NO-UNDERLINE THREE-D

         AT COL 1 ROW 1

         SIZE 80 BY 17 WIDGET-ID 100.

CREATE CONTROL-FRAME CtrlFrame 

    ASSIGN

       FRAME           = FRAME pbFrame:HANDLE

       ROW             = 1.95

       COLUMN          = 2

       HEIGHT          = 4.76

       WIDTH           = 20

       HIDDEN          = no

       SENSITIVE       = yes.

PROCEDURE control_load :

   DEFINE VARIABLE UIB_S    AS LOGICAL    NO-UNDO.

   DEFINE VARIABLE OCXFile  AS CHARACTER  NO-UNDO.

   OCXFile = SEARCH( "pbar.wrx" ).

   IF OCXFile = ? THEN

     OCXFile = SEARCH(SUBSTRING(THIS-PROCEDURE:FILE-NAME, 1,

                        R-INDEX(THIS-PROCEDURE:FILE-NAME, ".":U), "CHARACTER":U) + "wrx":U).

   IF OCXFile <> ? THEN

   DO:

    ASSIGN

        chCtrlFrame = CtrlFrame:COM-HANDLE.

        UIB_S = chCtrlFrame:LoadControls(OCXFile, "CtrlFrame":U).

   END.

   ELSE MESSAGE "pbar.wrx" SKIP(1)

                "The binary control file could not be found. The controls cannot be loaded."

                VIEW-AS ALERT-BOX TITLE "Controls Not Loaded".

END PROCEDURE.

RUN control_load.

RELEASE OBJECT chCtrlFrame.

DELETE OBJECT CtrlFrame.