|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
pcl 学习有什么好的参考资料
pcl 程序一般如何调试
pcl 对话框设计一般有哪些步骤
pcl 对话框一般如何设计,编译,调试,连接
我设计的对话框总是出不来,
#include "appforms.p"
CLASS modelpara
CLASSWIDE WIDGET main_form
CLASSWIDE WIDGET my_dbox
CLASSWIDE WIDGET apply_btn, cancel_btn
CLASSWIDE LOGICAL displayed
FUNCTION init()
REAL y_loc
displayed = FALSE
main_form = ui_form_create( @
/* callback */ "", @
/* x position */ FORM_X_LOC, @
/* y position */ FORM_Y_LOC, @
/* relative to */ "UL", @
/* width */ FORM_WID_SML, @
/* height */ 0, @
/* label */ "Form Label", @
/* unused */ "")
y_loc = FORM_T_MARGIN
my_dbox = ui_databox_create( @
/* parent */ main_form, @
/* callback */ "", @
/* x position */ FORM_L_MARGIN, @
/* y position */ y_loc, @
/* label length */ 0, @
/* box length */ DBOX_WID_SINGLE, @
/* label */ "Enter a Value", @
/* value */ "", @
/* label above */ TRUE, @
/* datatype */ "REAL", @
/* number of values */ 1)
y_loc += DBOX_HGT_LABOVE + INTER_WIDGET_SPACE
apply_btn = ui_button_create( @
/* parent */ main_form, @
/* callback */ "apply_btn_cb", @
/* x position */ BUTTON_THIRD_X_LOC1, @
/* y position */ y_loc, @
/* width */ BUTTON_WID_THIRD, @
/* height */ 0, @
/* label */ "Apply", @
/* unused */ TRUE, @
/* highlight */ TRUE)
cancel_btn = ui_button_create( @
/* parent */ main_form, @
/* callback */ "cancel_btn_cb", @
/* x position */ BUTTON_THIRD_X_LOC3, @
/* y position */ y_loc, @
/* width */ BUTTON_WID_THIRD, @
/* height */ 0, @
/* label */ "Cancel", @
/* unused */ TRUE, @
/* highlight */ FALSE)
y_loc += BUTTON_DEFAULT_HGT + FORM_B_MARGIN
ui_wid_set(main_form,"HEIGHT",y_loc)
END FUNCTION /* init */
FUNCTION display()
ui_form_display( "modelpara" )
END FUNCTION /* display */
FUNCTION refresh()
END FUNCTION /* refresh */
FUNCTION apply_btn_cb()
END FUNCTION /* apply_btn_cb */
FUNCTION cancel_btn_cb()
ui_form_hide("modelpara")
END FUNCTION /* cancel_btn_cb */
END CLASS /* modelpara */ |
|