Textfarbe auf Dynpro z. Laufzeit ändern

[Cecilia1751]

hallo liebe forumgemeinde,

ich würde gerne zur Laufzeit, einen Text farblich modifizieren (Bsp. Schrift normal schwarz und unter bestimmten Umständen rot oder grün oder....)

bisher habe ich noch keine anhaltspunkte gefunden, wie ich auf textfelder auf dem dynpro einwirken kann. Meine mich aber zu erinnern, dass beispielsweise bei der anmeldung im minisap (4.6c), ein text zu lesen ist, der eine andere farbe hat. mit LOOP AT SCREEN könnte man ja nicht benötigte elemente ausblenden, also geht es eigentlich darum, wie ich textfelder in unterschiedlichen farben erzeugen kann.

freue mich auf hinweise, meinungen, tipps, beispiele jeder art!

und sonst?

....weiterhin frohes schaffen!

gruss
gse

[Willy1492]

Mehr als SCREEN-INTENSIFIED zur Laufzeit auf '0' oder '1' zu setzen geht m.E. nicht.

[Laureen5398]

Ich denke auch, Dynpros kann man leider (Gott sei Dank?) nicht so farbenfroh gestalten wie Listen. Aber das kommt bestimmt noch

[Ilja583]

Mit ein wenig Kreativität geht doch fast alles.

Damit es halbwegs sinnvoll funzt, bitte noch den DYNPRO 9000 anlegen mit Folgedynpro 0.
Weiterhin muss auf dem Dynpro ein Custom-Control mit Namen "CC" angelegt werden, dass die Länge 5 und Höhe 1 hat.

Farbe hab ich mal hart auf eine hübsche Kombination gesetzt - kann man aber auch variabler gestalten...


Frage - hat SAP das Control wohl zu diesem Zweck angelegt?

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

1. REPORT z.
2.  
3. TYPES: text4(4) TYPE c.
4.  
5. DATA: ok_code TYPE syucomm,
6.       repid TYPE syrepid,
7.       editor_id TYPE i.
8.  
9. DATA: container TYPE REF TO cl_gui_custom_container,
10.       ed TYPE REF TO cl_gui_rtf_editor.
11.  
12. PARAMETERS: text TYPE text4.
13.  
14. END-OF-SELECTION.
15.   repid = sy-repid.
16.   CREATE OBJECT container
17.     EXPORTING
18.       container_name              = 'CC'
19.        repid                       = repid
20.        dynnr                       = '9000'.
21.  
22.   CREATE OBJECT ed
23.     EXPORTING
24.       parent                 = container
25.     EXCEPTIONS
26.       error_cntl_create      = 1
27.       error_dp_create        = 2
28.       gui_type_not_supported = 3
29.       others                 = 4.
30.  
31.   CALL METHOD ed->create_editor
32.     EXPORTING
33.       left               = 1
34.       top                = 1
35.       height             = 50
36.       width              = 5000
37.      ascii_text         = 'X'
38.     CHANGING
39.       editor_id          = editor_id
40.     EXCEPTIONS
41.       error_cntl_create  = 1
42.       error_editor       = 2
43.       error_adjustment   = 3
44.       error_editor_exist = 4
45.       OTHERS             = 5 .
46.  
47.  
48.   CALL METHOD ed->set_text_colour
49.     EXPORTING
50.       p_red      = 0
51.       p_green    = 0
52.       p_blue     = 255.
53.  
54.   CALL METHOD ed->set_field_colour
55.     EXPORTING
56.       p_red      = 255
57.       p_green    = 255
58.       p_blue     = 0.
59.  
60.   CALL METHOD ed->create_field
61.     EXPORTING
62.       p_name     = 'HUGO'
63.       p_value    = text
64.       p_width    = 1000.
65.  
66.  
67.   CALL SCREEN 9000.

GeSHi ©

[Elanur354]

man kann auch blinkenden text in listen darstellen... aber abgesehen vom programmierspass (und den hatte ich bei deiner lösung!)
ist der nährwert nicht sonderlich gross...

[Cecilia1751]

hallo liebe leutz,

vielen dank für EURE meinungen und tipps. ich bin grad am probieren. ma sehen was (ausser dem spass sonst noch) rauskommt!

gruss

gse