Moving a Gadget with a Tablet?

Just starting out? Need help? Post your questions and find answers here.
Stefan
Posts: 248
Joined: Mon Feb 05, 2018 9:44 pm

Re: Moving a Gadget with a Tablet?

Post by Stefan »

An example would be great
munfraid
Posts: 135
Joined: Sat Mar 24, 2018 1:33 pm

Re: Moving a Gadget with a Tablet?

Post by munfraid »

Stefan wrote: Thu Sep 26, 2024 1:56 pm An example would be great
Yes, please a short example. Thanks!
Fred
Site Admin
Posts: 1820
Joined: Mon Feb 24, 2014 10:51 am

Re: Moving a Gadget with a Tablet?

Post by Fred »

You can try something like that:

Code: Select all

EnableExplicit

Enumeration
  
  #window
  #gadget
  
EndEnumeration

Declare Main()

Global GID



Main()

Procedure Main()
  
  Protected  pic
  
  OpenWindow(#window, 0, 0, 800, 600, "Test")
  
  pic = CreateImage(#PB_Any, 100, 60, 32, RGB(200, 0, 0))
  
  ImageGadget(#gadget, 20, 20, ImageWidth(pic), ImageHeight(pic), ImageID(pic))
  
  GID = GadgetID(#gadget)
  Debug GID
  
EnableJS

  require(["interact.min"], function(interact) {
      var div = g_gid.gadget;
      interact(div).draggable({
        'listeners': {
          'move': function(event) {
  
              var x = parseInt($(div).css("left"), 10) + event.dx;
              var y = parseInt($(div).css("top"), 10) + event.dy;
  
              div.style.left = x+"px";
              div.style.top  = y+"px";
              console.log("x:", x, " y: ", y);  
          }
        }
      });
      ; console.log("Interact setup", g_gid);
  });

DisableJS
  
  ;! A(v_gid.gadget).draggable();
  
EndProcedure
munfraid
Posts: 135
Joined: Sat Mar 24, 2018 1:33 pm

Re: Moving a Gadget with a Tablet?

Post by munfraid »

It works! :) This finally solves an old issue in one of my apps.

Thank you very much, Fred!
Stefan
Posts: 248
Joined: Mon Feb 05, 2018 9:44 pm

Re: Moving a Gadget with a Tablet?

Post by Stefan »

Great, thank you very much :)
Post Reply