| |
|
|
Normann Strübli | :?: :?: :?:
comment important ist Eurer attitude pour cela gute air eines Programmes? bien sûr, es soll simple trop servir et funktionell son, mais pouvoir es avec quelque chose plus Pep pas ungleich plus Amusement un Programme trop servir? ou bien lohnt qui Aufwand pas et ist unnütze Spielerei?
avec cela mon je maintenant pas irgendwelche ausgefallenen Fensterformen ou bien bunten Grafiken im Hintergrund. Schlicht sollte es déjà son et dem Anwender un gewohntes Bild bieten, schließlich soll il sich oui vite zurechtfinden.
comme mögliches Beispiel hab je la fois un Popupmenü herangezogen. Soll so comment un menu im XP-Style air - bof. Ladet Euch cela Beispiel doch la fois runter, ensuite peux on cela peut-être. besser comprendre
on möge mir verzeihen cela qui Code pas wirklich bien auskommentiert ist, is oui seulement zum essayer. Aussi pourrait Andreas Miethe qui Grundstruktur bekannt vorkommen, qui hab je de seiner XPRFDEMO geklaut
je veux cela Beispiel aussi encore aufarbeiten et einfacher faire car es manquer encore Elemente comment un Subpopupmenü ou bien un einfacher Séparateur. Verbesserungsvorschläge sommes aussi gerngesehen Evtl. Packe je cela ganze ensuite dans un Include... mais erstmal Fragen si sich qui Aufwand lohnt.
Nebenbei serait mich intéresser si cela Beispiel chez chaque fonctionne, peux es chez mir seulement sous XP testen.
Achja, sans Xprofan fonctionne là malheureusement nix
écrit mir Eure attitude |
|
|
| |
|
|
|
Rolf Koch | Hi Normann, total GEIL! je personnelle bevorzuge solche grafischen Spielerein. peut-être hat on es dem Roc déjà angemerkt je suis baff, enfin la fois une Grundlage, quelle qui altbackenen Menüs verwirft - qui finde je, sommes mittlerweile quelque chose comme de fastidieux. SUPER malheureusement hab je aussi XP et voilà oui logisch, qui es comment chez Dir fonctionne. NORMANN MACH WEITER DAMIT |
|
|
| |
|
|
|
Ragnar Rehbein | hi
habe la fois une kurzen test sous w2k et win98 gemacht. w2k -> alles ok oui c'est ca comment chez XP win98 -> funktioniert grundsätzlich, cependant volonté qui farben qui la ligne dans qui sich qui souris est pas hervorgehoben. seulement qui schrift wird sais. qui icons avons d'abord alle qui la couleur comment cela hervorgehobene icon. chez einmaligem herüberfahren wird vous ensuite heller et ändert sich ensuite seulement encore si le souris drüberfährt.
r.r. |
|
|
| |
|
|
|
| c'est super!!! qui kleinen Symbole à gauche sommes aba un paire pixel trop hoch, ou bien? je mon chez mir sommes qui pas mittig.
iF |
|
|
| |
|
|
|
Dietmar Horn | Salut,
habe kurz sous ME getestet.
Ergebnis: -> comment chez r.r. sous win98
Dietmar |
|
|
| Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...] Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 10.06.2004 ▲ |
|
|
|
|
Normann Strübli | merci erstmal, je hab là wohl encore un peu trop 1faire...
je hoffe je trouve qui Zeit am WE et werde cela ganze la fois komplett réviser soll oui später aussi simple einzubinden son
Den faute avec den Farben werd je ensuite wohl aussi encore trouver je denke cela ganze est un Problem avec qui Transparenz |
|
|
| |
|
|
|
Frank Abbing | Hi,
alors je trouve, cela sieht encore irgendwie faux aus (siehe Screenshot).
- qui weiße Hintergrundsfarbe stimmt scheinbar pas. - à gauche près de den Icônes ist zuviel leerer place. - chez markierte Entrées ist qui Text pas sichtbar. - Einträge, qui Schonmal markiert étions, volonté à gauche 1-2 Pixel plus large |
|
|
| |
|
|
|
Normann Strübli | [quote-part:f4279d66e3] alors je trouve, cela sieht encore irgendwie faux aus (siehe Screenshot). [/quote-part:f4279d66e3] eh, tu as oui so droite... [quote-part:f4279d66e3] qui weiße Hintergrundsfarbe stimmt scheinbar pas. [/quote-part:f4279d66e3] Doch, sais ist eigentlich richtig. Votre anderen Menüs müssten doch aussi so son ou bien? peux oui la fois dans deiner Systemsteuerung qui la couleur pour Menüs ajuster ensuite ist qui aussi anders [quote-part:f4279d66e3] à gauche près de den Icônes ist zuviel leerer place. [/quote-part:f4279d66e3] Yep! , fehlt cela Bild. Sollte eigentlich so air comment unten. [quote-part:f4279d66e3] chez markierte Entrées ist qui Text pas sichtbar. [/quote-part:f4279d66e3] cela besagte Problem avec qui Transparenz. [quote-part:f4279d66e3] Einträge, qui Schonmal markiert étions, volonté à gauche 1-2 Pixel plus large[/quote-part:f4279d66e3] Frechheit! mais merci.
comment déjà erwähnt werde je mich bemühen (cela klingt toujours irgendwie négative ) cela ganze am Wochenende trop bereinigen et une vernünftige Include trop bricoler qui aussi ausreichend dokumentiert ist. |
|
|
| |
|
|
|
Normann Strübli | Hilfäää,
mannomann is cela compliqué pour une comment mich! je versuche maintenant depuis Stunden mittels qui API-Funktion GetMenuItemInfo qui paramètre eines ausgewählten Menüpunktes trop bestimmen mais qui Funktion liefert mir toujours 0 zurück.
mais la fois lente zum nachvollziehen...
Erstmal Struktur erstellen... KompilierenMarqueSéparation cela était Schonmal joli simple... alors plus:
Aufruf qui Funktion:
BOOL WINAPI GetMenuItemInfo( HMENU hMenu, UINT uItem, BOOL fByPosition, LPMENUITEMINFO lpmii );
qui Funktion erwartet comme ersten paramètre cela Handle des Menüs et comme zweiten qui ID. qui Dritte paramètre gibt seulement à si es sich chez dem zweiten paramètre um une Positions-ID des Menüeintrages ou bien une Menu ID négoce.
alors hab je folgendes gemacht: WM_Menuselect wird gesendet si qui Anwender un Eintrag auswählt hat. qui eigene Struktur Itemselect contient seulement cela Handle des Menüs et den gewählten Eintrag. KompilierenMarqueSéparation So maintenant kenne je cela Handle des Menüs et qui ID. Theoretisch peux je maintenant alors qui Funktion appel. KompilierenMarqueSéparation maintenant gibt mir qui Funktion allerdings seulement un nüllchen zurück
Hoffe la fois nie gemacht pas trop compliqué et knapp erklärt, mais vous êtes oui alle entier joli helle |
|
|
| |
|
|
|
Normann Strübli | Ok, ensuite aller wir cela la fois anders à alors maintenant VOLL KONKRET avec mini Beispiel.
qui Funktion GetMenuItemInfo ist weder dans meiner API-BIBLE encore dans meinem geliebten Petzold dokumentiert, quoique vous déjà depuis Win95 vorhanden ist
oui braucht car ne...aucune homme cet überaus notwendige Funktion???
KompilierenMarqueSéparationHeader-Dateien
$H windows.ph
$H structs.ph
Struct MenuItemInfo = ~TMenuItemInfoA
Struktur sieht so aus:
cbSize%, fMask%, fType%, fState%, wID%, hSubMenu&, hbmpChecked&, hbmpUnchecked&, dwItemData&, dwTypeData&, cch%
Declare MenuItemInfo#
Declare hmenu&,Text$,Retval&
DIM MenuItemInfo#,MenuItemInfo
CLS
PopUp "&Datei" Erstmal Menü erstellen
AppendMenu 100,"irgendwas"
AppendMenu 101,"irgendwie"
hmenu& = ~Getmenu(%hwnd) her mit dem Menü-Handle
So zwischendurch mal was aus ner VB-Hilfe was den Aufruf von Getmenuiteminfo anbelangt:
Funktions Parameter:
hMenu
Erwartet den Handle eines Existierenden Menüs. (also hmenu&)
uItem
Erwartet einen ID der den Menüeintrag Identifiziert. Dies kann ein Positions-ID oder ein Menü-ID sein,
je nach dem was in "fByPosition" angegeben wird. (also z.B. 100)
fByPosition
Wird hier ein wert "ungleich 0" angegeben so erwartet die Funktion bei "uItem" den Positions-ID des
Menüeintrages, andernfalls muss bei "uItem" der Menü-ID angegeben werden. (also hier 1)
lpmii
Erwartet eine MENUITEMINFO-Struktur die voreingestellt ist um die Informationen zu Empfangen.
Zu diesem Zweck müssen die "cbSize, fMask, dwTypeData und cch" Optionen der Struktur gesetzt sein
um erfolgreich die Informationen zu ermitteln. (also die Struktur MenuitemInfo#)
Also erstmal cbSize, fMask, dwTypeData und cch mit Werten bestücken:
Text$ = @space$(256)
MenuitemInfo#.cbSize% = @SizeOf(Menuiteminfo#) Größe der Struktur
MenuitemInfo#.fMask% = ~MIIM_STATE | ~MIIM_TYPE Das was ich an "Info" haben will
MenuitemInfo#.dwTypeData& = @addr(Text$) Hier bin ich mir nicht sicher wird hier die Adresse der Variablen
erwartet???
MenuitemInfo#.cch% = 256 Länge des Menü-Item textes
SO JETZT SOLLTE ES DOCH KLAPPEN !?
RETVAL& = ~GetMenuItemInfo(Hmenu&,100,1,Menuiteminfo#)
Print "GetmenuitemInfo Returns:" ,RetVal&
If Retval& = 0
Print "War wieder nix!"
else
Print "Ich liebe Dich!"
endif
waitinput
|
|
|
| |
|
|
|
Andreas Miethe
| un kleine Anregung ? KompilierenMarqueSéparation $H windows.ph
$H structs.ph
Struct MenuItemInfo = cbSize&, fMask&, fType&, fState&, wID&, hSubMenu&, hbmpChecked&, hbmpUnchecked&, dwItemData&, dwTypeData&, cch&
Declare MenuItemInfo#
Declare hmenu&,Text$,Retval&
DIM MenuItemInfo#,MenuItemInfo
CLS
PopUp "&Datei" Erstmal Menü erstellen
AppendMenu 100,"irgendwas"
AppendMenu 101,"irgendwie"
hmenu& = ~Getmenu(%hwnd) her mit dem Menü-Handle
Text$ = @space$(256)
MenuitemInfo#.cbSize& = SizeOf(Menuiteminfo#)
MenuitemInfo#.fMask& = ~MIIM_STATE | ~MIIM_TYPE
MenuitemInfo#.fType& = ~MFT_STRING
MenuitemInfo#.dwTypeData& = addr(Text$)
MenuitemInfo#.cch& = 256Buffer-Groesse für Text$
RETVAL& = ~GetMenuItemInfo(Hmenu&,100,0,Menuiteminfo#)
Print "GetmenuitemInfo Returns:" ,RetVal&
If Retval& = 0
Print "War wieder nix!"
else
Print "Ich liebe mich!"
Print Trim$(Text$)
endif
waitinput
|
|
|
| Gruss Andreas ________ ________ ________ ________ _ Profan 3.3 - XProfanX2 Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher Homepage : [...] | 13.06.2004 ▲ |
|
|
|
|
Normann Strübli | Arrghh!
non, et je Trottel hab mich toujours sur qui Struktur dans qui Windows.ph sortir de!
mais qui einzige Unterschied mais est cela dans qui Headerdatei partiellement integer statt longint. stehen
mais dans qui Profan hilfe steht doch:[quote-part:89b0dfcc1a] Integervariablen peut dans einem 32-Bit-System qui gleichen Werte comment Longint-Variablen avons [/quote-part:89b0dfcc1a] alors pourquoi funzt cela avec cela pas? Ist cela un faute dans qui Windows.ph?
aussi seulement nochmal so zum Verständnis...
sur jedenfall Andreas je DANKE DIR!!!
|
|
|
| |
|
|