S_223FB
* ===================================================================
*
* Component : S_223FB
* Type : Form
* Ancestor : PRIM_FORM
*
* Description : Advanced List Views - Dynamic Hints
*
* Disclaimer : The following material is supplied as example material
* only. No warranty concerning this material or its use
* in any way whatsoever is expressed or implied.
*
* ===================================================================
Function Options(*DIRECT)
BEGIN_COM Role(*EXTENDS #PRIM_FORM) Height(346) Left(381) Top(135) Width(549)
DEFINE_COM Class(#PRIM_LTVW) Name(#EMPLIST) Displayposition(1) Fullrowselect(True) Height(285) Hintshowofparent(False) Left(8) Parent(#COM_OWNER) Selectionstyle(Single) Showitemhint(True) Tabposition(1) Top(28) Viewstyle(Icon) Width(529)
DEFINE_COM Class(#PRIM_LVCL) Name(#LVCL_1) Displayposition(1) Parent(#EMPLIST) Source(#EMPNO) Width(50) Widthtype(Characters)
DEFINE_COM Class(#PRIM_LVCL) Name(#LVCL_2) Parent(#EMPLIST) Source(#GIVENAME) Visible(False) Width(20)
DEFINE_COM Class(#PRIM_LVCL) Name(#LVCL_3) Parent(#EMPLIST) Source(#SURNAME) Visible(False) Width(20)
* ===============================
* Handle main form initialization
* ===============================
Evtroutine Handling(#com_owner.Initialize)
Select Fields(#EmpList) From_File(PSLMST)
Add_Entry To_List(#EmpList)
Set #EmpList.CURRENTITEM Image(#VI_EMPLOY)
EndSelect
Endroutine
* =========================
* Handle ItemHintTest Event
* =========================
EVTROUTINE Handling(#EmpList.ItemHintText) Options(*NOCLEARERRORS *NOCLEARMESSAGES) Caption(#UseHint)
Use BConcat (#GiveName #SurName) To_Get(#FullName)
Set #UseHint Value(#FullName)
Endroutine
End_Com
* ===================================================================
*
* Component : S_223FB
* Type : Form
* Ancestor : PRIM_FORM
*
* Description : Advanced List Views - Dynamic Hints
*
* Disclaimer : The following material is supplied as example material
* only. No warranty concerning this material or its use
* in any way whatsoever is expressed or implied.
*
* ===================================================================
Function Options(*DIRECT)
BEGIN_COM Role(*EXTENDS #PRIM_FORM) Height(346) Left(381) Top(135) Width(549)
DEFINE_COM Class(#PRIM_LTVW) Name(#EMPLIST) Displayposition(1) Fullrowselect(True) Height(285) Hintshowofparent(False) Left(8) Parent(#COM_OWNER) Selectionstyle(Single) Showitemhint(True) Tabposition(1) Top(28) Viewstyle(Icon) Width(529)
DEFINE_COM Class(#PRIM_LVCL) Name(#LVCL_1) Displayposition(1) Parent(#EMPLIST) Source(#EMPNO) Width(50) Widthtype(Characters)
DEFINE_COM Class(#PRIM_LVCL) Name(#LVCL_2) Parent(#EMPLIST) Source(#GIVENAME) Visible(False) Width(20)
DEFINE_COM Class(#PRIM_LVCL) Name(#LVCL_3) Parent(#EMPLIST) Source(#SURNAME) Visible(False) Width(20)
* ===============================
* Handle main form initialization
* ===============================
Evtroutine Handling(#com_owner.Initialize)
Select Fields(#EmpList) From_File(PSLMST)
Add_Entry To_List(#EmpList)
Set #EmpList.CURRENTITEM Image(#VI_EMPLOY)
EndSelect
Endroutine
* =========================
* Handle ItemHintTest Event
* =========================
EVTROUTINE Handling(#EmpList.ItemHintText) Options(*NOCLEARERRORS *NOCLEARMESSAGES) Caption(#UseHint)
Use BConcat (#GiveName #SurName) To_Get(#FullName)
Set #UseHint Value(#FullName)
Endroutine
End_Com