Изменение размеров у автоматически сгенирированного TABSTRIP

tav

Доброе время суток.

Кто подскажет как у автоматически сгенирированного TABSTRIP, т.е. созданного не через редактор экранов, а программно, изменить размеры до максимально возможного. Экран, на котором расположен TABSTRIP, тоже сгенирирован.

Я понимаю что нужно программно добраться к его атрибутам уже после его создания и изменить их, но каким образом не знаю, поэтому прошу Вашей помощи.

Uukrul

tav написал:

Доброе время суток.

Кто подскажет как у автоматически сгенирированного TABSTRIP, т.е. созданного не через редактор экранов, а программно, изменить размеры до максимально возможного. Экран, на котором расположен TABSTRIP, тоже сгенирирован.

Я понимаю что нужно программно добраться к его атрибутам уже после его создания и изменить их, но каким образом не знаю, поэтому прошу Вашей помощи.

Никак... если это не ваш экран, а если ваш то стандартно растягиваете элемент на максимально допустимый размер экрана 240 на 200 кажется и в атрибутах ставите галки "Изменение размера" после этого ваш элемент будет автоматически подстраиваться под размер экрана пользователя...

tav

Uukrul написал(а):

Никак... если это не ваш экран, а если ваш то стандартно растягиваете элемент на максимально допустимый размер экрана 240 на 200 кажется и в атрибутах ставите галки "Изменение размера" после этого ваш элемент будет автоматически подстраиваться под размер экрана пользователя...

Это мой экран. Я знаю что нужно именно это и сделать.
Но как это сделать программно?
Т.к. экран и tabstrip не созданы в редакторе экранов, то выше указанные изменения будут действовать до следующей их перегенирации и нужно будет опять их вручную менять.
А как изменять атрибуты после их генерации программно?

sibrin

Code:

IMPORT DYNPRO h f e m ID id. 

EXPORT DYNPRO h f e m ID id. 

CALL FUNCTION 'RS_WORKING_OBJECT_ACTIVATE'
           EXPORTING
                object                     = 'DYNP'
                obj_name                   = id
                activate_only_this_object  = 'X'
                object_saved               = 'X'
*           DICTIONARY_ONLY           = ' '
           IMPORTING
                bind_error_window          = bind_err.

Только если программа правит свой экран, то изменения вступят в силу при следующем запуске программы.

tav

sibrin написал:

Code:

IMPORT DYNPRO h f e m ID id. 

EXPORT DYNPRO h f e m ID id. 

CALL FUNCTION 'RS_WORKING_OBJECT_ACTIVATE'
           EXPORTING
                object                     = 'DYNP'
                obj_name                   = id
                activate_only_this_object  = 'X'
                object_saved               = 'X'
*           DICTIONARY_ONLY           = ' '
           IMPORTING
                bind_error_window          = bind_err.

Только если программа правит свой экран, то изменения вступят в силу при следующем запуске программы.

Спасибо sibrin, все получилось.

Кому будет интересно по TABSTRIP:

установить те две галочки, о которых шла речь (по вертик. и по горизонт.)

Code:

 
f-flg2 = '30'.     " для TABSTRIP_TABB1
f-flg2 = 'F0'.     " для %_SUBSCREEN_TABB1

и минимальные значения в hex

Code:

f-aglt = '0D'.   " Мин. строк
f-adez = '20'.   " Мин. столбц.

tav

sibrin написал:

Code:

IMPORT DYNPRO h f e m ID id. 

EXPORT DYNPRO h f e m ID id. 

CALL FUNCTION 'RS_WORKING_OBJECT_ACTIVATE'
           EXPORTING
                object                     = 'DYNP'
                obj_name                   = id
                activate_only_this_object  = 'X'
                object_saved               = 'X'
*           DICTIONARY_ONLY           = ' '
           IMPORTING
                bind_error_window          = bind_err.

Только если программа правит свой экран, то изменения вступят в силу при следующем запуске программы.

А если поместить указанный код в раздел LOAD-OF-PROGRAM, то изменения вступят в силу сразу.

sibrin

Да, прикольно.

Причём в событии LOAD-OF-PROGRAMM можно писать в листинг, в отличие от INITIALIZATION и AT SELECTION-SCREEN OUTPUT.

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

Изменение размеров у автоматически сгенирированного TABSTRIP

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