Mouse Events
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(306) Clientwidth(462) Componentversion(1) Height(344) Left(103) Top(200) Width(478)
Define_Com Class(#PRIM_Trvw) Name(#List) Columnbuttonheight(19) Componentversion(2) Displayposition(1) Fullrowselect(True) Haslines(False) Height(261) Keyboardpositioning(SortColumn) Left(8) Linesatroot(False) Parent(#COM_OWNER) Tabposition(1) Top(40) Viewstyle(UnLevelled) Width(444)
Define_Com Class(#PRIM_TVCL) Name(#TVCL_1) Displayposition(1) Level(1) Parent(#List) Source(#EMPNO) Width(27)
Define_Com Class(#PRIM_TVCL) Name(#TVCL_2) Displayposition(2) Level(2) Parent(#List) Source(#SURNAME) Width(33)
Define_Com Class(#PRIM_TVCL) Name(#TVCL_3) Displayposition(3) Level(3) Parent(#List) Source(#GIVENAME) Width(40)
Define_Com Class(#PRIM_SPBN) Name(#Delete) Caption('Delete') Displayposition(2) Left(8) Parent(#COM_OWNER) Tabposition(2) Top(8) Width(137)
Evtroutine Handling(#Com_owner.CreateInstance)
Case (#sys_appln.RenderStyle)
When (= DirectX)
#Com_owner.Caption := "DirectX"
When (= Win32)
#Com_owner.Caption := "Win32"
Endcase
Select Fields(#List) From_File(pslmst)
Add_Entry To_List(#List)
Endselect
Endroutine
Evtroutine Handling(#Delete.Click)
If (#List.CurrentItem *IsNot *null)
Dlt_Entry Number(#List.CurrentItem.Entry) From_List(#List)
Endif
Endroutine
End_Com