#----------------------# FUNCTION LTextEditorLTextField()#----------------------#
DEFINE l_dialog_reference VARCHAR(10)
DEFINE l_texteditortextfield_reference VARCHAR(10)
LET l_dialog_reference = _ADVPL_create_component(NULL,"LDIALOG")
CALL _ADVPL_set_property(l_dialog_reference,"SIZE",480160,240120)
CALL _ADVPL_set_property(l_dialog_reference,"TITLE","Ex.: LTextEditorLTEXTFIELD")
CALL _ADVPL_set_property(l_dialog_reference,"BACKGROUND_COLOR",210,210,210)
LET l_texteditortextfield_reference = _ADVPL_create_component(NULL,"LTEXTEDITORLTEXTFIELD",l_dialog_reference)
CALL _ADVPL_set_property(l_texteditortextfield_reference,"SIZE",470,205LENGTH",10)
CALL _ADVPL_set_property(l_textfield_reference,"PICTURE","@!")
CALL _ADVPL_set_property(l_texteditortextfield_reference,"POSITION",05,05)
LET l_textfield_reference = _ADVPL_create_component(NULL,"LTEXTFIELD",l_dialog_reference)
CALL _ADVPL_set_property(l_textfield_reference,"LENGTH",10)
CALL _ADVPL_set_property(l_textfield_reference,"PASSWORD",TRUE)
CALL _ADVPL_set_property(l_textfield_reference,"POSITION",05,35)
CALL _ADVPL_set_property(l_dialog_reference,"MAXIMIZED",FALSE)
CALL _ADVPL_set_property(l_dialog_reference,"ACTIVATE",TRUE) END FUNCTION |