Xbrowse : Delete and autoshift left .or. Drag/Drop

[Marc Venken]

In this browse I have 12 pics on a row ( Pic1 - Pic2 - Pic3 .... )

I need to do folowing 2 things and hope to get some idea's how to do it in Xbrowse.

1.
When I delete pic 2 the pictures from Pic3 to Pic12 should shift to left and become the Pic2 position so there is no empty cel. the empty cel is going to be the last one,
most right on the last free position. Pic 12 would be the empty cell.

2. Is drag and drop possible within the same row ? So drag pic 5 and drop on pic 2, pic2 and all others shift to the right and the dragged pic become the pic2.

Or for point 2 better to create a dialog with 2 xbrowse and drag/drop on that dialog and copy back to complete the modifications ?

[Natter]

You can try this
1.

Code: Select all  Expand view  RUN

adel(oBrw:aArrayData[nn], 2)
   atail(oBrw:aArrayData[nn])=NIL
   oBrw:DrawSelect()

2

Code: Select all  Expand view  RUN

for st=1 to nn
     oBrw:aCols[st]:bRClickData:=&('{||Out_Elm('+ltrim(str(st))+')}')
     oBrw:aCols[st]:bLDClickData:=&('{||Ins_Elm('+ltrim(str(st))+')}')
  next

  procedure Out_Elm(col)
  local row:=oBrw:nArrayAt
     oBrw:Cargo:=oBrw:aArrayData[row,col]
     adel(oBrw:aArrayData[row], col)
  return

 procedure Ins_Elm(col)
     ains(oBrw:aArrayData[row], oBrw:Cargo, col)
     oBrw:DrawSelect()
 return

[Marc Venken]

Forgot to mention that I use DBF file with xbrowse.
Looking into the code, but all new to me ))))

[nageswaragunupudi]

1.
When I delete pic 2 the pictures from Pic3 to Pic12 should shift to left and become the Pic2 position so there is no empty cel. the empty cel is going to be the last one,
most right on the last free position. Pic 12 would be the empty cell.

2. Is drag and drop possible within the same row ? So drag pic 5 and drop on pic 2, pic2 and all others shift to the right and the dragged pic become the pic2.

Or for point 2 better to create a dialog with 2 xbrowse and drag/drop on that dialog and copy back to complete the modifications ?

Both 1 and 2 are quite possible inside a single browse.

I guess you want the field data in the dbf also to be changed. Right?

[Marc Venken]

1.
When I delete pic 2 the pictures from Pic3 to Pic12 should shift to left and become the Pic2 position so there is no empty cel. the empty cel is going to be the last one,
most right on the last free position. Pic 12 would be the empty cell.

2. Is drag and drop possible within the same row ? So drag pic 5 and drop on pic 2, pic2 and all others shift to the right and the dragged pic become the pic2.

Or for point 2 better to create a dialog with 2 xbrowse and drag/drop on that dialog and copy back to complete the modifications ?

Both 1 and 2 are quite possible inside a single browse.

I guess you want the field data in the dbf also to be changed. Right?

Yes, Indeed. Afther changes, I will upload to a API webshop

[Marc Venken]

1.
When I delete pic 2 the pictures from Pic3 to Pic12 should shift to left and become the Pic2 position so there is no empty cel. the empty cel is going to be the last one,
most right on the last free position. Pic 12 would be the empty cell.

2. Is drag and drop possible within the same row ? So drag pic 5 and drop on pic 2, pic2 and all others shift to the right and the dragged pic become the pic2.

Or for point 2 better to create a dialog with 2 xbrowse and drag/drop on that dialog and copy back to complete the modifications ?

Both 1 and 2 are quite possible inside a single browse.

I guess you want the field data in the dbf also to be changed. Right?

Can you give me a hint, so that I can hunt for samples in the forum ? Many thanks