XProfan

Français

Andreas
Koch

allô zusammen,

probablement stehe je simple seulement sur dem Schlauch, peut-être geht's aussi simple pas. und dir tout autor, dans einem Profanprogramm entre verschiedenen Sprachen hin et herschalten trop peut. Pour normale Buttons, Edits, Textfelder et Tabs ist cela aussi ne...aucune Problem. qui peux je avec settext simple changement. Es hakt chez Menüeinträgen (Popup et Appendmenu) et Toolbarbuttons (Addtextbutton). peux mir là quelqu'un weiterhelfen?

merci et schönen Salut

Andreas Koch

XProfan X2
Win7 Enterprise, SP1, Xeon X5670 @ 2.93GHz

31.10.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Menüs musst du avec RemoveMenue entfernen et récente aufbauen. je crois, per API peux on aussi neue Menütexte mettons mais unkomplizierter ist es, vous simple récente trop erstellen. Votre Popup-Menüs (chez Mausklick à droite comme Kontextmenü) musst du ensuite enttsprechend avec andersprachigen Texten erzeugen. qui volonté oui sowieso toujours aktuell erzeugt, wohin vous aufgerufen volonté.

Zur Toolbar fällt mir grad rien un, quoi einem SetText entspricht.. normalement vous êtes oui là, um justement keinen Text trop verwenden. là wäre es ensuite sinnvoll, den jeweiligen Tooltip avec SetText anzupassen.
il y a wohl une Message, um den Text auszulesen, mais aucun, um Text trop changement. on pourrait ihn chez besoin entfernen et Toolbar("InsertButton",...) récente erzeugen. Pour cette ist mais wieder une la quantité API nötig.

ici encore un paire Procs:
Kompilieren Marque Séparation

SubProc ToolBar.GetButtonText

    Parameters hTB&,ID%
    Case ID% > 0:ID% = ID% * -1
    Declare T$
    T$ = MkStr$("\z",100)
    SendMessage(hTB&,~TB_GETBUTTONTEXT,ID%,Addr(T$))
    Return Trim$(T$)

EndProc

SubProc ToolBar.DeleteButton

    Parameters hTB&,Index%
    Return SendMessage(hTB&,~TB_DELETEBUTTON,Index%,0)
    'entfernt Button mit Index% (nicht ID%!) Separatoren werden mitgezählt!

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

31.10.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Andreas
Koch

merci pour deine Antwort, je peux cela maintenant justement pas testen et devrait jusqu'à lundi attendre. Mir tomber mais spontan 2 weitere Fragen un:

- comment spreche je chez RemoveMenu qui Menüüberschriften, qui avec Popup erzeugt volonté, à? RemoveMenu erwartet oui une Menünummer et cela Popupmenü hat meines Wissens aucun numéro.

-Relatif à la show/hide button devrait je hinkriegen. chez den Textbuttons peux je zur Not mais aussi sur den Text verzichten. tu écris, dass on den Tooltip avec settext anpassen peux. comment viens je car à den Tooltip ran? Schließlich bekomme je chez dem Befehl toolbar("Addbutton",....) ne...aucune Handle de dem Ding.

Schönen Salut

Andreas Koch

XProfan X2
Win7 Enterprise, SP1, Xeon X5670 @ 2.93GHz

31.10.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Georg
Teles

Guten soir,

pour menu gibt es ModifyMenu [...]

et pour Toolbar vllt. avec DestroyWindow(hToolbar&) trop effacer et récente trop définir ?

XProfan X2
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

03.11.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Dank qui neuesten Erweiterungen peux on maintenant einzelne Buttons entfernen et récente insérer: [...]

Pour qui Toolbar gibt es une Tooltip-Speicherbereich dans qui Buttonstruktur. je sais im Moment aussi pas, si et comment on puis Zugriff conservé peux.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

03.11.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Andreas
Koch

allô nochmal,

inzwischen konnte je un paire Sachen ausprobieren. qui Befehl ModifyMenu funktioniert. Allerdings musste je ihn quelque chose abändern, avec cela qui Menüpunkt aussi encore sur qui gleiche numéro anspricht. Den Quellcode habe je ici angefügt.
Kompilieren Marque Séparation

Proc ChangeMenu

    Parameters m%,nr%,Pos%,Text$, MenuItem&
    ' m%, bei 0 ist das hMenu gemeint, bei 1 das hSubMenu
    ' nr%, die Position des hMenu bzw. d MenuItem
    ' Pos% gibt die Position an für das hSubMenu an
    ' Text$ enthält den neuen Text
    ' Menuitem& enthält die Menünummerierung
    Declare hSubMenu&, Menu#
    Dim Menu#,255
    hSubMenu& = ~GetSubMenu(&hMenu,Pos%)
    String Menu#,0=Text$
    Case m%=0 : ~ModifyMenu(&hMenu,nr%,~MF_BYPOSITION | ~MF_STRING,MenuItem&,Menu#)
    Case m%=1 : ~ModifyMenu(hSubMenu&,nr%,~MF_BYPOSITION | ~MF_STRING,MenuItem&,Menu#)
    ~DrawMenuBar(%hwnd)
    Dispose Menu#