English
Source / code snippets

create exhaust Pop right

 

CompileMarkSeparation
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Menüpunkt (PopUp) ganz rechts erstellen
DEF SetMenuItemInfo(4) ! User32,SetMenuItemInfoA
DEF DrawMenuBar(1) ! User32,DrawMenuBar
DEF &MIIM_TYPE $010
DEF &MFT_RIGHTJUSTIFY $04000
Declare Ende&,MenuItemInfo#,MenuHelp$,MenuHelp#
WindowStyle 27
cls
PopUp DateiIndex 0
AppendMenu 100,Ende
PopUp BearbeitenIndex 1
AppendMenu 101,hier gibt es nichts zu bearbeiten
PopUp DummyIndex 2
AppendMenu 102,Hilfe
MenuHelp$ = Hilfe
Dim MenuHelp#,Len(MenuHelp$) + 1
String MenuHelp#,0 = MenuHelp$
Dim MenuItemInfo#,44
Long MenuItemInfo#,0 = 44------------------SizeOf(..)
Long MenuItemInfo#,4 = &MIIM_TYPE----------Mask
Long MenuItemInfo#,8 = &MFT_RIGHTJUSTIFY---fType
Long MenuItemInfo#,36 = MenuHelp#----------dwTypeData
SetMenuItemInfo(&hMenu,2,1,MenuItemInfo#)Menüpun kt 3 (Index 2) neu setzen
Dispose MenuItemInfo#
Dispose MenuHelp#
DrawMenuBar(%hwnd)
SetFocus(%hwnd)

Whilenot Ende&

    Waitinput

    If MenuItem(100)

        End

    Endif

EndWhile

End
 
07/16/07  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

1.728 Views

Untitledvor 0 min.
Thomas Freier01/30/24
H.Brill02/05/22
Manfred Barei02/29/20
Hans Hermann07/09/14
More...

Themeninformationen

this Topic has 1 subscriber:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie