| View previous topic :: View next topic |
| Author |
Message |
X-Tools Valued Contributor

Joined: 20 Sep 2001 Posts: 296 Location: Germany
|
Posted: Mon Feb 23, 2004 8:14 am Post subject: Real SideTabs ? |
|
|
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 |
|
 |
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: Mon Feb 23, 2004 12:32 pm Post subject: |
|
|
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
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: Mon Feb 23, 2004 1:32 pm Post subject: |
|
|
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
Give your application a professional look with the VDSGUI Extension |
|
| Back to top |
|
 |
CodeScript Moderator Team

Joined: 08 Jun 2003 Posts: 1060 Location: India
|
|
| Back to top |
|
 |
X-Tools Valued Contributor

Joined: 20 Sep 2001 Posts: 296 Location: Germany
|
Posted: Tue Feb 24, 2004 3:57 pm Post subject: |
|
|
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 |
|
 |
CodeScript Moderator Team

Joined: 08 Jun 2003 Posts: 1060 Location: India
|
Posted: Tue Feb 24, 2004 4:39 pm Post subject: |
|
|
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
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: Tue Feb 24, 2004 6:17 pm Post subject: |
|
|
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
Give your application a professional look with the VDSGUI Extension |
|
| Back to top |
|
 |
FreezingFire Admin Team

Joined: 23 Jun 2002 Posts: 3508
|
Posted: Tue Feb 24, 2004 9:52 pm Post subject: |
|
|
| CodeScript wrote: | Now should work well on Win XP too.
BTW I think this thread should go to Advanced section. |
Moved.  _________________ FreezingFire
VDSWORLD.com
Site Admin Team |
|
| Back to top |
|
 |
|
|
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
|
|