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

New PasteList button: detects if a list is in memory for ListBox controls.

Browse source
This commit is contained in:
FellippeHeitor 2018-06-17 23:53:40 -03:00
parent 20dfe998f0
commit 8eaef714a9
2 changed files with 39 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
InForm/UiEditor.bas
View file

@ -110,6 +110,7 @@ DIM SHARED MaskTB AS LONG, MaskLB AS LONG
DIM SHARED BulletOptions AS LONG, BulletOptionsLB AS LONG
DIM SHARED BooleanLB AS LONG, BooleanOptions AS LONG
DIM SHARED FontListLB AS LONG, FontList AS LONG, FontSizeList
DIM SHARED PasteListBT AS LONG
'------------------------------------------------------------------------------
'Other shared variables:
@ -621,6 +622,15 @@ SUB __UI_Click (id AS LONG)
IF id <> FontSwitchMenuSwitch THEN __UI_MouseEnter FontLB
SaveSettings
__UI_ForceRedraw = True
CASE PasteListBT
DIM Clip$
Clip$ = _CLIPBOARD$
Clip$ = Replace$(Clip$, CHR$(13) + CHR$(10), CHR$(10), 0, 0)
Clip$ = Replace$(Clip$, CHR$(10), "\n", 0, 0)
Text(TextTB) = Clip$
__UI_Focus = TextTB
Control(TextTB).Cursor = LEN(Text(TextTB))
Control(TextTB).TextIsSelected = False
END SELECT
LastClickedID = id
@ -1090,8 +1100,10 @@ SUB __UI_BeforeUpdateDisplay
FormDataReceived = True
ELSE
Edited = True
IF TIMER - InputBox(GetInputBoxFromID(__UI_Focus)).LastEdited > 1 THEN
LoseFocus
IF __UI_Focus > 0 THEN
IF TIMER - InputBox(GetInputBoxFromID(__UI_Focus)).LastEdited > 1 THEN
LoseFocus
END IF
END IF
END IF
CASE "UNDOPOINTER"
@ -1926,6 +1938,18 @@ SUB __UI_BeforeUpdateDisplay
Control(FontSizeList).Hidden = Control(FontList).Hidden
Control(FontSizeList).Top = Control(FontList).Top
IF PreviewControls(FirstSelected).Type = __UI_Type_ListBox OR PreviewControls(FirstSelected).Type = __UI_Type_DropdownList OR _
(PreviewControls(FirstSelected).Type = __UI_Type_Label AND PreviewControls(FirstSelected).WordWrap = True) THEN
IF INSTR(_CLIPBOARD$, CHR$(10)) THEN
Control(PasteListBT).Top = Control(TextTB).Top
Control(PasteListBT).Hidden = False
ELSE
Control(PasteListBT).Hidden = True
END IF
ELSE
Control(PasteListBT).Hidden = True
END IF
'Update the color mixer
DIM ThisColor AS _UNSIGNED LONG, ThisBackColor AS _UNSIGNED LONG
@ -2437,6 +2461,14 @@ SUB __UI_OnLoad
COLOR _RGB32(55, 55, 55), _RGBA32(0, 0, 0, 0)
__UI_PrintString 5, 3, "#"
'Draw PasteListBT icon
Control(PasteListBT).HelperCanvas = _NEWIMAGE(17, 17, 32)
_DEST Control(PasteListBT).HelperCanvas
_FONT 16
FOR i = 4 TO 15 STEP 4
LINE (3, i)-STEP(_WIDTH - 6, 1), _RGB32(122, 122, 122), BF
NEXT
'Import Align menu icons from InForm.ui
Control(AlignMenuAlignLeft).HelperCanvas = Control(__UI_GetID("__UI_PreviewMenuAlignLeft")).HelperCanvas
Control(AlignMenuAlignRight).HelperCanvas = Control(__UI_GetID("__UI_PreviewMenuAlignRight")).HelperCanvas

5
InForm/UiEditor.frm
View file

@ -351,6 +351,10 @@ SUB __UI_LoadForm
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
__UI_NewID = __UI_NewControl(__UI_Type_Button, "PasteListBT", 23, 23, 106, 54, __UI_GetID("ControlProperties"))
Control(__UI_NewID).CanHaveFocus = True
ToolTip(__UI_NewID) = "Paste list into control"
__UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextTB", 230, 23, 129, 54, __UI_GetID("ControlProperties"))
Control(__UI_NewID).HasBorder = True
Control(__UI_NewID).CanHaveFocus = True
@ -811,4 +815,5 @@ SUB __UI_AssignIDs
FontSwitchMenuSwitch = __UI_GetID("FontSwitchMenuSwitch")
FontSwitchMenu = __UI_GetID("FontSwitchMenu")
AutoScroll = __UI_GetID("AutoScroll")
PasteListBT = __UI_GetID("PasteListBT")
END SUB