| View previous topic :: View next topic |
| Author |
Message |
Garrett
Moderator Team
Joined: 04 Oct 2001
Posts: 2149
Location: A House
|
 Posted: Sat Sep 26, 2009 6:26 pm Post subject: Glue to Desktop? |
 |
|
Does anyone remember what the file name was of the example that showed how to clue a vds window to the desktop?
_________________
'What you do not want done to yourself, do not do to others.' - Confucius (550 b.c. to 479 b.c.) |
|
| Back to top |
|
 |
vdsalchemist
Admin Team
Joined: 23 Oct 2001
Posts: 1448
Location: Florida, USA
|
| Posted: Sat Sep 26, 2009 11:04 pm Post subject: |
|
|
What do you mean by glue a VDS window to the desktop?
_________________
Home of
Give VDS a new purpose!
 |
|
| Back to top |
|
|
Garrett
Moderator Team
Joined: 04 Oct 2001
Posts: 2149
Location: A House
|
| Posted: Sun Sep 27, 2009 3:10 am Post subject: |
|
|
There was an example once here that I believe put your vds app like under the icons of the desktop, but on top of the wallpaper. Your program could not be brought to the front.. Not even sure you could access the GUI in this state either.
_________________
'What you do not want done to yourself, do not do to others.' - Confucius (550 b.c. to 479 b.c.) |
|
| Back to top |
|
|
briguy
Contributor
Joined: 09 Aug 2007
Posts: 79
|
| Posted: Sun Sep 27, 2009 4:31 am Post subject: |
|
|
| That was codescripts. The transparent window example. You can either make it transparent or not. |
|
| Back to top |
|
|
Garrett
Moderator Team
Joined: 04 Oct 2001
Posts: 2149
Location: A House
|
| Posted: Sun Sep 27, 2009 7:09 am Post subject: |
|
|
Great, thanks 
_________________
'What you do not want done to yourself, do not do to others.' - Confucius (550 b.c. to 479 b.c.) |
|
| Back to top |
|
|
Garrett
Moderator Team
Joined: 04 Oct 2001
Posts: 2149
Location: A House
|
| Posted: Sun Sep 27, 2009 7:13 am Post subject: |
|
|
Hmmm, that doesn't seem to be it either 
_________________
'What you do not want done to yourself, do not do to others.' - Confucius (550 b.c. to 479 b.c.) |
|
| Back to top |
|
|
SnarlingSheep
Professional Member
Joined: 13 Mar 2001
Posts: 759
Location: Michigan
|
| Posted: Sun Sep 27, 2009 12:59 pm Post subject: |
|
|
Not sure about under the icons, but you could position it at the bottom of the z-order and disable the dialog.
_________________
-Sheep
My pockets hurt... |
|
| Back to top |
|
|
vdsalchemist
Admin Team
Joined: 23 Oct 2001
Posts: 1448
Location: Florida, USA
|
| Posted: Sun Sep 27, 2009 4:11 pm Post subject: |
|
|
Have you tried using the SetParent API function to set the desktop window as the parent? I have done that with individual controls however I am not sure if it would work with top level windows or not?
_________________
Home of
Give VDS a new purpose!
|
|
| Back to top |
|
|
vdsalchemist
Admin Team
Joined: 23 Oct 2001
Posts: 1448
Location: Florida, USA
|
|
| Back to top |
|
|
Garrett
Moderator Team
Joined: 04 Oct 2001
Posts: 2149
Location: A House
|
| Posted: Sun Sep 27, 2009 6:04 pm Post subject: |
|
|
I finally found what I was looking for.. The file was named:
CodeScript - API_WindowUnderDesktop.dsc
Not sure if that's it's original name or the name I gave it when organizing my files here.
Thanks,
~Garrett
_________________
'What you do not want done to yourself, do not do to others.' - Confucius (550 b.c. to 479 b.c.) |
|
| Back to top |
|
|
SnarlingSheep
Professional Member
Joined: 13 Mar 2001
Posts: 759
Location: Michigan
|
| Posted: Sun Sep 27, 2009 6:06 pm Post subject: |
|
|
I'm curious to see it now, care to share the code?
_________________
-Sheep
My pockets hurt... |
|
| Back to top |
|
|
Garrett
Moderator Team
Joined: 04 Oct 2001
Posts: 2149
Location: A House
|
| Posted: Mon Sep 28, 2009 5:08 am Post subject: |
|
|
Hmmm, let me see if I can find it here on VDS World.
_________________
'What you do not want done to yourself, do not do to others.' - Confucius (550 b.c. to 479 b.c.) |
|
| Back to top |
|
|
Garrett
Moderator Team
Joined: 04 Oct 2001
Posts: 2149
Location: A House
|
| Posted: Mon Sep 28, 2009 5:12 am Post subject: |
|
|
Nope, couldn't find it on VDS World. So here's the code:
| Code: | This is a fancy dialog window that is placed such that it is behind the desktop for keybord/mouse focus but can be visible ontop(refer to my previus examples for ontop,notontop and transparent window.
The OUTSTANDING features of this window:
1.The window behind(or desktop icons ) this transparent window can be selected and worked on as if this window did never exist.
2.Even text on the window doesnot obscure focus !(not the case with native VDS invisible style).
3. Transparency can be adjusted and background can be changed !
Utility:
Can be used for:
1.News updates
2.Sticky notes/Notifications.
3.Fancy media player
4.And things You can imagine - Sky is the limit for Ur imagination! he he.
Please note that the script uses non VDS dll and API calls.
Use at your own risk.
I have tested on WinXP - should work on win 2k+.(never Try on Win98/Me) |
| Code: | #----------------------------------------------------------------------------#
#Calling a Non-VDs dll; Just Great window VDS 5+Win2k+-----------------------#
#----------------------------------------------------------------------------#
#Author: CodeScript---------------------------------------------------------#
#----------------------------------------------------------------------------#
#Copyright:You can remove this info while(if) Using this code in your app.---#
#----------------------------------------------------------------------------#
REM USE AT YOUR OWN RISK !!
REM MISTAKES MADE WHILE USING A NON VDS DLL MAY INVITE A VDS/SYSTEM CRASH.
REM SAVE YOUR WORK BEFORE RUNNING/DEBUGGING THIS SCRIPT.
REM IF ANY TIME FORM BECOMES INVISIBLE PRESS F6 TO STOP THE DEMO
Title OOOPS !
REM CHECK THE WINDOWS VERSION AND DIASALLOW THOSE BELOW WIN 2K.
%%WINDOWVERSION = @substr(@SYSINFO(WINVER),1,1)
If @greater(5,%%WINDOWVERSION)
warn SORRY ! This Script uses Transparent windows supported only on Win2000 and above !
exit
end
%%ico = @windir()\explorer.exe
%%taskclick = 0
Title Just Great window Demo by CodeScript
DIALOG CREATE,Just Great window,200,200,195,121,CLASS MYWIN,SNAP,ONTOP,INVISIBLE,NOTITLE
REM YOU CAN CHNAGE THE COLOR OF STYLE TO CHANGE THE FONT COLOR
DIALOG ADD,STYLE,STYLE1,,,,,FF0080
DIALOG ADD,STYLE,STYLE2,,,B,,
Dialog add,TASKICON,TaskIcon,%%ico,Just Great
REM AVOID EDITING THE USER32.DLL DECLARATIONS AND CONSTANTS TO AVOID CRASH.
LOADLIB USER32
%H = @strdel(@WINEXISTS(#MYWIN),1,1)
IF %H
%I = @lib(user32,GetWindowLongA,INT:,%H,-20)
%I = @lib(user32,SetWindowLongA,INT:,%H,-20,$80000)
%I = @lib(user32,SetLayeredWindowAttributes,INT:,%H,0,160,$2)
%I = @lib(user32,SetWindowLongA,INT:,%H,-20,-4000)
ELSE
ERROR -1
end
FREELIB USER32
REM CHANGING THE COLOR OF GRADIENT CHANGES THE BACKGROUND
DIALOG ADD,GRADIENT,GRADIENT1,-1,0,195,123,F2EFEA,WHITE,,BOTTOMTOTOP
DIALOG ADD,TEXT,TEXT1,13,79,,,Breaking news !!,,TRANSPARENT
DIALOG ADD,TEXT,TEXT2,34,88,,,Sticky notes !!,,TRANSPARENT
DIALOG ADD,TEXT,TEXT4,96,10,,,Sky is the limit for Ur Imagination !!,,TRANSPARENT
DIALOG ADD,TEXT,TEXT3,55,77,,,Program Status !!,,TRANSPARENT
DIALOG ADD,TEXT,TEXT5,76,81,,,Media Player !!,,TRANSPARENT,STYLE2
DIALOG SHOW
:Evloop
wait event
goto @event()
:OKBUTTON
LOADLIB USER32
%H = @strdel(@WINEXISTS(#MYWin),1,1)
if %H
%H = @lib(user32,SetForegroundWindow,BOOL:,%H)
else
ERROR -1
end
FREELIB USER32
END
window normal,#MYWIN
goto EVLOOP
:TaskIconCLICK
if @equal(@click(b),RIGHT)
dialog popup,Hide|Show|Ontop|DesktopOnly|-|Exit
else
goto Check
end
goto EVLOOP
:check
REM CHECK THE WINDOW STATUS USING A VARIABLE AND TOGGLE ACCORDINGLY
IF @EQUAL(%%taskclick,0)
%%taskclick = 1
goto hideMenu
ELSE
%%taskclick = 0
goto ShowMENU
END
:HideMENU
window hide,#MYWIN
goto EVLOOP
:ShowMENU
LOADLIB USER32
%H = @strdel(@WINEXISTS(#MYWin),1,1)
if %H
%H = @lib(user32,SetForegroundWindow,BOOL:,%H)
else
ERROR -1
end
FREELIB USER32
END
window normal,#MYWIN
goto EVLOOP
:OntopMENU
%%taskclick = 0
window ontop,#MYWIN
window normal,#MYWIN
goto EVLOOP
:DesktopOnlyMENU
REM THIS IS NOTHING BUT NOTONTOP OPTION
LOADLIB USER32
%H = @strdel(@WINEXISTS(#MYWin),1,1)
if %H
%H = @lib(user32,SetWindowPos,BOOL:,%H,-2,0,0,0,0,3)
else
ERROR -1
end
FREELIB USER32
END
goto EVLOOP
:ExitMENU
:Close
exit
|
_________________
'What you do not want done to yourself, do not do to others.' - Confucius (550 b.c. to 479 b.c.) |
|
| Back to top |
|
|
SnarlingSheep
Professional Member
Joined: 13 Mar 2001
Posts: 759
Location: Michigan
|
|
| Back to top |
|
|
Garrett
Moderator Team
Joined: 04 Oct 2001
Posts: 2149
Location: A House
|
| Posted: Mon Sep 28, 2009 2:44 pm Post subject: |
|
|
heh, why didn't I think of just checking his page...
_________________
'What you do not want done to yourself, do not do to others.' - Confucius (550 b.c. to 479 b.c.) |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You can attach files in this forum
You can download files in this forum
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
@vdsworld