---

Hallo Me10 user!
Ich habe einige alte (classic) Menüs im Gebrauch, die ich per Symbolleistenmakro in der WUI-Version 11.0b aufrufe.
Die classic Menüs funktionieren einwandfrei, das Problem ist nur, daß sie teilweise außerhalb des Zeichenfensters plaziert werden.
Sie müssen deshalb immer in das Fenster gezogen werden.

Gibt es eine Möglichkeit die Menüs so zu ändern, daß sie an einem bestimmten Platz im Zeichenfenster plaziert werden.

Gruß  Manfred

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Anbei eine Quick_and_Dirty Lösung.
{**************Makro 1*******************************************}
DEFINE Frs_m_find_menu_pos
PARAMETER menu_width_user {Number}
PARAMETER menu_hight_user {Number}
PARAMETER menu_name_user  {String}
INQ_ENV 10
LET pos_ul (INQ 105)
LET pos_or (INQ 106)
LET pos_or_ok (PNT_XY (X_OF (pos_or)-Menu_width_user) (Y_OF (pos_or)-menu_hight_user))
CURRENT_MENU menu_name_user
MENU_STATUS MOVE pos_or_ok
MENU_STATUS MAP 
END 
END_DEFINE
{***************Beispielmenü*************************}
DEFINE Sm_screen_modules
  LET Lastmen 'Sm_screen_modules'
  MENU_BUFFER ON
  CURRENT_MENU Sm_screen_modules_layout_name T_clear_menu_1
  Menu_control_icons
  MENU Colo0 Bcol5 CENTER (DGETTEXT 'me10mac' 'MODULES') '' 1 3
  MENU Colo0 Bcol1 (DGETTEXT 'me10mac' 'DeData Mgt') 'Sm_data_management' 3 1
  MENU Colo0 Bcol1 'Annotation' 'Sm_me10anno_1' 3 2
  MENU Colo0 Bcol1 'Dyn Modelg' 'Switch_to_SolidDesigner' 4 1
  MENU Colo0 Bcol1 'Macros' 'Sm_screen_macro' 6 1
  MENU Colo0 Bcol1 'ME10-NATIV' 'sm_plot_nativ' 8 1
END_DEFINE
{Erklärung
Das erste Makro ermöglicht eine genau Positionierung eines frei wählbaren Menüs.
Beispiel
Frs_m_find_menu_pos 120 406 'Sm_screen_modules'
Ruft das Module Menü oben rechts.
Die Parameter
PARAMETER menu_width_user {Number}
PARAMETER menu_hight_user {Number}
müssen händisch ermittelt werden.
Ich weiss Ich weiss, man kann dies auch errechnen,
werde das Makro am Wochenende dahingehend erweitern.
Hoffe dir trotzdem geholfen zu haben.

MFG

Frank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Frank;
mit dem Beispielmenü funktionierts.
Wenn ich aber mein eigenes Menü einsetze tut sich garnichts. Kein Menü auf dem Bildschirm und keine Fehlermeldung.

Ich habe einiges probiert, aber ohne Erfolg. Nachfolgend habe ich den Anfang des Makros eingefügt.

DEFINE Sm_weko_text
  {LET Lastmen 'Tm_file_1'}
LET Lastmen 'Sm_weko_text'
  {IF (I_port)
    Check_i_port
  END_IF
  IF (NOT I_port)}
    MENU_BUFFER ON
    CURRENT_MENU Sm_file_1_layout_name T_clear_menu Menu_control_icons
 
    MENU Colo1 Bcol4 'KBWE '                '"KBWE"    ' 2 1
    MENU Colo1 Bcol4 'Datum  '                '"25.04.02"' 2 2
    MENU Colo1 Bcol4 'Jahr      '                '"2002"' 3 1
    MENU Colo1 Bcol4 'Datum/Zeit'          '(substr date 1 18)' 3 2
  { MENU Colo1 Bcol4 '51;N 0    ' '"51;N 0            ' 4 1}
  { MENU Colo1 Bcol4 '1;N 0    ' '"1;N 0            ' 4 2}

Gruß  Manfred

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP