Splitter-Container in modalem Fenster nicht möglich?

[Ines3642]

Hallo zusammen,

ich habe ein Programm, das einen Splitter-Container (3x4) für eine Galerie aufbaut.

Das Programm soll zwei Möglichkeiten bieten: Anzeige im gesamten Dynpro und Anzeige in einem modalen Fenster.

Die Anzeige im gesamten Dynpro habe ich gelöst durch einen Docking-Container, den ich maximiere und der dann als Vater für den Splitter fungiert.

Für die Anzeige im modalen Fenster habe ich ein modales Dynpro angelegt. In diesem ist ein Custom-Control definiert, für das ich einen Custom-Container instanziiere. Dieser ist dann der Vater meines Splitter-Containers.

Leider aber wird der Splitter einfach nicht angezeigt!? Habe ich irgendwo ein "Splitter-Controls funktionieren nicht in modalen Fenstern" überlesen?

[ewx]

Kein Problem!

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. *&---------------------------------------------------------------------*
2. *& Report  RSDEMO_DIALOGBOX_CONTROL                                    *
3. *&---------------------------------------------------------------------*
4.  
5. REPORT  .
6. DATA repid TYPE sy-repid.
7. DATA dynnr TYPE sy-dynnr.
8. DATA  init.
9. DATA ok_code TYPE sy-ucomm.
10. TYPE-POOLS cndp.
11.  
12. * dialogbox Container
13. DATA gr_dialogbox  TYPE REF TO cl_gui_dialogbox_container.
14. DATA gr_splitter   TYPE REF TO cl_gui_easy_splitter_container.
15. DATA gr_textedit   TYPE REF TO cl_gui_textedit.
16. DATA gr_container1 TYPE REF TO cl_gui_container.
17. DATA gr_container2 TYPE REF TO cl_gui_container.
18.  
19. * picture Control
20. DATA gr_picture TYPE REF TO cl_gui_picture.
21. * Definition of Control Framework
22. CLASS cl_gui_cfw DEFINITION LOAD.
23.  
24.  
25. CALL SCREEN 100.
26.  
27. *&---------------------------------------------------------------------*
28. *&      Module  STATUS_0100  OUTPUT
29. *&---------------------------------------------------------------------*
30. *       text
31. *----------------------------------------------------------------------*
32. MODULE status_0100 OUTPUT.
33.   SET PF-STATUS 'STATUS'.
34. *  SET TITLEBAR 'xxx'.
35.   IF init IS INITIAL.
36.     repid = sy-repid.
37.     dynnr = sy-dynnr.
38.     CREATE OBJECT gr_dialogbox
39.       EXPORTING
40.         width  = 550
41.         height = 400
42.         top    = 50
43.         left   = 150
44.         repid  = repid
45.         dynnr  = dynnr.
46.  
47.     CREATE OBJECT gr_splitter
48.       EXPORTING
49.         parent        = gr_dialogbox
50.         orientation   = 0
51.         sash_position = 16
52.         with_border   = 1
53.       EXCEPTIONS
54.         OTHERS        = 3.
55.  
56.  
57.  
58.  
59.     CREATE OBJECT gr_picture
60.       EXPORTING
61.         parent = gr_splitter->top_left_container.
62.  
63.     CREATE OBJECT gr_textedit
64.       EXPORTING
65.         parent = gr_splitter->bottom_right_container
66.       EXCEPTIONS
67.         OTHERS = 6.
68.  
69.  
70. * Request an URL from the data provider by exporting the pic_data.
71.     DATA url(255).
72.     CLEAR url.
73.     PERFORM load_pic_from_db CHANGING url.
74.  
75. * load picture
76.     CALL METHOD gr_picture->load_picture_from_url
77.       EXPORTING
78.         url = url.
79.     init = 'X'.
80.  
81.     CALL METHOD cl_gui_cfw=>flush
82.       EXCEPTIONS
83.         cntl_system_error = 1
84.         cntl_error        = 2.
85.     IF sy-subrc <> 0.
86. * error handling
87.     ENDIF.
88.   ENDIF.
89. ENDMODULE.                             " STATUS_0100  OUTPUT
90.  
91. *&---------------------------------------------------------------------*
92. *&      Module  EXIT  INPUT
93. *&---------------------------------------------------------------------*
94. *       text
95. *----------------------------------------------------------------------*
96. MODULE exit INPUT.
97.   CALL METHOD gr_dialogbox->free.
98.   LEAVE PROGRAM.
99. ENDMODULE.                             " EXIT  INPUT
100. *&---------------------------------------------------------------------*
101. *&      Form  LOAD_PIC_FROM_DB
102. *&---------------------------------------------------------------------*
103. *       text
104. *----------------------------------------------------------------------*
105. *
106. *----------------------------------------------------------------------*
107. FORM load_pic_from_db CHANGING url.
108.   DATA query_table LIKE w3query OCCURS 1 WITH HEADER LINE.
109.   DATA html_table LIKE w3html OCCURS 1.
110.   DATA return_code LIKE  w3param-ret_code.
111.   DATA content_type LIKE  w3param-cont_type.
112.   DATA content_length LIKE  w3param-cont_len.
113.   DATA pic_data LIKE w3mime OCCURS 0.
114.   DATA pic_size TYPE i.
115.  
116.   REFRESH query_table.
117.   query_table-name = '_OBJECT_ID'.
118.   query_table-value = 'ENJOYSAP_LOGO'.
119.   APPEND query_table.
120.  
121.   CALL FUNCTION 'WWW_GET_MIME_OBJECT'
122.     TABLES
123.       query_string        = query_table
124.       html                = html_table
125.       mime                = pic_data
126.     CHANGING
127.       return_code         = return_code
128.       content_type        = content_type
129.       content_length      = content_length
130.     EXCEPTIONS
131.       object_not_found    = 1
132.       parameter_not_found = 2
133.       OTHERS              = 3.
134.   IF sy-subrc = 0.
135.     pic_size = content_length.
136.   ENDIF.
137.  
138.   CALL FUNCTION 'DP_CREATE_URL'
139.     EXPORTING
140.       type     = 'image'
141.       subtype  = cndp_sap_tab_unknown
142.       size     = pic_size
143.       lifetime = cndp_lifetime_transaction
144.     TABLES
145.       data     = pic_data
146.     CHANGING
147.       url      = url
148.     EXCEPTIONS
149.       OTHERS   = 1.
150.  
151.  
152. ENDFORM.                               " LOAD_PIC_FROM_DB

