| View previous topic :: View next topic |
| Author |
Message |
PGWARE
Web Host
Joined: 29 Dec 2001
Posts: 1567
|
 Posted: Mon Apr 12, 2004 3:28 pm Post subject: |
 |
|
%P = @sendmsg(@winexists(~LIST1),$0194,1000,0)
The message identified $0194 is the Windows API Message - LB_SETHORIZONTALEXTENT
| Quote: |
From VDS API Reference:
LB_SETHORIZONTALEXTENT
Windows = (Windows NT, Windows 95, Windows 98, Win32's)
wParam = (WPARAM) cxExtent; // horizontal scroll width
lParam = 0; // not used; must be zero
Message ID = $0194
Description: An application sends an LB_SETHORIZONTALEXTENT message to set the width, in pixels, by which a list box can be scrolled horizontally (the scrollable width). If the width of the list box is smaller than this value, the horizontal scroll bar horizontally scrolls items in the list box. If the width of the list box is equal to or greater than this value, the horizontal scroll bar is hidden.
Parameters
WPARAM CXEXTENT VALUES
Value of wParam. Specifies the number of pixels by which the list box can be scrolled.
Return Value: This message does not return a value.
Sample Source Code
title TEST
DIALOG CREATE,TEST,-1,0,213,215
DIALOG ADD,BUTTON,BUTTON1,170,70,,,,DEFAULT
DIALOG ADD,LIST,LIST1,10,12
DIALOG SHOW
:evloop
wait event
goto @event()
:BUTTON1BUTTON
list add,list1,Vds Is cool
list add,list1,Hello World
list add,list1,Good Bye World
%A = @sendmsg(@win(~LIST1),$0194,200,0)
warn %A
rem Makes a 200 pixel sized horizontal scroll bar on the listbox
goto evloop
:CLOSE
exit
See also:
LB_GETHORIZONTALEXTENT
|
|
|
| Back to top |
|
 |
tim6389
Professional Member
Joined: 01 Aug 2002
Posts: 790
|
| Posted: Mon Apr 12, 2004 3:31 pm Post subject: |
|
|
ahhhh kkk i see what ya mean now
sorry about that..
_________________
Have a nice day  |
|
| Back to top |
|
|
vdsalchemist
Admin Team
Joined: 23 Oct 2001
Posts: 1448
Location: Florida, USA
|
| Posted: Mon Apr 12, 2004 4:00 pm Post subject: |
|
|
Thanks PGWare  I was going to look it up but that takes a lot of time to do so  BTW names of numeric values are always important. Now that you know the name of the value you get some sort of idea what the value is actually doing. Notice that it does not turn scroll bars on and off it actually makes the Listbox larger than the window that it is on so thereby causing Windows to give it a scrollbar.
_________________
Home of
Give VDS a new purpose!
 |
|
| Back to top |
|
|
vtol
Valued Contributor
Joined: 05 Feb 2004
Posts: 656
Location: Eastern Indiana
|
| Posted: Tue Apr 13, 2004 12:29 am Post subject: |
|
|
I tried to run your Example PGWARE, and got an error on the A% MSG line 
Maybe it won't run on VDS5 or I missed something in the POST |
|
| Back to top |
|
|
Serge
Professional Member
Joined: 04 Mar 2002
Posts: 1480
Location: Australia
|
| Posted: Tue Apr 13, 2004 2:10 am Post subject: |
|
|
vtol...did you add the following line to the start of your program?
| Code: | | #define function, sendmsg |
you also must have a list1 in your code
serge
_________________
|
|
| Back to top |
|
|
FreezingFire
Admin Team
Joined: 23 Jun 2002
Posts: 3508
|
| Posted: Tue Apr 13, 2004 12:01 pm Post subject: |
|
|
Serge, the function @sendmsg() is native to VDS, so you won't need to
define it.
_________________
FreezingFire
VDSWORLD.com
Site Admin Team |
|
| Back to top |
|
|
Serge
Professional Member
Joined: 04 Mar 2002
Posts: 1480
Location: Australia
|
| Posted: Tue Apr 13, 2004 1:01 pm Post subject: |
|
|
it is?!?! i must read the vds 5 help file more often
thanks ff
serge
_________________
|
|
| Back to top |
|
|
vtol
Valued Contributor
Joined: 05 Feb 2004
Posts: 656
Location: Eastern Indiana
|
| Posted: Wed Apr 14, 2004 4:35 am Post subject: |
|
|
Oh, oops
I had so many POST going at once I forgot to tell you I got all this scroll stuff done.
I have it automatically adjusting to text as needed on the fly.
I had it on a button first, each time you clicked the 'horizontal' button, it would adjust from normal large and OFF... pritty fun subject
Thanks all you for all your help. |
|
| Back to top |
|
|
Serge
Professional Member
Joined: 04 Mar 2002
Posts: 1480
Location: Australia
|
| Posted: Wed Apr 14, 2004 8:36 am Post subject: |
|
|
well done vtol...great feeling when you get it working just right eh?
serge
_________________
|
|
| Back to top |
|
|
vtol
Valued Contributor
Joined: 05 Feb 2004
Posts: 656
Location: Eastern Indiana
|
| Posted: Wed Apr 14, 2004 9:37 am Post subject: |
|
|
Yes it is Serge, but I couldnt enjoy it with out all the help from people here, I got a lot to learn still, but I figure I'm in the fun(noob) level of learning.
Thanks again for helping me with this.. |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
@vdsworld