Hi all....
as you have seen on
DiLeader 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.
(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 !