PureBasic Forums - English

Posted: **Tue Feb 20, 2007 3:56 pm**

Hello
I am French, and speak badly English.
I have a big problem with a code which does not work has my job.

My computer is under reseau W2000 and the bottom of the windows does not give me the wallpaper by my machine.
It's the bottom of virtual desktop that appears.

Anybody of this forum knows it why?
Because on the French forum I had 45 visits and no answer.

Code: Select all

Procedure.l myCallback(hWnd.l,uMsg.l,wParam.l,lParam.l) 
   Select uMsg 
      Case #WM_ERASEBKGND 
         ProcedureReturn 
      Case #WM_PAINT 
         For i=1 To 2 
            x = GadgetX(i) 
            y = GadgetY(i) 
            SetRect_(Rect.RECT,x,y,x+GadgetWidth(i),y+GadgetHeight(i)) 
            ValidateRect_(hWnd,Rect) 
            RedrawWindow_(GadgetID(i),0,0,$407) 
         Next 
         PaintDesktop_(BeginPaint_(hWnd,ps.PAINTSTRUCT)) 
         EndPaint_(hWnd,ps) 
      Case #WM_SIZING,#WM_MOVING 
         InvalidateRect_(hWnd,0,1) 
   EndSelect 
   ProcedureReturn #PB_ProcessPureBasicEvents 
EndProcedure 

If OpenWindow(0,100,100,320,240,#PB_Window_SystemMenu|#PB_Window_SizeGadget,"") 
   CreateGadgetList(WindowID(0)) 
   ButtonGadget(1,5,5,100,50,"Hello") 
   EditorGadget(2,5,60,100,175) 
   SetWindowCallback(@myCallback(),0) 
   InvalidateRect_(WindowID(0),0,1) 
   Repeat:Until WaitWindowEvent()=#PB_Event_CloseWindow 
EndIf

Thank you
Good day

Posted: **Tue Feb 20, 2007 9:07 pm**

I don't understand what you mean. Have you asked in French in the French
forums? You'd be able to describe it better in your native tongue.

Posted: **Tue Feb 20, 2007 9:13 pm**

I ran his program and it shows the desktop background as the background of the window it opens, kind of like a real window. I think what is going wrong is that he is not getting the background that he can see on his computer but rather the one that is set up on the server that he is running off of.

Posted: **Wed Feb 21, 2007 8:58 am**

Hello and thank you for your answer

@Pb
Yes yes, before disturbing you with my bad English, I have asked this question on the French forum

Anybody of this forum knows it why?
Because on the French forum I had 45 visits and no answer.

I did not to be polite dare to speak in French, but if you ask me :

http://www.purebasic.fr/french/viewtopic.php?t=6261

@Dereck
I believe that you understood my probleme

PureBasic Forums - English

Real wallpaper different of the real wallpaper

Real wallpaper different of the real wallpaper

Re: Real wallpaper different of the real wallpaper