ViewDoubleClick イベント

LANSA

ViewDoubleClick イベント

ViewDoubleClickは、ユーザーが表示エリアでダブル・クリックすると起動されます。

ユーザーがコントロールの表示エリアでダブル・クリックするとViewDoubleClickが起動します。

表示エリアとは、リスト項目に使用されていない"白いスペース"のことです。リスト・ビュー・コントロールの場合は一番右端の列の右側のカラム・ヘッダーも表示エリアで、グレーのカラム・ヘッダー・ボタンとして表示されます。

ViewDoubleClickイベントが起動する場所ではDoubleClickイベントは起動しません。

Explorerコンポーネントでは、表示スタイルがFileListBoxまたはDirectoryListBoxの場合、ViewDoubleClickは適用されません。

Explorerでの異なるクリック・イベントを見るには、次の例をコピーして貼り付けてください:

Function Options(*DIRECT) 

Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(539) Clientwidth(663) Height(566) Left(340) Top(146) Width(671)
Define_Com Class(#PRIM_DCBX) Name(#DCBX_1) Displayposition(1) Fileincludemask('"*.*"') Filename('Desktop') Height(337) Left(8) Notifycomponent(#DCBX_2) Parent(#COM_OWNER) Tabposition(1) Tabstop(False) Top(8) Width(289)
Define_Com Class(#PRIM_DCBX) Name(#DCBX_2) Displayposition(2) Displaystyle(GeneralListView) Fileincludemask('"*.*"') Filename('Desktop') Height(338) Left(312) Parent(#COM_OWNER) Tabposition(2) Tabstop(False) Top(7) Width(296)
Define_Com Class(#STD_TEXT.Visual) Name(#FILENAME) Caption('FileName') Displayposition(4) Height(19) Labeltype(Caption) Left(8) Parent(#COM_OWNER) Tabposition(4) Top(351) Usepicklist(False) Width(555)
Define_Com Class(#STD_TEXT.Visual) Name(#PATH) Caption('Path') Displayposition(6) Height(19) Labeltype(Caption) Left(8) Parent(#COM_OWNER) Tabposition(6) Top(376) Usepicklist(False) Width(555)
Define_Com Class(#STD_TEXT.Visual) Name(#PATHTYPE) Caption('Pathtype') Displayposition(8) Height(19) Labeltype(Caption) Left(8) Parent(#COM_OWNER) Tabposition(8) Top(399) Usepicklist(False) Width(555)
Define_Com Class(#STD_TEXT.Visual) Name(#FILENAME1) Caption('FileName Before dbl clk applied') Displayposition(3) Height(19) Labeltype(Caption) Left(8) Parent(#COM_OWNER) Tabposition(3) Top(432) Usepicklist(False) Width(555)
Define_Com Class(#STD_TEXT.Visual) Name(#PATH1) Caption('Path Before dbl clk applied') Displayposition(5) Height(19) Labeltype(Caption) Left(8) Parent(#COM_OWNER) Tabposition(5) Top(456) Usepicklist(False) Width(555)
Define_Com Class(#STD_TEXT.Visual) Name(#PATHTYPE1) Caption('Pathtype before dbl clk applied') Displayposition(7) Height(19) Labeltype(Caption) Left(8) Parent(#COM_OWNER) Tabposition(7) Top(488) Usepicklist(False) Width(555)
Define_Com Class(#PRIM_STBR) Name(#STBR_1) Displayposition(9) Height(24) Left(0) Messageposition(1) Parent(#COM_OWNER) Tabposition(9) Tabstop(False) Top(515) Width(663)
Evtroutine Handling(#com_owner.Initialize)
Set Com(#com_owner) Caption(*component_desc)
Endroutine
Evtroutine Handling(#DCBX_2.ItemGotSelection) Path(#w_path) Name(#w_filename) Pathtype(#w_pathtype)
Set Com(#FILENAME) Value(#W_FILENAME)
Set Com(#PATH) Value(#W_PATH)
Set Com(#PATHTYPE) Value(#W_PATHTYPE)
Message Msgtxt('Item clicked in Right Explorer Component')
Endroutine
Evtroutine Handling(#DCBX_1.ItemGotSelection) Path(#w_path) Name(#w_filename) Pathtype(#w_pathtype)
Set Com(#FILENAME) Value(#W_FILENAME)
Set Com(#PATH) Value(#W_PATH)
Set Com(#PATHTYPE) Value(#W_PATHTYPE)
Message Msgtxt('Item clicked in Left Explorer Component')
Endroutine
Evtroutine Handling(#DCBX_2.ViewDoubleClick)
Set Com(#FILENAME1) Value(#DCBX_2.Filename)
Set Com(#PATH1) Value(#DCBX_2.Path)
Set Com(#PATHTYPE1) Value(#DCBX_2.PathType)
Message Msgtxt('View double clicked Right Explorer Component')
Endroutine
Evtroutine Handling(#DCBX_1.ViewDoubleClick)
Set Com(#FILENAME1) Value(#DCBX_1.Filename)
Set Com(#PATH1) Value(#DCBX_1.Path)
Set Com(#PATHTYPE1) Value(#DCBX_1.PathType)
Message Msgtxt('View double clicked Left Explorer Component')
Endroutine
Evtroutine Handling(#DCBX_2.ItemDoubleClick)
Set Com(#FILENAME1) Value(#DCBX_2.Filename)
Set Com(#PATH1) Value(#DCBX_2.Path)
Set Com(#PATHTYPE1) Value(#DCBX_2.PathType)
Message Msgtxt('Double clicked Right Explorer Component')
Endroutine
Evtroutine Handling(#DCBX_1.ItemDoubleClick)
Set Com(#FILENAME1) Value(#DCBX_1.Filename)
Set Com(#PATH1) Value(#DCBX_1.Path)
Set Com(#PATHTYPE1) Value(#DCBX_1.PathType)
Message Msgtxt('Double clicked Left Explorer Component')
Endroutine
End_Com