(469)  S'inscrire

Français
Forum

Probleme avec Set("Fastmode",1)

 

Jac
de
Lad
Hallöle,

je hab la fois dans qui XProfan-Aider gestöbert et suis sur une Possibilité gekommen, cela Systemmenü eines Programms trop erweitern. ensuite habe je encore quoi gespostet...ensuite kam quoi zurück...jedenfalls habe je maintenant folgendes Problem:

si je cela einbaue (avec Systemmenü et so) ensuite réagir quelques Buttons sur Anklicken zweimal. cela liegt à Set(FastMode,1), soviel steht fest. maintenant mon Frage: peux on cela avec dem Systemmenü so realisieren, dass qui Fastmode pas eingeschaltet volonté muss, bzw. comment peux je cela geisterhafte Doppelklicken verhindern?

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
10.11.2005  ▲
 



ici serait es très aider si du un Minimalbeispiel posten könntest.
 
10.11.2005  ▲
 




Jac
de
Lad

KompilierenMarqueSéparation
 $H C:ProgrammeXProfan 8.0Includewindows.ph
 $H C:ProgrammeXProfan 8.0Includemessages.ph
 $H C:ProgrammeXProfan 8.0Includecommctrl.ph

Proc SystemMenu

    Parameters hWnd&,Message&,wParam&,lParam&

    If Equ(Message&,~WM_SYSCOMMAND)

        If Equ(wParam&,5000)

            Messagebox("Programm 1.0","Message",64)

        endif

    EndIf

    Return ~CallWindowProc(OldWndProc&,hWnd&,Message&,wParam&,lParam&)

EndProc

declare up&,down&,oldwndproc&,up%,Plugin&[64],PCount%
windowstyle 26
WindowTitle "Testprogramm"
window 100,100-800,632
Set("FastMode",1)
~AppendMenu(~GetSystemMenu(%hWnd,0),~MFT_SEPARATOR,0,0)
~AppendMenu(~GetSystemMenu(%hWnd,0),~MFT_STRING,5000,"Über Programm 1.0")
OldWndProc&=~GetWindowLong(%hWnd,~GWL_WNDPROC)
~SetWindowLong(%hWnd,~GWL_WNDPROC,ProcAddr("SystemMenu",4))
up&=CREATEBUTTON(%HWnd,"/",1,1,194,20)
down&=CREATEBUTTON(%HWnd,Add$(Chr$($5C),Chr$($2F)),1,580,194,20)

whileloop 0,13

    Plugin&[&Loop]=Control("Button",Str$(&Loop),Add($40008088,If(LT(PCount%,9),$10000000,0)),2,Add(Mul(62,&Loop),22),194,60,%HWnd,Add(1001,&Loop),%Hinstance)
    Inc PCount%

wend

while 1

    EnableWindow up&,Neq(up%,0)
    EnableWindow down&,GT(Sub(Sub(PCount%,9),up%),0)
    waitinput

    if GetFocus(up&)

        Hochscrollen
        ShowWindow(Plugin&[Sub(up%,1)],1)
        Dec up%

        Whileloop up%,Add(up%,8)

            SetWindowPos Plugin&[&Loop]=2,Add(22,Mul(62,Sub(&Loop,up%)))-194,60

        wend

        ShowWindow(Plugin&[Add(up%,9)],0)

    elseif GetFocus(down&)

        Runterscrollen
        ShowWindow(Plugin&[up%],0)

        Whileloop up%,Add(up%,8)

            SetWindowPos Plugin&[Add(&Loop,1)]=2,Add(22,Mul(62,Sub(&Loop,up%)))-194,60

        wend

        ShowWindow(Plugin&[Add(up%,9)],1)
        Inc up%

    end
Wend

je hoffe, tu peux quoi avec cela anfangen...seulement encore fois le Problemstellung:

si je Set(FastMode,1) weglasse stirbt cela Prog beim hinzufügen des Eintrags Über Programme 1.0.
si je es mais einbringe funzt cela, doch cela Scrollen sur up& et down& klickt toujours zweimal.

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
11.11.2005  ▲
 




Jac
de
Lad
Verdammt! peux mir quelqu'un dire, comment Je l' Voir le texte source richtig Montrer lasse? je kriegs simple pas cuit au four!!!

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
11.11.2005  ▲
 



