Windows Screensaver (with preview)

[DiffrenzyKeymaster]

To test, rename exe to “anynameyoulike.scr” , right click and choose “install”

Monkey

#Import "<libuser32.a>" #Import "<std>" #Import "<windows.h>" #Import "<std>" #Import "<mojo>" Using mojo.. Using std.. Extern Const SM_CYVIRTUALSCREEN:Int Const SM_CXVIRTUALSCREEN:Int Const WS_CHILD:Int Const WS_CLIPCHILDREN:Int Const WS_CLIPSIBLINGS:Int Const WS_VISIBLE:Int Const GWL_STYLE:Int Const SWP_NOSIZE:Int Alias LPCTSTR:CString Struct HWND__ End Alias HWND:HWND__ Ptr Alias LONG_PTR:LONG Ptr Struct RECT Field left:LONG Field top:LONG Field right:LONG Field bottom:LONG End Function GetClientRect:Bool(in:HWND,out:RECT Ptr) Function GetCommandLineW:LPCTSTR() Function MessageBoxA:Int (hWnd:HWND, lpText:CString, lpCaption:CString, uType:Int) Function SetParent:HWND(child:HWND,parent:HWND) Function FindWindow:HWND( lpClassName:CString,lpWindowName:CString) Function SetWindowLong:LONG Ptr(hWnd:HWND,nIndex:Int, dwNewLong:LONG) Function SetWindowPos:Bool(hWnd:HWND,hWndInsertAfter:HWND,x:Int,y:Int,cx:Int,cy:Int,flags:UInt) Function GetSystemMetrics:int(index:Int) Public Const cMONKEYWINDOWTITLE:String = "MX2ScreenSaverPreview" Const cMONKEYWINDOWCLASSNAME:String = "SDL_app" Function GetScreenSaverMode:String() 'Return "RunSaver" ' unrem if you are testing how your saver looks and your IDE cant send command line params, ( /s for RunSaver ) Local cmd:= GetCommandLineW() cmd = cmd.ToLower() 'MessageBoxA (Null, cmd,"Mode is", 0) Local pos:Int = cmd.FindLast(" ") ' safe to assume last space denotes /params ? If pos = -1 Then Return "Config" Local param:String = cmd.Right(cmd.Length-pos) If param.Contains("s") Return "RunSaver" Elseif param.Contains("c") Return "Config" Else ' it's a handle to the preview window Local parts:= param.Split(" ") If parts.Length>1 Return parts[1] ' preview Endif Return "Config" End Function Function Config() MessageBoxA (Null, "This screensaver has no configuration options","Screensaver", 0) End Function Function Preview(shwnd:String) Local ihwnd:Int = Cast<Int>(shwnd) Local phwnd:HWND = Cast<HWND>(ihwnd) Local parentrect:RECT Local result:= GetClientRect(phwnd, Varptr parentrect) If Not result return Local w:Int = parentrect.right - parentrect.left Local h:Int = parentrect.bottom - parentrect.top New AppInstance Local win:= New MyWindow(cMONKEYWINDOWTITLE,w,h,phwnd,WindowFlags.Borderless,true) App.Run() End Function Function RunSaver() New AppInstance Local parent:HWND Local w:=GetSystemMetrics( SM_CXVIRTUALSCREEN ) Local h:=GetSystemMetrics( SM_CYVIRTUALSCREEN ) Local win:= New MyWindow("Full",w,h,parent,WindowFlags.Borderless | WindowFlags.Fullscreen, false) App.Run() End Function Function Main() Local mode:= GetScreenSaverMode() 'MessageBoxA (Null, mode,"Commandline is", 0) Select mode Case "RunSaver" RunSaver() Case "Config" Config() Default Preview(mode) End select End Class MyWindow Extends Window Field mytitle:String Field count:int Field parent:HWND Field parentSet:Bool Field previewmode:Bool Field lastx:Int Field lasty:int Method New(title:String, width:Int,height:int,parent:HWND ,flags:WindowFlags,runinpreviewmode:Bool) Super.New( title,width,height,flags) Self.parent = parent Self.parentSet = parentSet previewmode = runinpreviewmode If Not previewmode Mouse.PointerVisible = False End Method OnMouseEvent(event:MouseEvent ) Override If previewmode return If event.Type=EventType.MouseDown App.Terminate() If event.Type=EventType.MouseUp App.Terminate() If event.Type=EventType.MouseWheel App.Terminate() If event.Type=EventType.MouseMove Local dx:= event.Location.x - lastx Local dy:= event.Location.y - lasty If dx>3 Or dy >3 ' move a little befor quitting If lastx<>0 And lasty<>0 ' on first pass these are 0 App.Terminate() endif Endif lastx = event.Location.x lasty = event.Location.y Endif End Method OnKeyEvent( event:KeyEvent ) Override If previewmode return App.Terminate() End Method OnRender( canvas:Canvas ) Override If previewmode And parentSet = False' one time setup ' MX2 / SDL creates several windows, this is the one we want: Local me:= FindWindow(cMONKEYWINDOWCLASSNAME,cMONKEYWINDOWTITLE) ' clear WS_POPUP and set WS_CHILD style before changing parent Const previewstyle:LONG = WS_VISIBLE | WS_CHILD | WS_CLIPCHILDREN | WS_CLIPSIBLINGS SetWindowLong(me,GWL_STYLE,previewstyle) ' make the render window a child of the Windows Screensaver Preview window SetParent(me,parent) ' move the window to 0,0 because we are now a child of the Windows Screensaver Preview window Local dummy:HWND SetWindowPos(me,dummy,0,0,Width,Height,SWP_NOSIZE) ' SWP_NOSIZE to ignore size, because it's already set so Width,Height could be 0 here... parentSet = True Endif ' render something! App.RequestRender() Local w:=Width Local h:=Height canvas.Color=Color.Red canvas.DrawLine( 0,0,w-1,0 ) canvas.DrawLine( w-1,0,w-1,h-1 ) canvas.DrawLine( w-1,h-1,0,h-1 ) canvas.DrawLine( 0,h-1,0,0 ) canvas.LineWidth=2 canvas.LineSmoothing=True canvas.Color=Color.Orange canvas.DrawLine( 2,2,w-3,2 ) canvas.DrawLine( w-3,2,w-3,h-3 ) canvas.DrawLine( w-3,h-3,2,h-3 ) canvas.DrawLine( 2,h-3,2,2 ) SeedRnd( Millisecs() ) For Local i:=0 Until 100 canvas.LineWidth=Rnd( 2,5 ) canvas.Color=New Color( Rnd(1),Rnd(.75),Rnd(.5) ) canvas.DrawLine( Int( Rnd(w) ),Int( Rnd(h) ),Int( Rnd(w) ),Int( Rnd(h) ) ) Next canvas.DrawText( "Hello Screensaver World",Width/2,Height/2,.5,.5 ) End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234

