DCAPPEDIT & DCAPPBROWSE
Posted: Tue Jan 10, 2017 4:21 pm
Hi Roger
1. The "Seek" Button of the toolbar is NOT active - dimmed
2. TRIGGER clause of DCAPPEDIT not firing
3. The Horizontal Grid lines of DCAPPBROWSE not showing
4. The FONT clause of DCAPPEDIT only affect GET boxes and Field descriptions are NOT affected.
5. It is possible to access the underlining xbase parts of DCAPPEDIT ?
Thanks.
Joe.
CODE:
*
Function UniQ_Menu()
LOCAL GetList[0], GetOptions, oStatic[2], oAppEdit, oAppBrowse
@ 0,1 DCSTATIC TYPE XBPSTATIC_TYPE_RAISEDBOX SIZE 60,20 OBJECT oStatic[1]
@ 0,62 DCSTATIC TYPE XBPSTATIC_TYPE_RAISEDBOX SIZE 43,20 OBJECT oStatic[2]
DCAPPEDIT INTO oAppEdit STYLE FANCY POSITION 0,0 ALIAS "PPSFUNCS" PARENT oStatic[1] ;
HEADING "PowerPlus Software Menu Configuration" NOACTION APPACTION_NODELETE;
TRIGGER "APP_ConfirmUpdate" ON UPDATE // SEEK {|| DC_Winalert("my app seek")}
DCAPPBROWSE INTO oAppBrowse STYLE FANCY POSITION 0,0 ALIAS "PPSFUNCS" PARENT oStatic[2] EVAL {|| PPSFUNCS->(dbGoTop()) }
DCAPPFIELD PPSFUNCS->AppModule INTO oAppBrowse CAPTION 'Menu ID' COLOR GRA_CLR_BLUE, GRA_CLR_WHITE
DCAPPFIELD PPSFUNCS->Menu INTO oAppBrowse CAPTION 'Menu Description' COLOR GRA_CLR_BLUE, GRA_CLR_WHITE
DCGETOPTIONS TOOLTIPCOLOR GRA_CLR_BLACK, GRA_CLR_YELLOW AUTORESIZE // BITMAP oBitmap
DCREAD GUI MODAL FIT OPTIONS GetOptions TITLE "PowerPlus Software Menu Configuration" SETAPPWINDOW ADDBUTTONS
Return nil
*
Function APP_ConfirmUpdate()
IF ConfirmBox( , "Do you really want to update this record?", "Update record", XBPMB_YESNO, XBPMB_QUESTION ) == XBPMB_RET_NO
RETURN APPOP_IGNORE
ENDIF
RETURN APPOP_PROCEED
1. The "Seek" Button of the toolbar is NOT active - dimmed
2. TRIGGER clause of DCAPPEDIT not firing
3. The Horizontal Grid lines of DCAPPBROWSE not showing
4. The FONT clause of DCAPPEDIT only affect GET boxes and Field descriptions are NOT affected.
5. It is possible to access the underlining xbase parts of DCAPPEDIT ?
Thanks.
Joe.
CODE:
*
Function UniQ_Menu()
LOCAL GetList[0], GetOptions, oStatic[2], oAppEdit, oAppBrowse
@ 0,1 DCSTATIC TYPE XBPSTATIC_TYPE_RAISEDBOX SIZE 60,20 OBJECT oStatic[1]
@ 0,62 DCSTATIC TYPE XBPSTATIC_TYPE_RAISEDBOX SIZE 43,20 OBJECT oStatic[2]
DCAPPEDIT INTO oAppEdit STYLE FANCY POSITION 0,0 ALIAS "PPSFUNCS" PARENT oStatic[1] ;
HEADING "PowerPlus Software Menu Configuration" NOACTION APPACTION_NODELETE;
TRIGGER "APP_ConfirmUpdate" ON UPDATE // SEEK {|| DC_Winalert("my app seek")}
DCAPPBROWSE INTO oAppBrowse STYLE FANCY POSITION 0,0 ALIAS "PPSFUNCS" PARENT oStatic[2] EVAL {|| PPSFUNCS->(dbGoTop()) }
DCAPPFIELD PPSFUNCS->AppModule INTO oAppBrowse CAPTION 'Menu ID' COLOR GRA_CLR_BLUE, GRA_CLR_WHITE
DCAPPFIELD PPSFUNCS->Menu INTO oAppBrowse CAPTION 'Menu Description' COLOR GRA_CLR_BLUE, GRA_CLR_WHITE
DCGETOPTIONS TOOLTIPCOLOR GRA_CLR_BLACK, GRA_CLR_YELLOW AUTORESIZE // BITMAP oBitmap
DCREAD GUI MODAL FIT OPTIONS GetOptions TITLE "PowerPlus Software Menu Configuration" SETAPPWINDOW ADDBUTTONS
Return nil
*
Function APP_ConfirmUpdate()
IF ConfirmBox( , "Do you really want to update this record?", "Update record", XBPMB_YESNO, XBPMB_QUESTION ) == XBPMB_RET_NO
RETURN APPOP_IGNORE
ENDIF
RETURN APPOP_PROCEED