mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-29 11:40:38 +00:00
New attempt at adding drag/drop to the IDE.
This commit is contained in:
parent
2b0dfb7381
commit
09085b614b
|
@ -1275,14 +1275,14 @@ FUNCTION ide2 (ignore)
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
'IF _TOTALDROPPEDFILES > 0 THEN
|
IF _TOTALDROPPEDFILES > 0 THEN
|
||||||
' IF _FILEEXISTS(_DROPPEDFILE$(1)) THEN
|
IF _FILEEXISTS(_DROPPEDFILE$(1)) THEN
|
||||||
' IdeOpenFile$ = _DROPPEDFILE$(1)
|
IdeOpenFile$ = _DROPPEDFILE$(1)
|
||||||
' _FINISHDROP
|
_FINISHDROP
|
||||||
' GOTO ctrlOpen
|
GOTO ctrlOpen
|
||||||
' END IF
|
END IF
|
||||||
' _FINISHDROP
|
_FINISHDROP
|
||||||
'END IF
|
END IF
|
||||||
|
|
||||||
'Hover/click (QuickNav)
|
'Hover/click (QuickNav)
|
||||||
IF IdeSystem = 1 AND QuickNavTotal > 0 THEN
|
IF IdeSystem = 1 AND QuickNavTotal > 0 THEN
|
||||||
|
@ -7450,13 +7450,13 @@ FUNCTION ideopen$
|
||||||
alt = KALT: IF alt <> oldalt THEN change = 1
|
alt = KALT: IF alt <> oldalt THEN change = 1
|
||||||
oldalt = alt
|
oldalt = alt
|
||||||
|
|
||||||
'IF _TOTALDROPPEDFILES > 0 THEN
|
IF _TOTALDROPPEDFILES > 0 THEN
|
||||||
' idetxt(o(1).txt) = _DROPPEDFILE$(1)
|
idetxt(o(1).txt) = _DROPPEDFILE$(1)
|
||||||
' o(1).v1 = LEN(idetxt(o(1).txt))
|
o(1).v1 = LEN(idetxt(o(1).txt))
|
||||||
' focus = 1
|
focus = 1
|
||||||
' _FINISHDROP
|
_FINISHDROP
|
||||||
' change = 1
|
change = 1
|
||||||
'END IF
|
END IF
|
||||||
|
|
||||||
_LIMIT 100
|
_LIMIT 100
|
||||||
LOOP UNTIL change
|
LOOP UNTIL change
|
||||||
|
|
|
@ -921,8 +921,8 @@ gl_scan_header
|
||||||
'-----------------------QB64 COMPILER ONCE ONLY SETUP CODE ENDS HERE---------------------------------------
|
'-----------------------QB64 COMPILER ONCE ONLY SETUP CODE ENDS HERE---------------------------------------
|
||||||
|
|
||||||
IF NoIDEMode THEN IDE_AutoPosition = 0: GOTO noide
|
IF NoIDEMode THEN IDE_AutoPosition = 0: GOTO noide
|
||||||
'DIM FileDropEnabled AS _BYTE
|
DIM FileDropEnabled AS _BYTE
|
||||||
'IF FileDropEnabled = 0 THEN FileDropEnabled = -1: _ACCEPTFILEDROP
|
IF FileDropEnabled = 0 THEN FileDropEnabled = -1: _ACCEPTFILEDROP
|
||||||
|
|
||||||
IF IDE_AutoPosition AND NOT IDE_BypassAutoPosition THEN _SCREENMOVE IDE_LeftPosition, IDE_TopPosition
|
IF IDE_AutoPosition AND NOT IDE_BypassAutoPosition THEN _SCREENMOVE IDE_LeftPosition, IDE_TopPosition
|
||||||
idemode = 1
|
idemode = 1
|
||||||
|
|
Loading…
Reference in a new issue