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