| View previous topic :: View next topic |
| Author |
Message |
Rubes_sw Valued Contributor


Joined: 11 Jun 2001 Posts: 625 Location: Northern Ireland
|
Posted: Sun Jan 07, 2007 11:57 pm Post subject: First DSU of the New Year ! |
|
|
Ok, i had to create a small DSU the first for 2007
OK, i'm lying slightly. The code in the dsu is being used in a re-vamped program i designed a while back and its getting a revival.
The dsu is called: vertscroll.dsu
and it does:
This dsu allow you to display a configurable Vertical Scroller on the VDS Dialog (with the use of the VDS Browser Element.
You can set the Height, Width, Speed, Direction, Background Colour and you can send most standard HTML code to it.
And best of all it's FREE !
Only one drawback i'm afraid, you must include the vds browser dll with your project. (sorry), but hey the code works great, looks great especially for credits and disclaimers, help etc.
With a small overhead of 3Kb, download it from:
http://www.active-ware.co.uk/files/vertscroll.zip
Nathan
ps. If you find any bugs or want to make a suggestion, don't hesitate to post them here
Happy New Year |
|
| Back to top |
|
 |
Rubes_sw Valued Contributor


Joined: 11 Jun 2001 Posts: 625 Location: Northern Ireland
|
Posted: Mon Jan 08, 2007 8:43 am Post subject: |
|
|
Ok small update
I have modified the demo.dsc file to show how to include an image/logo/picture into the vert scroller.
Download link same as previous post.
Version 1.1
Nathan |
|
| Back to top |
|
 |
Rubes_sw Valued Contributor


Joined: 11 Jun 2001 Posts: 625 Location: Northern Ireland
|
Posted: Mon Jan 08, 2007 2:48 pm Post subject: |
|
|
Any feedback ?
Nathan |
|
| Back to top |
|
 |
jwfv Valued Contributor

Joined: 19 Mar 2002 Posts: 422 Location: Beaufort, SC
|
Posted: Mon Jan 08, 2007 3:21 pm Post subject: |
|
|
Very nice little DSU - could be very helpful in the right situation.
I once was very excited about the possiblities that the browser element opened up for VDS - image viewing, menus, other cool stuff. But there is a problem that has been discussed before on this forum that I don't think anyone has been able to work around:
In some cases, the browser element will cause an error if you attempt to use it on a server and you don't have administrator privileges.
Here is a link to this topic: http://www.vdsworld.com/forum/viewtopic.php?t=3219&postdays=0&postorder=asc&highlight=extension+requires+microsoft+internet+explorer++++later&start=0
I have been able to use the VDSSURFX.dll with success to get around the problem. Some of my users use VDS applications deployed via terminal server, so I have to use VDSSURFX. There are a couple of features of VDSBRW50.dll that are not present in VDSSURFX, primarily the ability to read the content of the loaded page.
Does anyone know if:
1.) This may be fixed by switching to Internet Explorer 7.0?
2.) There is a fix planned for VDS6?
3.) There is an upgrade planned to VDSSURFX to allow the missing features that are found in VDSBRW50?
Thanks for any info - and good DSU, Nathan.
Joe _________________ Joe Floyd |
|
| Back to top |
|
 |
marty Professional Member


Joined: 10 May 2001 Posts: 789
|
Posted: Mon Jan 08, 2007 5:05 pm Post subject: |
|
|
| Quote: | | 3.) There is an upgrade planned to VDSSURFX to allow the missing features that are found in VDSBRW50? |
No...but I did add a little function in 2006 with non official update of VDSSUFX, here is what I wrote in the thread:
| Quote: | Ok added a new function to retreive the source of body of the current page into a variable:
Example:
Code:
%%source = @surfx(getsource,mSURFX)
Let me know how it goes...
|
Hope this helps out.. But I dont have the source of this DLL anymore. So can't add new fewtures or fix bugs.
Here is the link to the last version of VDSSURFX containing the above function:
http://www.extremesenses.com/vds/vdssurfx.dll
Sorry no time to update doc or package...
And the link to the VDSSURFX Thread for more info about it...
http://forum.vdsworld.com/viewtopic.php?t=2975&highlight=vdssurfx |
|
| Back to top |
|
 |
jwfv Valued Contributor

Joined: 19 Mar 2002 Posts: 422 Location: Beaufort, SC
|
Posted: Mon Jan 08, 2007 5:26 pm Post subject: |
|
|
Cool - thanks Marty. I see that I posted something on that thread. I'll have to go back and see whether it will work for what I need or not. _________________ Joe Floyd |
|
| Back to top |
|
 |
