DATA: H_PICTURE        TYPE REF TO CL_GUI_PICTURE,

      H_PIC_CONTAINER  TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

DATA: GRAPHIC_URL() TYPE C,

      GRAPHIC_REFRESH  TYPE CHAR1,

      G_RESULT         TYPE I.

DATA: BEGIN OF GRAPHIC_TABLE OCCURS ,

        LINE()  TYPE X,

      END OF GRAPHIC_TABLE.

DATA: GRAPHIC_SIZE TYPE I.

CONSTANTS: CNTL_TRUE  TYPE I VALUE ,

           CNTL_FALSE TYPE I VALUE .

 DATA: L_GRAPHIC_XSTR TYPE XSTRING,

       L_GRAPHIC_CONV TYPE I,

       L_GRAPHIC_OFFS TYPE I.

  CALL METHOD CL_SSF_XSF_UTILITIES=>GET_BDS_GRAPHIC_AS_BMP

    EXPORTING

      P_OBJECT  = 'GRAPHICS'

      P_NAME    = 'ENJOY' "图片名称（SE78中维护）

      P_ID      = 'BMAP'

      P_BTYPE   = BMON  "(BMON = black&white, BCOL = colour)

    RECEIVING

      P_BMP     = L_GRAPHIC_XSTR

    EXCEPTIONS

      NOT_FOUND =

      OTHERS    = .

  GRAPHIC_SIZE = XSTRLEN( L_GRAPHIC_XSTR ).

  CHECK GRAPHIC_SIZE > .

  L_GRAPHIC_CONV = GRAPHIC_SIZE.

  L_GRAPHIC_OFFS = .

  WHILE L_GRAPHIC_CONV > .

    GRAPHIC_TABLE-LINE = L_GRAPHIC_XSTR+L_GRAPHIC_OFFS().

    APPEND GRAPHIC_TABLE.

    L_GRAPHIC_OFFS = L_GRAPHIC_OFFS + .

    L_GRAPHIC_CONV = L_GRAPHIC_CONV - .

  ENDWHILE.

  GRAPHIC_TABLE-LINE = L_GRAPHIC_XSTR+L_GRAPHIC_OFFS(L_GRAPHIC_CONV).

  APPEND GRAPHIC_TABLE.

  CALL FUNCTION 'DP_CREATE_URL'

    EXPORTING

      TYPE                 = 'image'               "#EC NOTEXT

      SUBTYPE              = CNDP_SAP_TAB_UNKNOWN " 'X-UNKNOWN'

      SIZE                 = GRAPHIC_SIZE

      LIFETIME             = CNDP_LIFETIME_TRANSACTION  "'T'

    TABLES

      DATA                 = GRAPHIC_TABLE

    CHANGING

      URL                  = GRAPHIC_URL

    EXCEPTIONS

      DP_INVALID_PARAMETER =

      DP_ERROR_PUT_TABLE   =

      DP_ERROR_GENERAL     =

      OTHERS               =  .

  IF SY-SUBRC <> .

    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  ENDIF.

   "创建图片容器

   CREATE OBJECT H_PIC_CONTAINER

           EXPORTING CONTAINER_NAME =  'CC_PIC'.  "“定制控制”控件名称

  "创建图片实例

   CREATE OBJECT H_PICTURE

           EXPORTING PARENT = H_PIC_CONTAINER.

    "显示图片

   CALL METHOD H_PICTURE->LOAD_PICTURE_FROM_URL

     EXPORTING

       URL    = GRAPHIC_URL

     IMPORTING

       RESULT = G_RESULT.

 

 

 

　　

人的一生常处于抉择之中，如：念哪一间大学？选哪一种职业？娶哪一种女子？……等等伤脑筋的事情。一个人抉择力的有无，可以显示其人格成熟与否。

　　

倒是哪些胸无主见的人，不受抉择之苦。因为逢到需要决定的时候，他总是求询别人说："嘿，你看怎么做？"

　　

大凡能够成大功业的人，都是抉择力甚强的人。他知道事之成败，全在乎已没有人可以代劳，更没有人能代你决定。

　　

在抉择的哪一刻，成败实已露出端倪。