CodeScript
Moderator Team
Joined: 08 Jun 2003
Posts: 1060
Location: India
|
 Posted: Fri Jul 04, 2003 10:41 am Post subject: Bevelled window VDS 5.x all Win versions |
 |
|
Did U ever want to add special styles to your app.
Here is a Bevelled window for VDS 5!.
Note that small cap style doesnt work properly in conjunction with this. I will add a different one for that.
Use at your own risk.
ENJOY !
| Quote: |
#----------------------------------------------------------------------------#
#Calling a Non-VDs dll; Bevelled window VDS 5+Win 98/ME/2k/XP----------------#
#----------------------------------------------------------------------------#
#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 Bevelled Window Demo by CodeScript
DIALOG CREATE,Bevelled Window Demo by CodeScript,-1,0,491,120,CLASS MYWIN,
REM SMALLCAP STYLE WILL NOT WORK THIS.
REM IF U WANT A Bevelled Window WITH SMALL CAPTION LOOK FOR ANOTHER DEMO.
DIALOG ADD,BUTTON,OK,80,194,100,24,Nice OK !
LOADLIB USER32
%H = @strdel(@WINEXISTS(#MYWIN),1,1)
IF %H
%H = @lib(user32,SetWindowLongA,INT:,%H,-20,852)
ELSE
ERROR -1
end
FREELIB USER32
DIALOG SHOW
REM RESIZE THE WINDOW A BIT FOR THE CHANGES TO OCCUR
REM ELSE STYLE WILL CHANGE ONLY AFTER A MINIMIZE ETC.
Window POSITION,#MYWIN,,,,150
:Evloop
wait event
goto @event()
:OKBUTTON
:Close
exit
|
_________________
Regards
- CodeScript
 Give your application a professional look with the VDSGUI Extension |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
@vdsworld