LOl
KompilierenMarqueSéparation - je verbesser Dein Posting la fois...

Incidemment - tu peux Deinen Postings doch aussi selbst Travailler...
 
11.11.2005  ▲
 



Wehe es behauptet einer es sei Beschiss.
KompilierenMarqueSéparation
 {$compiler p8}
 {$runtime p8}
 $H Windows.ph
 $H Messages.ph
 $H Commctrl.ph

Proc Systemmenu

    Parameters Hwnd&,Message&,Wparam&,Lparam&

    If Equ(Message&,~Wm_syscommand)

        If Equ(Wparam&,5000)

            Messagebox("Programm 1.0","Message",64)

        Endif

    Endif

    Return ~Callwindowproc(Oldwndproc&,Hwnd&,Message&,Wparam&,Lparam&)

Endproc

Declare Up&,Down&,Oldwndproc&,Up%,Plugin&[64],Pcount%
Windowstyle 26
Windowtitle "Testprogramm"
Window 100,100-800,632
Set("FastMode",1)
~Appendmenu(~Getsystemmenu(%Hwnd,0),~Mft_separator,0,0)
~Appendmenu(~Getsystemmenu(%Hwnd,0),~Mft_string,5000,"Über Programm 1.0")
Oldwndproc&=~Getwindowlong(%Hwnd,~Gwl_wndproc)
~Setwindowlong(%Hwnd,~Gwl_wndproc,Procaddr("SystemMenu",4))
Up&=Createbutton(%Hwnd,"/",1,1,194,20)
Down&=Createbutton(%Hwnd,Add$(Chr$($5C),Chr$($2F)),1,580,194,20)

Whileloop 0,13

    Plugin&[&Loop]=Control("Button",Str$(&Loop),Add($40008088,If(Lt(Pcount%,9),$10000000,0)),2,Add(Mul(62,&Loop),22),194,60,%Hwnd,Add(1001,&Loop),%Hinstance)
    Inc Pcount%

Wend

While 1

    Enablewindow Up&,Neq(Up%,0)
    Enablewindow Down&,Gt(Sub(Sub(Pcount%,9),Up%),0)
    Waitinput
    casenot (external("USER32","GetAsyncKeyState",1)<>0) : continue

    If Getfocus(Up&)

        Hochscrollen
        Showwindow(Plugin&[Sub(Up%,1)],1)
        Dec Up%

        Whileloop Up%,Add(Up%,8)

            Setwindowpos Plugin&[&Loop]=2,Add(22,Mul(62,Sub(&Loop,Up%)))-194,60

        Wend

        Showwindow(Plugin&[Add(Up%,9)],0)

    Elseif Getfocus(Down&)

        Runterscrollen
        Showwindow(Plugin&[Up%],0)

        Whileloop Up%,Add(Up%,8)

            Setwindowpos Plugin&[Add(&Loop,1)]=2,Add(22,Mul(62,Sub(&Loop,Up%)))-194,60

        Wend

        Showwindow(Plugin&[Add(Up%,9)],1)
        Inc Up%
/a> Wend
 
11.11.2005  ▲
 




Jac
de
Lad
Ahh! je merks mir. suis la fois sur deine Antwort gespannt. Wenns pas allez, muss je arrêt den Eintrag ausm Systemmenü wieder entfernen.

Schönes Wochenende,
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
11.11.2005  ▲
 



je glaub je hab déjà geantwortet.
 
11.11.2005  ▲
 




Jac
de
Lad
Huch, là warste wieder plus rapide comme je...je habs ausprobiert: Scrollt pas.

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
11.11.2005  ▲
 



je hätts net posté wenns net wenigstens chez mir funzen serait. Tjo hm...
 
11.11.2005  ▲
 




Michael
Wodrich
chez mir marcher beide, allerdings sans Beschriftung qui Buttons...
 
Programmieren, das spannendste Detektivspiel der Welt.
11.11.2005  ▲
 



Lol alors 3 Varianten
 
11.11.2005  ▲
 



12
►

répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

1.298 Views

Untitledvor 0 min.

Themeninformationen

cet Thema hat 3 participant:

Jac de Lad (8x)
iF (6x)
Michael Wodrich (3x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie