QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +00:00
Code Issues Releases Wiki Activity

New attempt at adding drag/drop to the IDE.

Browse source
This commit is contained in:
FellippeHeitor 2018-08-01 02:02:07 -03:00
parent 2b0dfb7381
commit 09085b614b
2 changed files with 17 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
source/ide/ide_methods.bas
View file

@ -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

4
source/qb64.bas
View file

@ -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