Edit Box

Visual LANSA

Edit Box

Field Name

EMPNO

Description

How to visualize a field as an Edit Box on a form.

Field Source

 

Begin_Com Role(*EXTENDS #PRIM_OBJT)

 
Begin_Com Role(*Visual #PRIM_EVEF) Name(#VisualEdit) Defaultvisual(True) Height(19) Usepicklist(False) Width(555)
 
End_Com
 
End_Com

 

Form Source

 

Function Options(*DIRECT)

 
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(108) Clientwidth(492) Height(135) Left(304) Top(155)
 
Define_Com Class(#EMPNO.Visual) Name(#EMPNO) Displayposition(1) Left(72) Parent(#COM_OWNER) Tabposition(1) Top(32) Usepicklist(False) Width(299)
 
End_Com

 

Appearance

Ý 3.6.9 Form Samples