GeSHi ©

[Ines3642]

Hallo Enno!

Du erzeugst in Deinem Programm einen Dialogbox-Container und legst da den Splitter rein. Das geht auch bei mir ohne Probleme.

Ich aber habe ein Dynpro, das ich als modales Fenster angelegt habe. Dieses Dynpro besitzt auch einen Status zum Navigieren.

Das gesamte Coding steckt in einer Klasse und einer Funktionsgruppe. Die Gruppe hat einen einzigen Baustein, der die Klasse instanziiert und die Galerie anzeigt. Abhängig von einem Parameter soll dies eben in einem "normalen" Dynpro oder einem Popup angezeigt werden.

Der Baustein soll aber in einem belieibigen Programm einsetzbar sein.

Was passiert denn in dem Coding von Dir, wenn es kein Trägerdynpro für den Dialogbox-Container gibt?

[ewx]

Aaachso. Aber ein Trägerdynpro muss es doch immer geben... Du kannst es ja nicht einfach in die Luft hängen...
Vielleicht hilft dir der Parameter NO_AUTODEF_PROGID_DYNNR von cl_gui_dialogbox_container weiter?

[ewx]

Also. Ich hab jetzt mal alles in eine Klasse gepackt und rufe im Dynpro nur noch zcltest=>call_box auf.
In der Klasse erzeuge ich die dialogbox mit

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1.   CREATE OBJECT gr_dialogbox
2.     EXPORTING
3.       width  = 550
4.       height = 400
5.       top    = 50
6.       left   = 150
7.       no_autodef_progid_dynnr = ''.
8.  

GeSHi ©

Funktioniert super.
Wenn ich das jetzt allerdings im PBO von

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. Call screen 100 starting at 4 4

GeSHi ©

mache, dann sieht's allerdings komisch aus...
Aber: die Dialogbox ist da. Mit Splitter.

[Ines3642]

(...) Wenn ich das jetzt allerdings im PBO von

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. Call screen 100 starting at 4 4

GeSHi ©

mache, dann sieht's allerdings komisch aus...
Aber: die Dialogbox ist da. Mit Splitter.

...ohne es jetzt zu testen: ich vermute, Du hast das Dynpro als modales Fenster, über dem die Dialogbox schwebt? Wenn ja: Genau das will ich ja verhindern...

Ich will einfach nur ein modales Fenster.

Natürlich brauche ich immer ein Dynpro. Das modale Fenster soll in diesem Fall eben jenes sein - der Dialogbox-Container wäre eine Ebene zu viel.

[ewx]

So, nu hab ich's auch gerafft...
Aber: Auch das funktioniert bei mir. Also zumindest im Programm, ohne dass der Container extern befüllt wird.
Aber das sollte eigentlich auch kein Problem sein...

[Ines3642]

Vielleicht hatte ich es auch ein wenig mißverständlich formuliert...

Also, so baue ich es aktuell auf:

- es gibt ein Dynpro mit der Nummer 5000, das als modales Fenster definiert ist
- zu dem Dynpro gibt es einen Status, mit dem ich später "blättern" will
- in diesem Dynpro liegt ein Custom-Control namens "CR"
- in meiner Klasse erzeuge ich einen Custom-Container namens "CR" mit DYNNR = 5000 und REPID = Rahmenprogramm des Funktionsbausteins
- nun erzeuge ich einen Splitter-Container, dessen PARENT der Custom-Container ist

Was nun noch innerhalb dieses Splitters geschieht, sollte eh keine Rolle spielen, oder?

Das System erzeugt mir brav alle Objekte und zeigt auch das Dynpro mit dem Status an. Der Splitter-Container ist aber leider nicht da, zumindest nicht sichtbar.

[ewx]

1. Wie übergibst du denn den Container? Hoffentlich mit TYPE REF TO...
2. Lass doch mal REPID und DYNNR komplett weg

[Ines3642]

Die Übergabe ist korrekt... und die Angaben zum Dynpro benötigt der Docking-Container auf jeden Fall.

Allerdings hast Du mich damit auf den Fehler gestoßen: ich erzeuge den Custom-Container bevor das Dynpro gerufen wird. Dadurch, dass ich nun die Objekt-Erzeugung in das PBO geschoben habe, funktioniert es.

Danke!