Too many parameters!!!???

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|533\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Too many parameters!!!???
Thu, 22 Sep 2022, 10:40
spinal	Too many parameters!!!??? OK, odd problem, this code was working fine, no issues at all, I was just about to post it here and go, "Here guys this is the latest waste of time I did..." when bam! it suddently stopped working! Apparently there are now "Too Many Parameters" on this line window = CreateWindow("Test",0,0,GetSystemMetrics(0),GetSystemMetrics(1),Desktop(),0) --v There wasn't before, what have I done? The initial code came from here - https://web.archive.org/web/20160612011817/http://www.blitzbasic.com/codearcs/codearcs.php?code=1403 ; add this in the user32.decls ; ; .lib "User32.dll" ; SetWindowLong%(hWnd%, nIndex%, dwNewLong%):"SetWindowLongA" ; SetLayeredWindowAttributes%(hwnd, crKey, bAlpha, dwFlags):"SetLayeredWindowAttributes" ; SetWindowLong%(hWnd%, nIndex%, dwNewLong%):"SetWindowLongA" ; SetLayeredWindowAttributes%(hwnd, crKey, bAlpha, dwFlags):"SetLayeredWindowAttributes" ; SetWindowPos%(hWnd%,hWndAfter%,x%,y%,w%,h%,flags%):"SetWindowPos" ; GetSystemMetrics% (nIndex%) : "GetSystemMetrics" timer = CreateTimer (1000) window = CreateWindow("Test",0,0,GetSystemMetrics(0),GetSystemMetrics(1),Desktop(),0) panel = CreatePanel (0,0,GadgetWidth(window), GadgetHeight(window), window) skin_window(window,"border1.png",panel, $FF00FF,127,1) AlwaysOnTop window screenImage = LoadImage("screen1.png") MaskImage screenImage,255,255,255 SetBuffer DesktopBuffer() screenX = (GetSystemMetrics(0)/2)-(ImageWidth(screenImage)/2) screenY = (GetSystemMetrics(1)/2)-(ImageHeight(screenImage)/2) DrawImage screenImage,screenX,screenY Repeat Select WaitEvent() Case $101 Select EventData() Case 1 End End Select Case $4001 If MouseDown(1) Then frameNumber = 1-frameNumber CreateWindow(frameNumber) End If If MouseDown(2) Then End End If Case $802 ; Resize Window? AlwaysOnTop window panel = CreatePanel (0,0,GadgetWidth (window), GadgetHeight (window), window) SetPanelImage panel, "border.png" Case $803 ; Close Window? End End Select Forever Function skin_window(window_handle, image_path$,panel,colorkey,alpha,colororalpha) ; colorkey is transparency color in hexadecimal form, black ist for example $FFFFFF ; alpha describes the opacity of the window, 0 for full translucent and 255 for non translucent ; use coloralpha to choose the mode you want to use ; 1 to set one color fully lucent ; 2 to set the level of the transperence of the whole window ; 3 to do both ; I think the rest ist self-explanatory If Not panel Then panel = CreatePanel (0,0,GadgetWidth (window_handle), GadgetHeight (window_handle), window_handle) End If SetPanelImage panel, image_path$ hwnd = QueryObject (window_handle, 1) SetWindowLong(hwnd, -20, $80000) SetLayeredWindowAttributes(hwnd, colorkey, alpha, colororalpha) End Function ; set/clear the 'AlwaysOnTop' state of a BlitzPlus window Function AlwaysOnTop(bpwin,flag=True) SetWindowPos QueryObject(bpwin,1) , -2+flag ,0,0,0,0 , 83 End Function Function CreateWindow(fn) If fn = 0 Then skin_window(window,"border1.png",panel, $FF00FF,127,1) screenImage = LoadImage("screen1.png") Else skin_window(window,"border2.png",panel, $FF00FF,127,1) screenImage = LoadImage("screen2.png") End If AlwaysOnTop window MaskImage screenImage,255,255,255 SetBuffer DesktopBuffer() screenX = (GetSystemMetrics(0)/2)-(ImageWidth(screenImage)/2) screenY = (GetSystemMetrics(1)/2)-(ImageHeight(screenImage)/2) DrawImage screenImage,screenX,screenY End Function --v -=-=- Check out my excellent homepage!
Thu, 22 Sep 2022, 10:46
Pakz	Sometimes when I get a bug like that. There turned out to be a invisible character in a line. A linefeed kind of code in the text or something like that. I have had that a lot. Copying the code into a different editor and back again fixes these compiler errors.
Thu, 22 Sep 2022, 11:15
Dan	You are calling the window = CreateWindow("Test",0,0,GetSystemMetrics(0),GetSystemMetrics(1),Desktop(),0) --v but the function accepts only 1 parameter ... Function CreateWindow(fn) --v
Thu, 22 Sep 2022, 12:14
spinal	Oh, named a function wrong. Should have spotted that! -=-=- Check out my excellent homepage!