Hi all,

I know i can use the built in screen saver on Linux but I am not using a full desktop just X11

What I want to do is when I display a given screen (frmSignedOff) after 5mins (or what ever I set the time out to be) I would like to start display full screen bmp / png images over my application (but have the application keep focus and respond to the A key (Sign on)

The idea behind this would be to use the user display as a advertising screen when not in use.

Is this possible (as I would like to show a number of "slides"

I think it would be best to just open a full screen window to show your slides and have that window monitor the key press event and if A is pressed close itself and go back to the app login.

Here's a working class that does that.
you could put any code you like in the SWin_Keypress event to do your login.

BruceSteers said

Here's a working class that does that.
you could put any code you like in the SWin_Keypress event to do your login.

Code (gambas)

1.  
2. ' Gambas class file
3.  
4. Public SWin As Window
5. Public PB As PictureBox
6. Public TM As Timer
7.  
8. '' Open the full screen window with a picturebox in it...
9. Public Sub OpenImageDisplayer()
10.  
11.   With SWin = New Window As "SWin"
12.     .FullScreen = True
13.     .Arrangement = Arrange.Fill
14.   End With
15.  
16.  With PB = New PictureBox(SWin) As "PB"
17.    .Expand = True
18.    .Mode = PictureBox.Contain
19.    .Alignment = Align.Center
20.  End With
21.  
22.  SWin.Show()
23.  
24.  TM = New Timer As "TM"
25.  TM.Delay = 3000
26.  TM.Start
27.  TM.Trigger
28.  
29. End
30.  
31. '' monitor for keypress events
32. Public Sub SWin_KeyPress()
33.  
34.   If Key.Text = "a" Then
35.     TM.Stop
36.     SWin.Close
37.   Endif
38.  
39. End
40.  
41. '' A timer to randomly pic an image from my Pictures folder and load it in the PictureBox
42. Public Sub TM_Timer()
43.  
44.   Dim sPics As String[] = Dir(User.Home &/ "Pictures", "*.png", gb.file)
45.   sPics.Shuffle()
46.   PB.Picture = Picture.Load(User.Home &/ "Pictures" &/ sPics[0])
47.  
48. End
49.  
50.  

Thank-you so much BruceSteers I shall try that when I get home