Happy Birthday Gift!!

[newart]

I make gift for Happy Birthday of my girlfriend - Alexandra aka VitaminC =)

http://www.n-discovery.spb.ru/pc/vitagift_eng.rar (750kb)

Others my gift & intro on purebasic: http://www.n-discovery.spb.ru/pc.php

[Num3]

Ehehehe

Happy birthday!

Nice program! Funky graphics!!!

[Comtois]

Bon anniversaire VitaminC

[newart]

Somebody knows why after start Gift the window becomes not active and the cursor disappears?
It can be avoided?
Here a source code:

Code: Select all

If OpenWindow(0,0,0,#scrw,#scrh,#PB_Window_ScreenCentered, title$) = 0
   MessageBox_ (0,"Could not open Window", title$, #MB_ICONINFORMATION|#MB_OK): End                                                                                     
EndIf
                          
If OpenWindowedScreen(WindowID(),0,0,#scrw,#scrh,0,0,0) = 0
   MessageBox_ (0,"Could not open 800x600x"+Str(#scrd)+"screen", title$, #MB_ICONINFORMATION|#MB_OK) : End                                                                                     
EndIf
          
  
SetFrameRate(#frate) 
 
Gosub loadsprite

PlayModule(0) 
ModuleVolume(0,100)


Repeat
FlipBuffers():ExamineKeyboard():ExamineMouse()

Event = WindowEvent()         
If Event=#PB_Event_CloseWindow: fade = 1: EndIf                                     
ETC...

[Comtois]

for the cursor dont use ExamineMouse()
if you need mouse

Code: Select all

 Event = WindowEvent()
       
 If Event = #WM_LBUTTONDOWN
 Debug "Down"
ElseIf Event = #WM_LBUTTONUP 
Debug "Up"
endif

[newart]

for the cursor dont use ExamineMouse()
if you need mouse

Big thanks!!

But the window on former loses focus.

[newart]

Really nobody knows in what the reason (window lost focus)?