Men��: Hintergrundfarbe ��ndern / PTC Creo Elements/Direct Drafting
Kitzivofelbra 12. Mrz. 2020, 08:51


Menus.PNG

 
Hallo,

wir haben bei uns im ME10 V17.0 (Wir arbeiten im Pelook 1) unter allen Menüs die 8 gleichen Schaltflächen.
Siehe Anhang, rot Markiert.

Nun möchte ich bei den Schaltfläche 26 1/2/3 die Schriftfarbe und Hintergrundfarbe ändern. (Colo und Bcol einfügen)
Jedoch funktioniert es nicht so, wie bei einem normalen Menü. Könnt ihr mir hier weiterhelfen?

{******************************************************************************}
{ 8-SLOTS unter allen Menüs                                                    }
{******************************************************************************}
Eight_menu_slots 'WEIß '  'WHITE'                                              26 1
Eight_menu_slots 'ROT'    'RED'                                                26 2
Eight_menu_slots 'GELB'    'YELLOW'                                              26 3
Eight_menu_slots ' ' ' '                                                        26 4
Eight_menu_slots 'Voll'    'SOLID Ls_loc 0 Sm_screen_lt '                        27 1
Eight_menu_slots 'Verd.'  'DASHED Ls_loc 0 Sm_screen_lt'                        27 2
Eight_menu_slots 'Sym'    'DOT_CENTER Ls_loc 0 Sm_screen_lt'                    27 3
Eight_menu_slots 'Baut.'  'PHANTOM Ls_loc 0 Sm_screen_lt'                      27 4

DEFINE Eight_menu_slots
  PARAMETER Slot_title
  PARAMETER Slot_command
  PARAMETER Slot_row
  PARAMETER Slot_column
  LOCAL I
  IF ((Slot_row>=26) AND (Slot_row<=27) AND (Slot_column>=1) AND (
    Slot_column<=4))
    LET I ((Slot_row - 26)*4+Slot_column)
    WRITE_LTAB 'Eight_menu_slots_ltab' I 1 1
    WRITE_LTAB 'Eight_menu_slots_ltab' I 2 Slot_title
    WRITE_LTAB 'Eight_menu_slots_ltab' I 3 Slot_command
    CURRENT_MENU Sm_create_1_layout_name
    MENU Slot_title Slot_command Slot_row Slot_column
  END_IF
END_DEFINE


Gruß,
Kitzi

r.hoffmann 12. Mrz. 2020, 10:50

Hallo Kitzi
versuch mal, die Farben des Menus mitzugeben:

Eight_menu_slots COLO0 BCOL1 'WEIß' 'WHITE'  26 1
Eight_menu_slots COLO1 BCOL2 'ROT'  'RED'    26 2
Eight_menu_slots COLO2 BCOL3 'GELB' 'YELLOW' 26 3

usw.
Gruß Robert

r.hoffmann 13. Mrz. 2020, 10:37

Hallo Kitzi,
hier noch mal ausführlich:

DEFINE Eight_menu_slots
{### evtl. anpassen Anfang ###}
  PARAMETER colv
  PARAMETER colh
{### evtl. anpassen Ende ###}
  PARAMETER Slot_title
  PARAMETER Slot_command
  PARAMETER Slot_row
  PARAMETER Slot_column
{### evtl. anpassen Anfang ###}
  MENU colv colh Slot_title Slot_command Slot_row Slot_column
{### evtl. anpassen Ende ###}
END_DEFINE

DEFINE test
{### evtl. anpassen Anfang ###}
  LET Lastmen 'Workbook_macros_1'
{### evtl. anpassen Ende ###}
  IF (I_port)
    Check_i_port
  END_IF
  IF (NOT I_port)
    MENU_BUFFER ON
{### evtl. anpassen Anfang ###}
    CURRENT_MENU Wb_layout_1
{### evtl. anpassen Ende ###}
    CURRENT_SCREEN 1
    T_clear_menu
    Menu_control_icons
{### evtl. anpassen Anfang ###}
    MENU COLO0 BCOL5 CENTER 'Workbook MAC1 '  ''              1 3
    MENU COLO0 BCOL0 'Bezeichnung      DIN'  ''              2 1 {  verzweigt nach  }
    MENU COLO0 BCOL1 'Sechskantschraube 931'  'Skant_schraube' 3 1 {Workbook_macros_1_1}
    MENU COLO0 BCOL1 'Sechskantschraube 933'  'Skt_schraube_2' 4 1 {Workbook_macros_1_2}
    MENU COLO0 BCOL1 'Zylinderschraube  912'  'Zyl_schraube'  5 1 {Workbook_macros_1_3}
    MENU COLO0 BCOL1 'Zylinderschraube 6912'  'Zyl_schraube_2' 6 1 {Workbook_macros_1_4}
    MENU COLO0 BCOL1 'Senkschraube    7991'  'Snk_schraube'  7 1 {Workbook_macros_1_5}
    MENU COLO0 BCOL1 'Sechskantmutter  934'  'Skant_mutter'  8 1 {Workbook_macros_1_6}
    MENU COLO0 BCOL1 'Sechskantmutter  439'  'Skt_mutter_2'  9 1 {Workbook_macros_1_7}
    MENU COLO0 BCOL1 'Scheibe          125'  'Scheibe'      10 1 {Workbook_macros_1_8}
    MENU COLO0 BCOL1 'Federring        127'  'Federring'    11 1 {Workbook_macros_1_9}
    MENU COLO0 BCOL1 'Federring        7980'  'Federring_2'  12 1 {Workbook_macros_1_10}
{### evtl. anpassen Ende ###}
    Eight_menu_slots COLO0 BCOL1 'WEISS' 'WHITE'                            26 1
    Eight_menu_slots COLO3 BCOL5 'ROT'  'RED'                              26 2
    Eight_menu_slots COLO0 BCOL1 'GELB'  'YELLOW'                          26 3
    Eight_menu_slots COLO7 BCOL0 ' '    ' '                                26 4
    Eight_menu_slots COLO3 BCOL5 'Voll'  'SOLID Ls_loc 0 Sm_screen_lt '    27 1
    Eight_menu_slots COLO0 BCOL7 'Verd.' 'DASHED Ls_loc 0 Sm_screen_lt'    27 2
    Eight_menu_slots COLO3 BCOL5 'Sym'  'DOT_CENTER Ls_loc 0 Sm_screen_lt' 27 3
    Eight_menu_slots COLO0 BCOL7 'Baut.' 'PHANTOM Ls_loc 0 Sm_screen_lt'    27 4
  END_IF
END_DEFINE

Habe der Einfachheit halber die Tabellenerstellung in Eight_menu_slots weggelassen.

Getestet, funktioniert.

Gruß
Robert

Kitzivofelbra 20. Mrz. 2020, 12:31

Hallo Robert,

deine erste Antwort, mit dem einfachen einfügen der OLO0 BCOL1 funktioniert nicht.

dDnke für die ausführliche Anleitung.
Hier muss ich mich in einer ruhigen Minute mal in die Programmierung einarbeiten.
Aktuell fehlen mir heir die Kentnisse.

Gruß,
Kitzi