| View previous topic :: View next topic |
| Author |
Message |
CodeScript
Moderator Team
Joined: 08 Jun 2003
Posts: 1060
Location: India
|
 Posted: Sat Jul 05, 2003 8:08 am Post subject: Mirror Window VDS 5.x + Win2k+ |
 |
|
Mirror Window VDS 5.x + Win2k+
This looks funny. All text including title is mirrored.
I really dont concieve any great use out of it. You can use as a joke etc.
| Code: |
___________________________________________________________________________
#-----------------------------------------------------------------------------#
#-Calling a Non-VDs dll Mirror Window by CodeScript---------------------------#
#-Author: CodeScript----------------------------------------------------------#
#-Copyright: You can remove this info while 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.
Title Mirror Window by CodeScript
DIALOG CREATE, Mirror Window by CodeScript,-1,0,356,120,CLASS MYWIN,resizable
DIALOG ADD,BUTTON,OK,70,112,130,24,! Close
DIALOG ADD,TEXT,TEXT1,35,57,,,The World is Reversed here !
DIALOG SHOW
REM RESIZE TTHE WINDOW A BIT FOR THE CHANGES TO OCCUR
REM ELSE STYLE WILL CHANGE ONLY AFTER A MINIMIZE ETC.
LOADLIB USER32
%H = @strdel(@WINEXISTS(#MYWIN),1,1)
IF %H
%H = @lib(user32,SetWindowLongA,INT:,%H,-20,600000000)
ELSE
ERROR -1
end
FREELIB USER32
Window POSITION,#MYWIN,,,,150
:RESIZE
goto EVLOOP
:Evloop
wait event
goto @event()
:OKBUTTON
:Close
exit
|
You can replace 600000000 with
1. 400000000 to get non-bevelled window.
2. 300000000 for a bevelled window with a little thicker frame.
_________________
Regards
- CodeScript
 Give your application a professional look with the VDSGUI Extension
Last edited by CodeScript on Sat Jul 05, 2003 4:52 pm; edited 3 times in total |
|
| Back to top |
|
 |
Skit3000
Admin Team
Joined: 11 May 2002
Posts: 2166
Location: The Netherlands
|
|
| Back to top |
|
|
CodeScript
Moderator Team
Joined: 08 Jun 2003
Posts: 1060
Location: India
|
| Posted: Sat Jul 05, 2003 10:53 am Post subject: |
|
|
| Skit3000 wrote: | Don't try this one, like me... #Shell_TrayWnd...  |
Why what happened ? Really sorry if it has caused some serious harm.   works well on my Xp machine _tried again . what OS U where on. I could not get.
BTW the script is of no great use and I have removed it pending your answer.
Also anyone has problems with this one I'm sorry and please let me know.
_________________
Regards
- CodeScript
Give your application a professional look with the VDSGUI Extension |
|
| Back to top |
|
|
FreezingFire
Admin Team
Joined: 23 Jun 2002
Posts: 3508
|
| Posted: Sat Jul 05, 2003 11:45 am Post subject: |
|
|
| Skit3000 wrote: | | Don't try this one, like me... #Shell_TrayWnd... |
My guess is maybe Skit was testing it and changed the sample window
class in the code to #Shell_TrayWnd and maybe it messed up the
task bar... 
_________________
FreezingFire
VDSWORLD.com
Site Admin Team |
|
| Back to top |
|
|
Skit3000
Admin Team
Joined: 11 May 2002
Posts: 2166
Location: The Netherlands
|
| Posted: Sat Jul 05, 2003 4:06 pm Post subject: |
|
|
Yup...  I also found out that the start-button is on the right, but that the other 'Quick Start' links remain on their place... You can try it if you like, you can close and restart explorer.exe with the Task Manager afterwards without having to reboot...
_________________
[ Add autocomplete functionality to your VDS IDE windows! ]
Voor Nederlandse beginners met VDS: bekijk ook eens deze tutorial! |
|
| Back to top |
|
|
CodeScript
Moderator Team
Joined: 08 Jun 2003
Posts: 1060
Location: India
|
| Posted: Sat Jul 05, 2003 4:45 pm Post subject: |
|
|
Ok if U change ths app title class to this it happens. else I didn't find any harm it does - tried on 3 different computers with Win Xp and home. dont have access to Win 2000. Anyway it wont work on win9x.
I am restoring the code back.
_________________
Regards
- CodeScript
Give your application a professional look with the VDSGUI Extension |
|
| Back to top |
|
|
CodeScript
Moderator Team
Joined: 08 Jun 2003
Posts: 1060
Location: India
|
| Posted: Sat Jul 05, 2003 5:57 pm Post subject: |
|
|
To get a beeter result(icons appear and are in the corresponding position) you can use Just great window and Mac style window codes one after the other. To Undo just change taskbar proerties to autohide and back. No need for kicking off the explorer.
Anyway I stongly advice against any person new to computers etc trying/playng this.
_________________
Regards
- CodeScript
Give your application a professional look with the VDSGUI Extension |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
@vdsworld