Page 1 of 1
Drag Act
Posted: Sat Oct 29, 2022 5:16 pm
by richmond62
So . . . getting "all excited" (well, not that much as, as usual, the hype and the tripe don't coincide) about
Apple's new and much talked-up Freeform app for MacOS (that means, on your computer screen rather than
a tablet):
https://www.macrumors.com/2022/10/25/io ... eform-app/
I noticed how one can:
1. Drag an image from outwith Freeform onto its window.
2. Drag an RTF document from outwith Freeform onto its window.
The question . . .
-
- RuPaul.jpg (25.64 KiB) Viewed 3823 times
-
Err, No, not that question, although I am feeling fairly camp today.
The question is, is there a way to drag images and text documents from a folder window onto a LiveCode stack?
Re: Drag Act
Posted: Sat Oct 29, 2022 5:38 pm
by Klaus
Hi Richmond,
here a quick and dirty demo stack, check the card script.
This should get you started.
Best
Klaus
Re: Drag Act
Posted: Sat Oct 29, 2022 5:49 pm
by richmond62
Fantastic, Klaus!
Thank you very much indeed!
Re: Drag Act
Posted: Sat Oct 29, 2022 5:52 pm
by richmond62
The RTF drag needs a spot of fine tuning:
-
- SShot 2022-10-29 at 19.51.35.png (17.69 KiB) Viewed 3817 times
-
This is because the default textSize of a new field is 12.
Re: Drag Act
Posted: Sat Oct 29, 2022 6:14 pm
by richmond62
- SShot 2022-10-29 at 20.12.39.png (5.39 KiB) Viewed 3804 times
-
Code: Select all
case tSuffix = "rtf"
create field
set the rtftext of last fld to url("file:" & tFile)
---- Richmond 29/10/22
focus on last fld
select text of last fld
put the textSize of the selectedText into TXSZ
set the textSize of last fld to TXSZ
set the height of last fld to the formattedHeight of last fld
set the width of last fld to the formattedWidth of last fld
focus on nothing
----
break
Not sure WHY
focus on nothing does NOT remove focus from the field.
-
- Focus on nothing
- focusN.jpg (7.64 KiB) Viewed 3798 times
Re: Drag Act
Posted: Sat Oct 29, 2022 6:32 pm
by richmond62
Err . . . perhaps the state of the Dictionary might be something to do with that:
-
-
A great source of comfort:
-
- SShot 2022-10-29 at 20.31.42.png (26.13 KiB) Viewed 3793 times
Re: Drag Act
Posted: Sat Oct 29, 2022 6:35 pm
by richmond62
Deepjoy:
-
- SShot 2022-10-29 at 20.33.28.png (24.13 KiB) Viewed 3780 times
-
- SShot 2022-10-29 at 20.33.46.png (23.27 KiB) Viewed 3780 times
Re: Drag Act
Posted: Sat Oct 29, 2022 6:45 pm
by richmond62
Aaaaaah:
-
Code: Select all
case tSuffix = "rtf"
create field
set the rtftext of last fld to url("file:" & tFile)
---- Richmond 29/10/22
focus on last fld
select text of last fld
put the textSize of the selectedText into TXSZ
set the textSize of last fld to TXSZ
set the height of last fld to the formattedHeight of last fld
set the width of last fld to the formattedWidth of last fld
select empty
----
break