PopUp Texte ausrichten wie

[Velindos]

Hallo Leute,
wenn ich in mein PopUpMenu die Tastenkombinnationen mit Eingebe sieht das schrecklich aus! Wobei im PB-Editor diese alle schön rechts sind. Wie geht das?

Code: Alles auswählen

; Editorgadget mit PopUpMenue
EnableExplicit
Enumeration
  #Window
  #RTF_Editor_Gadget
  #S_PopUp_TextZoom            ;CreatePopupMenu
  #S_PopUp_TextZoom_Rueckgangig
  #S_PopUp_TextZoom_Ausschneiden
  #S_PopUp_TextZoom_Kopieren
  #S_PopUp_TextZoom_Einfuegen
  #S_PopUp_TextZoom_Loeschen
  #S_PopUp_TextZoom_Markieren
EndEnumeration
Global Window_0
Global Editor_0
Procedure Windows_PopUpNotiz()
EndProcedure
Procedure Windows_Callback(hwnd, uMsg, wParam, lParam) 
  Protected result
  result = #PB_ProcessPureBasicEvents 
  Select uMsg 
    Case #WM_CONTEXTMENU
      If GadgetID(#RTF_Editor_Gadget) = wParam
        DisplayPopupMenu(#S_PopUp_TextZoom, WindowID(#Window))
      EndIf       
      ProcedureReturn #PB_ProcessPureBasicEvents
  EndSelect 
  ProcedureReturn result 
EndProcedure 
; Procedure OpenWindow_0(x = 0, y = 0, width = 210, height = 110)
;   Window_0 = OpenWindow(#Window, x, y, width, height, "", #PB_Window_SystemMenu)
Window_0 = OpenWindow(#Window, 0, 0, 210, 110, "", #PB_Window_SystemMenu)
If CreatePopupMenu(#S_PopUp_TextZoom)
  MenuItem(#S_PopUp_TextZoom_Markieren, "Alles markieren   [Strg+A]")
  MenuBar()
  MenuItem(#S_PopUp_TextZoom_Ausschneiden, "Ausschneiden     [Strg+X]")
  MenuItem(#S_PopUp_TextZoom_Kopieren, "Kopieren              [Strg+C]")
  MenuItem(#S_PopUp_TextZoom_Einfuegen, "Einfügen              [Strg+V]")
  MenuItem(#S_PopUp_TextZoom_Loeschen, "Löschen               [Strg+D]")
  MenuBar()
  MenuItem(#S_PopUp_TextZoom_Rueckgangig, "Rückgängig            [Strg+Z]")
EndIf
Editor_0 = EditorGadget(#RTF_Editor_Gadget, 10, 10, 190, 90)
SetWindowCallback(@Windows_Callback())
; EndProcedure
; Procedure Window_0_MyEvents(ProEvent)
;  Select ProEvent
;     Case #PB_Event_CloseWindow
;       End
;       ProcedureReturn #False
;     Case #PB_Event_Menu
;       Select EventMenu()
;       EndSelect
;     Case #PB_Event_Gadget
;       Select EventGadget()
;       EndSelect
;   EndSelect
;   ProcedureReturn #True
; EndProcedure
; OpenWindow_0()
Define MyEvent.l , ProEvent.I
Repeat
  MyEvent.l = WaitWindowEvent()
  If MyEvent = #PB_Event_Gadget 
    ;       OpenWindow_0(MyEvent)
    Select ProEvent
      Case #PB_Event_CloseWindow
        End
        ;       ProcedureReturn #False
      Case #PB_Event_Menu
        Select EventMenu()
        EndSelect
      Case #PB_Event_Gadget
        Select EventGadget()
        EndSelect
    EndSelect
  EndIf
Until MyEvent = #PB_Event_CloseWindow

Innerhalb des Codec befindet sich der Code der mir beim Formulargenerator gegeben wird.

Global ...
Procedure Window ..
Procedure Events ..

Habe einige Versuche gemacht! Wie bringe ich das mit kurzen Teilen zum laufen, sprich wie integriere ich meinen Windows START?

Gruss ... Velindos

[RSBasic]

Mit #TAB$ kannst du das einrücken.

[Velindos]

Hallo RSBasic,
Funzt auf anhieb, DANKE!
Nebenbei, hasst du schon mit den integrierten Formulargenerator Erfahrung?
Bzgl.meiner zweiten Frage, wie integriere ich die Sache zu einen lauffähigen Programm?

Nochmals DANKE für deine Hilfe, war mir ein grosses Anliegen, sieht einfach besser aus!

Gruss ... Velindos