DavidR Contributor

Joined: 05 Aug 2003 Posts: 83 Location: Bethel Pennsylvania U.S.A.
|
Posted: Tue Jan 09, 2007 4:31 pm Post subject: |
|
|
| Rubes_sw wrote: | Any feedback ?
Nathan |
This is really cool! Nice job..
I did some tinkering with it but I keep getting hung up on the same problem.
For my application I need to be able to trap a mouse click anywhere over the scrolling text and prevent the click from passing to the browser window itself.
I've experimented with invisible bitmaps etc. but so far haven't had success. I suspect this is a function of the Browser element as I don't seem to be able to overlay it with anything else. Perhaps I need to create a second "invisible" Dialog.. I didn't try that yet.
Anybody have any suggestions?
Thanks......
...............David |
|
| Back to top |
|
 |
Rubes_sw Valued Contributor


Joined: 11 Jun 2001 Posts: 625 Location: Northern Ireland
|
Posted: Tue Jan 09, 2007 4:35 pm Post subject: |
|
|
Hi Dave
Right Click or Left Click ?
In other words, r u looking for a way to disable a right click, left click when the user hovers over the browser/scroller ?
Nathan |
|
| Back to top |
|
 |
DavidR Contributor

Joined: 05 Aug 2003 Posts: 83 Location: Bethel Pennsylvania U.S.A.
|
Posted: Tue Jan 09, 2007 4:51 pm Post subject: |
|
|
Actually both!
I made a scroller in VDS where I capture the left click (mousedown) to allow the user to drag the window wherever they want and I use the right click to pop up a menu.
........David |
|
| Back to top |
|
 |
Rubes_sw Valued Contributor


Joined: 11 Jun 2001 Posts: 625 Location: Northern Ireland
|
Posted: Tue Jan 09, 2007 5:03 pm Post subject: |
|
|
Hi Dave
Ok can do, will modify the dsu and upload this evening.
Nathan |
|
| Back to top |
|
 |
Rubes_sw Valued Contributor


Joined: 11 Jun 2001 Posts: 625 Location: Northern Ireland
|
Posted: Tue Jan 09, 2007 9:01 pm Post subject: |
|
|
OK, new update to the vertscroller.dsu
Version 1.2
It's now possible to disable left and right click and also display a custom message when the users trys to left and right click.
Use download link at the start of the topic.
Regards
Nathan
Feedback welcome as usual |
|
| Back to top |
|
 |
DavidR Contributor

