XProfan

English

E.T.

Simples example:

Declare end%
CLS
PopUp "&Programm"
AppendMenu 101,"&blau"
AppendMenu 102,"&rot"
AppendMenu 103,"&grün",0
Separator
AppendMenu 109,"&Ende"
Clear end%

WhileNot end%

    If @MenuItem(109)

        end% = 1

    EndIf

EndWhile

End

The "green" can not by keyboard select.
too with a valid Icon-lever happens the same. once the Menu-entry one Icon (or even with "0" no Icon) allocated becomes, reacted this not any more on The Button (in the Bsp. g)

For this becomes but with Menu-selection by mouse the "g" underlined...

XProfan X3
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

01/31/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Georg
Teles

good tommorrow,

ifs already circa Menu goes, fell me on, that itself the Style the Menu changes if Icons applied go --- and the too at Trackmenu (TrayIcon)

without Icons (left) and once Icons applied go (right, here now the Example of E.T. with 0 as Icon lever)

question: can the Style reset go after Icons hereon apply get or. at produce the Menu festgelgt go ?

Hello

XProfan X3
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

01/31/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

this is a Windowssache: with Userdrawn-Menu-Items functions with the the Accelerator-Key (the unterstrichenen letters) not. in the drop sends windows a Message on The application, that one ungültiger Menu-character pressed watts. These contains of course the lever the current Menüs and the squeezed letters, not but the chosen MenuItem. the should The application self manage, circa it To detect.

in principle could I the something vereinfachern, because I in this drop suitable System-Variables with Menühandle and letters bestücke.

Greeting
Roland

XProfan X3
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

01/31/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

E.T.

even on the side so noticed, I The Icons "killen" wished (keyboard is me first importent How "bunte Bildchen"):

@Set("MenuTextCol", n)
clutching only, if too one Icon (likes it too 0 his) staid becomes:
functions:

Compile Mark Separation

@Set("MenuTextCol", $0000FF)
AppendMenu 199,"Programm &beenden",0

functions not:

Compile Mark Separation

@Set("MenuTextCol", $0000FF)
AppendMenu 199,"Programm &beenden"

only disturbing me now again the Style "With Icon" one bissel, as well as Georg already anmerkte...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

02/03/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

from Help:

"Bei 0 becomes no Icon used, but the anwenderdefinierten colours (s.u.), -1 works so, as were it whom Parameter not, d.h. then go The Standardmenüs akin."

meant is: with -1 or without whom Icon-Parameter go The standard-Menüs akin. with whom standard-Menüs can nothing tuned go, only whom Ownerdraw-Menüs. means only, if the Icon-Parameter 0 (no Icon) or larger is.

for the standard-Menüs there no Einstellungsmöglichkeiten except those over The Systemsteuerung, The Windowsweit count.

gives it a Iconparameter 0 or larger, go Ownerdraw-Menüs using, d.h. not windows, separate the program (here: the XProfan-Interpreter or. The XProfan-Runtime) traces the Menüs self. only then wirken means The Menu-Settings through Set("Menu...",...).

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

02/03/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

here shining XProfan nothing more report to. therefore: Done.

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

08/15/17 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

E.T.

I fetch the Topic time again high

weil's me somehow "alle macht"

Why gibt's here no "Stinknormales" Menu More, so without "Bunte klick-Bildchen" (as Dietmar horn always ausdrückte) , for with the keyboard To valet ??
ought to this really on the Windoof lying ??

But if already the Icon-Freiraum to the Menu-entry his must, Why funzen then not wenigsten The HotKeys ??

others (not-Profan-programs) can it still too....

Compile Mark Separation

CLS
PopUp "&Datei"
AppendMenu 100,"&Laden"
AppendMenu 101,"&Speichern"
AppendMenu 102,"Speichern &als"
Separator
SubPopUp "Datei&typ"
AppendMenu 110,"Exe"
AppendMenu 120,"Com"
EndSub
AppendMenu 103,"&Ende"
Waitinput
end

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

02/28/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

The Hotkeys functions, How dwelt, but:

with neueren Windowsversionen go tappt im dunkeln defaultmäßig ausgeblendet and first with pressing the ALT-Button activate. and already works The Tastaturbedienung. This is too for others windows-programs and not only for with XProfan written. too the Freiraum for Icons to the Menütext comes not of XProfan, separate Windows.

call time Notepad on. the same Appearance the Menüs. the same behaviour.

Greeting
Roland

XProfan X3
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

02/28/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

E.T.

thanks, Roland, for speedy response.
I give To, never probiert to have, time on The ALT-Button To pressing and the Menu To begutachten

. Have well simply not so of/ one nonsense of Windoof calculated.

... hm, in Firefox are The Hotkeys always underlined, How I strain see. time rausbekommen, where the ploy lying

the Appearance with the (missing) Icon's is naturally thick

XProfan X3
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

03/01/18 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote