Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|392\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> On Topic -> Drag, Drop, Resizing rectangles
Sun, 03 Oct 2010, 13:38
dna	Here's the basic code. I'll flash it out later. Graphics 800,600,32,2:AppTitle"RectTest":HALF=40:FULL=80:RHEI=10:CO=1:FL=-1 Dim COLORS$(1,1,1,1,10) For H=1 To 4: Read COLORS$(1,0,0,0,H):For J=1 To 3:Read COLORS(1,(J=1),(J=2),(J=3),H):Next:Next For H=1 To 4:Color COLORS(1,1,0,0,H),COLORS(1,0,1,0,H),COLORS(1,0,0,1,H):Rect 20,20H+5,60,15,1:Next ;WaitKey:End While Not KeyDown(1) If MouseDown(3) Then FL=Not FL ; -X-1 If MouseDown(2) Then CO=CO-(2FL)-1 ; :Print CO:WaitKey:End ;Print CO:WaitKey:End If CO<1 Then CO=1 ElseIf CO>4 Then CO=4 If MouseDown(1) :;CO=2 Color (COLORS(1,1,0,0,CO)),(COLORS(1,0,1,0,CO)),(COLORS(1,0,0,1,CO)):Rect MouseX()-(HALF/2),MouseY()-(RHEI/2),HALF,RHEI,1 ; WHATEVER ELSE EndIf Wend : End ;Print COLORS$(1,0,0,0,3):For L=1 To 3:Print COLORS(1,(L=1),(L=2),(L=3),L):Next WaitKey:End .COLOR_DATA Data "RED",238,29,29,"ORA",238,132,29,"TNG",238,191,29,"YEL",238,231,29 .INTER Path_x = x1 * (1-t)^3 + 3 * x2 * (1-t)^2 * t + 3 * x3 * (1-t) * t^2 + x4 * t^3 Path_y = y1 * (1-t)^3 + 3 * y2 * (1-t)^2 * t + 3 * y3 * (1-t) * t^2 + y4 * t^3 Path_z = z1 * (1-t)^3 + 3 * z2 * (1-t)^2 * t + 3 * z3 * (1-t) * t^2 + z4 * t^3 Return --v I wanted to know the basic way to achieve this using this code. No types. -=-=- DNA
Tue, 05 Oct 2010, 14:35
dna	On the Subject of resizing rectangles. How much of a border, drawn or not, should I allow for the so called grabbing edge? In Pixels? -=-=- DNA
Tue, 12 Oct 2010, 13:04
Teasy	Cool colors! That looks a bit like Zone66. To be honest, I have no idea what the purpose of your program is, or what you want the purpose of your program to be. Anyway, I've made a little 'box control' program that illustrates 'box management' without the use of functions or objects Maybe, just maybe , it is along the lines of your intentions ; box control ; - no functions ; - no types Graphics 320,240 , 0,3 SetBuffer BackBuffer() Const ColorType_Red = 1 Const ColorType_Orange = 2 Const ColorType_Tangerine = 3 Const ColorType_Yellow = 4 Const ColorComponent_Red = 1 Const ColorComponent_Green = 2 Const ColorComponent_Blue = 3 Dim Colors( 4 , 3 ) ; color type, color component Colors( ColorType_Red , ColorComponent_Red ) = 238 Colors( ColorType_Red , ColorComponent_Green ) = 29 Colors( ColorType_Red , ColorComponent_Blue ) = 29 Colors( ColorType_Orange , ColorComponent_Red ) = 238 Colors( ColorType_Orange , ColorComponent_Green ) = 132 Colors( ColorType_Orange , ColorComponent_Blue ) = 29 Colors( ColorType_Tangerine , ColorComponent_Red ) = 238 Colors( ColorType_Tangerine , ColorComponent_Green ) = 191 Colors( ColorType_Tangerine , ColorComponent_Blue ) = 29 Colors( ColorType_Yellow , ColorComponent_Red ) = 238 Colors( ColorType_Yellow , ColorComponent_Green ) = 231 Colors( ColorType_Yellow , ColorComponent_Blue ) = 29 Const BoxProperty_PosX = 1 Const BoxProperty_PosY = 2 Const BoxProperty_SizeX = 3 ; width Const BoxProperty_SizeY = 4 ; height Const BoxProperty_Solid = 5 ; 1=filled,0=frame Const BoxProperty_Color = 6 ; color num Const MaxBoxes = 1000 Dim Boxes( MaxBoxes , 6 ) ; box num, box properties Global NumBoxes = 0 Local BoxNum For BoxNum = 1 To 4 Boxes( BoxNum , BoxProperty_PosX ) = 20 Boxes( BoxNum , BoxProperty_PosY ) = 20 * BoxNum + 5 Boxes( BoxNum , BoxProperty_SizeX ) = 60 Boxes( BoxNum , BoxProperty_SizeY ) = 15 Boxes( BoxNum , BoxProperty_Solid ) = True Boxes( BoxNum , BoxProperty_Color ) = BoxNum ; match with the 4 unique colors NumBoxes = NumBoxes + 1 Next Local Mouse_PosX Local Mouse_PosY Repeat ; current mouse position Mouse_PosX = MouseX() Mouse_PosY = MouseY() ; draw boxes For BoxNum = 1 To NumBoxes ; set current drawing color to that of this box Color Colors( Boxes( BoxNum , BoxProperty_Color ) , ColorComponent_Red ) , Colors( Boxes( BoxNum , BoxProperty_Color ) , ColorComponent_Green ) , Colors( Boxes( BoxNum , BoxProperty_Color ) , ColorComponent_Blue ) ; draw the box at its position, with its size, and solidity Rect Boxes( BoxNum , BoxProperty_PosX ),Boxes( BoxNum , BoxProperty_PosY ) , Boxes( BoxNum , BoxProperty_SizeX ),Boxes( BoxNum , BoxProperty_SizeY ) , Boxes( BoxNum , BoxProperty_Solid ) ; check if the mouse is hovering over a box If RectsOverlap( Mouse_PosX,Mouse_PosY , 1,1 , Boxes( BoxNum , BoxProperty_PosX ),Boxes( BoxNum , BoxProperty_PosY ) , Boxes( BoxNum , BoxProperty_SizeX ),Boxes( BoxNum , BoxProperty_SizeY ) ) ; draw a white frame around/over the box Color 255,255,255 Rect Boxes( BoxNum , BoxProperty_PosX ),Boxes( BoxNum , BoxProperty_PosY ) , Boxes( BoxNum , BoxProperty_SizeX ),Boxes( BoxNum , BoxProperty_SizeY ) , False End If Next ; BoxNum Flip Cls Delay 5 Until KeyHit( 1 ) End --v
Tue, 12 Oct 2010, 21:05
dna	The purpose of my code quest was to write a program that places a rectangle, allows you to drag it, and allows you to resize it. It is to be a part of something larger and I thought to not put the other crap on here to bog anyone down. What I had previously listed was something akin to drag and draw rectangles. -=-=- DNA
Wed, 13 Oct 2010, 14:45
dna	Teasy. Your code made me re think the whole process. I need to start over. What I have here is not Drag and Drop, resize. It's Drag and Draw. -=-=- DNA
Tue, 19 Oct 2010, 09:26
Teasy	Cool
Wed, 20 Oct 2010, 14:58
dna	your code never did anything. No Box no Nothing.
Thu, 21 Oct 2010, 13:20
Teasy	When I run my program I see 4 boxes, each in the colors of your original program. And when I hover my mouse over the boxes, a white border is displayed over them. My program illustrates how to use boxes without the use of functions or objects. Are you looking for an example program of dragging and resizing? Maybe if you express what you really want, it is easier for me (or anyone else) to help you. Help me help you Here's a few old programs that illustrate some things you may be looking for First, a simple program in which you can create boxes by clicking and dragging the mouse. AppTitle "Mouse Box Create (drag)" Graphics 400,300 , 0,3 HidePointer Const max = 100 Dim x1(max),y1(max) Dim x2(max),y2(max) Local x,y Local resize = False Local count Local which SetBuffer BackBuffer() Repeat x = MouseX() y = MouseY() ; create or resize new box (drag) If resize If Not MouseDown( 1 ) x2(count) = x y2(count) = y resize = False count = count + 1 EndIf Else If MouseHit( 1 ) x1(count) = x y1(count) = y resize = True EndIf EndIf ; draw existing boxes For which = 0 To count-1 Color 255,0,0 ; red SpecialRect x1(which),y1(which) , x2(which),y2(which) , False Color 255,255,0 ; yellow Text (x1(which)+x2(which))/2,(y1(which)+y2(which))/2 , which , True,True Next ; show new box to be created If resize Color 255,0,255 ; purple SpecialRect x1(count),y1(count) , x,y , False EndIf ; interface Color 255,255,255 ; white Text 0,0 , "Left mouse button: create/resize new box (drag)" Oval x-2,y-2 , 4,4 , True Flip Cls Until KeyHit( 1 ) End ; draws rect using 2 points, ; also if second point is above/left of first point Function SpecialRect( x1,y1 , x2,y2 , solid=True ) If x2 < x1 ; swap x1 = x1 Xor x2 x2 = x1 Xor x2 x1 = x1 Xor x2 EndIf If y2 < y1 ; swap y1 = y1 Xor y2 y2 = y1 Xor y2 y1 = y1 Xor y2 EndIf Rect x1,y1 , x2-x1,y2-y1 , solid End Function --v Next up, a program where you can drag a single box around the screen. Graphics 640 , 480 ;= Window definition WindowPosX = Rand ( 0 , 500 ) WindowPosY = Rand ( 0 , 400 ) WindowSizeX = Rand ( 0 , 200 ) WindowSizeY = Rand ( 0 , 100 ) WindowDragging = False ;= Main loop SetBuffer BackBuffer () Repeat ;= Draw mouse Plot MouseX () , MouseY () ;= Draw windows Rect WindowPosX , WindowPosY , WindowSizeX , WindowSizeY , False ;= Mousebutton pressed and holding If MouseDown ( 1 ) ;= No window being dragged If Not WindowDragging ;= Mouse overlaps any window If RectsOverlap ( MouseX () , MouseY () , 1 , 1 , WindowPosX , WindowPosY , WindowSizeX , WindowSizeY ) ;= Window becomes dragged WindowDragging = True End If ;= Window being dragged Else ;= Make window chase mouse position WindowPosX = MouseX () - WindowSizeX / 2 ; Center window WindowPosY = MouseY () - WindowSizeY / 2 End If ; WindowDragging ;= Mousebutton released or not holding Else ;= Window no longer being dragged WindowDragging = False End If ; MouseDown ;= Output to screen Flip Cls ;= Escape quits Until KeyHit ( 1 ) End ;--> --v And finally, a program illustrating multi-window dragging using objects. Graphics 640 , 480 ;= Window specification Type Window Field PosX Field PosY Field SizeX Field SizeY Field Dragging End Type ;= Create 10 random windows For Count = 1 To 10 Window.Window = New Window Window\PosX = Rand ( 0 , 500 ) Window\PosY = Rand ( 0 , 400 ) Window\SizeX = Rand ( 0 , 200 ) Window\SizeY = Rand ( 0 , 100 ) Window\Dragging = False Next ;= Any windows being dragged Dragging = False ;= Main loop SetBuffer BackBuffer () Repeat ;= Draw mouse Plot MouseX () , MouseY () ;= Draw windows For Window.Window = Each Window Rect Window\PosX , Window\PosY , Window\SizeX , Window\SizeY , False Next ;= Loop through all windows For Window.Window = Each Window ;= Mousebutton pressed and holding If MouseDown ( 1 ) ;= No windows being dragged If Not Dragging ;= Mouse overlaps any window If RectsOverlap ( MouseX () , MouseY () , 1 , 1 , Window\PosX , Window\PosY , Window\SizeX , Window\SizeY ) ;= Window becomes dragged Window\Dragging = True ;= There's a window being dragged Dragging = True End If ;= Any windows being dragged Else ;= Current window (from the collection) being dragged If Window\Dragging ;= Make window chase mouse position Window\PosX = MouseX () - Window\SizeX / 2 ; Center window Window\PosY = MouseY () - Window\SizeY / 2 End If End If ; Dragging ;= Mousebutton released or not holding Else ;= Current window (from the collection) no longer being dragged Window\Dragging = False ;= There is no window being dragged Dragging = False End If ; MouseDown Next ; Window ;= Output to screen Flip Cls ;= Escape quits Until KeyHit ( 1 ) End ;--> --v
Sat, 23 Oct 2010, 12:02
dna	I forgot all about this thread. Here's the code I made: GRA_WID=1024:GRA_HEI=768:T$="SADFDFN" Graphics GRA_WID,GRA_HEI,32,2:AppTitle T$:SeedRnd MilliSecs() Dim R(1,1,1,1,10) XX1=20:YY1=20:R_WID=100:R_HEI=100 Rect XX1,YY1,R_WID,R_HEI,1:;WaitKey:End While Not KeyDown(1) MX=MouseX():MY=MouseY() If MouseDown(1) And MX>XX1 And MX<XX1+R_WID And MY>YY1 And MY<YY1+R_HEI X_1=MX-XX1:Y_1=MY-YY1 While MouseDown(1) MX=MouseX():MY=MouseY() SetBuffer BackBuffer() Rect MX-X_1,MY-Y_1,R_WID,R_HEI,1:Flip:Cls Wend:;Cls XX1=MX-X_1:YY1=MY-Y_1 EndIf Wend --v This does part of what I need. This is what I meant. Next comes the resizing of the thing. Those tutorials are good but they all have that 'SNAP' to center move that some people do not like. I corrected that in my code with: X_1=MX-XX1:Y_1=MY-YY1 and then used: Rect MX-X_1,MY-Y_1,R_WID,R_HEI,1 to set the rect at the new position with the mouse in the same offset spot that it was grabbed. -=-=- DNA
Sun, 24 Oct 2010, 09:08
Teasy	Cool that you were able to use the code and modify it to your liking/needs I've taken the liberty to modify your code introducing the following primary benefits: - A single loop/IF statement for the entire mouse-box-drag algorithm - Preventing the mouse-drag from starting when entering the box I've provided some comments to go along with the algorithm in the code so I hope you'll understand what's going on And I also hope that you'll find something in here that you can use Const GRA_WID=640,GRA_HEI=480 Const T$="What a drag" Graphics GRA_WID,GRA_HEI,32,2 AppTitle T$ SeedRnd MilliSecs() SetBuffer BackBuffer() Dim R(1,1,1,1,10) Local font=LoadFont("FixedSys") SetFont font Local R_WID=100,R_HEI=100 Local XX1=GRA_WID/2-R_WID/2 Local YY1=GRA_HEI/2-R_HEI/2 Local MX,MY Local dragging Local X_1,Y_1 ; dragging offset Local MD,MH While Not KeyDown(1) MX=MouseX() MY=MouseY() MD=MouseDown(1) MH=MouseHit(1) ; hold primary mouse button If MD ; box is not being dragged If Not dragging ; mouse within box frame If MX>=XX1 And MX<XX1+R_WID And MY>=YY1 And MY<YY1+R_HEI ; only start dragging when mouse button first hit within box frame ; - this prevents windows from being dragged during mouse-hovering ; (remark this IF to see the difference; hold mouse button ; and move the mouse from outside the box into the box) If MH ; remember start-dragging offset X_1=MX-XX1 Y_1=MY-YY1 dragging=True End If End If ; box is being dragged Else ; move rect with mouse, and add the start-drag offset XX1=MX-X_1 YY1=MY-Y_1 End If ; primary mouse button is not pressed Else ; box is/was being dragged If dragging ; stop dragging dragging=False End If End If Color 128,128,128 Rect XX1,YY1,R_WID,R_HEI,1 Color 255,255,255 Rect XX1,YY1,R_WID,R_HEI,0 Color 0,255,255 Text 10,10 , "Dragging: "+dragging Text 10,25 , "Box position: "+XX1+","+YY1 Text 10,40 , "Drag offset: "+X_1+","+Y_1 Flip Cls Delay 5 ; give some cpu time back to the os Wend End --v what a drag 2a-tc1.bb
Sun, 24 Oct 2010, 10:48
dna	I did not modify that code. I wrote it before coming back to this thread. However, put the code that you commented into the archive it's a good tutorial. -=-=- DNA
Sun, 24 Oct 2010, 13:37
Teasy	Naah, but thanks for the suggestion
Sun, 24 Oct 2010, 14:41
dna	I put it in the code archive. The version with your comments. -=-=- DNA
Sun, 24 Oct 2010, 19:22
dna	Here's something odd. I run the code and it works fine until something causes the variables to jump inside of the set minimum width that I set. GRA_WID=800:GRA_HEI=600:T$="SADFDFN":Graphics GRA_WID,GRA_HEI,32,2:AppTitle T$:SeedRnd MilliSecs() Dim R(1,1,1,1,10) XX1=120:YY1=120:R_WID=100:R_HEI=50:YY2=YY1+R_HEI:R_MIN=R_WID Rect XX1,YY1,R_WID,R_HEI,1:;WaitKey:End While Not KeyDown(1) MX=MouseX():MY=MouseY():XX2=XX1+R_WID: SetBuffer BackBuffer():Rect XX1,YY1,R_WID,R_HEI,1 If MX=XX1 Or MX=XX2 Then Rect 400,10,5,5,1 If MouseDown(1) And MX>XX1 And MX<XX1+R_WID And MY>YY1 And MY<YY1+R_HEI;DRAGGING AND DROPPING X_1=MX-XX1:Y_1=MY-YY1 While MouseDown(1) MX=MouseX():MY=MouseY() SetBuffer BackBuffer() Rect MX-X_1,MY-Y_1,R_WID,R_HEI,1:Flip:Cls Wend:;Cls XX1=MX-X_1:YY1=MY-Y_1 EndIf If MouseDown(1) And MX=>XX1 And MX<=XX1+2;RESIZE LEFT SIDE While MouseDown(1) MX=MouseX():MY=MouseY() If MX+R_MIN<=XX2 SetBuffer BackBuffer() Rect MX,YY1,XX2-MX,R_HEI,1:Flip:Cls EndIf Wend:XX1=MX:R_WID=XX2-MX Flip:Cls EndIf If MouseDown(1) And MX=<XX2 And MX>=XX2-2;RESIZE RIGHT SIDE While MouseDown(1) MX=MouseX():MY=MouseY() If MX-R_MIN>=XX1 SetBuffer BackBuffer() Rect XX1,YY1,MX-XX1,R_HEI,1:Flip:Cls EndIf Wend:R_WID=MX-XX1 EndIf Flip:Cls Wend:End --v i cannot figure it out. -=-=- DNA
Mon, 25 Oct 2010, 13:02
dna	That odd occurrence with resizing the right side may have been caused by my wireless mouse. If someone else uses a wireless mouse, try resizing the right side and releasing at odd angles to see if you get a box that is smaller than the designated minimum. Still cannot find out why. -=-=- DNA
Tue, 26 Oct 2010, 18:04
Teasy	(i'm using a wired trackball ^^) * SetBuffer BackBuffer i'm curious why you're calling SetBuffer BackBuffer() so often and in many places, so i've decided to remove them and place a single statement at the top of hte program * Flip : Cls i've moved around some Flip:Cls statements to accord for the in-loop flipping and correct updating of the screen * DX/DY i've added DX and DY which indicate a minimum drag 'snap' for the sides, so that u dont have to click on the exact pixel ^^ i've simply replaced ur -2 and +2 with -DX and +DX * Order i've moved the top section of ur program to the bottom, so it removes the flicker before/after some actions. * Resize indicator i've remarked the indicator in the main loop, and placed new ones inside the other loops. this way u can customize each indicator (resizing left/right) and it clarifies the code to make it work, i've separated the mousedown(1) from each IF. and i've placed the mousedown(1) below the mouse position check. * Debug to figure out 'wtf' was going on, i've added a Gosub to some simple code showing some stuff on the screen. for example the coordinates, sizes, mouse and such. and i've placed this gosub in every loop, along with a loop variable to show in which loop the code is * Side drag from any height i've noticed that u can drag ur box from any vertical position. i assume u'd like to resize ur box when the mouse is near the box. so i've added another IF check to see if mouse Y is within box pos/size. * Right side dragging box vanish when u drag the right side left, it doesn't seem to update the rect. it sometimes disappears too ^^ to put it simply, what happens there, is that u can drag it all the way left, because it only changes the displaying of the rect -- not the values. so, i've placed the Rect outside the IF, so it shows always. and inside the IF i have placed a MoveMouse call so that u can't move ur mouse further left ^^ and i've changed the >= to a <= so that it forces the pos on the left, instead of the right. i guess for the left side, u can simply reverse this * Left side resize i haven't fixed the (similar) prob here; i leave that up to u ^^ ; this is to enable 'auto complete' in IDEal ^^ Local GRA_WID,GRA_HEI,T$ Local XX1,YY1,R_WID,R_HEI,YY2,R_MIN Local LOOP,MX,MY,XX2 Local X_1,Y_1 Local DX,DY GRA_WID=320:GRA_HEI=240:T$="DRAGNET":Graphics GRA_WID,GRA_HEI,0,3:AppTitle T$:SeedRnd MilliSecs() DX=4:DY=3 SetBuffer BackBuffer() Dim R(1,1,1,1,10) XX1=120:YY1=120:R_WID=100:R_HEI=50:YY2=YY1+R_HEI:R_MIN=R_WID ;Rect XX1,YY1,R_WID,R_HEI,1 While Not KeyDown(1) If MX>XX1 And MX<XX1+R_WID And MY>YY1 And MY<YY1+R_HEI;DRAGGING AND DROPPING Rect XX1-DX,YY1-DY , R_WID+DX2,R_HEI+DY2 , False If MouseDown(1) X_1=MX-XX1:Y_1=MY-YY1 While MouseDown(1) LOOP=2 MX=MouseX():MY=MouseY() Rect MX-X_1,MY-Y_1,R_WID,R_HEI,1 Gosub SHOWDEBUG Flip:Cls Wend:XX1=MX-X_1:YY1=MY-Y_1 EndIf EndIf If MX=>XX1-DX And MX<=XX1;RESIZE LEFT SIDE Rect XX1-DX*2,YY1 , DX,R_HEI If MouseDown(1) While MouseDown(1) LOOP=3 MX=MouseX():MY=MouseY() If MX+R_MIN<=XX2 Rect MX,YY1,XX2-MX,R_HEI,1 EndIf Gosub SHOWDEBUG Flip:Cls Wend:XX1=MX:R_WID=XX2-MX EndIf EndIf If MX=<XX2+DX And MX>=XX2;RESIZE RIGHT SIDE If MY>XX1 And MY<=XX2 Rect XX1+R_WID+DX,YY1 , DX,R_HEI If MouseDown(1) While MouseDown(1) LOOP=4 MX=MouseX():MY=MouseY() If MX-R_MIN<=XX1 MoveMouse XX1+R_MIN,MY EndIf Rect XX1,YY1,MX-XX1,R_HEI,1 Gosub SHOWDEBUG Flip:Cls Wend:R_WID=MX-XX1 EndIf EndIf EndIf LOOP=1 MX=MouseX():MY=MouseY():XX2=XX1+R_WID Rect XX1,YY1,R_WID,R_HEI,1 ;If MX=XX1 Or MX=XX2 Then Rect GRA_WID/2,10,5,5,1 Gosub SHOWDEBUG Flip:Cls Wend:End .SHOWDEBUG Color 128,255,255 Text 0, 0 , "Loop "+LOOP Color 255,255,128 Text 0,20 , "Pos "+XX1+","+YY1 Text 0,30 , "Size "+R_WID+","+R_HEI Text 0,40 , "Min "+R_MIN Text 0,50 , "Right pos "+XX2 Color 255,128,255 Text 0,70 , "Mouse "+MX+","+MY Color 128,128,128 Return --v just for fun, i've made another prog to illustrate how easy it is, or can be, to make a single box drag program which includes resizing this program can also give u some clues for various things in your program i hope u enjoy (if no joy, why do it? ) Const sw = 320 ; screen dimensions (width,height) Const sh = 240 Const bw_min = 10 ; minimum box dimensions (width,height) Const bh_min = 10 Const bw_max = 160 ; maximum box dimensions (width,height) Const bh_max = 120 Local bx = 100 ; box position (x,y) Local by = 100 Local bw = 100 ; box dimensions (width,height) Local bh = 100 Local drag ; 0=nothing, 1=dragging, 2=resizing Local ox,oy ; offset position when dragging Local mx,my ; current mouse position Local blink ; flashing effect Local inside ; mouse inside box Graphics sw,sh , 0,3 SetFont LoadFont( "Small Fonts" , 15 , True ) SetBuffer BackBuffer() Repeat blink = Not blink mx = MouseX() my = MouseY() inside = RectsOverlap( mx,my,1,1 , bx,by,bw,bh ) If MouseDown(1) If inside And MouseHit(1) If drag=False ox=mx-bx oy=my-by drag=1 ; move EndIf EndIf ElseIf MouseDown(2) If inside And MouseHit(2) If drag=False ox=mx-bw oy=my-bh drag=2 ; resize EndIf EndIf Else If drag drag=False End If End If Select drag Case 1 ; move bx=mx-ox by=my-oy Case 2 ; resize bw=mx-ox bh=my-oy If bw<bw_min Then bw=bw_min If bh<bh_min Then bh=bh_min If bw>bw_max Then bw=bw_max If bh>bh_max Then bh=bh_max End Select ; the box If drag<>False And blink Or drag=False Color 128,128,128 Rect bx,by , bw,bh , True Color 255,255,255 Rect bx,by , bw,bh , False EndIf ; move/resize indicator Select drag Case 1 Color 255,0,0 Rect bx-1,by-1 , bw+2,bh+2 , False Case 2 Color 255,0,0 Rect bx+bw,by , 1,bh Rect bx,by+bh , bw,1 End Select ; user instructions Color 128,192,255 Text 10,10 , "Move mouse inside the box" Text 10,20 , "- Left button drag: Move box" Text 10,30 , "- Right button drag: Resize box" Flip Cls Delay 5 Until KeyHit(1) End --v
Wed, 27 Oct 2010, 08:13
j\\'ordos	The rectangle sometimes disappears completely while resizing (using wireless logitech mouse)
Wed, 27 Oct 2010, 13:18
dna	This happens in my Code!!! If so, then let me know where it happens or if it is another bug in BB. -=-=- DNA
Thu, 28 Oct 2010, 16:42
j\\'ordos	Yes that happens in your code. I think Teasy already identified the problem no?
Thu, 28 Oct 2010, 18:31
dna	Oh. I see what you mean. The disappearing rectangle never happened in my code. There was just some odd resizing that happened on the right side. That disappearing rectangle is in his code only. That Jitter in Teasys code is also not in mine. Mine works fine except for the odd resizing at odd times. The resizing is not consistent and so could be the mouse. maybe not. If it's in the code then it would be in the right resize loop. -=-=- DNA
Mon, 01 Nov 2010, 15:28
Teasy	It sounds, to me, like your mind is in a loop, DNA Press the 'Untangle' button to unwind, relax and enjoy