Mouse Events

LANSA Version 13 SP2

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