XProfan

Español

Andreas
Koch

¡Hola zusammen,

vermutlich stehe Yo simplemente sólo en el Schlauch, tal vez geht's auch simplemente no. Lo va por lo tanto, en un Profanprogramm zwischen verschiedenen Idiomas hin y herschalten a puede. Für normale Buttons, Edits, Textfelder y Tabs es el auch kein Problema. El kann I, con settext simplemente ändern. Lo hakt en Menüeinträgen (Popup y Appendmenu) y Toolbarbuttons (Addtextbutton). Kann me como alguien weiterhelfen?

Gracias y schönen Saludo

Andreas Koch

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

31.10.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Menüs musst du con RemoveMenue entfernen y neu aufbauen. Yo glaube, por API puede ser auch neue Menütexte conjunto aber unkomplizierter es, ellos simplemente neu a redactar. Su Popup-Menüs (en Mausklick rechts como Kontextmenü) musst du entonces enttsprechend con andersprachigen Texten erzeugen. El voluntad sí sowieso siempre aktuell producido, wo ellos aufgerufen voluntad.

A Toolbar fällt me grad nichts una, qué una SetText entspricht.. Normalerweise son ellos sí como, en gerade no Texto utilizarse. Como wäre lo entonces sinnvoll, el jeweiligen Tooltip con SetText anzupassen.
Lo son wohl una Message, en el Texto auszulesen, pero no, en Texto a ändern. Man podría ihn en Bedarf entfernen y Toolbar("InsertButton",...) neu erzeugen. Dafür es aber otra vez una Menge API nötig.

Hier todavía unos pocos Procs:
Kompilieren Marca Separación

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 Zitat

Absatzweise Cita Zeilenweise Cita

Andreas
Koch

Gracias para deine Antwort, Yo puede ahora gerade no testen y debería a Montag warten. Mir fallen aber spontan 2 weitere Fragen una:

- Como spreche Yo en RemoveMenu el Menüüberschriften, el con Popup producido voluntad, a? RemoveMenu esperado sí una Menünummer y el Popupmenü ha meines Wissens no Nummer.

-Relacionado con la show/hide button debería Yo hinkriegen. En el Textbuttons kann Yo a Not aber auch en el Texto verzichten. Usted schreibst, dass uno el Tooltip con settext adaptar kann. Como komme Yo porque a el Tooltip ran? Schließlich bekomme Yo en el Befehl toolbar("Addbutton",....) kein Handle de el Ding.

Schönen Saludo

Andreas Koch

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

31.10.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Teles

Bueno Abend,

para Menü hay ModifyMenu [...]

y para Toolbar vllt. con DestroyWindow(hToolbar&) a löschen y neu a definieren ?

XProfan X2
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

03.11.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Dank el neuesten Erweiterungen puede ser ahora einzelne Buttons entfernen y neu einfügen: [...]

Für el Toolbar hay una Tooltip-Speicherbereich en el Buttonstruktur. Yo weiß en el Moment auch no, si y cómo darauf Zugriff obtener kann.

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

03.11.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Andreas
Koch

¡Hola otra vez,

inzwischen podría Yo unos pocos Sachen ausprobieren. Der Befehl ModifyMenu funktioniert. Aunque musste Yo ihn algo abändern, así el Menüpunkt auch todavía en el gleiche Nummer anspricht. Den Quellcode Yo hier angefügt.
Kompilieren Marca Separación

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#