Resizing buttons...please help!

BlitzMax Forums/BlitzMax GUI Programming/Resizing buttons...please help!

degac (Posted 1+ years ago) #1

I have made the following code to allow button to be resized by the user using SetGadgetSensitize...but I have a little problem into managing the resizing of a 'set' of gadgets 'Resizing buttons... Import MaxGui.Drivers Strict Global window:TGadget = CreateWindow("Resizing buttons...",40,40,700,330,Null,WINDOW_TITLEBAR|WINDOW_CENTER) Local buts:tgadget[]=CreateHeader("Header 1;Header 2;Header 3;Header 4",10,50,400,25,window) Repeat Select WaitEvent() Case EVENT_WINDOWCLOSE, EVENT_APPTERMINATE End Case EVENT_GADGETACTION Case EVENT_MOUSEDOWN Local BUT:TGADGET=tgadget(EventSource()) Local g1:tgadget,g2:tgadget For Local gcounter:Int=0 Until buts.length g1=buts[gcounter] If but=g1 ' Print "Check: "+GadgetText(g1) Local WW:Int=GadgetWidth(g1) Local EX:Int=EventX() Local gx:Int,oldx:Int,oldw:Int If ex>ww-10 And ex<ww oldx=GadgetX(g1) oldw=GadgetWidth(g1) While WaitEvent() If EventID()=EVENT_MOUSEMOVE ex=EventX() ww=ex-GadgetX(g1) SetGadgetShape g1,GadgetX(g1),GadgetY(g1),EX,GadgetHeight(g1) For Local GCOUNTER2:Int=GCOUNTER+1 Until BUTS.LENGTH g1=buts[gcounter2-1] g2=buts[gcounter2] SetGadgetShape g2,GadgetX(g1)+GadgetWidth(G1),GadgetY(g2),GadgetWidth(g2),GadgetHeight(g2) ' Print gcounter2+" "+GadgetText(g2)+" Prev: "+(gcounter2-1)+" = "+GadgetText(g1) Next Print End If If EventID()=EVENT_MOUSEUP Exit Wend End If Exit End If Next EndSelect Forever Function CreateHeader:tgadget[](txt$,x:Int,y:Int,w:Int,h:Int,wind:tgadget) Local tr$[]=txt.split(";") Local size:Int=w/tr.length Local gad:tgadget[] Local xx:Int=x ' Print "Size: "+size For Local gg:Int=0 Until tr.length gad=gad[..gg+1] gad[gg]= CreateButton(tr[gg],xx,y,size,h,wind) SetGadgetSensitivity gad[gg],SENSITIZE_MOUSE xx:+size Next Return gad End Function I dont' understand why the program works fine if I resize the 3rd or 4th button...while if I try to resize 1st or 2nd button I have other results.

r (Posted 1+ years ago) #2

Hello, Is it that you want ? 'Resizing buttons... Import MaxGui.Drivers Strict Global window:TGadget = CreateWindow("Resizing buttons...",40,40,700,330,Null,WINDOW_TITLEBAR|WINDOW_CENTER) Local buts:tgadget[]=CreateHeader("Header 1;Header 2;Header 3;Header 4",10,50,400,25,window) Repeat Select WaitEvent() Case EVENT_WINDOWCLOSE, EVENT_APPTERMINATE End Case EVENT_GADGETACTION Case EVENT_MOUSEDOWN Local BUT:TGADGET=tgadget(EventSource()) Local g1:tgadget,g2:tgadget,g11:tgadget '<< For Local gcounter:Int=0 Until buts.length g1=buts[gcounter] If but=g1 ' Print "Check: "+GadgetText(g1) Local WW:Int=GadgetWidth(g1) Local EX:Int=EventX() Local gx:Int,oldx:Int,oldw:Int If ex>ww-10 And ex<ww oldx=GadgetX(g1) oldw=GadgetWidth(g1) While WaitEvent() If EventID()=EVENT_MOUSEMOVE ex=EventX() ww=ex-GadgetX(g1) SetGadgetShape g1,GadgetX(g1),GadgetY(g1),EX,GadgetHeight(g1) For Local GCOUNTER2:Int=GCOUNTER+1 Until BUTS.LENGTH g11=buts[gcounter2-1] '<< g2=buts[gcounter2] SetGadgetShape g2,GadgetWidth(g11)+GadgetX(g11),GadgetY(g2),GadgetWidth(g2),GadgetHeight(g2) ' Print gcounter2+" "+GadgetText(g2)+" Prev: "+(gcounter2-1)+" = "+GadgetText(g1) Next 'Print End If If EventID()=EVENT_MOUSEUP Exit Wend End If Exit End If Next EndSelect Forever Function CreateHeader:tgadget[](txt$,x:Int,y:Int,w:Int,h:Int,wind:tgadget) Local tr$[]=txt.split(";") Local size:Int=w/tr.length Local gad:tgadget[] Local xx:Int=x ' Print "Size: "+size For Local gg:Int=0 Until tr.length gad=gad[..gg+1] gad[gg]= CreateButton(tr[gg],xx,y,size,h,wind) SetGadgetSensitivity gad[gg],SENSITIZE_MOUSE xx:+size Next Return gad End Function

degac (Posted 1+ years ago) #3

Ohhh! Thank you very much! I spent 2 hours and I didnt' find the error!