Joined: 05 Aug 2003 Posts: 83 Location: Bethel Pennsylvania U.S.A.
|
Posted: Thu Jan 11, 2007 1:38 am Post subject: Scroller |
|
|
The changes are great Rubes! I wish I could figure out a way to get a Browser based scroller to do what I want.
I'm trying to display changing values from an external source on a scrolling bar without a title. It would be so much easier to use a web page as the source than having to find another way to import the data from a remote system, convert to variables and update the scroller.
Here's what I've got so far (just the displaying part.) Note that the user can rightclick and get a menu as well as leftclick and drag.
If anybody has any ideas how to improve I would like to hear them.
....David
| Code: |
#-----------------------------------------------------------------------------#
# #
# Script to get Process Information and display on users desktop #
# #
# Author: DavidR #
# #
# Copyright: #
# #
#-----------------------------------------------------------------------------#
OPTION SLEEPTIME,1
Title Stock
DIALOG CREATE,Scroller,-1,-1,503,25,snap,notitle,savepos,ontop,CLICK
DIALOG ADD,STYLE,FAIL,Arial,12,BI,,BLACK
DIALOG ADD,GRADIENT,GRADIENT1,0,0,0,0,00FF00,99FF00,,FIT,EDGESTOCENTER
DIALOG ADD,GRADIENT,GRADIENT2,0,0,0,0,FFFF00,FFFF66,,FIT,EDGESTOCENTER
DIALOG ADD,GRADIENT,GRADIENT3,0,0,0,0,FF0033,FF3300,,FIT,EDGESTOCENTER
DIALOG ADD,GRADIENT,GRADIENT4,0,0,0,0,33CCFF,33CCCC,,FIT,EDGESTOCENTER
DIALOG ADD,GRADIENT,GRADIENT5,0,0,0,0,CCCC99,CCCCCC,,FIT,EDGESTOCENTER
DIALOG ADD,TEXT,TEXT1,3,5,503,25,MY Scroller ! Right Click = Menu,Right Click = Menu,TRANSPARENT,,CLICK,FAIL
DIALOG ADD,TASKICON,MYScroller,,Restore MY Scroller
DIALOG DISABLE,MYScroller
DIALOG HIDE,GRADIENT2
DIALOG HIDE,GRADIENT3
DIALOG HIDE,GRADIENT4
DIALOG HIDE,GRADIENT5
DIALOG SHOW
LIST CREATE,1
# Load list1 with All Posible Gradients
LIST loadtext,1
"EMPTY Position Zero
"GRADIENT1
"GRADIENT2
"GRADIENT3
"GRADIENT4
"GRADIENT5
LIST CREATE,2
# Load list2 with Sample Text Values
LIST loadtext,2
"EMPTY Position Zero
"This is a Good Value
"This is a Warning
"This is an Alarm
"This is a Blue Background
"This is a Grey Background
%%index = 1
%%index1 = 2
DIALOG SETPOS,,,,720
DIALOG SETPOS,TEXT1,,,720
Wait 1
:Timer
GOTO Display
:Return
%%index1 = @SUCC(%%index1)
IF @GREATER(%%index1,5)
%%index1 = 1
END
goto evloop
:Evloop
wait event,4
goto @event()
:Menu
DIALOG POPUP,Minimize to TaskBar|Configure Preferences|Cancel|-|Exit
%e = @event()
if %e
goto %e
end
goto EVLOOP
:MINIMIZE TO TASKBARMENU
DIALOG ENABLE,MYScroller
DIALOG HIDE
goto EVLOOP
:Configure PreferencesMENU
INFO Configure Preferences
goto EVLOOP
:CancelMenu
goto evloop
:ExitMENU
:CLOSE
EXIT
:MYScrollerClick
DIALOG DISABLE,MYScroller
DIALOG SHOW
Window Position,Scroller,%%WinY,%%WinX
goto evloop
:TEXT1CLICK
%%BUTTON = @click(B)
IF @EQUAL(%%BUTTON,RIGHT)
goto Menu
END
%%WinY = @diff(@mousepos(Y),@winpos(Scroller,T))
%%WinX = @diff(@mousepos(X),@winpos(Scroller,L))
Repeat
Window Position,Scroller,@diff(@mousepos(Y),%%WinY),@diff(@mousepos(X),%%WinX)
Until @not(@mousedown(L))
%%WinY = @winpos(Scroller,T)
%%WinX = @winpos(Scroller,L)
Goto EVLOOP
Rem Display Routine
:Display
%N = 23
DIALOG SETPOS,TEXT1,%N
# Display Selected Text
DIALOG SET,TEXT1,@ITEM(2,%%index1)
# Scroll Text
REPEAT
%N = @PRED(%N)
DIALOG SETPOS,TEXT1,%N
IF @EQUAL(%N,11)
DIALOG HIDE,@ITEM(1,%%index)
DIALOG SHOW,@ITEM(1,%%index1)
END
wait .01
# IF somebody clicks on the display while we're scrolling, abort and process event
%A = @event()
IF %A
%N = 3
DIALOG SETPOS,TEXT1,%N
goto %A
END
UNTIL @EQUAL(%N,3)
# Change the Background based on index values
# Set index to current index
%%index = %%index1
# Back to calling location
GOTO Return
|
|
|
| Back to top |
|
 |
GeoTrail Valued Contributor


Joined: 18 Feb 2003 Posts: 572 Location: Bergen, Norway
|
Posted: Sat Feb 03, 2007 5:48 pm Post subject: |
|
|
Rubes_sw, in your credit it says "Commercial Research - continued development of Visual Dialog Script". That's a stretch. Can't really say they have done much for the VDS community since they took over hehehe. _________________
 |
|
| Back to top |
|
 |
vdsalchemist Admin Team

Joined: 23 Oct 2001 Posts: 1448 Location: Florida, USA
|
Posted: Sun Feb 04, 2007 1:25 am Post subject: |
|
|
| GeoTrail wrote: | | Rubes_sw, in your credit it says "Commercial Research - continued development of Visual Dialog Script". That's a stretch. Can't really say they have done much for the VDS community since they took over hehehe. |
GeoTrail this is not really a fair statement. The stuff that has been added to VDS 5.x are actually the hardest parts of Windows Programming. _________________ Home of
Give VDS a new purpose!
 |
|
| 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
|
|