QB64/InForm
QB64/InForm
1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2025-01-15 11:59:34 +00:00
Code Issues Releases Wiki Activity

Keyboard edits (including copy/paste) also save an undo image now.

Browse source
This commit is contained in:
FellippeHeitor 2016-12-23 12:53:53 -02:00
parent bd497e730e
commit c2f6073b62
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
InForm/InForm.ui
View file

@ -3267,7 +3267,7 @@ SUB __UI_EventDispatcher
Control(PasteID) = Control(ThisControl)
Control(PasteID).ID = 0
DO WHILE __UI_GetID(Control(PasteID).Name) > 0
Control(PasteID).Name = "CopyOf" + Control(PasteID).Name
Control(PasteID).Name = "Cp" + Control(PasteID).Name
LOOP
Control(PasteID).ID = PasteID
Control(PasteID).ParentID = 0
@ -3295,6 +3295,7 @@ SUB __UI_EventDispatcher
__UI_ForceRedraw = True
__UI_AutoRefresh = True
END IF
__UI_KeyPress 216
END IF
CASE 21248 'Delete
ControlDelete:
@ -3329,6 +3330,7 @@ SUB __UI_EventDispatcher
__UI_TotalSelectedControls = __UI_TotalSelectedControls - 1
END IF
NEXT
__UI_KeyPress 216
CASE 19200 'Left arrow key
FOR i = 1 TO UBOUND(Control)
IF Control(i).ControlIsSelected AND Control(i).Type <> __UI_Type_MenuBar AND Control(i).Type <> __UI_Type_MenuItem THEN
@ -3340,6 +3342,7 @@ SUB __UI_EventDispatcher
END IF
END IF
NEXT
__UI_KeyPress 216
CASE 19712 'Right arrow key
FOR i = 1 TO UBOUND(Control)
IF Control(i).ControlIsSelected AND Control(i).Type <> __UI_Type_MenuBar AND Control(i).Type <> __UI_Type_MenuItem THEN
@ -3351,6 +3354,7 @@ SUB __UI_EventDispatcher
END IF
END IF
NEXT
__UI_KeyPress 216
CASE 18432 'Up arrow key
FOR i = 1 TO UBOUND(Control)
IF Control(i).ControlIsSelected AND Control(i).Type <> __UI_Type_MenuBar AND Control(i).Type <> __UI_Type_MenuItem THEN
@ -3362,6 +3366,7 @@ SUB __UI_EventDispatcher
END IF
END IF
NEXT
__UI_KeyPress 216
CASE 20480 'Down arrow key
FOR i = 1 TO UBOUND(Control)
IF Control(i).ControlIsSelected AND Control(i).Type <> __UI_Type_MenuBar AND Control(i).Type <> __UI_Type_MenuItem THEN
@ -3373,6 +3378,7 @@ SUB __UI_EventDispatcher
END IF
END IF
NEXT
__UI_KeyPress 216
END SELECT
IF __UI_ActiveMenu > 0 THEN __UI_ActivateMenu Control(__UI_ParentMenu), False
ELSEIF __UI_KeyHit <> 0 THEN 'No control has focus

BIN
UiEditorPreview.exe
View file

Binary file not shown.