Как узнать разрешение экрана пользователя?

WALL-E

Добрый день.

Есть необходимость устанавливать размеры экрана в зависимости от разрешения экрана пользователя.
Как узнать разрешение экрана и присвоить нормальную длину и высоту своим экранам!?

Заранее спасибо.

bossjohn

WALL-E написал:

Добрый день.

Есть необходимость устанавливать размеры экрана в зависимости от разрешения экрана пользователя.
Как узнать разрешение экрана и присвоить нормальную длину и высоту своим экранам!?

Заранее спасибо.

а в чем проблема? эта тема уже обсуждалась:
Разрешение экрана...
Соотношение размера экрана отчета с экраном монитора

Пономарев Артем

Как я понимаю, вопрос относится к модальным диалоговым экранам?

Достаточно давно писал ФМчик для центровки вызовов поп-апов. Думаю поможет.

Code:

*&---------------------------------------------------------------------*
*&      Form  calc_call_screen
*&---------------------------------------------------------------------*
*& Рассчитываем координаты вывода окна "по центру" экрана пользователя
*&---------------------------------------------------------------------*
FORM calc_call_screen USING    value(i_repid) TYPE syrepid
                               value(i_dynnr) TYPE sydynnr
                      CHANGING c_begrow TYPE i
                               c_begcol TYPE i
                               c_endrow TYPE i
                               c_endcol TYPE i.

  DATA: ls_header TYPE d020s,
        lt_fldtab TYPE TABLE OF d021s.

  CALL 'GET_WINDOW_DATA'
     ID 'BEGROW' FIELD c_begrow
     ID 'BEGCOL' FIELD c_begcol
     ID 'ENDROW' FIELD c_endrow
     ID 'ENDCOL' FIELD c_endcol.

  CALL FUNCTION 'IMPORT_DYNPRO'
       EXPORTING
            dyname = i_repid
            dynumb = i_dynnr
       IMPORTING
            header = ls_header
       TABLES
            ftab   = lt_fldtab.

  c_begrow = ( c_endrow / 2 ) - ( ls_header-noli / 2 ).
  c_begcol = ( c_endcol / 2 ) - ( ls_header-noco / 2 ).

  c_endrow = c_begrow + ls_header-noli - 1.
  c_endcol = c_begcol + ls_header-noco - 1.

ENDFORM.

WALL-E

Пономарев Артем написал:

Как я понимаю, вопрос относится к модальным диалоговым экранам?

Достаточно давно писал ФМчик для центровки вызовов поп-апов. Думаю поможет.

Code:

*&---------------------------------------------------------------------*
*&      Form  calc_call_screen
*&---------------------------------------------------------------------*
*& Рассчитываем координаты вывода окна "по центру" экрана пользователя
*&---------------------------------------------------------------------*
FORM calc_call_screen USING    value(i_repid) TYPE syrepid
                               value(i_dynnr) TYPE sydynnr
                      CHANGING c_begrow TYPE i
                               c_begcol TYPE i
                               c_endrow TYPE i
                               c_endcol TYPE i.

  DATA: ls_header TYPE d020s,
        lt_fldtab TYPE TABLE OF d021s.

  CALL 'GET_WINDOW_DATA'
     ID 'BEGROW' FIELD c_begrow
     ID 'BEGCOL' FIELD c_begcol
     ID 'ENDROW' FIELD c_endrow
     ID 'ENDCOL' FIELD c_endcol.

  CALL FUNCTION 'IMPORT_DYNPRO'
       EXPORTING
            dyname = i_repid
            dynumb = i_dynnr
       IMPORTING
            header = ls_header
       TABLES
            ftab   = lt_fldtab.

  c_begrow = ( c_endrow / 2 ) - ( ls_header-noli / 2 ).
  c_begcol = ( c_endcol / 2 ) - ( ls_header-noco / 2 ).

  c_endrow = c_begrow + ls_header-noli - 1.
  c_endcol = c_begcol + ls_header-noco - 1.

ENDFORM.

Спасибо. Попробую!

LAT

WALL-E написал:

Как узнать разрешение экрана...

Code:

    DATA: ref_consumer TYPE REF TO cl_gui_props_consumer,
          metric_factors TYPE cntl_metric_factors.
    ref_consumer = cl_gui_props_consumer=>create_consumer( ).
    metric_factors = ref_consumer->get_metric_factors( ).
        " x = metric_factors-screen-x.
        " y = metric_factors-screen-y.

Пономарев Артем

LAT, зачем эти сложности? CL_GUI_CFW=>GET_METRIC_FACTORS - умещается в одну строку. Только зачем кому-то может понадобиться разрешение в пикселях в ABAP'е?

LAT

Пономарев Артем написал:

зачем эти сложности? CL_GUI_CFW=>GET_METRIC_FACTORS - умещается в одну строку.

В принципе, да: содержит почти этот же код, но вызов осуществляется одной строкой. Спасибо за информацию.

Пономарев Артем написал:

Только зачем кому-то может понадобиться разрешение в пикселях в ABAP'е?

Не знаю, но:

WALL-E написал:

Есть необходимость устанавливать размеры экрана в зависимости от разрешения экрана пользователя. Как узнать разрешение экрана...

Правила форума

Как узнать разрешение экрана пользователя?

Кто сейчас на конференции