#158462 - 2006-03-07 10:56 PM
Text on desktop
|
ledzepe
Fresh Scripter
Registered: 2005-12-06
Posts: 26
|
Hi everyone, This may not be for this forum however my boss, during one of his visit in other offices, saw a sort of splash page that displayed like the list of activity for the day. Then the list became part of the desktop. Even if you change the background, the list stayed on the desktop.
|
Top
|
|
|
|
#158464 - 2006-03-07 11:26 PM
Re: Text on desktop
|
ledzepe
Fresh Scripter
Registered: 2005-12-06
Posts: 26
|
I'm still on vacation mode...
Can we do that or at least emulate the functinality using Kix?
|
Top
|
|
|
|
#158467 - 2006-03-08 05:18 AM
Re: Text on desktop
|
NTDOC
Administrator
Registered: 2000-07-28
Posts: 11623
Loc: CA
|
That shouldn't be too hard Glenn, but he describes what would sound more like a 3d object like from Object Dekstop http://www.stardock.com/products/odnt/
BGInfo will replace the desktop as it's a .BMP file. But as he describes a user can change his/her background and their desktop image would still remain. With BGINFO it would not, it would be overwritten.
|
Top
|
|
|
|
#158468 - 2006-03-08 08:22 AM
Re: Text on desktop
|
Jochen
KiX Supporter
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
|
Top
|
|
|
|
#158470 - 2006-03-08 02:11 PM
Re: Text on desktop
|
Benny69
Moderator
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
I agree with Jochen, i think that KiXforms could do this. when you say activity could you elaborate, it would influence how a transparent form might be constructed.
Edited by benny69 (2006-03-08 02:14 PM)
|
Top
|
|
|
|
#158471 - 2006-03-09 06:17 AM
Re: Text on desktop
|
Benny69
Moderator
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
Thanks to Shawn for modifying KiXforms.Net and both Shawn and NTDoc for giving good ideas and testing with me.
the transparent ability will only work on Win2k and up.
you will need MS.Net Framework 1.1 installed you will need to get the latest KiXforms.Net.
this script will stay as a moveable form for 3 sec, then fade to the desktop.
minimize all other windows to see it after it goes transparent.
to move it, right click on the text and select 'Move Form'. move the form where you want it then click the "OK' button to make it transparent again.
to close it, right click on the text and select 'Exit'.
try this script it ought to give you a good start: Code:
Break On $System = CreateObject("Kixforms.System") If Not $System $nul= MessageBox("KiXforms.Net Not Initiated. This Script Will Now Close.","Error",16) Quit() EndIf $nul = $System.Application.EnableVisualStyles
$Form1 = $System.Form() $Form1.StartPosition = 1 ;FormStartPosition_CenterScreen $Form1.Size = $System.Size(500,200) ;(Width,Height) $Form1.ShowInTaskBar = 0 $Form1.Text = "Transparent Form" $FormColor = $Form1.TransparencyKey
$ContextMenu = $System.ContextMenu() $ExitMenu = $ContextMenu.MenuItems.Add($System.MenuItem("Exit")) $ExitMenu.Click = "ExitForm()" $MoveMenu = $ContextMenu.MenuItems.Add($System.MenuItem("Move Form")) $MoveMenu.Click = "MoveForm()" $Form1.ContextMenu = $ContextMenu
$Label1 = $System.Label() $Label1.BackColor = $System.Color.FromArgb("0,255,255,255") ;$Label1.ForeColor = $System.Color.FromName("White") $Label1.Dock = 1 ;Top $Label1.Font = $System.Font("Microsoft Sans Serif",24,0) ;Regular $Label1.Height = 35 $Label1.TextAlign = 32 ;MiddleCenter $nul = $Form1.Controls.Add($Label1)
$Label2 = $System.Label() $Label2.BackColor = $System.Color.FromArgb("0,255,255,255") ;$Label2.ForeColor = $System.Color.FromName("White") $Label2.Dock = 1 ;Top $Label2.Font = $System.Font("Microsoft Sans Serif",24,0) ;Regular $Label2.Height = 35 $Label2.TextAlign = 16 ;MiddleLeft $nul = $Form1.Controls.Add($Label2)
$Label3 = $System.Label() $Label3.BackColor = $System.Color.FromArgb("0,255,255,255") ;$Label3.ForeColor = $System.Color.FromName("White") $Label3.Dock = 1 ;Top $Label3.Font = $System.Font("Microsoft Sans Serif",24,0) ;Regular $Label3.Height = 35 $Label3.TextAlign = 16 ;MiddleLeft $nul = $Form1.Controls.Add($Label3)
$Label4 = $System.Label() $Label4.BackColor = $System.Color.FromArgb("0,255,255,255") ;$Label4.ForeColor = $System.Color.FromName("White") $Label4.Dock = 1 ;Top $Label4.Font = $System.Font("Microsoft Sans Serif",24,0) ;Regular $Label4.Height = 35 $Label4.TextAlign = 16 ;MiddleLeft $nul = $Form1.Controls.Add($Label4)
$Button1 = $System.Button() $Button1.BackColor = $System.Color.FromName("ActiveCaptionText") $Button1.Click = "Accept()" $Button1.Dock = 2 ;Bottom $Button1.FlatStyle = 3 ;System $Button1.Text = "OK" $Button1.Top = 124 $Button1.Visible = 0 $nul = $Form1.Controls.Add($Button1)
$Label4.Text = "UserID : "+@USERID $Label3.Text = "HostName : "+@WKSTA $Label2.Text = "IPAddress0 :"+@IPADDRESS0
$Form1.AcceptButton = $Button1 $Form1.Show ;Displays the Form
DisplayDelay()
While $Form1.Visible $Nul = Execute($Form1.DoEvents()) Loop Exit 0
Function DisplayDelay() $Label1.Text = "3" Sleep 1 $Label1.Text = "2" Sleep 1 $Label1.Text = "1" Sleep 1 $Label1.Text = "" $Form1.BackColor = $System.Color.FromArgb("0,255,255,255") $Form1.TransparencyKey = $Form1.BackColor $Form1.FormBorderStyle = 0 ;FormBorderStyle_None $Form1.SendToBack $Label2.ForeColor = $System.Color.FromName("White") $Label3.ForeColor = $System.Color.FromName("White") $Label4.ForeColor = $System.Color.FromName("White") $=SetFocus("Program Manager") $=SendKeys("{F5}") EndFunction
Function Accept() $Form1.BackColor = $System.Color.FromArgb("0,255,255,255") $Form1.TransparencyKey = $Form1.BackColor $Form1.FormBorderStyle = 0 ;FormBorderStyle_None $Button1.Visible = 0 $Form1.SendToBack $Label2.ForeColor = $System.Color.FromName("White") $Label3.ForeColor = $System.Color.FromName("White") $Label4.ForeColor = $System.Color.FromName("White") $=SetFocus("Program Manager") $=SendKeys("{F5}") EndFunction
Function MoveForm() $Form1.BackColor = $System.Color.FromName("Control") $Form1.TransparencyKey = $FormColor $Form1.FormBorderStyle = 1 $Button1.Visible = -1 $Form1.BringToFrount $Label2.ForeColor = $System.Color.FromName("Black") $Label3.ForeColor = $System.Color.FromName("Black") $Label4.ForeColor = $System.Color.FromName("Black") $=SetFocus("Program Manager") $=SendKeys("{F5}") EndFunction
Function ExitForm() Quit() EndFunction
Edited by benny69 (2006-03-09 01:49 PM)
|
Top
|
|
|
|
#158473 - 2006-03-09 06:39 AM
Re: Text on desktop
|
Allen
KiX Supporter
Registered: 2003-04-19
Posts: 4545
Loc: USA
|
Benny this is pretty slick.
I noticed that it was leaving a "Shadow" or a "trace" of the original window when I moved it. Added two lines to your function and that cleared it up.
Code:
Function Accept() $Form1.BackColor = $System.Color.FromArgb("0,255,255,255") $Form1.TransparencyKey = $Form1.BackColor $Form1.FormBorderStyle = 0 ;FormBorderStyle_None $Button1.Visible = 0 $Form1.SendToBack $=SetFocus("Program Manager") $=SendKeys("{F5}") EndFunction
|
Top
|
|
|
|
#158474 - 2006-03-09 07:41 AM
Re: Text on desktop
|
NTDOC
Administrator
Registered: 2000-07-28
Posts: 11623
Loc: CA
|
ah! - you must have a cheap video card and / or driver Al
Yeah, we discussed that actually and knew that for some it might cause an issue.
|
Top
|
|
|
|
#158475 - 2006-03-09 07:46 AM
Re: Text on desktop
|
Allen
KiX Supporter
Registered: 2003-04-19
Posts: 4545
Loc: USA
|
Say What! What you talknbout? LOL.
Well...its a Radeon 9600XT... its not new anymore but it sure wasn't cheap when I bought it. Dang... can't have you busting on my computer... I haven't updated the drivers lately... but still... they have to be pretty recent.
{edit... Latest Drivers and it still does it.}
Edited by Allen (2006-03-09 08:17 AM)
|
Top
|
|
|
|
#158479 - 2006-03-09 10:35 AM
Re: Text on desktop
|
Richard H.
Administrator
Registered: 2000-01-24
Posts: 4946
Loc: Leatherhead, Surrey, UK
|
Quote:
How about using active desktop and a html-page?
It's an option, and Doc mentioned it early on in this thread.
The difficulty with Active Desktop is that in my experience it is usually disabled in the corporate environment because of the problems it causes.
|
Top
|
|
|
|
#158480 - 2006-03-09 01:38 PM
Re: Text on desktop
|
Benny69
Moderator
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
Allen your 'desktop refresh' works pretty slick, thanks
|
Top
|
|
|
|
#158481 - 2006-03-09 01:54 PM
Re: Text on desktop
|
Benny69
Moderator
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
I have modified the code in the earlier post to reflect Allen's suggestion, in addition i have modified it so that after the form goes transparent, the Font goes white. black didn't look that good on my desktop.
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
0 registered
and 515 anonymous users online.
|
|
|