Skip to content

Commit 12ed6eb

Browse files
larshplarshp
authored
add event hotspot_click (#12)
1 parent 3e5e5c0 commit 12ed6eb

8 files changed

+222
-9
lines changed

‎src/cl_gui_alv_grid.clas.abap

+16-9
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,8 @@ CLASS cl_gui_alv_grid DEFINITION PUBLIC.
33

44
METHODS constructor
55
IMPORTING
6-
i_parent TYPE REF TO cl_gui_container.
6+
i_parent TYPE REF TO cl_gui_container
7+
i_appl_events TYPE char1 DEFAULT space.
78

89
METHODS free.
910

@@ -20,15 +21,15 @@ CLASS cl_gui_alv_grid DEFINITION PUBLIC.
2021
is_print TYPE any OPTIONAL
2122
it_special_groups TYPE any OPTIONAL
2223
it_toolbar_excluding TYPE any OPTIONAL
23-
it_hyperlink TYPE any OPTIONAL
24-
it_alv_graphics TYPE any OPTIONAL
25-
it_except_qinfo TYPE any OPTIONAL
26-
ir_salv_adapter TYPE REF TO any OPTIONAL
24+
it_hyperlink TYPE any OPTIONAL
25+
it_alv_graphics TYPE any OPTIONAL
26+
it_except_qinfo TYPE any OPTIONAL
27+
ir_salv_adapter TYPE REF TO any OPTIONAL
2728
CHANGING
28-
it_outtab TYPE STANDARD TABLE
29-
it_fieldcatalog TYPE any OPTIONAL
30-
it_sort TYPE any OPTIONAL
31-
it_filter TYPE any OPTIONAL
29+
it_outtab TYPE STANDARD TABLE
30+
it_fieldcatalog TYPE any OPTIONAL
31+
it_sort TYPE any OPTIONAL
32+
it_filter TYPE any OPTIONAL
3233
EXCEPTIONS
3334
invalid_parameter_combination
3435
program_error
@@ -56,6 +57,12 @@ CLASS cl_gui_alv_grid DEFINITION PUBLIC.
5657
EXPORTING
5758
VALUE(e_ucomm) TYPE sy-ucomm OPTIONAL.
5859

60+
EVENTS hotspot_click
61+
EXPORTING
62+
VALUE(e_row_id) TYPE lvc_s_row OPTIONAL
63+
VALUE(e_column_id) TYPE lvc_s_col OPTIONAL
64+
VALUE(es_row_no) TYPE lvc_s_roid OPTIONAL.
65+
5966
EVENTS toolbar
6067
EXPORTING
6168
VALUE(e_object) TYPE REF TO cl_alv_event_toolbar_set OPTIONAL

‎src/cl_gui_control.clas.abap

+2
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,8 @@
11
CLASS cl_gui_control DEFINITION PUBLIC.
22
PUBLIC SECTION.
33

4+
CLASS-DATA www_active TYPE abap_bool READ-ONLY.
5+
46
CLASS-METHODS set_focus
57
IMPORTING
68
control TYPE REF TO cl_gui_control.

‎src/cl_gui_picture.clas.abap

+17
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,24 @@
11
CLASS cl_gui_picture DEFINITION INHERITING FROM cl_gui_control PUBLIC.
22
PUBLIC SECTION.
3+
CONSTANTS display_mode_fit TYPE i VALUE 2.
4+
5+
METHODS constructor
6+
IMPORTING
7+
i_parent TYPE REF TO cl_gui_container.
8+
9+
METHODS set_display_mode
10+
IMPORTING
11+
display_mode TYPE i.
312
ENDCLASS.
413

514
CLASS cl_gui_picture IMPLEMENTATION.
615

16+
METHOD constructor.
17+
ASSERT 1 = 'todo'.
18+
ENDMETHOD.
19+
20+
METHOD set_display_mode.
21+
ASSERT 1 = 'todo'.
22+
ENDMETHOD.
23+
724
ENDCLASS.

‎src/ddic/lvc_nkey.dtel.xml

+24
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,24 @@
1+
<?xml version="1.0" encoding="utf-8"?>
2+
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DTEL" serializer_version="v1.0.0">
3+
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
4+
<asx:values>
5+
<DD04V>
6+
<ROLLNAME>LVC_NKEY</ROLLNAME>
7+
<DDLANGUAGE>E</DDLANGUAGE>
8+
<HEADLEN>12</HEADLEN>
9+
<SCRLEN1>10</SCRLEN1>
10+
<SCRLEN2>20</SCRLEN2>
11+
<SCRLEN3>40</SCRLEN3>
12+
<DDTEXT>LVC_NKEY</DDTEXT>
13+
<REPTEXT>LVC_NKEY</REPTEXT>
14+
<SCRTEXT_S>LVC_NKEY</SCRTEXT_S>
15+
<SCRTEXT_M>LVC_NKEY</SCRTEXT_M>
16+
<SCRTEXT_L>LVC_NKEY</SCRTEXT_L>
17+
<DTELMASTER>E</DTELMASTER>
18+
<DATATYPE>CHAR</DATATYPE>
19+
<LENG>000012</LENG>
20+
<OUTPUTLEN>000012</OUTPUTLEN>
21+
</DD04V>
22+
</asx:values>
23+
</asx:abap>
24+
</abapGit>

‎src/ddic/lvc_s_col.tabl.xml

+34
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,34 @@
1+
<?xml version="1.0" encoding="utf-8"?>
2+
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TABL" serializer_version="v1.0.0">
3+
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
4+
<asx:values>
5+
<DD02V>
6+
<TABNAME>LVC_S_COL</TABNAME>
7+
<DDLANGUAGE>E</DDLANGUAGE>
8+
<TABCLASS>INTTAB</TABCLASS>
9+
<DDTEXT>LVC_S_COL</DDTEXT>
10+
<EXCLASS>1</EXCLASS>
11+
</DD02V>
12+
<DD03P_TABLE>
13+
<DD03P>
14+
<FIELDNAME>FIELDNAME</FIELDNAME>
15+
<ADMINFIELD>0</ADMINFIELD>
16+
<INTTYPE>C</INTTYPE>
17+
<INTLEN>000060</INTLEN>
18+
<DATATYPE>CHAR</DATATYPE>
19+
<LENG>000030</LENG>
20+
<MASK> CHAR</MASK>
21+
</DD03P>
22+
<DD03P>
23+
<FIELDNAME>HIERLEVEL</FIELDNAME>
24+
<ADMINFIELD>0</ADMINFIELD>
25+
<INTTYPE>C</INTTYPE>
26+
<INTLEN>000006</INTLEN>
27+
<DATATYPE>CHAR</DATATYPE>
28+
<LENG>000003</LENG>
29+
<MASK> CHAR</MASK>
30+
</DD03P>
31+
</DD03P_TABLE>
32+
</asx:values>
33+
</asx:abap>
34+
</abapGit>

‎src/ddic/lvc_s_roid.tabl.xml

+34
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,34 @@
1+
<?xml version="1.0" encoding="utf-8"?>
2+
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TABL" serializer_version="v1.0.0">
3+
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
4+
<asx:values>
5+
<DD02V>
6+
<TABNAME>LVC_S_ROID</TABNAME>
7+
<DDLANGUAGE>E</DDLANGUAGE>
8+
<TABCLASS>INTTAB</TABCLASS>
9+
<DDTEXT>LVC_S_ROID</DDTEXT>
10+
<EXCLASS>1</EXCLASS>
11+
</DD02V>
12+
<DD03P_TABLE>
13+
<DD03P>
14+
<FIELDNAME>ROW_ID</FIELDNAME>
15+
<ADMINFIELD>0</ADMINFIELD>
16+
<INTTYPE>X</INTTYPE>
17+
<INTLEN>000004</INTLEN>
18+
<DATATYPE>INT4</DATATYPE>
19+
<LENG>000010</LENG>
20+
<MASK> INT4</MASK>
21+
</DD03P>
22+
<DD03P>
23+
<FIELDNAME>SUB_ROW_ID</FIELDNAME>
24+
<ADMINFIELD>0</ADMINFIELD>
25+
<INTTYPE>X</INTTYPE>
26+
<INTLEN>000004</INTLEN>
27+
<DATATYPE>INT4</DATATYPE>
28+
<LENG>000010</LENG>
29+
<MASK> INT4</MASK>
30+
</DD03P>
31+
</DD03P_TABLE>
32+
</asx:values>
33+
</asx:abap>
34+
</abapGit>

‎src/ddic/lvc_s_row.tabl.xml

+34
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,34 @@
1+
<?xml version="1.0" encoding="utf-8"?>
2+
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TABL" serializer_version="v1.0.0">
3+
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
4+
<asx:values>
5+
<DD02V>
6+
<TABNAME>LVC_S_ROW</TABNAME>
7+
<DDLANGUAGE>E</DDLANGUAGE>
8+
<TABCLASS>INTTAB</TABCLASS>
9+
<DDTEXT>LVC_S_ROW</DDTEXT>
10+
<EXCLASS>1</EXCLASS>
11+
</DD02V>
12+
<DD03P_TABLE>
13+
<DD03P>
14+
<FIELDNAME>ROWTYPE</FIELDNAME>
15+
<ADMINFIELD>0</ADMINFIELD>
16+
<INTTYPE>C</INTTYPE>
17+
<INTLEN>000046</INTLEN>
18+
<DATATYPE>CHAR</DATATYPE>
19+
<LENG>000023</LENG>
20+
<MASK> CHAR</MASK>
21+
</DD03P>
22+
<DD03P>
23+
<FIELDNAME>INDEX</FIELDNAME>
24+
<ADMINFIELD>0</ADMINFIELD>
25+
<INTTYPE>N</INTTYPE>
26+
<INTLEN>000020</INTLEN>
27+
<DATATYPE>NUMC</DATATYPE>
28+
<LENG>000010</LENG>
29+
<MASK> NUMC</MASK>
30+
</DD03P>
31+
</DD03P_TABLE>
32+
</asx:values>
33+
</asx:abap>
34+
</abapGit>

‎src/ddic/smp_dyntxt.tabl.xml

+61
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,61 @@
1+
<?xml version="1.0" encoding="utf-8"?>
2+
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TABL" serializer_version="v1.0.0">
3+
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
4+
<asx:values>
5+
<DD02V>
6+
<TABNAME>SMP_DYNTXT</TABNAME>
7+
<DDLANGUAGE>E</DDLANGUAGE>
8+
<TABCLASS>INTTAB</TABCLASS>
9+
<DDTEXT>SMP_DYNTXT</DDTEXT>
10+
<EXCLASS>1</EXCLASS>
11+
</DD02V>
12+
<DD03P_TABLE>
13+
<DD03P>
14+
<FIELDNAME>TEXT</FIELDNAME>
15+
<ADMINFIELD>0</ADMINFIELD>
16+
<INTTYPE>C</INTTYPE>
17+
<INTLEN>000080</INTLEN>
18+
<DATATYPE>CHAR</DATATYPE>
19+
<LENG>000040</LENG>
20+
<MASK> CHAR</MASK>
21+
</DD03P>
22+
<DD03P>
23+
<FIELDNAME>ICON_ID</FIELDNAME>
24+
<ADMINFIELD>0</ADMINFIELD>
25+
<INTTYPE>C</INTTYPE>
26+
<INTLEN>000008</INTLEN>
27+
<DATATYPE>CHAR</DATATYPE>
28+
<LENG>000004</LENG>
29+
<MASK> CHAR</MASK>
30+
</DD03P>
31+
<DD03P>
32+
<FIELDNAME>ICON_TEXT</FIELDNAME>
33+
<ADMINFIELD>0</ADMINFIELD>
34+
<INTTYPE>C</INTTYPE>
35+
<INTLEN>000080</INTLEN>
36+
<DATATYPE>CHAR</DATATYPE>
37+
<LENG>000040</LENG>
38+
<MASK> CHAR</MASK>
39+
</DD03P>
40+
<DD03P>
41+
<FIELDNAME>QUICKINFO</FIELDNAME>
42+
<ADMINFIELD>0</ADMINFIELD>
43+
<INTTYPE>C</INTTYPE>
44+
<INTLEN>000120</INTLEN>
45+
<DATATYPE>CHAR</DATATYPE>
46+
<LENG>000060</LENG>
47+
<MASK> CHAR</MASK>
48+
</DD03P>
49+
<DD03P>
50+
<FIELDNAME>PATH</FIELDNAME>
51+
<ADMINFIELD>0</ADMINFIELD>
52+
<INTTYPE>C</INTTYPE>
53+
<INTLEN>000002</INTLEN>
54+
<DATATYPE>CHAR</DATATYPE>
55+
<LENG>000001</LENG>
56+
<MASK> CHAR</MASK>
57+
</DD03P>
58+
</DD03P_TABLE>
59+
</asx:values>
60+
</asx:abap>
61+
</abapGit>

0 commit comments

Comments
 (0)