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 


Real SideTabs ?

 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Advanced Help for VDS 5 & Up
View previous topic :: View next topic  
Author Message
X-Tools
Valued Contributor
Valued Contributor


Joined: 20 Sep 2001
Posts: 296
Location: Germany

PostPosted: Mon Feb 23, 2004 8:14 am    Post subject: Real SideTabs ? Reply with quote

Hi,

is there a way to make real sidetabs in VDS, maybe through api ?

I am searching for sidetabs with vertical text on it, not horizontal.

Thanks for your help.

Bye, Fabian

P.S. Some month ago there was a thread on this forum about all windows elements that can be placed on a vds dialog with the new vds5 update (trees, windows-style dateboxes, ...). I cannot find this thread anymore. Does somebody know where it is ?
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Skit3000
Admin Team


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

PostPosted: Mon Feb 23, 2004 11:01 am    Post subject: Reply with quote

I think you mean [ this ] topic. For your question about sidetabs, I think you should be able to do that by giving the VDS tabs the right style with one of these APIs: GetWindowLongA and SetWindowLongA... Smile
_________________
[ 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
CodeScript
Moderator Team


Joined: 08 Jun 2003
Posts: 1060
Location: India

PostPosted: Mon Feb 23, 2004 12:32 pm    Post subject: Reply with quote

yeah skit - but he want's the text to be vertical - I guess difficult in VDS.
I may add post an example using VDSGUI DLL if possible (should be possible).

I may simplify this to a single command to do all the things
under GUI SET,DIALOGSTYLE being developed - but this will be only
after I complete documentation for multicolored bitlist.

_________________
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
CodeScript
Moderator Team


Joined: 08 Jun 2003
Posts: 1060
Location: India

PostPosted: Mon Feb 23, 2004 1:32 pm    Post subject: Reply with quote

Here is the code for VDS 5.

Get VDSGUI DLL from here :
http://www.vdsworld.com/index.php?page=download&fileid=385

Code:
  EXTERNAL VDSGUI,DEMO
  #DEFINE COMMAND,GUI
  #DEFINE FUNCTION,GUI
 
  DIALOG CREATE,New Dialog,-1,0,332,229
  DIALOG ADD,TAB,TAB1,0,-1,310,209,Tab 1|Tab 2|Tab 3 |Tab 4|Tab 5|Tab 6
  DIALOG ADD,STATUS,STATUS1,
  REM TCS_VERTICAL = $80 You can add TCS_RIGHT for right orientation.
  REM TCS_MULTILINE = $200
  REM Multiline style is mandatory for vertical tabs
  LOADLIB USER32
  %H = @STRDEL(@WINEXISTS(~TAB1),1,1)
  %A = @LIB(USER32,GetWindowLongA,int:,%H,-16)
  %B = @LIB(USER32,SetWindowLongA,int:,%H,-16,@SUM(%A,$80,$200))
  GUI DYNAFONT,@WINEXISTS(~TAB1),Courier,10
  FREELIB USER32
  DIALOG SHOW
 
  :EVLOOP
  WAIT EVENT
  %E = @EVENT()
  DIALOG SET,STATUS1,%E
  IF @NOT(@EQUAL(%E,CLOSE))
  GOTO EVLOOP
  END

  :CLOSE
  EXIT

_________________
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
CodeScript
Moderator Team


Joined: 08 Jun 2003
Posts: 1060
Location: India

PostPosted: Mon Feb 23, 2004 4:47 pm    Post subject: Reply with quote

Embarassed I tested the above with XP manifest and it won't work - in all other sitautions it works.
This is becuse M$ has removed support for vertical style
in ComCtl32.dll version 6 that comes with XP.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/tab/styles.asp
So having your own OWNER DRAWN control is the only solution if U want XP manifest.

_________________
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
X-Tools
Valued Contributor
Valued Contributor


Joined: 20 Sep 2001
Posts: 296
Location: Germany

PostPosted: Tue Feb 24, 2004 3:57 pm    Post subject: Reply with quote

Hi,

thanks for your help.
Is there a way to make it work on xp ?

I have another question related on vdsgui.
Can you add a command for making the tooltip of a element be shown ? (To notify the user about a change on a field for example.)

Thanks.

Bye, Fabian
Back to top
View user's profile Send private message Send e-mail Visit poster's website
CodeScript
Moderator Team


Joined: 08 Jun 2003
Posts: 1060
Location: India

PostPosted: Tue Feb 24, 2004 4:39 pm    Post subject: Reply with quote

Hi X-Tools
It works even now on XP - but you should not include XP mainifest in your exe. Ofcourse this means that you can't have XP styles to your buttons etc.
I will see if I can somehow Isolate your tab from using XP styles.

As for tooltips I have tried it thatway but some how seems to hang.

In XP again I can add such a command easily but I guess U want it to work on older OS too.

I will look into it again.

_________________
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
CodeScript
Moderator Team


Joined: 08 Jun 2003
Posts: 1060
Location: India

PostPosted: Tue Feb 24, 2004 6:17 pm    Post subject: Reply with quote

Now should work well on Win XP too.
BTW I think this thread should go to Advanced section.
Code:
  EXTERNAL VDSGUI,DEMO
  #DEFINE COMMAND,GUI
  #DEFINE FUNCTION,GUI

  DIALOG CREATE,New Dialog,-1,0,332,229
  DIALOG ADD,TAB,TAB1,0,-1,310,209,Tab 1|Tab 2|Tab 3 |Tab 4|Tab 5|Tab 6
  DIALOG ADD,STATUS,STATUS1,
  rem TCS_VERTICAL = $80 You can add TCS_RIGHT for right orientation.
  rem TCS_MULTILINE = $200
  rem Multiline style is mandatory for vertical tabs
  LOADLIB USER32
  %H = @STRDEL(@WINEXISTS(~TAB1),1,1)
  REM For WinXP Only
  IF @GREATER(@SUBSTR(@SYSINFO(winver),1,1),4)
  LOADLIB UXTHEME.DLL
  %A = " "
  %B = " "
  %Z = @LIB(UXTHEME,SetWindowTheme,nil:,%H,@ADDR("%A"),@ADDR("%B"))
  FREELIB UXTHEME.DLL
  END
  %A = @LIB(USER32,GetWindowLongA,int:,%H,-16)
  %B = @LIB(USER32,SetWindowLongA,int:,%H,-16,@SUM(%A,$80,$200))
  GUI DYNAFONT,@WINEXISTS(~TAB1),Courier,10
  FREELIB USER32
  DIALOG ADD,BUTTON,BUTTON1,142,83,131,44,BUTTON1
  DIALOG SHOW

:EVLOOP
  WAIT EVENT
  %E = @EVENT()
  DIALOG SET,STATUS1,%E
  IF @NOT(@EQUAL(%E,CLOSE))
    GOTO EVLOOP
  END

:CLOSE
  EXIT

_________________
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
FreezingFire
Admin Team


Joined: 23 Jun 2002
Posts: 3508

PostPosted: Tue Feb 24, 2004 9:52 pm    Post subject: Reply with quote

CodeScript wrote:
Now should work well on Win XP too.
BTW I think this thread should go to Advanced section.


Moved. Smile

_________________
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 Help for VDS 5 & Up 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