I get that part Fangles. I'm just trying to establish if it's a PB related issue or more of a Windows related issue.Fangbeast wrote:...Sparkie wrote:Fangles, are you able to drag/drop a text file from Win Explorer to Win Notepad?
I am trying to drop files from Windows 8.1 x64's file explorer onto a pb 5.21lts x86 window.
Oi!! None of that winking, my wife will have words with me!!!I get that part Fangles. I'm just trying to establish if it's a PB related issue or more of a Windows related issue.
I have the same setup as you with Windows 8.1 x64 and PB 5.21lts x86, and have no issues with drag/drop.
Okay, will do. Will report back if I am not a squishly pile of melted sludge!!!RASHAD wrote:@Fangles
Take it easy
Try PB 5.11 x86 - x64 I think everything will go fine
Can not say more
Code: Select all
EnableExplicit
#Window = 0
Enumeration ; Gadgets
#TargetFiles
EndEnumeration
Define Event, Count, i
Define Files$
If OpenWindow(#Window, 0, 0, 800, 600, "Drag & Drop", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
; Create the target gadgets
ListIconGadget(#TargetFiles, 5, 5, 7900, 590, "Drop Files here", 250)
; Now enable the dropping on the target gadgets
EnableGadgetDrop(#TargetFiles, #PB_Drop_Files, #PB_Drag_Copy)
Repeat
Event = WaitWindowEvent()
; Drop event on the target gadgets, receive the dropped data
;
If Event = #PB_Event_GadgetDrop
Select EventGadget()
Case #TargetFiles
Files$ = EventDropFiles()
Count = CountString(Files$, Chr(10)) + 1
For i = 1 To Count
AddGadgetItem(#TargetFiles, -1, StringField(Files$, i, Chr(10)))
Next i
EndSelect
EndIf
Until Event = #PB_Event_CloseWindow
EndIf
EndCode: Select all
Procedure.s GetDropFile (*dropFiles, index)
buffer = DragQueryFile_ (*dropFiles, index, 0, 0)
For a = 1 To buffer: buffer$ + " ": Next
DragQueryFile_ (*dropFiles, index, buffer$, buffer+1)
ProcedureReturn buffer$
EndProcedure
#Window = 0
Enumeration ; Gadgets
#TargetFiles
EndEnumeration
Define Event, Count, i
Define Files$
If OpenWindow(#Window, 0, 0, 800, 600, "Drag & Drop", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
; Create the target gadgets
ListIconGadget(#TargetFiles, 5, 5, 7900, 590, "Drop Files here", 250)
DragAcceptFiles_(GadgetID(#TargetFiles), 1)
Repeat
Select WaitWindowEvent ()
Case #WM_DROPFILES
*dropped = EventwParam ()
num = DragQueryFile_(*dropped , $FFFFFFFF, temp$, 0)
f$ = ""
For files = 0 To num - 1
f$ + GetDropFile (*dropped, files) + Chr (13)
Next
AddGadgetItem(#TargetFiles,-1,f$)
DragFinish_(*dropped)
Case #PB_Event_CloseWindow
Quit = 1
EndSelect
Until Quit = 1
EndIf
End
I'm not seeing any answer to my original question my dear Fangles. Get out of the heat, pour some cold water over your big head and then tell me.....Can you drag/drop a .txt file from Explorer to Notepad?Fangbeast wrote:Oi!! None of that winking, my wife will have words with me!!!I get that part Fangles. I'm just trying to establish if it's a PB related issue or more of a Windows related issue.
I have the same setup as you with Windows 8.1 x64 and PB 5.21lts x86, and have no issues with drag/drop.
I think I will just bash myself around the head with a big rock as 2 days of 41 degrees are coming up and I won't be able to think my way out of anything!
Sorry, I got distracted by the past images of srod abusing those poor sheep again. It's not something your forget with time.I'm not seeing any answer to my original question my dear Fangles.
What's cold water??? It's 36 today, back to 41 tomorrow. Then next week might kill me:)Get out of the heat, pour some cold water over your big head and then tell me
Yes sir, that works well.Can you drag/drop a .txt file from Explorer to Notepad?
Tougher?? TOUGHER??? OOOOh Nooo, say it isn't so oh ferret infested master of mayhem!! And, I shall hang on to the urrrg, arrrm, ungha, ahem, thingamajigamabob!The questions are only going to get tougher from this point forward Fangles, so strap on your....ummmm......ahhhhhh.......oh nevermind, just hang in there best you can.
Circle with diag icon.Maybe I missed it, but are you getting the proper drag/drop icon with no drop occurring or do you get the no drop icon (circle with diag line)?
Srod's festering underpants?Let's eliminate a few things:
PB IDEAre you using PB IDE or JaPBe?
Compiling by pressing F5Are you compiling by pressing F5, or clicking the Compile icon?
Never created an EXE before so just did it now and same result.Do you get same results if you create exe and run?
They are not silly questions Sir Sparkasaurus, master of the magical sheep roundabout, this is Microsoft's platform we are dealing with after all. What works on Windows 7 was almost guaranteed not to work the same (if at all!!) on windows 8 and up.Now I know these may seem like silly questions, but I've had problems in the past (years ago) that were related to the above situations.
Yes, the good quality stone slating stuff, not the cheap wooden ones. Although the festering does erode even the stone ones after a while.Did I hear someone slating my festering underpants?
Then why do I have an affidavit signed by you and witnessed by Jessica the dancing sheep? Ohh, you weren't quite awake and you could have signed anything at that point.That's not fair; they don't belong to me anymore.
Nether regions?? Oh, that image iss seared into my eyeballs now and I'll never sleep again!nether-regions of beyond.
Well, when you are speaking about nether regions and then mention fire, I keep thinking about that last Indian curry we had. Never needed the gas stove as I recall, not after thatTalk about escaping from the frying pan and heading into the fire huh!
make sure you put two toilet rolls in the fridge for morning then FanglesFangbeast wrote:Well, when you are speaking about nether regions and then mention fire, I keep thinking about that last Indian curry we had. Never needed the gas stove as I recall, not after that
