Move iOSControl

Targets iOS
1

Hello,

I was wondering whether there is a way to drag iOSControls added dynamically. I tried with iosLib class extensions unsuccessfully. I can drag the control but it goes back at its original location as soon I stop to drag it. I don’t know how to programmatically modify constraints. Not sure this is possible.

Thanks for your lights

Pierre

2

Look here https://forum.xojo.com/18918-moving-controls-in-code/0

and here

https://forum.xojo.com/18110-scrollableview

3

Michel,

I already had a look on these threads. My problem is I don’t know how to get constraint named with control programmatically added

[code] Dim canvasCtrl As New iOSCanvas

App.infoBoxes.Append canvasCtrl

Dim pt As New xojo.Core.Point(_left, _top)
Dim size As New xojo.Core.Size(50, 50)
Dim rect As New xojo.Core.Rect(pt, size)

AddHandler canvasCtrl.Paint, AddressOf drawInfoBox
AddHandler canvasCtrl.PointerDown, AddressOf infoBoxPressed
AddHandler canvasCtrl.PointerDrag, AddressOf infoBoxDragged

me.AddControlWithBounds(canvasCtrl, rect)
[/code]

4

[quote=193022:@Pierre Vareilles]Michel,

I already had a look on these threads. My problem is I don’t know how to get constraint named with control programmatically added

[code] Dim canvasCtrl As New iOSCanvas

App.infoBoxes.Append canvasCtrl

Dim pt As New xojo.Core.Point(_left, _top)
Dim size As New xojo.Core.Size(50, 50)
Dim rect As New xojo.Core.Rect(pt, size)

AddHandler canvasCtrl.Paint, AddressOf drawInfoBox
AddHandler canvasCtrl.PointerDown, AddressOf infoBoxPressed
AddHandler canvasCtrl.PointerDrag, AddressOf infoBoxDragged

me.AddControlWithBounds(canvasCtrl, rect)
[/code][/quote]

Look at Example projects/iOS/Controls/DynamicControls.xojo_binary_project in the ToolBarPressed event of View1.