#Import "<libuser32.a>" #Import "<std>" #Import "<windows.h>" #Import "<std>" #Import "<mojo>"   Using mojo.. Using std..    Extern   Const SM_CYVIRTUALSCREEN:Int Const SM_CXVIRTUALSCREEN:Int   Const WS_CHILD:Int Const WS_CLIPCHILDREN:Int Const WS_CLIPSIBLINGS:Int Const WS_VISIBLE:Int   Const GWL_STYLE:Int   Const SWP_NOSIZE:Int   Alias LPCTSTR:CString   Struct HWND__ End Alias HWND:HWND__ Ptr Alias LONG_PTR:LONG Ptr     Struct RECT   Field left:LONG   Field top:LONG   Field right:LONG   Field bottom:LONG End   Function GetClientRect:Bool(in:HWND,out:RECT Ptr) Function GetCommandLineW:LPCTSTR() Function MessageBoxA:Int (hWnd:HWND, lpText:CString, lpCaption:CString, uType:Int) Function SetParent:HWND(child:HWND,parent:HWND) Function FindWindow:HWND( lpClassName:CString,lpWindowName:CString) Function SetWindowLong:LONG Ptr(hWnd:HWND,nIndex:Int, dwNewLong:LONG) Function SetWindowPos:Bool(hWnd:HWND,hWndInsertAfter:HWND,x:Int,y:Int,cx:Int,cy:Int,flags:UInt) Function GetSystemMetrics:int(index:Int)   Public   Const cMONKEYWINDOWTITLE:String = "MX2ScreenSaverPreview" Const cMONKEYWINDOWCLASSNAME:String = "SDL_app"   Function GetScreenSaverMode:String() 'Return "RunSaver" ' unrem if you are testing how your saver looks and your IDE cant send command line params,  ( /s for RunSaver ) Local cmd:= GetCommandLineW() cmd = cmd.ToLower() 'MessageBoxA (Null,  cmd,"Mode is", 0) Local pos:Int = cmd.FindLast(" ") ' safe to assume last space denotes /params ? If pos = -1 Then Return "Config" Local param:String = cmd.Right(cmd.Length-pos) If param.Contains("s") Return "RunSaver" Elseif param.Contains("c") Return "Config" Else ' it's a handle to the preview window Local parts:= param.Split(" ") If parts.Length>1 Return parts[1] ' preview Endif Return "Config" End Function   Function Config() MessageBoxA (Null,  "This screensaver has no configuration options","Screensaver", 0) End Function   Function Preview(shwnd:String)   Local ihwnd:Int = Cast<Int>(shwnd) Local phwnd:HWND = Cast<HWND>(ihwnd) Local parentrect:RECT Local result:= GetClientRect(phwnd, Varptr parentrect)   If Not result return   Local w:Int = parentrect.right - parentrect.left Local h:Int = parentrect.bottom - parentrect.top   New AppInstance   Local win:= New MyWindow(cMONKEYWINDOWTITLE,w,h,phwnd,WindowFlags.Borderless,true)      App.Run() End Function Function RunSaver() New AppInstance Local parent:HWND Local w:=GetSystemMetrics( SM_CXVIRTUALSCREEN ) Local h:=GetSystemMetrics( SM_CYVIRTUALSCREEN )   Local win:= New MyWindow("Full",w,h,parent,WindowFlags.Borderless | WindowFlags.Fullscreen, false)   App.Run() End Function   Function Main() Local mode:= GetScreenSaverMode() 'MessageBoxA (Null,  mode,"Commandline is", 0) Select mode Case "RunSaver" RunSaver() Case "Config" Config() Default Preview(mode) End select End     Class MyWindow Extends Window Field mytitle:String Field count:int Field parent:HWND Field parentSet:Bool Field previewmode:Bool Field lastx:Int Field lasty:int Method New(title:String, width:Int,height:int,parent:HWND ,flags:WindowFlags,runinpreviewmode:Bool)   Super.New( title,width,height,flags) Self.parent = parent Self.parentSet = parentSet previewmode = runinpreviewmode   If Not previewmode Mouse.PointerVisible = False End Method OnMouseEvent(event:MouseEvent ) Override If previewmode return If event.Type=EventType.MouseDown App.Terminate() If event.Type=EventType.MouseUp App.Terminate() If event.Type=EventType.MouseWheel App.Terminate() If event.Type=EventType.MouseMove Local dx:= event.Location.x - lastx Local dy:= event.Location.y - lasty If dx>3 Or dy >3 ' move a little befor quitting If lastx<>0 And lasty<>0 ' on first pass these are 0 App.Terminate() endif Endif lastx = event.Location.x lasty = event.Location.y Endif End Method OnKeyEvent( event:KeyEvent ) Override If previewmode return App.Terminate() End   Method OnRender( canvas:Canvas ) Override If previewmode And parentSet = False' one time setup ' MX2 / SDL creates several windows, this is the one we want: Local me:= FindWindow(cMONKEYWINDOWCLASSNAME,cMONKEYWINDOWTITLE) ' clear WS_POPUP and set WS_CHILD style before changing parent Const previewstyle:LONG = WS_VISIBLE | WS_CHILD | WS_CLIPCHILDREN | WS_CLIPSIBLINGS SetWindowLong(me,GWL_STYLE,previewstyle) ' make the render window a child of the Windows Screensaver Preview window SetParent(me,parent) ' move the window to 0,0 because we are now a child of the Windows Screensaver Preview window Local dummy:HWND SetWindowPos(me,dummy,0,0,Width,Height,SWP_NOSIZE) ' SWP_NOSIZE to ignore size, because it's already set so Width,Height could be 0 here... parentSet = True Endif ' render something! App.RequestRender() Local w:=Width Local h:=Height canvas.Color=Color.Red canvas.DrawLine( 0,0,w-1,0 ) canvas.DrawLine( w-1,0,w-1,h-1 ) canvas.DrawLine( w-1,h-1,0,h-1 ) canvas.DrawLine( 0,h-1,0,0 ) canvas.LineWidth=2 canvas.LineSmoothing=True canvas.Color=Color.Orange canvas.DrawLine( 2,2,w-3,2 ) canvas.DrawLine( w-3,2,w-3,h-3 ) canvas.DrawLine( w-3,h-3,2,h-3 ) canvas.DrawLine( 2,h-3,2,2 ) SeedRnd( Millisecs() ) For Local i:=0 Until 100 canvas.LineWidth=Rnd( 2,5 ) canvas.Color=New Color( Rnd(1),Rnd(.75),Rnd(.5) ) canvas.DrawLine( Int( Rnd(w) ),Int( Rnd(h) ),Int( Rnd(w) ),Int( Rnd(h) ) ) Next canvas.DrawText( "Hello Screensaver World",Width/2,Height/2,.5,.5 ) End End

[Author]

Posts