| |
| |
|
Jac
de
Lad | Hallöle, je hab la fois ne simple Frage:
je hatte la fois nen Voir le texte source, avec dem je cela Systemmenü (Wiederherstellen, Maximieren, Verkleinern, Schließen et so...) um weitere Einträge erweitern peux. Den finde je mais pas plus... 
peux mir quelqu'un weiterhelfen??? 
Jac  |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 07.11.2005 ▲ |
|
| |
|
|
Carlo
Keil | allô Jac,
je voulais déjà toujours la fois un RTFM loslassen.
merci pour qui gute Gelegenheit 
je voudrais mais cela F absolument comme fine gelesen savons, car sous qui Vielzahl de Handbüchern et Hilfen
qui je im Laufe derJahre lesen durfte/mußte zählen qui de Profan toujours zur qualitativen Spitzengruppe.
So, ... genug geschwätzt. Du wolltest oui sûrement autre chose lesen:
alors ... siehe Profan8-Aider le chapitre 27.12 - CallBack-Funktionen, là gibt es une Unterpunkt Systemmenü erweitern
(avec Beispielprogramm)
HTH
Carlo |
|
| |
| |
| |
|
|
 | und dir aussi einfacher:
KompilierenMarqueSéparation-Begin-----------------------------------------------------------------
-Header-Datei--------------------------------------------------------
$H Windows.ph
-Konstantendeklaration-----------------------------------------------
Declare False&
False& = 0
Declare True&
True& = 1
-Variablendeklaration------------------------------------------------
Declare WindowName$
Declare Ok%
Declare hWin&, hSystemMenu&
Declare About#
Dim About#, 255
-Init----------------------------------------------------------------
Proc Init
-CreateWindow------------------------------------------------------
WindowStyle 280
WindowTitle Menu Test
Window 100, 100 - 200, 200
hWin& = @FindWindow(Menu Test)
-AddSystemMenu-----------------------------------------------------
hSystemMenu& = ~GetSystemMenu(hWin&, False&)
~AppendMenu(hSystemMenu&, ~MFT_SEPARATOR, 0, 0)
String About#, 0 = &About
~AppendMenu(hSystemMenu&, ~MFT_STRING, 1, About#)
~DrawMenuBar(hWin&)
EndProc
-Main----------------------------------------------------------------
Proc Main
Clear Ok%
WhileNot Ok%
WaitInput
If @MenuItem(-4000)
Ok% = 1
ElseIf @MenuItem(1)
@MessageBox(System Menü Test, About, 64)
EndIf
EndWhile
EndProc
-Done----------------------------------------------------------------
Proc Done
Dispose About#
@DestroyWindow(hWin&)
EndProc
-Main----------------------------------------------------------------
Init
Main
Done
-End-------------------------------------------------------------------class=s4 href='./../../funktionsreferenzen/XProfan/end/'>Fin
|
|
| |
| |
| |
|
|
Peter
Max
Müller | Salut,
et un weiteres Codebeispiel gibt es aussi mitgeliefert chez PRFellow.
Salut |
|
| |
| |
| |
|
|
Jac
de
Lad | merci, mais je habs déjà trouvé!
Jac |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 08.11.2005 ▲ |
|
| |
|
|
Jac
de
Lad | je hatte là la fois n Beispiel , avec dem Je l' X-Button droite dessus im Programme intercepter konnte et so zum Beispiel beim finissons encore un paire DLL freigeben konnte. mais cela finde je aussi pas plus. peux mir quelqu'un weiterhelfen? je sais seulement encore, dass cela irgendwie avec Utilisateur Messages ging...
Jac |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 08.11.2005 ▲ |
|
| |
|
|
Jac
de
Lad | Shit, faux posté. Sollte un eigenständiger Beitrag volonté. Tricolore nochmal gemacht. si mir quelqu'un weiterhalfen peux, s'il te plaît sur den Beitrag Programmende intercepter répondre!
Jac |
|
| |
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 08.11.2005 ▲ |
|
| |
|
(505)
Deutsch
English
Français
Español
Italia