PureBasic Forums - English

Posted: **Tue May 02, 2006 2:11 pm**

Any chances to release the source in the future?

Posted: **Tue May 02, 2006 3:13 pm**

Yes, for sure. I haven't done it yet because I don't want a lot of half-written versions floating around. Once it's released it'll come as a full package w/source & graphics.

Posted: **Tue May 02, 2006 3:17 pm**

Wow that's extremely cool. The noobs here (including me :LOL:) could learn alot from this. Thanks

.

Posted: **Tue May 02, 2006 3:18 pm**

netmaestro wrote:Ah, interesting. Thanks for the feedback, I suspect the issue there is that it uses a windowed screen and sprite3d graphics, which requires dx7 or better to be available. I'll put cleaner code in there so it ends gracefully if it can't run. (I'm guessing no dx7 is the issue, anyway) The reason for the cpu usage will be that it can't verify the background so it's always trying to update it. Good one, thanks again.

I have DirectX 9.0c installed. And unlike my other computer, this graphics card usually works pretty well.

Posted: **Tue May 02, 2006 3:22 pm**

sheesh, I'm stumped then.

Posted: **Tue May 02, 2006 3:34 pm**

netmaestro wrote:Yes, for sure. I haven't done it yet because I don't want a lot of half-written versions floating around. Once it's released it'll come as a full package w/source & graphics.

Wow - what a tutorial that will be. Anxiously awaiting.

Many thanks

cheers

Posted: **Tue May 02, 2006 3:38 pm**

rsts wrote:Wow - what a tutorial that will be. Anxiously awaiting.

Yes, ditto. Very nice.

Posted: **Tue May 02, 2006 3:52 pm**

nice clock netmaestro.

hum, maybe you can find this interesting (desktop painting) :

Code: Select all

Procedure.l myCallback(hwnd.l,uMsg.l,wParam.l,lParam.l)
  Select uMsg
    Case #WM_ERASEBKGND
      ProcedureReturn #False
    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)
  ;SmartWindowRefresh(0,1)
  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

Posted: **Tue May 02, 2006 3:54 pm**

hehe. xray vision! Clever.

Posted: **Tue May 02, 2006 4:23 pm**

Ummm.... must be only viewable on XP. Here is what it looks like on my Windows 2000 Pro:

Posted: **Tue May 02, 2006 4:25 pm**

The clock?

There is only one clock

Posted: **Tue May 02, 2006 4:28 pm**

Yes I think I have an API in there that isn't supported on Win2000 - I'll have to replace it with something else. That's a nice green box though straker, if you don't care what time it is you've got something nice to look at.

Posted: **Tue May 02, 2006 4:43 pm**

Oh good, for a minute I thought you might have been inspired by Mandelbrot or Dali.

Posted: **Tue May 02, 2006 4:54 pm**

Posted: **Tue May 02, 2006 5:16 pm**

works very nice here on windows 2000 pro sp4 gfx card radeon 9800 pro & direct x9.0c

always ontop would be a good feature I think - what do you think...

once again great work

Regards
Kevin

PureBasic Forums - English

Try the VistaClock - Major performance update!