TheSwamp

Code Red => Visual DCL Programming => AutoLISP (Vanilla / Visual) => ObjectDCL => Topic started by: Andrea on December 21, 2009, 04:48:07 PM

Title: Quick Drop Down conception.
Post by: Andrea on December 21, 2009, 04:48:07 PM

Hi all....

as you have seen on DiLeader (http://www.theswamp.org/index.php?topic=29245.msg368544#msg368544) Post..
this is my secret on how I have make the TAB-Drop-Down  effect !

First, You need to create the TAB image file.
because in fact I use PictureBox with 3 event.
(OnClicked, OnMouseEntered and OnMouseMovedOff)
Than....move the control as shown below.

Code: [Select]

(defun c:DclForm1_PictureBox8_OnMouseEntered (/ pb8pos)
  (Setq pb8pos (Odcl_Control_GetCurPos Fruits_DclForm1_PictureBox8))
  (while (/= (nth 0 pb8pos) 0)
  (command "._delay" 1);;<-optional > = slower
  (Setq pb8pos (list (1+ (nth 0 pb8pos)) (nth 1 pb8pos) (nth 2 pb8pos) (nth 3 pb8pos)))
  (Odcl_Control_SetPos Fruits_DclForm1_PictureBox8 (nth 0 pb8pos)(nth 1 pb8pos)(nth 2 pb8pos)(nth 3 pb8pos)) 
  (Odcl_PictureBox_Refresh Fruits_DclForm1_PictureBox8)
)
  (princ)
)



(defun c:DclForm1_PictureBox8_OnMouseMovedOff (/ pb8pos)
  (Setq pb8pos (Odcl_Control_GetCurPos Fruits_DclForm1_PictureBox8))
  (while (/= (nth 0 pb8pos) -35)
  (command "._delay" 1);;<-optional > = slower
  (Setq pb8pos (list (1- (nth 0 pb8pos)) (nth 1 pb8pos) (nth 2 pb8pos) (nth 3 pb8pos)))
  (Odcl_Control_SetPos Fruits_DclForm1_PictureBox8 (nth 0 pb8pos)(nth 1 pb8pos)(nth 2 pb8pos)(nth 3 pb8pos))
  (Odcl_PictureBox_Refresh Fruits_DclForm1_PictureBox8)
)
  (princ)
)


You can  make any effect you want.....the limit is just your imagination...

enjoy !

Title: Re: Quick Drop Down conception.
Post by: Matt__W on December 21, 2009, 04:52:50 PM

What do you win if you get 3 cherries in a row?  :lol:

Title: Re: Quick Drop Down conception.
Post by: Andrea on December 23, 2009, 10:48:58 AM

Quote from: Matt W on December 21, 2009, 04:52:50 PM

What do you win if you get 3 cherries in a row?  :lol:

You win the possibility to participate to a contest to win a chance to have a ticket for the ......


 :kewl:

Title: Re: Quick Drop Down conception.
Post by: Matt__W on December 23, 2009, 10:53:31 AM

Quote from: Andrea on December 23, 2009, 10:48:58 AM

Quote from: Matt W on December 21, 2009, 04:52:50 PM

What do you win if you get 3 cherries in a row?  :lol:

You win the possibility to participate to a contest to win a chance to have a ticket for the ......

For th-e-e-e-e-e-e-e.....??!??  What??!?