CodeScript Moderator Team
Joined: 08 Jun 2003 Posts: 1060 Location: India
|
Posted: Sat Jul 05, 2003 5:03 am Post subject: Funny (Mac Style) Window VDS 5.x Win2k+ |
|
|
This is a window with its Title bar reversed from right to left(like a Mac Window I
think). you can addtionallly add other styles(small cap , no min etc to spice it up.
Tested on WinXp. I think should work on Win2k+
Please note that the script uses non VDS dll and API calls.
Use at your own risk.
Code: |
_________________________________________________________________________________________________
#-----------------------------------------------------------------------------#
#-Calling a Non-VDs dll Funny(Mac Style) Window VDS5+ Win2k+------------------#
#-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 Funny (Mac Style) Window by CodeScript
DIALOG CREATE, Funny (Mac Style) 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,,,You can add other additional styles to spice it up !
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,$400000)
ELSE
ERROR -1
end
FREELIB USER32
Window POSITION,#MYWIN,,,,150
:RESIZE
goto EVLOOP
:Evloop
wait event
goto @event()
:OKBUTTON
:Close
exit
|
_________________ Regards
- CodeScript
Give your application a professional look with the VDSGUI Extension
Last edited by CodeScript on Sat Jul 05, 2003 4:56 pm; edited 2 times in total |
|