Screensaver messing up icons

Blitz3D Forums/Blitz3D Beginners Area/Screensaver messing up icons

Aussie

(Posted 2011) [#1]

Hey everyone.

I have created a screensaver & tested it on Windows XP & Vista. It ran fine on the XP & shut down fine, but on Vista when it shut down all the desktop icons had been rearanged. Has anyone had this happen & what would be the cause.

If someone could take a look at the code it would be much apreciated.
Cheers.

Const SCREENX=800
Const SCREENY=600

ChangeDir SystemProperty$("appdir")

If CommandLine$() <> "" Then
  If Upper(Left$(CommandLine$(),2)) = "/C" Then Configure()
  If Upper(Left$(CommandLine$(),2)) = "/S" Then Start()
EndIf

End

Function Configure()

    AppTitle "Screensaver Configuration"
    Graphics 640,480,16,2
    SetBuffer BackBuffer()

    Repeat 
      Text 10,10, "Zen Space Screensaver V 1.0 (created by Robert Hogg)"
	  Text 10,30, "Operating code created by Grisu"
	  Text 10,50, "Zen Tambour Drum created by Spike Finch: http://exoticvessels.com/zentambour/"
      Text 10,60, "-----------------------------------------------------------------------------"
      Text 10,80, "There are currently no configuration options in this version."
      Text 10,450,"Press any key to return to windows."
      Flip
      Delay 1
    Until GetKey()

End Function

Function Start()
    AppTitle "Zen Space"
    Graphics3D SCREENX,SCREENY,0,1
    SetBuffer BackBuffer()

	FlushKeys()
	FlushMouse()
	MoveMouse 0,0

AntiAlias True
	
camera = CreateCamera()
		CameraClsColor camera,60,60,60
		PositionEntity camera,0,0,-15

light = CreateLight()
	RotateEntity light,90,0,0

create_Zen()

	Repeat
		update_Zen()
		LimitFrameRate(35)

	UpdateWorld
	RenderWorld
    	Flip
        Delay 1
	Until GetMouse() <> 0 Or MouseX() <> 0 Or MouseY() <> 0 Or GetKey() <> 0
	ClearWorld()
End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;My Functions;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Function LimitFrameRate(FPS = 65)
	If FrameTime = 0 Then
		Period = 1000 / FPS
		FrameTime = MilliSecs()
	EndIf

	While Abs(MilliSecs() - FrameTime) < Period
			Delay 1
	Wend
	FrameTime = MilliSecs()
End Function

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

Type Zen
	Field nail
	Field rotx#,roty#,rotz#
	Field speed#
	Field x#,y#,z#
	Field tskin%
	Field mesh
	Field top
	Field base
End Type

Function create_Zen()
Local Gskin = LoadTexture("TskinGr.jpg")
Local Bskin = LoadTexture("TskinBl.jpg")
Local Cskin = LoadTexture("TskinCp.jpg")
Local Pskin = LoadTexture("TskinPr.jpg")
Local Wood = LoadTexture("base.jpg")
For It = 0 To 149
	Z.Zen = New Zen
		SeedRnd MilliSecs()
		Z\nail = CreatePivot()
			Z\x# = Rnd(-110,110)
			Z\y# = Rnd(-85,85)
			Z\z# = Rnd(-10,100)
		PositionEntity Z\nail,Z\x#,Z\y#,Z\z#
		Z\mesh = LoadAnimMesh("ZT1.b3d",Z\nail)
		Z\top = FindChild(Z\mesh,"Sphere")
			EntityShininess Z\top,1
		Z\base = FindChild(Z\mesh,"Cylinder")
			EntityTexture Z\base,wood
		Z\tskin = Rand(1,4)
		Select Z\Tskin%
			Case 1
				EntityTexture Z\top,Gskin
			Case 2 
				EntityTexture Z\top,Bskin
			Case 3 
				EntityTexture Z\top,Cskin
			Case 4
				EntityTexture Z\top,Pskin
		End Select
		SeedRnd MilliSecs()
		Z\speed# = Rnd(-.01,-.5)
		Z\rotx# = Rnd(-2,2)
		Z\roty# = Rnd(-2,2)
		Z\rotz# = Rnd(-2,2)
	Next
End Function

Function update_Zen()
For Z.Zen = Each Zen
	MoveEntity Z\nail,Z\speed#,0,0
	TurnEntity Z\mesh,Z\rotx#,Z\roty#,Z\rotz#
	If EntityX#(Z\nail,True) < -120	Then PositionEntity Z\nail,120,Z\y#,Z\z#
Next
End Function

Ross C

(Posted 2011) [#2]

Sometimes changing the desktop resolution can cause the desktop icons to move and fit to the resolution size.

Aussie

(Posted 2011) [#3]

Thanks Ross.

Is it possible for blitz to find the desktop resolution & set Graphics3d to the same resolution?

Kryzon

(Posted 2011) [#4]

Yes it is, you use the GetSystemMetrics function of User32 from the Windows API.
Read more on this thread.

Adam Novagen

(Posted 2011) [#5]

Hey hey, nice link Kryzon. I think I might know exactly where and how I can use that. :D

Aussie

(Posted 2011) [#6]

Beautiful. Thanks Kryzon