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 


Custom POPUP menu...
Goto page Previous  1, 2, 3
 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 3 Source Code
View previous topic :: View next topic  
Author Message
Mac
Professional Member
Professional Member


Joined: 08 Jul 2000
Posts: 1585
Location: Oklahoma USA

PostPosted: Mon Jan 14, 2002 10:56 pm    Post subject: Reply with quote

OK, try the last example again... Smile
_________________
VDSug.dll does file IO, check/disable menu items,
non-VDS dlls, draw functions and more...
Free download (30k dll size) at:
http://www.vdsworld.com/download.php?id=361
Back to top
View user's profile Send private message Send e-mail
SnarlingSheep
Professional Member
Professional Member


Joined: 13 Mar 2001
Posts: 759
Location: Michigan

PostPosted: Mon Jan 14, 2002 11:03 pm    Post subject: Reply with quote

In your code the menu sizes to the right and then down, in mine it does both at the same time. It's up to whoever uses it, but mine looks more like Win98's style.
_________________
-Sheep
My pockets hurt...
Back to top
View user's profile Send private message Send e-mail
Mac
Professional Member
Professional Member


Joined: 08 Jul 2000
Posts: 1585
Location: Oklahoma USA

PostPosted: Mon Jan 14, 2002 11:10 pm    Post subject: Reply with quote

Actually it does both directions at once, just faster across than down.
It would anyway on long menus, but like you said, both increments
can be adjusted to suit the user. Smile

I changed the code so both directions use @fadd() for max adjustment.

_________________
VDSug.dll does file IO, check/disable menu items,
non-VDS dlls, draw functions and more...
Free download (30k dll size) at:
http://www.vdsworld.com/download.php?id=361
Back to top
View user's profile Send private message Send e-mail
cnodnarb
Valued Contributor
Valued Contributor


Joined: 11 Sep 2002
Posts: 641
Location: Evansville, IN

PostPosted: Sat Dec 28, 2002 11:28 pm    Post subject: Reply with quote

Script based on other post in this thread.

Please try this one with 16x16 images for bitbtns 0-5 Wink It really does
look cool if you do, and if you don't you'll still probably think its OK.

Code:

DIALOG CREATE,New Dialog,-1,0,240,160
  DIALOG ADD,BITMAP,BITMAP1,2,0,238,160,,click
  DIALOG SHOW

  DIALOG CREATE,Popup Menu,-1,0,125,120,notitle
  DIALOG ADD,BUTTON,BUTTON1,0,0,125,120,BUTTON1
dialog add,bitbtn,bitbtn0,2,4,19,19,backwards.dll|7634,Ig,Allows Undo in Edit Window
dialog add,bitbtn,bitbtn1,21,4,19,19,backwards.dll|0,Ig,Allows Redo in Edit Window
dialog add,bitbtn,bitbtn2,40,4,19,19,backwards.DLL|3797,Ig,Allows you to Cut selected text to the clipboard
dialog add,bitbtn,bitbtn3,59,4,19,19,backwards.dll|5064,Ig,Allows you to Copy selected text to the clipboard
dialog add,bitbtn,bitbtn4,78,4,19,19,backwards.dll|6335,Ig,Allows you to Paste text from the clipboard
dialog add,bitbtn,bitbtn5,97,4,19,19,backwards.dll|0,Ig,Allows you to select all text in the Edit field
dialog add,bitbtn,bitbtn6,2,23,100,19,,&Undo"                 ",Allows Undo in Edit Window
dialog add,bitbtn,bitbtn7,21,23,100,19,,&Redo"                 ",Allows Redo in Edit Window
dialog add,bitbtn,bitbtn8,40,23,100,19,,Cu&t"                    ",Allows you to Cut selected text to the clipboard
dialog add,bitbtn,bitbtn9,59,23,100,19,,&Copy"                  ",Allows you to Copy selected text to the clipboard
dialog add,bitbtn,bitbtn10,78,23,100,19,,&Paste"                 ",Allows you to Paste text from the clipboard
dialog add,bitbtn,bitbtn11,97,23,100,19,,Select &All"            ",Allows you to select all text in the Edit field
dialog show
dialog hide
 
  :Evloop
  wait event
%%eventdialog = @event(d)
parse "%%event;%%dialog",%%eventdialog
if %%event
dialog select,%%dialog
if @equal(%%event,bitmap1click)
goto %%event
else
end
if @equal(%%event,close)
goto %%event
else
dialog select,1
dialog hide
end
goto evloop


:bitmap1click
:CLICK
  PARSE "%b;%x;%y",@click(BXY)
  rem -- Open menu on right click only --
  if @equal(%b, "RIGHT")
  dialog select,1
  %%y = @sum(%y,@winpos("new dialog",T),20)
  %%x = @diff(@sum(%x,@winpos("New dialog",L)),20)
  window position,popup menu,%%y,%%x
  dialog show
  dialog focus,bitbtn0
  goto evloop
  else
  end
  goto evloop
 
  :close
  exit
 
 


NodNarb
Back to top
View user's profile Send private message AIM Address
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 3 Source Code All times are GMT
Goto page Previous  1, 2, 3
Page 3 of 3

 
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