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 


VdsObj Dll Help

 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> General Help
View previous topic :: View next topic  
Author Message
Tdk161
Valued Contributor
Valued Contributor


Joined: 08 Feb 2005
Posts: 399
Location: ITALY
PostPosted: Thu Dec 25, 2008 3:14 am    Post subject: VdsObj Dll Help Reply with quote
Hi Forum,

I'm trying to use maskedit command in my vds6 script, but the maskedit don't show on my dialog.

Why? I can resolve this trouble? and how?

exists any to show a masked input box without vdsobj.dll?


many tnx in advance for any info
Back to top
View user's profile Send private message Send e-mail
PGWARE
Web Host


Joined: 29 Dec 2001
Posts: 1566
PostPosted: Thu Dec 25, 2008 7:26 am    Post subject: Reply with quote
Try the vds 5 example 3 demo script that is included with the vdsobj. I just tested it with VDS 6 and it works.

Code:

rem USE THIS SCRIPT WITH VDS 5.x ONLY.  IT WILL NOT WORK
rem WITH VDS 2.x.

#define command,OBJECT
#define function,OBJECT

directory change,@path(%0)
external vdsobj.dll,DEMO
  option scale,96
  DIALOG CREATE,VDS 5 Example 3,-1,0,235,285,CLASS VDSExample3
  rem notice the OBJECT CLASS command is needed.  You must
  rem specify the class name of the window you want to place
  rem the new dialog objects on.  VDS 5 allows you to change
  rem the class name for your dialogs, in this example the
  rem class name is VDSExample3
  OBJECT CLASS,VDSExample3
  OBJECT SCALE,96
  OBJECT ADD,STYLE,STYLE1,Arial,8,,DKBLUE,WHITE
  DIALOG ADD,TEXT,TEXT1,13,10,,,Phone:
  OBJECT ADD,MASKEDIT,MASKEDIT1,10,100,121,21,"!\(999\)000-0000;1;#","(815)425-8539"
  DIALOG ADD,TEXT,TEXT2,44,10,,,Social Security #:
  OBJECT ADD,MASKEDIT,MASKEDIT2,41,100,121,21,"000\-00\-0000;1;*","448-04-4232",STYLE1
  DIALOG ADD,TEXT,TEXT3,75,10,,,Zip Code:
  OBJECT ADD,MASKEDIT,MASKEDIT3,72,100,121,21,"00000;1;-","73069"
  DIALOG ADD,TEXT,TEXT4,106,10,,,Long Date:
  OBJECT ADD,MASKEDIT,MASKEDIT4,103,100,121,21,"!99/99/0000;1;_",@datetime(mm/dd/yyyy),STYLE1
  DIALOG ADD,TEXT,TEXT5,137,10,,,Short Date:
  OBJECT ADD,MASKEDIT,MASKEDIT5,134,100,121,21,"!99/99/00;1;_",@datetime(mm/dd/yy)
  DIALOG ADD,TEXT,TEXT6,168,10,,,Long Time:
  OBJECT ADD,MASKEDIT,MASKEDIT6,165,100,121,21,"!90:00:00> LL;1;_",@datetime(hh:nn:ss AM/PM),STYLE1
  DIALOG ADD,TEXT,TEXT7,199,10,,,Short Time:
  OBJECT ADD,MASKEDIT,MASKEDIT7,196,100,121,21,"!90:00> LL;1;_",@datetime(hh:nn AM/PM)
  DIALOG ADD,BUTTON,BUTTON1,240,84,,,Click Here
  DIALOG SHOW
   
:evloop
wait event
goto @event()

:BUTTON1BUTTON
  %A = Phone: @object(dlgtext,maskedit1)
  %B = Social Security #: @object(dlgtext,maskedit2)
  %C = Zip Code: @object(dlgtext,maskedit3)
  %D = Long Date: @object(dlgtext,maskedit4)
  %E = Short Date: @object(dlgtext,maskedit5)
  %F = Long Time: @object(dlgtext,maskedit6)
  %G = Short Time: @object(dlgtext,maskedit7)
  warn %A@cr()@cr()%B@cr()@cr()%C@cr()@cr()%D@cr()@cr()%E@cr()@cr()%F@cr()@cr()%G

  rem update the time :)
  object set,maskedit6,@datetime(hh:nn:ss AM/PM)
  object set,maskedit7,@datetime(hh:nn AM/PM)
goto evloop

:CLOSE
  OBJECT REMOVE,MASKEDIT1
  OBJECT REMOVE,MASKEDIT2
  OBJECT REMOVE,MASKEDIT3
  OBJECT REMOVE,MASKEDIT4
  OBJECT REMOVE,MASKEDIT5
  OBJECT REMOVE,MASKEDIT6
  OBJECT REMOVE,MASKEDIT7
  exit
Back to top
View user's profile Send private message
Tdk161
Valued Contributor
Valued Contributor


Joined: 08 Feb 2005
Posts: 399
Location: ITALY
PostPosted: Fri Dec 26, 2008 10:41 pm    Post subject: Reply with quote
Thank you PgWare,
but any edit box is show when I lanch script Crying or Very sad
Why? (tryed the sample but it is the same)
Back to top
View user's profile Send private message Send e-mail
PGWARE
Web Host


Joined: 29 Dec 2001
Posts: 1566
PostPosted: Fri Dec 26, 2008 11:28 pm    Post subject: Reply with quote
Not sure really, you could have an older version of vdsobj.dll somewhere in your windows system directory or the dll isnt loading properly. I've tried it in Windows XP and Vista (64-bit) and it works in VDS 6.

Do any of the controls inside the vdsobj show up at all when you try the demos, or is it only just these maskedit's that are not working?
Back to top
View user's profile Send private message
Tdk161
Valued Contributor
Valued Contributor


Joined: 08 Feb 2005
Posts: 399
Location: ITALY
PostPosted: Fri Dec 26, 2008 11:55 pm    Post subject: Reply with quote
Sad I don't have any vdsobj.dll file in the system folder of windows. it's only in the project folder, and only maskedit not showed Mad

I don't know why
Back to top
View user's profile Send private message Send e-mail
PGWARE
Web Host


Joined: 29 Dec 2001
Posts: 1566
PostPosted: Thu Jan 01, 2009 7:30 am    Post subject: Reply with quote
First time anyone has notified me of this issue. I suspect there is some missing dll or system file which is required for the control to work properly. It is nothing more than an edit box but it's likely it is using some other system files which aren't on your system for some reason causing the control to error and not load at all. I don't have any plans to update this dll as I no longer support it, however the source code is included if you would like to update it or have someone that you know with delphi knowledge to update it.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> General Help 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