ich möchte nach etlichen Monaten noch einmal ein Problem aufgreifen, das ich hier gepostet habe und leider mit Express++ nicht lösen konnte.
Es geht um das Menü das ich mit Express++ erstelle
Beispiel:
Code: Alles auswählen
#include 'dcdialog.ch'
#include 'xbp.ch'
#include 'appevent.ch'
proc main
local getlist := {} , oclipphoto ,ofoto,obitmap,o1,omenubar
local oanlegen,osehen,odrucken,obuchen,ostammdaten
dc_icondefault(100)
@ 0,0 dcstatic TYPE XBPSTATIC_TYPE_RAISEDBOX size 30,05 ; //48,05 ;
object ofoto ;
PRESENTATION { { XBP_PP_FGCLR, GRA_CLR_DARKRED },{ XBP_PP_BGCLR, GRA_CLR_WHITE } }
cbitmap = "logo.bmp"
dcbitmap cbitmap autoscale center parent ofoto
DCMENUBAR oMenuBar
DCSUBMENU oAnlegen PROMPT "&Neu/Žndern" PARENT oMenuBar
DCSUBMENU oSehen PROMPT "&Sehen" PARENT oMenuBar
DCSUBMENU oDrucken PROMPT "D&rucken" PARENT oMenuBar
DCSUBMENU oBuchen PROMPT "B&uchen" PARENT oMenuBar
DCSUBMENU oStammdaten PROMPT "S&tammdaten" PARENT oMenuBar
DCMENUITEM "Bestellung" PARENT oanlegen ;
ACTION {||runshell("","bestgui.exe",.t.)}
DCMENUITEM "&Referenzteile" PARENT oanlegen ;
ACTION {||lagerefe()}
DCMENUITEM "Teile einer Bestellung neu disponieren" PARENT oanlegen ;
ACTION {||runshell("","bestdisp.exe",.t.)}
DCMENUITEM "&Land" PARENT ostammdaten ;
ACTION {||land()}
* Weitere Punkte ....
@ 06,00 dcpushbutton size 10,1 caption "Ende" ;
action {||dc_readguievent(DCGUI_EXIT_OK,Getlist)}
DCREAD GUI TITLE 'Bestellabwicklung' FIT
RETURN
..
Dieses Aktivieren der Menüleiste soll beim Aufruf des Menüs automatisch passieren. So wie dc_setappfocus() - oder ein automatischer Druck auf die Alt Taste vor dem read ...
Ich komme da nicht weiter und würde mich über jeden Tip freuen.
Danke im Vorraus
Ewald