Category : BASIC Source Code
Archive : MOVTXT.ZIP
Filename : MOVTXT.FRM
Output of file : MOVTXT.FRM contained in archive : MOVTXT.ZIP
& ' ÿ DragDrop Demonstration Program À G Í Å ´ B #ÿÿÿÿ$Form1ÿ, Picture4 ÿð ' b .Picture4ÿ3 Picture1 ÿÀÀÀ ¼hÈ w B .Picture1ÿ( Text1ÿph¿w Text1 !Text1ÿ3 Picture2 ÿÀÀÀ ¼8È w B .Picture2ÿ( Text2ÿp8w Text2 !Text2ÿ3 Picture3 ÿÀÀÀ ¼È w B .Picture3ÿ( Text3ÿp_
w Text3 !Text3ÿ7 Command1ÿ This Button Does NothingðpO g ÿt
Label1ÿ NUse The Grey Box At The Left Of The Text Control To DragDrop The Text Control. ÿÿ X
÷ï ÿ* ü
QÄ Ö YZ . Á ×d0è¤ I r òÍ h · 1ú @
Form_ClickuMouseXú Picture1_Click@Picture1_MouseDown² Button|ShiftÃXß Y²MouseYIPicture1 WidthvText1ð @
Form_DragDropSource° TagÕ
TextOffset Left Top Text2_Change# Text2_DragOverk State MousePointer@@Text2_DragDropp@DropItWhichOne Actionñ Text1_Change Picture1_DragOverO Picture2_Click Picture2_DragOverì@Picture1_DragDrop,@Picture2_DragDropÛ@Picture2_MouseDown<Picture2RText2Ý Picture2_MouseUp@Text1_DragDropy Text1_DragOver Picture3Text3 True False¥ Visible Label1_Click SaveWidth
Form_DragOver' Form_DragDrop1 TextCOverlapp CancelDest CheckItª Height DestRight DestBot Form1cPicture4 Yasa X1 Y1´ Picture4_Click@Picture4_DragDrop XLeft XRightYLeft edgeÆ of Check1 Check2 Picture3_Click @Picture3_DragDrop @Picture3_MouseDown Text3_Change @Text3_DragDropFCommand1 Command1_ClickY@Command1_DragDrop @Label1_DragDrop Label1 @ Form_Load CurrentX CurrentY v
9= v #
DRAGDROP DEMONSTRATION PROGRAMO v $
Keith Funk (CIS ID 72240, 2020) v
Rev. 1.0 July, 1991 v
- v v ; This program demonstrates a way to use a Picture Controll v 8 to initiate what appears to be the dragging of a Text v 5 Control. Some such method is required because Textr v : Controls cannot in themselves be DragDropped since they v 5 don't have a MouseDown Event associated with them.. v v : In addition, it shows some code that prevents a control v 1 from being dropped on top of another control. T v v 8 The program works like this. The user press the mouse v 8 over a picture box (say Picture1). Picture1_MouseDown v ; saves the current cursor location then expands the widthh v 8 of the picture so that it encompasses the text box to v 7 its right (the one the user wants to drag). When he e v ; begins dragging, it *looks* like he is actually dragging v 3 the text box. MouseDown also initiates dragging.d v v : Every control -and- the form can react to a Drop Event. v : If a control detects a DragDrop, it converts the cursor v : X/Y co-ords (which are relative to the top, left of the v 9 control) so that they are relative to the top, left off v 5 the form and then Calls the Form's DragDrop Event.. v v : The form's DragDrop Event calls the Overlap function to v 9 to check if any part of the dragged control covers anyy v 8 part of another control. It then Calls the Sub DropIt v 7 and either tells it to cancel the drag because of ann v < overlap or to move the picture control and its associated v ; text control to the new location if there is no overlap.. v v ; There is one exception to a control not being allowed too v 7 overlap another control. The user is allowed to dragg v 8 a control and drop it on top of itself. This lets him v 3 make small adjustments to the controls position.s v v < Sub DropIt resets the picture control's width back to its v 7 original width and then either exits if the drag is m v 9 cancelled or uses the Move command to move the picturer v ( box and text box to the new location. v v : A note about the Const TextOffset. The picture controls v 6 used for dragging where created with a width of 200 v 7 twips. Their associated text controls were placed soo v 6 that they overlap the picture controls by 20 twips. v 7 Thus, the offset is 180 twips. This was done so thatt v : only a single vertical line separates the two controls. v v 7 The large picture control, the label control and thee v 8 command button are included simply to demonstrate the v + code that prevents overlapping controls.. v
9= äù y ä v 6 ==> Location of Mouse Pointer at start of drag drop. v 0
Values are relative to the top, left corner v 3
of the control on which the mouse was pressed.o ü "
h ü 2
· v 1 ==> Distance between the left edge of a pictured v 0
control and the left edge of its associated v
text control. å ´ ÿÿÿÿÿÿÿÿI Picture1_MouseDown0t X & ¤ ² v . ==> Save the current location of the cursor. h ² · v 1 ==> Expand the picture control to encompass itss v ,
associated text control, so it looks to v 3
the user like he is dragging the text control.o Á Í Ö Í £ Á Í v ==> Initiate dragging. Á e ä ( x 9 ÿÿÿÿÿÿÿÿ
Text2_DragDrop0X X Y ð ² ð £ ² £ # ß 9 ÿÿÿÿÿÿÿÿ DropIt0" v
9- v : This routine is called by Form1_DragDrop. It shrinks the v 4 picture control back to its original width. If the v < requested Action is "OK" then it Moves the picture control v 6 and its associated text control to the new loaction. v 7 If the Action is "Cancel", the Move is not performed.. v
9- v X & k u ² u ú V í Picture1& 0 ' Á Í ' Ö Í ÷ ' Á Í 0 í
è Cancelñ I ú @v % ==> Put the top, left corner of theh @v *
control in the same position relative @v -
to the cursor as it was before the move.s @ Á e h ÷ ² · ÷ ò ò * x @ Ö e Á £ Á ò ò * x 08 í Picture2& 0 Í # Í ÷ Í 0 í
D Cancelñ I Æ @ e h ÷ ² · ÷ ò ò * x @ #e £ ò ò * x 08 í Ô Picture3& 0 d Í p Í ÷ d Í 0 í
Cancelñ I @ de h ÷ ² · ÷ ò ò * x @ pe d £ d ò ò * x 08 : 9 ÿÿÿÿÿÿÿÿ$ Picture1_DragDrop0X X × ð ² ð Á £ ² Á £ # ß 9 ÿÿÿÿÿÿÿÿ Picture2_DragDrop0X X ì ð ² ð £ ² £ # ß 9 ÿÿÿÿÿÿÿÿ Picture2_MouseDown0| X & ¤ ² h ² · Í # Í £ Í e ä ( x 9 ÿÿÿÿÿÿÿÿ Text1_DragDrop0X X @ ð ² ð Á £ ² Á £ # ß 9 ÿÿÿÿÿÿÿÿ
Form_DragDrop0¦ v
9- v : The DragDrop Procs for *all* controls call this routine. v 6 Before doing so, these Procs convert their Mouse X/Y v 4 co-ords so that they are relative to the top, left v corner of the *form*.a v v : This routine calls the Overlap function for each control v 8 on the form to see if the control being moved overlaps v 7 the control. If it does, the DragDrop is cancelled. AA v < special case is the text controls that can be DragDropped. v $ They can be dropped on themselves. v v ; This routine then calls the routine DropIt which performss v the Move.. v
9- v X ß ð ² í ° OK ð Á ² ÝE èí
\ Cancel ð ² ÝE í
Cancel ð d ² ÝE Hí
< Cancel ð 0 ² ÝE xí
l Cancel ð ² ÝE ªí
Cancel ð Y ² ÝE Úí
Î Cancel v 3 ==> Don't check for overlap if the Source controlh v /
is the picture control associated with thet v /
destination text control. That is, let thee v '
user DragDrop a control on itself. ð ú í  Picture1ñ ð Ö ² ݤ E þí
Cancel ð ú í Picture2ñ ð # ² ݤ E Lí
@ Cancel ð ú í ^ Picture3ñ ð p ² ݤ E í
Cancel ð ² # k 9 ÿÿÿÿÿÿÿÿ% Overlap 0D v
9- v 8 This function checks if any part of the Source control v : (the one being DragDropped) overlaps any part of another v 6 control. If it does, then the function returns True. v Otherwise it returns False.. v
9- @ & ÝÁ ð ò ² Ý v . ==> Allow a picture to be dropped on itself. ð ú ò ú ¦ E = V v 3 ==> Top left and top right of the Source control.- h ÷ v v ð Í £ v 4 ==> Check if the top edge of source intersects the v
left edge of dest.e ² · ÷ v => top left of Source. A v 3
- Check if the top,left corner of the source isu v
inside the dest.h A ª v 3
- Check if the bottom edge of source intersectse v
the left edge of dest.o ² · ÷ ð £ A v 3
- Check if the bottom,left corner of the sourcet v
is inside the dest. A ª = V v 3 ==> This routine determine if two lines interest.e ² v ò â î ò Þ î ¤ I x ò Þ î ò ò £ î â î ¤ I t 0 y Ý 0= V 8 8 U v ; ==> This routine checks if a point is inside a rectangle. ÿÿª v ò Þ î v ò ò Í £ î â î ¤ I N ò Þ î ò ò £ î â î ¤ I J 0 y Ý 0= V 8 8 U 9 ðÿÿÿÿÿÿ9 Picture4_DragDrop0R X a ð ² ð ² í
< Cancel# k 9 ÿÿÿÿÿÿÿÿ Picture3_DragDrop0X X Æ ð ² ð d £ ² d £ # ß 9 ÿÿÿÿÿÿÿÿ Picture3_MouseDown0| X & Û ¤ ² h ² · d Í p Í £ d Í de ä ( x 9 ÿÿÿÿÿÿÿÿ Text3_DragDrop0X X ð ² ð d £ ² d £ # ß 9 ÿÿÿÿÿÿÿÿ Command1_DragDrop0X X 1 ð ² ð £ ² £ # ß 9 ÿÿÿÿÿÿÿÿ Label1_DragDrop0 X F ð ² v 4 ==> X + Label1.Left and Y + Label1.Top are used to v 4
convert the cursor location from being relative v /
to the control's top, left corner to being v 4
relative to the form's top, left corner because v 5
that's the X/Y that the Move command (see DropItD v
Sub) requires. ð Y £ ² Y £ # ß 9 ÿÿÿÿÿÿÿÿ Form_Load0Ä X c v 3 ==> Let the user know what the square at the top, v
right of the form is. 'e ò x å d 0 p å ¼ 0 | 0e f í ¬ Picture Control"u 9 ÿÿÿÿÿÿÿÿ ý
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/