 XTREE Drag and Drop
#37874
20 Mar 25 06:55 AM
|
Joined: Sep 2003
Posts: 4,178
Steve - Caliq
OP
Member
|
|
OP
Member
Joined: Sep 2003
Posts: 4,178 |
Hey there... Im re-writing an old program that works better in the 2000's not (1980s) and maybe trying push the limits or doing whats not possible (or many be just doing it wrong!?) but can you combine XTree Editing and Row Drag'Drop? As your see from the following Blockbuster Video i can edit fields fine but when I try drag drop moving rows about (i want color moved rows) it all gets pretty confused and ping back at times, is this due to calling XTROP_REPLACE, i have do that in several places? Example VideoSome code snippets that may help:
DEFSTRUCT XT'XTREE'STRUCT
MAP2 XDROPDRAG'ROW,S,4 ! original row number drop/drag
MAP2 XDROP'DRAG'SELECTION,S,1
DEFSTRUCT XT'ANS'XTREE'STRUCT
MAP2 ANS'XDROPDRAG'ROW,S,4 ! original row number drop/drag
MAP2 ANS'XDROP'DRAG'SELECTION,S,1
XT'FLAGS = XT'FLAGS OR XTF_DRAGDROP ! Enable Drag/Drop
XT'COLDEF$ = XT'COLDEF$ + "0~0~ ~H~DropExit=88~~" ! Row Drag'Dropped
! Row Moved
IF XT'EXITCODE=-88 THEN
XT'XTREE'ELEMENT.XROW'COLOUR="M"+SPACE(SIZEOF(XT'XTREE'ELEMENT.XROW'COLOUR)) ! Darker Yellow
XT'XTREE'ELEMENT.XUPDATED'FLAG="M"+SPACE(SIZEOF(XT'XTREE'ELEMENT.XUPDATED'FLAG)) ! Flag as Moved.
CALL FN'SAVE'XT'XTREE'ELEMENT(XT'XTRCTL.XROW) ! Update XTree Array
XT'XTRCTL.OPCODE=XTROP_REPLACE
REPEAT
ENDIF
XT'COLDEF$ += .OFFSIZ$(XT'XTREE'ELEMENT.XROW'COLOUR)+"~xd~Hb~~" ! Row Colour
XT'COLDEF$ += .OFFSIZ$(XT'XTREE'ELEMENT.XLINENO)+"~Line~|#~Dspwid=5~~"
XT'COLDEF$ += .OFFSIZ$(XT'XTREE'ELEMENT.XITEM'COL)+"~Item~BS~Dspwid=10~~"
XT'COLDEF$ += .OFFSIZ$(XT'XTREE'ELEMENT.XDESCR'COL)+"~Description~PXES~Dspwid=20~Scale=80~~"
XT'COLDEF$ += .OFFSIZ$(XT'XTREE'ELEMENT.XQTY'COL)+"~Qty~PXE#>~Dspwid=6~~"
XT'COLDEF$ += .OFFSIZ$(XT'XTREE'ELEMENT.XCOST'COL)+"~Cost~PXE.#>~Dspwid=6~~"
XT'COLDEF$ += .OFFSIZ$(XT'XTREE'ELEMENT.XMEMO'COL)+"~Memo~PXES~Dspwid=10~~"
XT'COLDEF$ += .OFFSIZ$(XT'XTREE'ELEMENT.XSTOCK'TYPE)+"~Type~S~Dspwid=10~~"
XT'COLDEF$ += .OFFSIZ$(XT'XTREE'ELEMENT.XUOM)+"~UOM~S~Dspwid=10~~"
|
|
|
|
Re: XTREE Drag and Drop
[Re: Steve - Caliq]
#37875
20 Mar 25 08:32 AM
|
Joined: Sep 2003
Posts: 4,178
Steve - Caliq
OP
Member
|
|
OP
Member
Joined: Sep 2003
Posts: 4,178 |
Im kind of close to a work-around I think! and on a row drag/drop/move (DropExit) call a new FN'DRAG'DROP'ROW'MOVED() that re-creates the whole XTree array in the new sequence before returning and calling XTROP_REPLACE. its close! Except now i need to re-understand ORG'ROW,S,4 works as I seam to get the wrong answer data back pointing to a different original/data row afterwards)
IF XT'EXITCODE=-88 THEN
XT'XTREE'ELEMENT.XROW'COLOUR="M"+SPACE(SIZEOF(XT'XTREE'ELEMENT.XROW'COLOUR)) ! SickYellow
XT'XTREE'ELEMENT.XUPDATED'FLAG="M"+SPACE(SIZEOF(XT'XTREE'ELEMENT.XUPDATED'FLAG)) ! Flag as Moved.
CALL FN'SAVE'XT'XTREE'ELEMENT(XT'XTRCTL.XROW) ! Update XTree Array
CALL FN'DRAG'DROP'ROW'MOVED() ! RE-SEQUENCE the Array in the new drag'drop order.
XT'XTRCTL.OPCODE=XTROP_REPLACE
REPEAT
ENDIF
!
!------------------------------------------------
!{Row Moved, Update XTree Array}
!------------------------------------------------
FUNCTION FN'DRAG'DROP'ROW'MOVED()
ON ERROR GOTO LOCAL'TRAP
++PRAGMA AUTO_EXTERN "TRUE"
MAP1 LOCAL'ORIGINAL'ROW,F,6
DIMX UPDATE'ARRAY(100),S,SIZEOF(XT'XTREE'ELEMENT),AUTO_EXTEND
DIMX UPDATE'ANSWER'ARRAY(100),S,SIZEOF(XT'ANS'XTREE'ELEMENT),AUTO_EXTEND
! Read down the XTree array and re-align the original array and answer array.
FOR %x=1 TO XT'COUNT
XT'ANS'XTREE'ELEMENT=XT'ANS'XTREE'ARY(%x)
LOCAL'ORIGINAL'ROW=XT'ANS'XTREE'ELEMENT.ANS'XDROPDRAG'ROW
XT'XTREE'ELEMENT=XT'XTREE'ARY(LOCAL'ORIGINAL'ROW)
UPDATE'ARRAY(%x)=XT'XTREE'ELEMENT
UPDATE'ANSWER'ARRAY(%x)=XT'ANS'XTREE'ELEMENT
NEXT %x
! Copy the new re-sequenced temporary array back to the Xtree array.
FOR %x=1 TO XT'COUNT
XT'XTREE'ARY(%x)=UPDATE'ARRAY(%x)
XT'ANS'XTREE'ARY(%x)=UPDATE'ANSWER'ARRAY(%x)
NEXT %x
EXITFUNCTION
LOCAL'TRAP:
CALL FN'FUNCTION'ERROR'TRAP$(.LAST_ROUTINE,ERR(0),ERR(1),ERR(2),ERR(8))
RESUME ENDFUNCTION WITH_ERROR 99
ENDFUNCTION
Last edited by Steve - Caliq; 20 Mar 25 08:33 AM.
|
|
|
|
Re: XTREE Drag and Drop
[Re: Steve - Caliq]
#37877
20 Mar 25 09:27 AM
|
Joined: Jun 2001
Posts: 11,924
Jack McGregor
Member
|
|
Member
Joined: Jun 2001
Posts: 11,924 |
Sorry, I'm not used to having popcorn with my morning coffee... had to take a bathroom break in the middle of the movie and then lost track of some important plot details. So give me a few minutes to watch the movie over again (maybe this time I'll go for the bon-bons instead of popcorn) and try to figure out the key to to the mystery. Stay tuned...
|
|
|
|
Re: XTREE Drag and Drop
[Re: Steve - Caliq]
#37878
20 Mar 25 09:33 AM
|
Joined: Sep 2003
Posts: 4,178
Steve - Caliq
OP
Member
|
|
OP
Member
Joined: Sep 2003
Posts: 4,178 |
Sorry for such long movie  - ive needed multiple morning coffees, lunch time coffees and now soon be evening coffees to try work this out, im close but not closer enough... Ive read and reread the XTF_DRAGDROP more times than coffees , after moving a row with drag'drop do the two Xtree arrays fully change in the same order as the sequence on the screen or, just ANS'XDROPDRAG'ROW,S,4 updated ,pointing back to the original xtree ? ( i feel the later but im not feeling the Xtree loving me yet and playing games with me)
|
|
|
|
Re: XTREE Drag and Drop
[Re: Steve - Caliq]
#37879
20 Mar 25 09:44 AM
|
Joined: Jun 2001
Posts: 11,924
Jack McGregor
Member
|
|
Member
Joined: Jun 2001
Posts: 11,924 |
Maybe it's time to move the adult section of the theater and have a proper drink? In an effort to buy time (and avoid having to really think in order to answer your question directly), here's a possibly useful distraction ... XTRA6D.BP (sample program which combines editing and dragdrop. I was able to click in the comment column and enter a comment, then click over in the question column and drag it to another row without any weird visual effects. It does use the XTF2_ANSEQDATA model (not sure if yours does), but doesn't get as fancy as yours with the Technicolor effects. Not sure if it will be of any help, but may entertain you while I get some more coffee before trying to actually answer how the ANS'XDROPDRAG'ROW,S,4 works.
|
|
|
|
Re: XTREE Drag and Drop
[Re: Steve - Caliq]
#37880
20 Mar 25 09:50 AM
|
Joined: Sep 2003
Posts: 4,178
Steve - Caliq
OP
Member
|
|
OP
Member
Joined: Sep 2003
Posts: 4,178 |
Thanks for XTRA6D, it maybe just enough to see how that works compared to my attempt , Maybe as its closing in on 5pm ill just have something stronger than a coffee and try it all again in the morning.
|
|
|
|
Re: XTREE Drag and Drop
[Re: Steve - Caliq]
#37881
20 Mar 25 09:51 AM
|
Joined: Jun 2001
Posts: 11,924
Jack McGregor
Member
|
|
Member
Joined: Jun 2001
Posts: 11,924 |
Good idea. And maybe pairing the strong drink with some lighter entertainment? Looney Tunes perhaps?
|
|
|
|
Re: XTREE Drag and Drop
[Re: Steve - Caliq]
#37882
20 Mar 25 10:16 AM
|
Joined: Sep 2003
Posts: 4,178
Steve - Caliq
OP
Member
|
|
OP
Member
Joined: Sep 2003
Posts: 4,178 |
sounds like a plan!
|
|
|
|
Re: XTREE Drag and Drop
[Re: Steve - Caliq]
#37883
20 Mar 25 11:13 AM
|
Joined: Jun 2001
Posts: 11,924
Jack McGregor
Member
|
|
Member
Joined: Jun 2001
Posts: 11,924 |
When you're ready to get back to the hard-core entertainment, I've updated the XTRA6D sample to illustrate updates to the grid (background color) during validation after drag-drop, adding the following explanation:
!NOTES
! [202] - Drag drop makes it difficult to use the XTROP_REPLACE opcode
! since it would require re-sorting the data array to match the
! visual layout altered by dragdrop. And you can't just sort on
! the ORGROW field because that's the original position; not the
! new position. So you'd have to construct an index by translating
! ORGROW into the new position for the original row. It's much easier
! to just use a single array, and any validation/re-entry can be
! done with XTROP_RESELECT rather than _REPLACE, eliminating the
! need to worry about the order. The one complication there is that
! XTROP_RESELECT only updates editable cells, so if you want to
! update non-editable tree data (possibly colors), you have to
! add the "U" code (application update only) to those columns.
! To see this in effect, answer Y to the validation question and
! then enter a comment, before or after dragging the row.
Basically, as noted above, XTROP_REPLACE would require re-sorting the array to match the order updated by drag-drop. But you can't just sort on ORGROW because that lists the original row # for each current display row. Instead, what you need for sorting is the inverse of that, i.e. the updated display row for each original row. You'd have to build that index and then use it to sort the array. Furthermore, if you had separate data and answer arrays, you have to do that for both arrays. But it's not clear that there's any point in going to all that effort. Instead, I would suggest just using a single array, and using XTROP_RESELECT to re-enter after changes, rather than XTROP_REPLACE. The main complication there is that you'd need to add the "U" cformat code to each column that you wanted your re-entry updates to affect. (Updating the row color on _RESELECT only affects editable columns.) And if you really wanted to be able to compare your original array to the updated one, then I would suggest just making a copy of the original array before editing with XTREE, and then afterwards you can compare them. (And since drag-drop doesn't actually alter the physical order, you wouldn't need to deal with ORGROW for that comparison.)
|
|
|
|
Re: XTREE Drag and Drop
[Re: Steve - Caliq]
#37887
20 Mar 25 01:00 PM
|
Joined: Sep 2003
Posts: 4,178
Steve - Caliq
OP
Member
|
|
OP
Member
Joined: Sep 2003
Posts: 4,178 |
Looks like I have some work to do tomorrow ! Thanks for the help, explanation and updated example..
I do have the duel array method right now, it be a bit work retrofit it to a single array, but ill have a good play …
Thanks
|
|
|
|
Re: XTREE Drag and Drop
[Re: Steve - Caliq]
#37888
20 Mar 25 02:22 PM
|
Joined: Jun 2001
Posts: 11,924
Jack McGregor
Member
|
|
Member
Joined: Jun 2001
Posts: 11,924 |
On second thought, there may be no particular necessity to merge the data and answer arrays. The main issue is just avoiding the use of XTROP_REPLACE (a data array operation) and using XTROP_RESELECT (answer array update) instead, along with possibly upgrading some of the columns to "U" to allow them to be updated by the app during validation.
|
|
|
|
Re: XTREE Drag and Drop
[Re: Steve - Caliq]
#37892
21 Mar 25 07:50 AM
|
Joined: Sep 2003
Posts: 4,178
Steve - Caliq
OP
Member
|
|
OP
Member
Joined: Sep 2003
Posts: 4,178 |
Jack Thanks for the help, and while having a brain wave over night ive got it all working. But with a small change in that I split the editing and re-sequencing into two routine (99% same code behind it) so users edit cells in one routine and can drag'drop rearranging rows in another. This should also help users clarify what they aiming to do and not mixing both,else they could end up just getting confused after dozen and dozen of different types of changes. Popcorn ready, New Movie Sequel
|
|
|
|
Re: XTREE Drag and Drop
[Re: Steve - Caliq]
#37893
21 Mar 25 08:03 AM
|
Joined: Jun 2001
Posts: 11,924
Jack McGregor
Member
|
|
Member
Joined: Jun 2001
Posts: 11,924 |
I like the new dueling plot lines! (And despite its unorthodoxy as a movie snack, my decision to go with oatmeal rather than popcorn worked out well for the morning.)
Finally I guess it's true: after all these years, you really can program in your sleep!
|
|
|
|
Re: XTREE Drag and Drop
[Re: Steve - Caliq]
#37894
21 Mar 25 08:27 AM
|
Joined: Sep 2003
Posts: 4,178
Steve - Caliq
OP
Member
|
|
OP
Member
Joined: Sep 2003
Posts: 4,178 |
It my just catch on, taking oatmeal to the cinema!
Last edited by Steve - Caliq; 21 Mar 25 08:27 AM.
|
|
|
|
Re: XTREE Drag and Drop
[Re: Steve - Caliq]
#37895
21 Mar 25 08:38 AM
|
Joined: Jun 2001
Posts: 11,924
Jack McGregor
Member
|
|
Member
Joined: Jun 2001
Posts: 11,924 |
Just don't forget the napkins - it tends to leave your fingers very sticky!
|
|
|
|
|
