Forum | | | | | 
Jac
de
Lad | Hallöle,
I Have time in the XProfan-Help gestöbert and be on a Possibility come, the System Menu one Program To strain. then have I yet what gespostet...then coming what back...anyway have I now the following trouble:
If I the einbaue (with System Menu and so) then react some Buttons on Anklicken twice. the lying on Set(FastMode,1), so much standing solid. now my question: Can with the the System Menu so release, that the Fastmode not eingeschaltet go must, or. how can I the geisterhafte Doppelklicken prevent?
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/10/05 ▲ |
| | |
| |  | | here would it very help if You one Minimalbeispiel post could. |
| | | | | | |
| |
Jac
de
Lad |
CompileMarkSeparation $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
I hope, You can what so begin...only once more The approach to the problem:
If I Set(FastMode,1) weglasse die the Prog at add the Eintrags About Program 1.0.
If I But einbringe working the, still the Scrolling over up& and down& clicking always twice.
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/05 ▲ |
| | |
| |
Jac
de
Lad | damn! can someone say, How I the View source correctly. Show let? I kriegs simply not baked!!!
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/05 ▲ |
| | |
| | | LOl
CompileMarkSeparation - I verbesser your Posting time...
Übrigens - You can your Postings still too self Edit... |
| | | | | | |
| | | blow it behauptet of/ one it be Beschiss. 
CompileMarkSeparation {$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
|
| | | | | | |
| |
Jac
de
Lad | Ahh! I merks me. be time on your response tensely. If not goes, must I hold whom entry ausm System Menu again Remove.
beautiful weekend,
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/05 ▲ |
| | |
| | | I mean I Have already answered.  |
| | | | | | |
| |
Jac
de
Lad | Huch, there warste again faster as i...I habs ausprobiert: Scrolls not. 
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/05 ▲ |
| | |
| | | I hätts net posted ifs net at least by me funzen would.  Tjo hm... |
| | | | | | |
| | 
Michael
Wodrich | | by me functions both, though without Beschriftung the Buttons... |
| | | | Programmieren, das spannendste Detektivspiel der Welt. | 11/11/05 ▲ |
| | |
| | | Lol means 3 mutants  |
| | | | | | |
|
AnswerThemeninformationenthis Topic has 3 subscriber: |
(6.030)
Deutsch
English
Français
Español
Italia