forum.vdsworld.com Forum Index forum.vdsworld.com
Visit VDSWORLD.com
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


Funny (Mac Style) Window VDS 5.x Win2k+

 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Advanced VDS 5 Source Code
View previous topic :: View next topic  
Author Message
CodeScript
Moderator Team


Joined: 08 Jun 2003
Posts: 1060
Location: India

PostPosted: Sat Jul 05, 2003 5:03 am    Post subject: Funny (Mac Style) Window VDS 5.x Win2k+ Reply with quote

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
Arrow 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
Back to top
View user's profile Send private message Visit poster's website
CodeScript
Moderator Team


Joined: 08 Jun 2003
Posts: 1060
Location: India

PostPosted: Sat Jul 05, 2003 8:10 am    Post subject: Reply with quote

You can replace $400000 with
1. 100000000 to get non-bevelled window.

_________________
Regards
- CodeScript
Arrow Give your application a professional look with the VDSGUI Extension
Back to top
View user's profile Send private message Visit poster's website
Skit3000
Admin Team


Joined: 11 May 2002
Posts: 2166
Location: The Netherlands

PostPosted: Sat Jul 05, 2003 9:35 am    Post subject: Reply with quote

Even the shade is moved from right to left.... Very Happy
_________________
[ Add autocomplete functionality to your VDS IDE windows! ]
Voor Nederlandse beginners met VDS: bekijk ook eens deze tutorial!
Back to top
View user's profile Send private message
FreezingFire
Admin Team


Joined: 23 Jun 2002
Posts: 3508

PostPosted: Sat Jul 05, 2003 11:43 am    Post subject: Reply with quote

And another cool example! Very Happy
_________________
FreezingFire
VDSWORLD.com
Site Admin Team
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Advanced VDS 5 Source Code All times are GMT
Page 1 of 1

 
Jump to:  
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

Twitter@vdsworld       RSS

Powered by phpBB © 2001, 2005 phpBB Group