|
Events in picture control |
|
|
|
|
Written by Anon.
|
|
Sunday, 27 May 2007 |
REPORT demo_picture_control.
* Declarations *****************************************************
CLASS c_reaction DEFINITION.
PUBLIC SECTION.
METHODS h1 FOR EVENT picture_click OF cl_gui_picture.
ENDCLASS.
DATA: container1 TYPE REF TO cl_gui_custom_container,
container2 LIKE container1,
pict1 TYPE REF TO cl_gui_picture,
pict2 LIKE pict1,
react TYPE REF TO c_reaction,
evt_tab TYPE cntl_simple_events,
evt_tab_line LIKE LINE OF evt_tab,
url(256) TYPE c.
DATA pict_line(256) TYPE c.
DATA pict_tab LIKE TABLE OF pict_line.
DATA l_alignment TYPE i.
* Reporting events ***************************************************
START-OF-SELECTION.
IMPORT pict_tab = pict_tab FROM DATABASE abtree(pi) ID 'ENJOY'.
CALL FUNCTION 'DP_CREATE_URL'
EXPORTING
type = 'IMAGE'
subtype = 'GIF'
TABLES
data = pict_tab
CHANGING
url = url.
CALL SCREEN 100.
* Dialog Modules Output
MODULE status_0100 OUTPUT.
CREATE OBJECT: container1 EXPORTING container_name = 'PICTURE1',
container2 EXPORTING container_name = 'PICTURE2',
pict1 EXPORTING parent = container1,
pict2 EXPORTING parent = container2,
react.
l_alignment = cl_gui_control=>align_at_left +
cl_gui_control=>align_at_right +
cl_gui_control=>align_at_top +
cl_gui_control=>align_at_bottom.
CALL METHOD pict1->set_alignment
EXPORTING
alignment = l_alignment.
CALL METHOD pict1->set_3d_border EXPORTING border = 1.
evt_tab_line-eventid = cl_gui_picture=>eventid_picture_click.
evt_tab_line-appl_event = ' '. " System Event!
APPEND evt_tab_line TO evt_tab.
CALL METHOD pict1->set_registered_events EXPORTING events = evt_tab.
SET HANDLER react->h1 FOR pict1.
CALL METHOD pict1->load_picture_from_url EXPORTING url = url
EXCEPTIONS OTHERS = 4.
SET PF-STATUS 'SCREEN_100'.
ENDMODULE.
* Dialog Modules Output
MODULE cancel INPUT.
LEAVE PROGRAM.
ENDMODULE.
* CLass Implementations **********************************************
CLASS c_reaction IMPLEMENTATION.
METHOD h1.
IMPORT pict_tab = pict_tab FROM DATABASE abtree(pi) ID 'PICTURE'.
CALL FUNCTION 'DP_CREATE_URL'
EXPORTING
type = 'IMAGE'
subtype = 'GIF'
TABLES
data = pict_tab
CHANGING
url = url.
CALL METHOD pict2->load_picture_from_url
EXPORTING url = url.
ENDMETHOD.
ENDCLASS.
Related Items:
|
|
Last Updated ( Sunday, 27 May 2007 )
|
