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

InForm.ui: Menus (bar and items) can be added. Also:

Browse source 
- Fix font height for _FONT 8 and _FONT 16.
- Control names can now have only up to 40 characters to prepare for "Control.Property" syntax.
- Default font set to SegoeUI (editor and preview).
- Improved design mode context menu (Distribute Vertically/Horizontally).
- When designated .TTF font can't be found, new default is _FONT 8.
- Improved ControlName search to avoid duplicated names (__UI_NewControl).
- Trim controls' captions if CHR$(0) is found.
This commit is contained in:
FellippeHeitor 2016-11-27 18:25:29 -02:00
parent a91c32c8b1
commit 62e3c47b4e
1 changed files with 411 additions and 167 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

362
InForm.ui
View file

@ -14,7 +14,7 @@ DECLARE LIBRARY "falcon"
FUNCTION uprint (BYVAL x&, BYVAL y&, chars$, BYVAL txt_len&, BYVAL colour~&, BYVAL max_width&) FUNCTION uprint (BYVAL x&, BYVAL y&, chars$, BYVAL txt_len&, BYVAL colour~&, BYVAL max_width&)
FUNCTION uprintwidth (chars$, BYVAL txt_len&, BYVAL max_width&) FUNCTION uprintwidth (chars$, BYVAL txt_len&, BYVAL max_width&)
FUNCTION uheight& () FUNCTION uheight& ()
FUNCTION uspacing& () FUNCTION falcon_uspacing& ALIAS uspacing ()
FUNCTION uascension& () FUNCTION uascension& ()
END DECLARE END DECLARE
@ -39,7 +39,7 @@ TYPE __UI_ControlTYPE
PreviousParentID AS LONG PreviousParentID AS LONG
ContextMenuID AS LONG ContextMenuID AS LONG
Type AS INTEGER Type AS INTEGER
Name AS STRING * 256 Name AS STRING * 40
Top AS INTEGER Top AS INTEGER
Left AS INTEGER Left AS INTEGER
Width AS INTEGER Width AS INTEGER
@ -77,6 +77,13 @@ TYPE __UI_ControlTYPE
ThumbHeight AS INTEGER ThumbHeight AS INTEGER
ThumbTop AS INTEGER ThumbTop AS INTEGER
VScrollbarRatio AS SINGLE VScrollbarRatio AS SINGLE
'HasHScrollbar AS _BYTE
'HScrollbarButton2Left AS INTEGER
'LongestLine AS LONG
'HoveringHScrollbarButton AS _BYTE
'ThumbWidth AS INTEGER
'ThumbLeft AS INTEGER
'HScrollbarRatio AS SINGLE
Cursor AS LONG Cursor AS LONG
PrevCursor AS LONG PrevCursor AS LONG
FieldArea AS LONG FieldArea AS LONG
@ -94,7 +101,6 @@ TYPE __UI_ControlTYPE
SelectionStart AS LONG SelectionStart AS LONG
WordWrap AS _BYTE WordWrap AS _BYTE
CanResize AS _BYTE CanResize AS _BYTE
CanDrag AS _BYTE
CanHaveFocus AS _BYTE CanHaveFocus AS _BYTE
Disabled AS _BYTE Disabled AS _BYTE
Hidden AS _BYTE Hidden AS _BYTE
@ -169,6 +175,7 @@ DIM SHARED __UI_ActiveTipTop AS INTEGER, __UI_ActiveTipLeft AS INTEGER
DIM SHARED __UI_FormID AS LONG, __UI_HasMenuBar AS LONG DIM SHARED __UI_FormID AS LONG, __UI_HasMenuBar AS LONG
DIM SHARED __UI_ScrollbarWidth AS INTEGER, __UI_ScrollbarButtonHeight AS INTEGER DIM SHARED __UI_ScrollbarWidth AS INTEGER, __UI_ScrollbarButtonHeight AS INTEGER
DIM SHARED __UI_MenuBarOffset AS INTEGER, __UI_MenuItemOffset AS INTEGER DIM SHARED __UI_MenuBarOffset AS INTEGER, __UI_MenuItemOffset AS INTEGER
DIM SHARED __UI_NewMenuBarTextLeft AS INTEGER
DIM SHARED __UI_ForceRedraw AS _BYTE, __UI_AutoRefresh AS _BYTE DIM SHARED __UI_ForceRedraw AS _BYTE, __UI_AutoRefresh AS _BYTE
DIM SHARED __UI_CurrentTitle AS STRING, __UI_WindowHandle AS LONG DIM SHARED __UI_CurrentTitle AS STRING, __UI_WindowHandle AS LONG
DIM SHARED __UI_DesignMode AS _BYTE, __UI_FirstSelectedID AS LONG DIM SHARED __UI_DesignMode AS _BYTE, __UI_FirstSelectedID AS LONG
@ -266,7 +273,7 @@ SUB __UI_InternalMenus
'Internal "design mode" context menu. ------------------------------------------- 'Internal "design mode" context menu. -------------------------------------------
DIM __UI_NewID AS LONG DIM __UI_NewID AS LONG
__UI_NewID = __UI_NewControl(__UI_Type_ContextMenu, "__UI_PreviewMenu", 0, 0, 0, 0, 0) __UI_NewID = __UI_NewControl(__UI_Type_ContextMenu, "__UI_PreviewMenu", 0, 0, 0, 0, 0)
__UI_Controls(__UI_NewID).Font = __UI_Font("InForm\NotoMono-Regular.ttf",12,"") __UI_Controls(__UI_NewID).Font = __UI_Font("segoeui.ttf",12,"")
__UI_NewID = __UI_NewControl(__UI_Type_MenuItem, "__UI_PreviewMenuAlignLeft", 0, 0, 0, 0, __UI_GetID("__UI_PreviewMenu")) __UI_NewID = __UI_NewControl(__UI_Type_MenuItem, "__UI_PreviewMenuAlignLeft", 0, 0, 0, 0, __UI_GetID("__UI_PreviewMenu"))
__UI_SetCaption "__UI_PreviewMenuAlignLeft", "Align &Left" __UI_SetCaption "__UI_PreviewMenuAlignLeft", "Align &Left"
@ -512,7 +519,7 @@ SUB __UI_ProcessInput
'Design mode specific hover: 'Design mode specific hover:
IF __UI_DesignMode AND __UI_IsResizing = __UI_False AND __UI_IsDragging = __UI_False THEN IF __UI_DesignMode AND __UI_IsResizing = __UI_False AND __UI_IsDragging = __UI_False THEN
__UI_ResizeHandleHover = 0 __UI_ResizeHandleHover = 0
IF __UI_Controls(__UI_HoveringID).ControlIsSelected THEN IF __UI_Controls(__UI_HoveringID).ControlIsSelected AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_MenuBar AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_MenuItem THEN
IF __UI_MouseLeft >= __UI_Controls(__UI_HoveringID).Left + __UI_Controls(__UI_Controls(__UI_HoveringID).ParentID).Left + __UI_Controls(__UI_HoveringID).Width - 8 AND __UI_MouseTop >= __UI_Controls(__UI_HoveringID).Top + __UI_Controls(__UI_Controls(__UI_HoveringID).ParentID).Top + __UI_Controls(__UI_HoveringID).Height / 2 - 4 AND __UI_MouseTop <= __UI_Controls(__UI_HoveringID).Top + __UI_Controls(__UI_Controls(__UI_HoveringID).ParentID).Top + __UI_Controls(__UI_HoveringID).Height / 2 + 4 THEN IF __UI_MouseLeft >= __UI_Controls(__UI_HoveringID).Left + __UI_Controls(__UI_Controls(__UI_HoveringID).ParentID).Left + __UI_Controls(__UI_HoveringID).Width - 8 AND __UI_MouseTop >= __UI_Controls(__UI_HoveringID).Top + __UI_Controls(__UI_Controls(__UI_HoveringID).ParentID).Top + __UI_Controls(__UI_HoveringID).Height / 2 - 4 AND __UI_MouseTop <= __UI_Controls(__UI_HoveringID).Top + __UI_Controls(__UI_Controls(__UI_HoveringID).ParentID).Top + __UI_Controls(__UI_HoveringID).Height / 2 + 4 THEN
__UI_ResizeHandleHover = 1 'Right __UI_ResizeHandleHover = 1 'Right
ELSEIF __UI_MouseLeft >= __UI_Controls(__UI_HoveringID).Left + __UI_Controls(__UI_Controls(__UI_HoveringID).ParentID).Left + __UI_Controls(__UI_HoveringID).Width / 2 - 4 AND __UI_MouseLeft <= __UI_Controls(__UI_HoveringID).Left + __UI_Controls(__UI_Controls(__UI_HoveringID).ParentID).Left + __UI_Controls(__UI_HoveringID).Width / 2 + 4 AND __UI_MouseTop >= __UI_Controls(__UI_HoveringID).Top + __UI_Controls(__UI_Controls(__UI_HoveringID).ParentID).Top + __UI_Controls(__UI_HoveringID).Height / 2 - 4 AND __UI_MouseTop >= __UI_Controls(__UI_HoveringID).Top + __UI_Controls(__UI_Controls(__UI_HoveringID).ParentID).Top + __UI_Controls(__UI_HoveringID).Height - 8 THEN ELSEIF __UI_MouseLeft >= __UI_Controls(__UI_HoveringID).Left + __UI_Controls(__UI_Controls(__UI_HoveringID).ParentID).Left + __UI_Controls(__UI_HoveringID).Width / 2 - 4 AND __UI_MouseLeft <= __UI_Controls(__UI_HoveringID).Left + __UI_Controls(__UI_Controls(__UI_HoveringID).ParentID).Left + __UI_Controls(__UI_HoveringID).Width / 2 + 4 AND __UI_MouseTop >= __UI_Controls(__UI_HoveringID).Top + __UI_Controls(__UI_Controls(__UI_HoveringID).ParentID).Top + __UI_Controls(__UI_HoveringID).Height / 2 - 4 AND __UI_MouseTop >= __UI_Controls(__UI_HoveringID).Top + __UI_Controls(__UI_Controls(__UI_HoveringID).ParentID).Top + __UI_Controls(__UI_HoveringID).Height - 8 THEN
@ -537,7 +544,7 @@ SUB __UI_ProcessInput
IF __UI_ActiveMenu = 0 THEN IF __UI_ActiveMenu = 0 THEN
__UI_Focus = __UI_HoveringID __UI_Focus = __UI_HoveringID
END IF END IF
ELSEIF __UI_Controls(__UI_Focus).Type = __UI_Type_MenuPanel AND __UI_Controls(__UI_HoveringID).Type = __UI_Type_MenuBar AND __UI_ActiveMenuIsContextMenu = __UI_False THEN ELSEIF __UI_Controls(__UI_Focus).Type = __UI_Type_MenuPanel AND __UI_Controls(__UI_HoveringID).Type = __UI_Type_MenuBar AND __UI_ActiveMenuIsContextMenu = __UI_False AND __UI_DesignMode = __UI_False THEN
IF __UI_ParentMenu <> __UI_HoveringID AND NOT __UI_Controls(__UI_HoveringID).Disabled THEN IF __UI_ParentMenu <> __UI_HoveringID AND NOT __UI_Controls(__UI_HoveringID).Disabled THEN
__UI_ActivateMenu __UI_Controls(__UI_HoveringID), __UI_False __UI_ActivateMenu __UI_Controls(__UI_HoveringID), __UI_False
__UI_ForceRedraw = __UI_True __UI_ForceRedraw = __UI_True
@ -643,7 +650,7 @@ END SUB
'--------------------------------------------------------------------------------- '---------------------------------------------------------------------------------
SUB __UI_UpdateDisplay SUB __UI_UpdateDisplay
STATIC GridDrawn AS _BYTE, ActiveTipPanel AS LONG, PreviousTipID AS LONG STATIC GridDrawn AS _BYTE, ActiveTipPanel AS LONG, PreviousTipID AS LONG
DIM i AS LONG, TempCaption$, TempColor~&, PrevDest AS LONG DIM i AS LONG, TempCaption$, TempColor~&, PrevDest AS LONG, TempParentID AS LONG
DIM CaptionIndent AS INTEGER, OverlayisVisible AS _BYTE, OverlayReset AS _BYTE DIM CaptionIndent AS INTEGER, OverlayisVisible AS _BYTE, OverlayReset AS _BYTE
DIM ContainerOffsetLeft AS INTEGER, ContainerOffsetTop AS INTEGER DIM ContainerOffsetLeft AS INTEGER, ContainerOffsetTop AS INTEGER
DIM ControlState AS _BYTE '1 = Normal; 2 = Hover/focus; 3 = Mouse down; 4 = Disabled; DIM ControlState AS _BYTE '1 = Normal; 2 = Hover/focus; 3 = Mouse down; 4 = Disabled;
@ -710,7 +717,7 @@ SUB __UI_UpdateDisplay
_DEST 0 _DEST 0
END IF END IF
IF (GridDrawn AND NOT __UI_IsDragging) OR (GridDrawn AND __UI_Controls(__UI_DraggingID).ParentID > 0) THEN IF (GridDrawn AND NOT __UI_IsDragging) OR (GridDrawn AND __UI_Controls(__UI_DraggingID).ParentID > 0) OR __UI_ForceRedraw THEN
'Restore main window hardware bg 'Restore main window hardware bg
GridDrawn = __UI_False GridDrawn = __UI_False
'Free the hardware bg image: 'Free the hardware bg image:
@ -834,6 +841,13 @@ SUB __UI_UpdateDisplay
END IF END IF
OverlayisVisible = __UI_True OverlayisVisible = __UI_True
IF __UI_Controls(i).Type = __UI_Type_MenuItem THEN
TempParentID = __UI_Controls(i).ParentID
__UI_Controls(i).ParentID = __UI_ActiveMenu
ELSE
TempParentID = 0
END IF
'Dotted outline: 'Dotted outline:
LINE (__UI_Controls(i).Left + __UI_Controls(__UI_Controls(i).ParentID).Left - 2, __UI_Controls(i).Top + __UI_Controls(__UI_Controls(i).ParentID).Top - 2)-STEP(__UI_Controls(i).Width + 3, __UI_Controls(i).Height + 3), _RGB32(0, 0, 0), B , 21845 LINE (__UI_Controls(i).Left + __UI_Controls(__UI_Controls(i).ParentID).Left - 2, __UI_Controls(i).Top + __UI_Controls(__UI_Controls(i).ParentID).Top - 2)-STEP(__UI_Controls(i).Width + 3, __UI_Controls(i).Height + 3), _RGB32(0, 0, 0), B , 21845
@ -868,6 +882,8 @@ SUB __UI_UpdateDisplay
'Top-left resize handle: 'Top-left resize handle:
LINE (__UI_Controls(i).Left + __UI_Controls(__UI_Controls(i).ParentID).Left, __UI_Controls(i).Top + __UI_Controls(__UI_Controls(i).ParentID).Top)-STEP(7, 7), _RGB32(255, 255, 255), BF LINE (__UI_Controls(i).Left + __UI_Controls(__UI_Controls(i).ParentID).Left, __UI_Controls(i).Top + __UI_Controls(__UI_Controls(i).ParentID).Top)-STEP(7, 7), _RGB32(255, 255, 255), BF
LINE (__UI_Controls(i).Left + __UI_Controls(__UI_Controls(i).ParentID).Left, __UI_Controls(i).Top + __UI_Controls(__UI_Controls(i).ParentID).Top)-STEP(7, 7), _RGB32(0, 0, 0), B LINE (__UI_Controls(i).Left + __UI_Controls(__UI_Controls(i).ParentID).Left, __UI_Controls(i).Top + __UI_Controls(__UI_Controls(i).ParentID).Top)-STEP(7, 7), _RGB32(0, 0, 0), B
IF TempParentID > 0 THEN __UI_Controls(i).ParentID = TempParentID
_DEST 0 _DEST 0
END IF END IF
@ -917,12 +933,16 @@ SUB __UI_UpdateDisplay
_DEST 0 _DEST 0
END IF END IF
IF __UI_ActiveMenu > 0 THEN
__UI_DrawMenuPanel __UI_Controls(__UI_ActiveMenu), ControlState
END IF
IF OverlayisVisible THEN IF OverlayisVisible THEN
__UI_MakeHardwareImage __UI_Controls(__UI_FormID).HelperCanvas __UI_MakeHardwareImage __UI_Controls(__UI_FormID).HelperCanvas
_PUTIMAGE , __UI_Controls(__UI_FormID).HelperCanvas _PUTIMAGE , __UI_Controls(__UI_FormID).HelperCanvas
END IF END IF
IF __UI_ActiveMenu > 0 THEN IF __UI_ActiveMenu > 0 AND LEFT$(__UI_Controls(__UI_ParentMenu).Name, 5) = "__UI_" THEN
__UI_DrawMenuPanel __UI_Controls(__UI_ActiveMenu), ControlState __UI_DrawMenuPanel __UI_Controls(__UI_ActiveMenu), ControlState
END IF END IF
@ -1103,7 +1123,7 @@ SUB __UI_EventDispatcher
ELSEIF __UI_Controls(__UI_HoveringID).Type = __UI_Type_MenuBar AND LastMouseLeft <> __UI_MouseLeft THEN ELSEIF __UI_Controls(__UI_HoveringID).Type = __UI_Type_MenuBar AND LastMouseLeft <> __UI_MouseLeft THEN
LastMouseLeft = __UI_MouseLeft LastMouseLeft = __UI_MouseLeft
IF __UI_ActiveMenu > 0 AND __UI_ParentMenu <> __UI_Controls(__UI_HoveringID).ID AND __UI_ParentMenu > 0 THEN IF __UI_ActiveMenu > 0 AND __UI_ParentMenu <> __UI_Controls(__UI_HoveringID).ID AND __UI_ParentMenu > 0 THEN
IF __UI_ActiveMenuIsContextMenu = __UI_False THEN IF __UI_ActiveMenuIsContextMenu = __UI_False AND __UI_DesignMode = __UI_False THEN
__UI_ActivateMenu __UI_Controls(__UI_HoveringID), __UI_False __UI_ActivateMenu __UI_Controls(__UI_HoveringID), __UI_False
__UI_ForceRedraw = __UI_True __UI_ForceRedraw = __UI_True
END IF END IF
@ -1136,11 +1156,11 @@ SUB __UI_EventDispatcher
__UI_LastMouseIconSet = 6 __UI_LastMouseIconSet = 6
_MOUSESHOW "topleft_bottomright" _MOUSESHOW "topleft_bottomright"
END IF END IF
ELSEIF __UI_Controls(__UI_HoveringID).CanDrag THEN 'ELSEIF __UI_Controls(__UI_HoveringID).CanDrag THEN
IF __UI_LastMouseIconSet <> 1 THEN ' IF __UI_LastMouseIconSet <> 1 THEN
__UI_LastMouseIconSet = 1 ' __UI_LastMouseIconSet = 1
_MOUSESHOW "link" ' _MOUSESHOW "link"
END IF ' END IF
ELSEIF __UI_Controls(__UI_HoveringID).Type = __UI_Type_TextBox AND NOT __UI_DesignMode THEN ELSEIF __UI_Controls(__UI_HoveringID).Type = __UI_Type_TextBox AND NOT __UI_DesignMode THEN
IF __UI_Controls(__UI_HoveringID).HasVScrollbar AND __UI_MouseLeft >= __UI_Controls(__UI_HoveringID).Left + __UI_Controls(__UI_Controls(__UI_HoveringID).ParentID).Left +__UI_Controls(__UI_HoveringID).Width - __UI_ScrollbarWidth - 1 THEN IF __UI_Controls(__UI_HoveringID).HasVScrollbar AND __UI_MouseLeft >= __UI_Controls(__UI_HoveringID).Left + __UI_Controls(__UI_Controls(__UI_HoveringID).ParentID).Left +__UI_Controls(__UI_HoveringID).Width - __UI_ScrollbarWidth - 1 THEN
IF __UI_LastMouseIconSet <> 0 THEN IF __UI_LastMouseIconSet <> 0 THEN
@ -1184,11 +1204,20 @@ SUB __UI_EventDispatcher
EXIT DO EXIT DO
END IF END IF
IF __UI_Controls(__UI_FocusSearch).ID > 0 AND __UI_Controls(__UI_FocusSearch).Type <> __UI_Type_Form AND __UI_Controls(__UI_FocusSearch).Type <> __UI_Type_MenuBar AND __UI_Controls(__UI_FocusSearch).Type <> __UI_Type_MenuItem AND __UI_Controls(__UI_FocusSearch).Type <> __UI_Type_MenuPanel AND __UI_Controls(__UI_FocusSearch).Type <> __UI_Type_ContextMenu AND __UI_Controls(__UI_FocusSearch).Type <> __UI_Type_Font THEN IF __UI_Controls(__UI_FocusSearch).ID > 0 AND __UI_Controls(__UI_FocusSearch).Type <> __UI_Type_Form AND __UI_Controls(__UI_FocusSearch).Type <> __UI_Type_MenuPanel AND __UI_Controls(__UI_FocusSearch).Type <> __UI_Type_Font AND UCASE$(LEFT$(__UI_Controls(__UI_FocusSearch).Name, 5)) <> "__UI_" THEN
IF __UI_Controls(__UI_FocusSearch).Type <> __UI_Type_MenuItem THEN
__UI_TotalSelectedControls = 1 __UI_TotalSelectedControls = 1
__UI_FirstSelectedID = __UI_FocusSearch __UI_FirstSelectedID = __UI_FocusSearch
__UI_Controls(__UI_FocusSearch).ControlIsSelected = __UI_True __UI_Controls(__UI_FocusSearch).ControlIsSelected = __UI_True
EXIT DO EXIT DO
ELSE
IF __UI_ParentMenu = __UI_Controls(__UI_FocusSearch).ParentID THEN
__UI_TotalSelectedControls = 1
__UI_FirstSelectedID = __UI_FocusSearch
__UI_Controls(__UI_FocusSearch).ControlIsSelected = __UI_True
EXIT DO
END IF
END IF
END IF END IF
LOOP LOOP
ELSE ELSE
@ -1216,6 +1245,7 @@ SUB __UI_EventDispatcher
END IF END IF
'Any visible dropdown lists/menus will be destroyed when focus is lost 'Any visible dropdown lists/menus will be destroyed when focus is lost
IF __UI_DesignMode = __UI_False THEN
IF __UI_ActiveDropdownList > 0 AND ((__UI_Focus <> __UI_ActiveDropdownList AND __UI_Focus <> __UI_ParentDropdownList) OR __UI_KeyHit = 27) THEN IF __UI_ActiveDropdownList > 0 AND ((__UI_Focus <> __UI_ActiveDropdownList AND __UI_Focus <> __UI_ParentDropdownList) OR __UI_KeyHit = 27) THEN
__UI_Focus = __UI_ParentDropdownList __UI_Focus = __UI_ParentDropdownList
__UI_DestroyControl __UI_Controls(__UI_ActiveDropdownList) __UI_DestroyControl __UI_Controls(__UI_ActiveDropdownList)
@ -1226,9 +1256,10 @@ SUB __UI_EventDispatcher
__UI_ForceRedraw = __UI_True __UI_ForceRedraw = __UI_True
END IF END IF
END IF END IF
END IF
'MouseWheel 'MouseWheel
IF __UI_MouseWheel THEN IF __UI_MouseWheel AND NOT __UI_DesignMode THEN
IF (__UI_Controls(__UI_HoveringID).Type = __UI_Type_ListBox AND NOT __UI_Controls(__UI_HoveringID).Disabled) THEN IF (__UI_Controls(__UI_HoveringID).Type = __UI_Type_ListBox AND NOT __UI_Controls(__UI_HoveringID).Disabled) THEN
__UI_Controls(__UI_HoveringID).InputViewStart = __UI_Controls(__UI_HoveringID).InputViewStart + __UI_MouseWheel __UI_Controls(__UI_HoveringID).InputViewStart = __UI_Controls(__UI_HoveringID).InputViewStart + __UI_MouseWheel
IF __UI_Controls(__UI_HoveringID).InputViewStart + __UI_Controls(__UI_HoveringID).LastVisibleItem > __UI_Controls(__UI_HoveringID).Max THEN IF __UI_Controls(__UI_HoveringID).InputViewStart + __UI_Controls(__UI_HoveringID).LastVisibleItem > __UI_Controls(__UI_HoveringID).Max THEN
@ -1272,7 +1303,7 @@ SUB __UI_EventDispatcher
IF __UI_Mouse2IsDown THEN IF __UI_Mouse2IsDown THEN
__UI_Mouse2IsDown = __UI_False __UI_Mouse2IsDown = __UI_False
__UI_Mouse2DownOnID = 0 __UI_Mouse2DownOnID = 0
'Click 'Click (second mouse button)
IF __UI_DesignMode THEN IF __UI_DesignMode THEN
DIM RightClickSelect AS _BYTE DIM RightClickSelect AS _BYTE
RightClickSelect = __UI_True RightClickSelect = __UI_True
@ -1293,6 +1324,22 @@ SUB __UI_EventDispatcher
__UI_Controls(__UI_GetID("__UI_PreviewMenuAlignRight")).Hidden = __UI_True __UI_Controls(__UI_GetID("__UI_PreviewMenuAlignRight")).Hidden = __UI_True
__UI_Controls(__UI_GetID("__UI_PreviewMenuAlignTops")).Hidden = __UI_True __UI_Controls(__UI_GetID("__UI_PreviewMenuAlignTops")).Hidden = __UI_True
__UI_Controls(__UI_GetID("__UI_PreviewMenuAlignBottoms")).Hidden = __UI_True __UI_Controls(__UI_GetID("__UI_PreviewMenuAlignBottoms")).Hidden = __UI_True
IF __UI_Controls(__UI_FirstSelectedID).Type <> __UI_Type_MenuBar AND __UI_Controls(__UI_FirstSelectedID).Type <> __UI_Type_MenuItem THEN
__UI_Controls(__UI_GetID("__UI_PreviewMenuAlignCenterV")).Hidden = __UI_False
__UI_Controls(__UI_GetID("__UI_PreviewMenuAlignCenterH")).Hidden = __UI_False
ELSE
__UI_Controls(__UI_GetID("__UI_PreviewMenuAlignCenterV")).Hidden = __UI_True
__UI_Controls(__UI_GetID("__UI_PreviewMenuAlignCenterH")).Hidden = __UI_True
END IF
__UI_Controls(__UI_GetID("__UI_PreviewMenuDistributeV")).Hidden = __UI_True
__UI_Controls(__UI_GetID("__UI_PreviewMenuDistributeH")).Hidden = __UI_True
__UI_Controls(__UI_GetID("__UI_PreviewMenuCopy")).Disabled = __UI_False
__UI_Controls(__UI_GetID("__UI_PreviewMenuDelete")).Disabled = __UI_False
ELSEIF __UI_TotalSelectedControls = 2 THEN
__UI_Controls(__UI_GetID("__UI_PreviewMenuAlignLeft")).Hidden = __UI_False
__UI_Controls(__UI_GetID("__UI_PreviewMenuAlignRight")).Hidden = __UI_False
__UI_Controls(__UI_GetID("__UI_PreviewMenuAlignTops")).Hidden = __UI_False
__UI_Controls(__UI_GetID("__UI_PreviewMenuAlignBottoms")).Hidden = __UI_False
__UI_Controls(__UI_GetID("__UI_PreviewMenuAlignCenterV")).Hidden = __UI_False __UI_Controls(__UI_GetID("__UI_PreviewMenuAlignCenterV")).Hidden = __UI_False
__UI_Controls(__UI_GetID("__UI_PreviewMenuAlignCenterH")).Hidden = __UI_False __UI_Controls(__UI_GetID("__UI_PreviewMenuAlignCenterH")).Hidden = __UI_False
__UI_Controls(__UI_GetID("__UI_PreviewMenuDistributeV")).Hidden = __UI_True __UI_Controls(__UI_GetID("__UI_PreviewMenuDistributeV")).Hidden = __UI_True
@ -1318,7 +1365,11 @@ SUB __UI_EventDispatcher
__UI_Controls(__UI_GetID("__UI_PreviewMenuPaste")).Disabled = __UI_True __UI_Controls(__UI_GetID("__UI_PreviewMenuPaste")).Disabled = __UI_True
END IF END IF
__UI_ActivateMenu __UI_Controls(__UI_GetID("__UI_PreviewMenu")), __UI_False IF __UI_Controls(__UI_HoveringID).Type = __UI_Type_MenuBar THEN
__UI_Controls(__UI_GetID("__UI_PreviewMenuCopy")).Disabled = __UI_True
END IF
IF __UI_HoveringID > 0 AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_MenuItem AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_MenuPanel THEN __UI_ActivateMenu __UI_Controls(__UI_GetID("__UI_PreviewMenu")), __UI_False
ELSEIF __UI_Controls(__UI_HoveringID).ContextMenuID > 0 AND __UI_Controls(__UI_HoveringID).Disabled = __UI_False THEN ELSEIF __UI_Controls(__UI_HoveringID).ContextMenuID > 0 AND __UI_Controls(__UI_HoveringID).Disabled = __UI_False THEN
__UI_Focus = __UI_HoveringID __UI_Focus = __UI_HoveringID
__UI_PreviousFocus = __UI_Focus __UI_PreviousFocus = __UI_Focus
@ -1354,7 +1405,8 @@ SUB __UI_EventDispatcher
IF __UI_DesignMode THEN IF __UI_DesignMode THEN
IF LEFT$(__UI_Controls(__UI_HoveringID).Name, 5) = "__UI_" THEN GOTO ProcessClick IF LEFT$(__UI_Controls(__UI_HoveringID).Name, 5) = "__UI_" THEN GOTO ProcessClick
DesignModeClickToSelect: DesignModeClickToSelect:
IF __UI_ActiveMenu > 0 THEN IF RightClickSelect AND __UI_Controls(__UI_HoveringID).Type = __UI_Type_MenuPanel THEN RETURN
IF __UI_ActiveMenu > 0 AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_MenuPanel THEN
IF __UI_Controls(__UI_Focus).Type <> __UI_Type_MenuItem THEN IF __UI_Controls(__UI_Focus).Type <> __UI_Type_MenuItem THEN
__UI_DestroyControl __UI_Controls(__UI_ActiveMenu) __UI_DestroyControl __UI_Controls(__UI_ActiveMenu)
__UI_ForceRedraw = __UI_True __UI_ForceRedraw = __UI_True
@ -1362,12 +1414,39 @@ SUB __UI_EventDispatcher
END IF END IF
IF _KEYDOWN(100304) OR _KEYDOWN(100303) THEN IF _KEYDOWN(100304) OR _KEYDOWN(100303) THEN
IF __UI_Controls(__UI_HoveringID).Type <> __UI_Type_Frame AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_Form AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_Font AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_MenuBar AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_MenuItem AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_MenuPanel AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_ContextMenu AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_MenuItem THEN IF __UI_Controls(__UI_HoveringID).Type <> __UI_Type_Frame AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_Form AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_Font AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_MenuItem AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_MenuPanel AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_ContextMenu AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_MenuBar THEN
IF __UI_Controls(__UI_HoveringID).ControlIsSelected = __UI_False AND __UI_Controls(__UI_HoveringID).ParentID = __UI_Controls(__UI_FirstSelectedID).ParentID AND __UI_Controls(__UI_FirstSelectedID).Type <> __UI_Type_Frame THEN IF __UI_Controls(__UI_HoveringID).ControlIsSelected = __UI_False AND __UI_Controls(__UI_HoveringID).ParentID = __UI_Controls(__UI_FirstSelectedID).ParentID AND __UI_Controls(__UI_FirstSelectedID).Type <> __UI_Type_Frame THEN
__UI_Controls(__UI_HoveringID).ControlIsSelected = __UI_True __UI_Controls(__UI_HoveringID).ControlIsSelected = __UI_True
__UI_TotalSelectedControls = __UI_TotalSelectedControls + 1 __UI_TotalSelectedControls = __UI_TotalSelectedControls + 1
END IF END IF
END IF END IF
ELSE
IF __UI_Controls(__UI_HoveringID).Type = __UI_Type_MenuPanel AND LEFT$(__UI_Controls(__UI_ParentMenu).Name, 5) <> "__UI_" THEN
DIM TempValue AS LONG
TempValue = __UI_NewControl(__UI_Type_MenuItem, "", 0, 0, 0, 0, __UI_ParentMenu)
__UI_SetCaption __UI_Controls(TempValue).Name, RTRIM$(__UI_Controls(TempValue).Name)
__UI_ActivateMenu __UI_Controls(__UI_ParentMenu), __UI_False
FOR i = 1 TO UBOUND(__UI_Controls)
__UI_Controls(i).ControlIsSelected = __UI_False
NEXT
__UI_Controls(TempValue).ControlIsSelected = __UI_True
__UI_TotalSelectedControls = 1
__UI_FirstSelectedID = TempValue
ELSEIF __UI_Controls(__UI_HoveringID).Type = __UI_Type_Form AND __UI_MouseTop <= (uspacing& * 1.5) THEN
IF __UI_HasMenuBar THEN
TempValue = __UI_NewControl(__UI_Type_MenuBar, "", 0, 0, 0, 0, 0)
__UI_SetCaption __UI_Controls(TempValue).Name, RTRIM$(__UI_Controls(TempValue).Name)
FOR i = 1 TO UBOUND(__UI_Controls)
__UI_Controls(i).ControlIsSelected = __UI_False
NEXT
__UI_Controls(TempValue).ControlIsSelected = __UI_True
__UI_RefreshMenuBar
__UI_PrevMouseLeft = -1: __UI_PrevMouseTop = -1
__UI_TotalSelectedControls = 1
__UI_FirstSelectedID = TempValue
__UI_ActivateMenu __UI_Controls(TempValue), __UI_False
__UI_HoveringID = TempValue
END IF
ELSE ELSE
IF __UI_Controls(__UI_HoveringID).ControlIsSelected = __UI_False THEN IF __UI_Controls(__UI_HoveringID).ControlIsSelected = __UI_False THEN
FOR i = 1 TO UBOUND(__UI_Controls) FOR i = 1 TO UBOUND(__UI_Controls)
@ -1375,10 +1454,14 @@ SUB __UI_EventDispatcher
NEXT NEXT
__UI_TotalSelectedControls = 0 __UI_TotalSelectedControls = 0
__UI_FirstSelectedID = 0 __UI_FirstSelectedID = 0
IF __UI_Controls(__UI_HoveringID).Type <> __UI_Type_Form AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_Font AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_MenuBar AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_MenuItem AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_MenuPanel AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_ContextMenu AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_MenuItem THEN IF __UI_Controls(__UI_HoveringID).Type <> __UI_Type_Form AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_Font AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_ContextMenu AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_MenuPanel THEN
__UI_Controls(__UI_HoveringID).ControlIsSelected = __UI_True __UI_Controls(__UI_HoveringID).ControlIsSelected = __UI_True
__UI_TotalSelectedControls = 1 __UI_TotalSelectedControls = 1
__UI_FirstSelectedID = __UI_HoveringID __UI_FirstSelectedID = __UI_HoveringID
IF __UI_Controls(__UI_HoveringID).Type = __UI_Type_MenuBar THEN
__UI_ActivateMenu __UI_Controls(__UI_HoveringID), __UI_False
__UI_JustOpenedMenu = __UI_True
END IF
END IF END IF
ELSE ELSE
IF __UI_Controls(__UI_FirstSelectedID).Type = __UI_Type_Frame AND (TIMER - __UI_LastMouseDownEvent < .5 AND (__UI_MouseTop = __UI_MouseDownTop AND __UI_MouseLeft = __UI_MouseDownLeft)) THEN IF __UI_Controls(__UI_FirstSelectedID).Type = __UI_Type_Frame AND (TIMER - __UI_LastMouseDownEvent < .5 AND (__UI_MouseTop = __UI_MouseDownTop AND __UI_MouseLeft = __UI_MouseDownLeft)) THEN
@ -1387,6 +1470,7 @@ SUB __UI_EventDispatcher
END IF END IF
END IF END IF
END IF END IF
END IF
IF RightClickSelect THEN RETURN IF RightClickSelect THEN RETURN
ELSEIF __UI_Controls(__UI_HoveringID).CanHaveFocus AND NOT __UI_Controls(__UI_HoveringID).Disabled THEN ELSEIF __UI_Controls(__UI_HoveringID).CanHaveFocus AND NOT __UI_Controls(__UI_HoveringID).Disabled THEN
STATIC JustEnteredTextBox AS DOUBLE STATIC JustEnteredTextBox AS DOUBLE
@ -1519,12 +1603,18 @@ SUB __UI_EventDispatcher
EXIT FOR EXIT FOR
END IF END IF
NEXT NEXT
IF __UI_Controls(__UI_FirstSelectedID).Type = __UI_Type_MenuBar OR __UI_Controls(__UI_FirstSelectedID).Type = __UI_Type_MenuItem THEN
__UI_DraggingID = 0
__UI_IsDragging = __UI_False
__UI_MouseDownOnID = 0
ELSE
__UI_MouseDownOnID = 0 __UI_MouseDownOnID = 0
__UI_DragY = __UI_MouseTop __UI_DragY = __UI_MouseTop
__UI_DragX = __UI_MouseLeft __UI_DragX = __UI_MouseLeft
END IF END IF
END IF
ELSE ELSE
IF __UI_IsResizing = __UI_False AND __UI_SelectionRectangle = __UI_False THEN IF __UI_IsResizing = __UI_False AND __UI_SelectionRectangle = __UI_False AND __UI_Controls(__UI_FirstSelectedID).Type <> __UI_Type_MenuBar AND __UI_Controls(__UI_FirstSelectedID).Type <> __UI_Type_MenuItem THEN
__UI_IsResizing = __UI_True __UI_IsResizing = __UI_True
__UI_ResizingID = __UI_HoveringID __UI_ResizingID = __UI_HoveringID
__UI_MouseDownOnID = 0 __UI_MouseDownOnID = 0
@ -1582,7 +1672,7 @@ SUB __UI_EventDispatcher
IF NOT __UI_SelectionRectangle THEN IF NOT __UI_SelectionRectangle THEN
IF __UI_MouseDownOnID <> __UI_HoveringID AND __UI_MouseDownOnID > 0 THEN IF __UI_MouseDownOnID <> __UI_HoveringID AND __UI_MouseDownOnID > 0 THEN
IF __UI_Controls(__UI_HoveringID).Type = __UI_Type_MenuItem OR __UI_Controls(__UI_HoveringID).Type = __UI_Type_MenuPanel OR __UI_Controls(__UI_HoveringID).Type = __UI_Type_MenuBar THEN IF __UI_Controls(__UI_HoveringID).Type = __UI_Type_MenuItem OR __UI_Controls(__UI_HoveringID).Type = __UI_Type_MenuPanel THEN
__UI_MouseDownOnID = __UI_HoveringID __UI_MouseDownOnID = __UI_HoveringID
ELSE ELSE
__UI_PreviousMouseDownOnID = __UI_MouseDownOnID __UI_PreviousMouseDownOnID = __UI_MouseDownOnID
@ -1670,12 +1760,12 @@ SUB __UI_EventDispatcher
IF __UI_IsResizing THEN IF __UI_IsResizing THEN
__UI_IsResizing = __UI_False __UI_IsResizing = __UI_False
__UI_ResizingID = 0 __UI_ResizingID = 0
FOR i = 1 TO UBOUND(__UI_Controls) 'FOR i = 1 TO UBOUND(__UI_Controls)
IF __UI_Controls(i).ControlIsSelected AND __UI_Controls(i).Type = __UI_Type_TextBox THEN ' IF __UI_Controls(i).ControlIsSelected AND __UI_Controls(i).Type = __UI_Type_TextBox THEN
__UI_Controls(i).FieldArea = __UI_Controls(i).Width / _FONTWIDTH((__UI_Controls(i).Font)) - 1 ' __UI_Controls(i).FieldArea = __UI_Controls(i).Width / _FONTWIDTH((__UI_Controls(i).Font)) - 1
__UI_ForceRedraw = __UI_True ' __UI_ForceRedraw = __UI_True
END IF ' END IF
NEXT 'NEXT
END IF END IF
IF __UI_DraggingThumb THEN IF __UI_DraggingThumb THEN
__UI_DraggingThumb = __UI_False __UI_DraggingThumb = __UI_False
@ -1920,6 +2010,111 @@ SUB __UI_EventDispatcher
END IF END IF
NEXT NEXT
END IF END IF
CASE "__UI_PREVIEWMENUDISTRIBUTEH"
'Build a sublist containing the selected controls in the order they
'are currently placed horizontally:
REDIM SubList(1 TO __UI_TotalSelectedControls) AS LONG
DIM FindLefts AS INTEGER, NextControlToDistribute AS LONG
DIM TotalSpace AS INTEGER, BinSize AS INTEGER
__UI_AutoRefresh = __UI_False
FOR FindLefts = 0 TO __UI_Controls(__UI_FormID).Width - 1
FOR i = 1 TO UBOUND(__UI_Controls)
IF __UI_Controls(i).ControlIsSelected AND __UI_Controls(i).Left = FindLefts THEN
IF NextControlToDistribute > 0 THEN
IF SubList(NextControlToDistribute) <> i THEN
NextControlToDistribute = NextControlToDistribute + 1
SubList(NextControlToDistribute) = i
EXIT FOR
END IF
ELSE
NextControlToDistribute = NextControlToDistribute + 1
SubList(NextControlToDistribute) = i
EXIT FOR
END IF
END IF
NEXT
IF NextControlToDistribute = __UI_TotalSelectedControls THEN EXIT FOR
NEXT
TotalSpace = (__UI_Controls(SubList(__UI_TotalSelectedControls)).Left + __UI_Controls(SubList(__UI_TotalSelectedControls)).Width) - __UI_Controls(SubList(1)).Left
FOR i = 1 TO __UI_TotalSelectedControls
TotalSpace = TotalSpace - __UI_Controls(SubList(i)).Width
NEXT
IF TotalSpace > 0 THEN
BinSize = TotalSpace \ (__UI_TotalSelectedControls - 1)
FindLefts = __UI_Controls(SubList(1)).Left - BinSize
FOR i = 1 TO __UI_TotalSelectedControls
FindLefts = FindLefts + BinSize
__UI_Controls(SubList(i)).Left = FindLefts
FindLefts = FindLefts + __UI_Controls(SubList(i)).Width
NEXT
ELSE
'TotalSpace = (__UI_Controls(SubList(__UI_TotalSelectedControls)).Left + (__UI_Controls(SubList(__UI_TotalSelectedControls)).Width - 1)) - __UI_Controls(SubList(1)).Left
'BinSize = TotalSpace \ __UI_TotalSelectedControls
'FindLefts = __UI_Controls(SubList(1)).Left
'FOR i = 1 TO __UI_TotalSelectedControls
' __UI_Controls(SubList(i)).Left = FindLefts + ((BinSize \ 2) - (__UI_Controls(SubList(i)).Width \ 2))
' FindLefts = FindLefts + BinSize
'NEXT
END IF
__UI_AutoRefresh = __UI_True
__UI_ForceRedraw = __UI_True
CASE "__UI_PREVIEWMENUDISTRIBUTEV"
'Build a sublist containing the selected controls in the order they
'are currently placed vertically:
REDIM SubList(1 TO __UI_TotalSelectedControls) AS LONG
DIM FindTops AS INTEGER
__UI_AutoRefresh = __UI_False
FOR FindTops = 0 TO __UI_Controls(__UI_FormID).Height - 1
FOR i = 1 TO UBOUND(__UI_Controls)
IF __UI_Controls(i).ControlIsSelected AND __UI_Controls(i).Top = FindTops THEN
IF NextControlToDistribute > 0 THEN
IF SubList(NextControlToDistribute) <> i THEN
NextControlToDistribute = NextControlToDistribute + 1
SubList(NextControlToDistribute) = i
EXIT FOR
END IF
ELSE
NextControlToDistribute = NextControlToDistribute + 1
SubList(NextControlToDistribute) = i
EXIT FOR
END IF
END IF
NEXT
IF NextControlToDistribute = __UI_TotalSelectedControls THEN EXIT FOR
NEXT
TotalSpace = (__UI_Controls(SubList(__UI_TotalSelectedControls)).Top + __UI_Controls(SubList(__UI_TotalSelectedControls)).Height) - __UI_Controls(SubList(1)).Top
FOR i = 1 TO __UI_TotalSelectedControls
TotalSpace = TotalSpace - __UI_Controls(SubList(i)).Height
NEXT
IF TotalSpace > 0 THEN
BinSize = TotalSpace \ (__UI_TotalSelectedControls - 1)
FindTops = __UI_Controls(SubList(1)).Top - BinSize
FOR i = 1 TO __UI_TotalSelectedControls
FindTops = FindTops + BinSize
__UI_Controls(SubList(i)).Top = FindTops
FindTops = FindTops + __UI_Controls(SubList(i)).Height
NEXT
ELSE
'TotalSpace = (__UI_Controls(SubList(__UI_TotalSelectedControls)).Top + __UI_Controls(SubList(__UI_TotalSelectedControls)).Height) - __UI_Controls(SubList(1)).Top
'BinSize = TotalSpace \ __UI_TotalSelectedControls
'FindTops = __UI_Controls(SubList(1)).Top
'FOR i = 1 TO __UI_TotalSelectedControls
' __UI_Controls(SubList(i)).Top = FindTops + ((BinSize \ 2) - (__UI_Controls(SubList(i)).Height \ 2))
' FindTops = FindTops + BinSize
'NEXT
END IF
__UI_AutoRefresh = __UI_True
__UI_ForceRedraw = __UI_True
CASE "__UI_PREVIEWMENUCOPY": GOTO ControlCopy CASE "__UI_PREVIEWMENUCOPY": GOTO ControlCopy
CASE "__UI_PREVIEWMENUPASTE": GOTO ControlPaste CASE "__UI_PREVIEWMENUPASTE": GOTO ControlPaste
CASE "__UI_PREVIEWMENUDELETE": GOTO ControlDelete CASE "__UI_PREVIEWMENUDELETE": GOTO ControlDelete
@ -1936,12 +2131,6 @@ SUB __UI_EventDispatcher
__UI_ForceRedraw = __UI_True __UI_ForceRedraw = __UI_True
END IF END IF
END IF END IF
ELSEIF __UI_MouseDownOnID = 0 THEN
IF __UI_ActiveMenu > 0 THEN
__UI_DestroyControl __UI_Controls(__UI_ActiveMenu)
__UI_Focus = __UI_PreviousFocus
__UI_ForceRedraw = __UI_True
END IF
END IF END IF
__UI_IsSelectingText = __UI_False __UI_IsSelectingText = __UI_False
__UI_IsSelectingTextOnID = 0 __UI_IsSelectingTextOnID = 0
@ -2132,6 +2321,7 @@ SUB __UI_EventDispatcher
IF __UI_KeyHit = -100307 OR __UI_KeyHit = -100308 THEN __UI_AltIsDown = __UI_False IF __UI_KeyHit = -100307 OR __UI_KeyHit = -100308 THEN __UI_AltIsDown = __UI_False
'Alt: 'Alt:
IF NOT __UI_DesignMode THEN
IF __UI_AltIsDown AND __UI_Controls(__UI_Focus).Type = __UI_Type_MenuBar THEN IF __UI_AltIsDown AND __UI_Controls(__UI_Focus).Type = __UI_Type_MenuBar THEN
__UI_Focus = __UI_PreviousFocus __UI_Focus = __UI_PreviousFocus
__UI_AltIsDown = __UI_False __UI_AltIsDown = __UI_False
@ -2226,6 +2416,7 @@ SUB __UI_EventDispatcher
END IF END IF
END IF END IF
END IF END IF
END IF
'Control-specific keyboard handler: 'Control-specific keyboard handler:
IF __UI_DesignMode THEN IF __UI_DesignMode THEN
@ -2702,7 +2893,7 @@ SUB __UI_EventDispatcher
END IF END IF
ELSEIF __UI_DesignMode AND __UI_KeyHit <> 0 THEN 'No buttons will respond while in design mode ELSEIF __UI_DesignMode AND __UI_KeyHit <> 0 THEN 'No buttons will respond while in design mode
'But the design menu must respond: 'But the design menu must respond:
IF __UI_ActiveMenu > 0 THEN GOTO HandleDesignMenu IF __UI_ActiveMenu > 0 AND LEFT$(__UI_Controls(__UI_ParentMenu).Name, 5) = "__UI_" THEN GOTO HandleDesignMenu
SELECT CASE __UI_Keyhit SELECT CASE __UI_Keyhit
CASE ASC("A"), ASC("a") CASE ASC("A"), ASC("a")
@ -2739,13 +2930,15 @@ SUB __UI_EventDispatcher
CASE ASC("C"), ASC("c") CASE ASC("C"), ASC("c")
IF __UI_CtrlIsDown AND __UI_TotalSelectedControls > 0 THEN IF __UI_CtrlIsDown AND __UI_TotalSelectedControls > 0 THEN
ControlCopy: ControlCopy:
DIM CopyDone AS _BYTE
ControlClipboard$ = MKL$(__UI_TotalSelectedControls) ControlClipboard$ = MKL$(__UI_TotalSelectedControls)
FOR i = 1 TO UBOUND(__UI_Controls) FOR i = 1 TO UBOUND(__UI_Controls)
IF __UI_Controls(i).ControlIsSelected AND __UI_Controls(i).Type <> __UI_Type_Frame THEN IF __UI_Controls(i).ControlIsSelected AND __UI_Controls(i).Type <> __UI_Type_Frame AND __UI_Controls(i).Type <> __UI_Type_MenuBar AND __UI_Controls(i).Type <> __UI_Type_MenuItem THEN
ControlClipboard$ = ControlClipboard$ + MKL$(i) ControlClipboard$ = ControlClipboard$ + MKL$(i)
CopyDone = __UI_True
END IF END IF
NEXT NEXT
_CLIPBOARD$ = "InForm" + CHR$(1) IF CopyDone THEN _CLIPBOARD$ = "InForm" + CHR$(1)
END IF END IF
CASE ASC("V"), ASC("v") CASE ASC("V"), ASC("v")
IF __UI_CtrlIsDown THEN IF __UI_CtrlIsDown THEN
@ -2823,13 +3016,27 @@ SUB __UI_EventDispatcher
END IF END IF
NEXT NEXT
END IF END IF
IF __UI_Controls(i).Type = __UI_Type_MenuBar THEN
DIM MustRefreshMenuBar AS _BYTE
MustRefreshMenuBar = __UI_True
FOR j = 1 TO UBOUND(__UI_Controls)
IF __UI_Controls(j).ParentID = i THEN
__UI_DestroyControl __UI_Controls(j)
END IF
NEXT
END IF
IF __UI_ActiveMenu > 0 AND __UI_ParentMenu = __UI_Controls(i).ID THEN
__UI_DestroyControl __UI_Controls(__UI_ActiveMenu)
END IF
__UI_DestroyControl __UI_Controls(i) __UI_DestroyControl __UI_Controls(i)
IF MustRefreshMenuBar THEN __UI_RefreshMenuBar
__UI_ForceRedraw = __UI_True
__UI_TotalSelectedControls = __UI_TotalSelectedControls - 1 __UI_TotalSelectedControls = __UI_TotalSelectedControls - 1
END IF END IF
NEXT NEXT
CASE 19200 'Left arrow key CASE 19200 'Left arrow key
FOR i = 1 TO UBOUND(__UI_Controls) FOR i = 1 TO UBOUND(__UI_Controls)
IF __UI_Controls(i).ControlIsSelected THEN IF __UI_Controls(i).ControlIsSelected AND __UI_Controls(i).Type <> __UI_Type_MenuBar AND __UI_Controls(i).Type <> __UI_Type_MenuItem THEN
IF __UI_ShiftIsDown THEN IF __UI_ShiftIsDown THEN
__UI_Controls(i).Width = __UI_Controls(i).Width - 1 __UI_Controls(i).Width = __UI_Controls(i).Width - 1
ELSE ELSE
@ -2839,7 +3046,7 @@ SUB __UI_EventDispatcher
NEXT NEXT
CASE 19712 'Right arrow key CASE 19712 'Right arrow key
FOR i = 1 TO UBOUND(__UI_Controls) FOR i = 1 TO UBOUND(__UI_Controls)
IF __UI_Controls(i).ControlIsSelected THEN IF __UI_Controls(i).ControlIsSelected AND __UI_Controls(i).Type <> __UI_Type_MenuBar AND __UI_Controls(i).Type <> __UI_Type_MenuItem THEN
IF __UI_ShiftIsDown THEN IF __UI_ShiftIsDown THEN
__UI_Controls(i).Width = __UI_Controls(i).Width + 1 __UI_Controls(i).Width = __UI_Controls(i).Width + 1
ELSE ELSE
@ -2849,7 +3056,7 @@ SUB __UI_EventDispatcher
NEXT NEXT
CASE 18432 'Up arrow key CASE 18432 'Up arrow key
FOR i = 1 TO UBOUND(__UI_Controls) FOR i = 1 TO UBOUND(__UI_Controls)
IF __UI_Controls(i).ControlIsSelected THEN IF __UI_Controls(i).ControlIsSelected AND __UI_Controls(i).Type <> __UI_Type_MenuBar AND __UI_Controls(i).Type <> __UI_Type_MenuItem THEN
IF __UI_ShiftIsDown THEN IF __UI_ShiftIsDown THEN
__UI_Controls(i).Height = __UI_Controls(i).Height - 1 __UI_Controls(i).Height = __UI_Controls(i).Height - 1
ELSE ELSE
@ -2859,7 +3066,7 @@ SUB __UI_EventDispatcher
NEXT NEXT
CASE 20480 'Down arrow key CASE 20480 'Down arrow key
FOR i = 1 TO UBOUND(__UI_Controls) FOR i = 1 TO UBOUND(__UI_Controls)
IF __UI_Controls(i).ControlIsSelected THEN IF __UI_Controls(i).ControlIsSelected AND __UI_Controls(i).Type <> __UI_Type_MenuBar AND __UI_Controls(i).Type <> __UI_Type_MenuItem THEN
IF __UI_ShiftIsDown THEN IF __UI_ShiftIsDown THEN
__UI_Controls(i).Height = __UI_Controls(i).Height + 1 __UI_Controls(i).Height = __UI_Controls(i).Height + 1
ELSE ELSE
@ -2868,6 +3075,7 @@ SUB __UI_EventDispatcher
END IF END IF
NEXT NEXT
END SELECT END SELECT
IF __UI_ActiveMenu > 0 THEN __UI_ActivateMenu __UI_Controls(__UI_ParentMenu), __UI_False
ELSEIF __UI_KeyHit <> 0 THEN 'No control has focus ELSEIF __UI_KeyHit <> 0 THEN 'No control has focus
'Enter activates the default button, if any 'Enter activates the default button, if any
IF __UI_IsDragging = __UI_False AND __UI_KeyHit = -13 AND __UI_DefaultButtonID > 0 THEN IF __UI_IsDragging = __UI_False AND __UI_KeyHit = -13 AND __UI_DefaultButtonID > 0 THEN
@ -2950,8 +3158,8 @@ FUNCTION __UI_Font& (NewFontFile AS STRING, NewFontSize AS INTEGER, TempNewFontA
IF NewFontFile = "" THEN IF NewFontFile = "" THEN
'Internal emulated fonts 'Internal emulated fonts
IF NewFontSize <> 8 AND NewFontSize <> 16 THEN IF NewFontSize <> 8 AND NewFontSize <> 16 THEN
__UI_Controls(NextSlot).Value = 16 __UI_Controls(NextSlot).Value = 8
__UI_Controls(NextSlot).Max = 16 __UI_Controls(NextSlot).Max = 8
ELSE ELSE
__UI_Controls(NextSlot).Value = NewFontSize __UI_Controls(NextSlot).Value = NewFontSize
__UI_Controls(NextSlot).Max = NewFontSize __UI_Controls(NextSlot).Max = NewFontSize
@ -2987,11 +3195,11 @@ FUNCTION __UI_Font& (NewFontFile AS STRING, NewFontSize AS INTEGER, TempNewFontA
__UI_Font& = __UI_Controls(NextSlot).Value __UI_Font& = __UI_Controls(NextSlot).Value
'If loading the requested font fails, we default to _FONT 16 'If loading the requested font fails, we default to _FONT 8
IF __UI_Controls(NextSlot).Value <= 0 THEN IF __UI_Controls(NextSlot).Value <= 0 THEN
__UI_DestroyControl __UI_Controls(NextSlot) __UI_DestroyControl __UI_Controls(NextSlot)
__UI_Controls(NextSlot).Value = 16 __UI_Controls(NextSlot).Value = 8
__UI_Font& = 16 __UI_Font& = 8
END IF END IF
END IF END IF
END FUNCTION END FUNCTION
@ -2999,6 +3207,7 @@ END FUNCTION
'--------------------------------------------------------------------------------- '---------------------------------------------------------------------------------
FUNCTION __UI_NewControl (ControlType AS INTEGER, ControlName AS STRING, NewWidth AS INTEGER, NewHeight AS INTEGER, NewLeft AS INTEGER, NewTop AS INTEGER, ParentID AS LONG) FUNCTION __UI_NewControl (ControlType AS INTEGER, ControlName AS STRING, NewWidth AS INTEGER, NewHeight AS INTEGER, NewLeft AS INTEGER, NewTop AS INTEGER, ParentID AS LONG)
DIM NextSlot AS LONG, i AS LONG, Temp$ DIM NextSlot AS LONG, i AS LONG, Temp$
STATIC InternalMenus AS LONG
IF ControlType = 0 THEN EXIT SUB IF ControlType = 0 THEN EXIT SUB
@ -3011,13 +3220,26 @@ FUNCTION __UI_NewControl (ControlType AS INTEGER, ControlName AS STRING, NewWidt
__UI_Type(ControlType).Count = __UI_Type(ControlType).Count + 1 __UI_Type(ControlType).Count = __UI_Type(ControlType).Count + 1
'Give control a generic name, if none is provided 'Give control a generic name, if none is provided
IF ControlName = "" THEN ControlName = RTRIM$(__UI_Type(ControlType).Name) + LTRIM$(STR$(__UI_Type(ControlType).Count)) IF ControlType = __UI_Type_MenuItem AND LEFT$(ControlName, 5) = "__UI_" THEN InternalMenus = InternalMenus + 1
IF ControlName = "" THEN
IF ControlType = __UI_Type_MenuItem THEN
ControlName = RTRIM$(__UI_Type(ControlType).Name) + LTRIM$(STR$(__UI_Type(ControlType).Count - InternalMenus))
ELSE
ControlName = RTRIM$(__UI_Type(ControlType).Name) + LTRIM$(STR$(__UI_Type(ControlType).Count))
END IF
END IF
'Make sure this ControlName is unique: 'Make sure this ControlName is unique:
IF ControlType <> __UI_Type_Font THEN IF ControlType <> __UI_Type_Font THEN
FOR i = 1 TO UBOUND(__UI_Controls) 'FOR i = 1 TO UBOUND(__UI_Controls)
IF __UI_Controls(i).ID > 0 AND UCASE$(RTRIM$(__UI_Controls(i).Name)) = UCASE$(RTRIM$(ControlName)) THEN ERROR 10: EXIT FUNCTION ' IF __UI_Controls(i).ID > 0 AND UCASE$(RTRIM$(__UI_Controls(i).Name)) = UCASE$(RTRIM$(ControlName)) THEN ERROR 10: EXIT FUNCTION
NEXT 'NEXT
i = 1
DO
IF __UI_GetID(ControlName) = 0 THEN EXIT DO
i = i + 1
ControlName = ControlName + "_" + LTRIM$(STR$(i))
LOOP
END IF END IF
'Find an empty slot for the new control 'Find an empty slot for the new control
@ -3059,7 +3281,7 @@ FUNCTION __UI_NewControl (ControlType AS INTEGER, ControlName AS STRING, NewWidt
__UI_Controls(NextSlot).Font = __UI_Controls(ParentID).Font __UI_Controls(NextSlot).Font = __UI_Controls(ParentID).Font
END IF END IF
IF __UI_Controls(NextSlot).Font = 0 THEN __UI_Controls(NextSlot).Font = __UI_Font("", 16, "") IF __UI_Controls(NextSlot).Font = 0 THEN __UI_Controls(NextSlot).Font = __UI_Font("", 8, "")
__UI_Controls(NextSlot).Width = NewWidth __UI_Controls(NextSlot).Width = NewWidth
__UI_Controls(NextSlot).Height = NewHeight __UI_Controls(NextSlot).Height = NewHeight
@ -3154,9 +3376,7 @@ SUB __UI_DestroyControl (This AS __UI_ControlTYPE)
__UI_Tips(This.ID) = "" __UI_Tips(This.ID) = ""
__UI_TempTips(This.ID) = "" __UI_TempTips(This.ID) = ""
IF This.Type = __UI_Type_MenuBar THEN IF This.Type = __UI_Type_ListBox THEN
__UI_HasMenuBar = (__UI_FirstMenuBarControl > 0)
ELSEIF This.Type = __UI_Type_ListBox THEN
IF __UI_ActiveDropdownList = This.ID THEN IF __UI_ActiveDropdownList = This.ID THEN
__UI_ActiveDropdownList = 0 __UI_ActiveDropdownList = 0
__UI_ParentDropdownList = 0 __UI_ParentDropdownList = 0
@ -3256,7 +3476,6 @@ SUB __UI_DestroyControl (This AS __UI_ControlTYPE)
This.SelectionStart = 0 This.SelectionStart = 0
This.WordWrap = __UI_False This.WordWrap = __UI_False
This.CanResize = 0 This.CanResize = 0
This.CanDrag = __UI_False
This.CanHaveFocus = __UI_False This.CanHaveFocus = __UI_False
This.Disabled = __UI_False This.Disabled = __UI_False
This.Hidden = __UI_False This.Hidden = __UI_False
@ -3265,6 +3484,8 @@ SUB __UI_DestroyControl (This AS __UI_ControlTYPE)
This.ChildrenRedrawn = __UI_False This.ChildrenRedrawn = __UI_False
This.FocusState = 0 This.FocusState = 0
__UI_HasMenuBar = (__UI_FirstMenuBarControl > 0)
__UI_AutoRefresh = __UI_True __UI_AutoRefresh = __UI_True
END SUB END SUB
@ -3823,6 +4044,15 @@ FUNCTION __UI_PrintWidth&(Text$)
__UI_PrintWidth& = uprintwidth(Text$, LEN(Text$), 0) __UI_PrintWidth& = uprintwidth(Text$, LEN(Text$), 0)
END FUNCTION END FUNCTION
'---------------------------------------------------------------------------------
FUNCTION uspacing&
IF _FONT <> 8 THEN
uspacing& = falcon_uspacing&
ELSE
uspacing& = falcon_uspacing& + 3
END IF
END FUNCTION
'--------------------------------------------------------------------------------- '---------------------------------------------------------------------------------
FUNCTION __UI_WordWrap$ (PassedText AS STRING, Width AS INTEGER, Lines AS INTEGER) FUNCTION __UI_WordWrap$ (PassedText AS STRING, Width AS INTEGER, Lines AS INTEGER)
DIM Temp$, TempCaption$, FindSep AS LONG, PrevSep AS LONG DIM Temp$, TempCaption$, FindSep AS LONG, PrevSep AS LONG
@ -3991,7 +4221,7 @@ END SUB
'--------------------------------------------------------------------------------- '---------------------------------------------------------------------------------
SUB __UI_ActivateMenu (This AS __UI_ControlTYPE, SelectFirstItem AS _BYTE) SUB __UI_ActivateMenu (This AS __UI_ControlTYPE, SelectFirstItem AS _BYTE)
DIM i AS LONG, TotalItems AS INTEGER, ItemHeight AS INTEGER DIM i AS LONG, ItemHeight AS SINGLE, TotalItems AS INTEGER
IF NOT This.Disabled THEN IF NOT This.Disabled THEN
IF __UI_ActiveMenu > 0 THEN __UI_DestroyControl __UI_Controls(__UI_ActiveMenu) IF __UI_ActiveMenu > 0 THEN __UI_DestroyControl __UI_Controls(__UI_ActiveMenu)
@ -4038,6 +4268,10 @@ SUB __UI_ActivateMenu (This AS __UI_ControlTYPE, SelectFirstItem AS _BYTE)
__UI_Controls(__UI_ActiveMenu).Height = __UI_Controls(__UI_ActiveMenu).Height + uspacing& * .3 __UI_Controls(__UI_ActiveMenu).Height = __UI_Controls(__UI_ActiveMenu).Height + uspacing& * .3
IF __UI_Controls(__UI_ActiveMenu).Width = 0 THEN __UI_Controls(__UI_ActiveMenu).Width = __UI_Controls(__UI_FormID).Width / 4
IF __UI_DesignMode AND LEFT$(This.Name, 5) <> "__UI_" THEN __UI_Controls(__UI_ActiveMenu).Height = __UI_Controls(__UI_ActiveMenu).Height + ItemHeight
IF __UI_Controls(__UI_ActiveMenu).Left + __UI_Controls(__UI_ActiveMenu).Width > __UI_Controls(__UI_FormID).Width THEN IF __UI_Controls(__UI_ActiveMenu).Left + __UI_Controls(__UI_ActiveMenu).Width > __UI_Controls(__UI_FormID).Width THEN
__UI_Controls(__UI_ActiveMenu).Left = __UI_Controls(__UI_FormID).Width - __UI_Controls(__UI_ActiveMenu).Width - 5 __UI_Controls(__UI_ActiveMenu).Left = __UI_Controls(__UI_FormID).Width - __UI_Controls(__UI_ActiveMenu).Width - 5
END IF END IF
@ -4046,7 +4280,7 @@ SUB __UI_ActivateMenu (This AS __UI_ControlTYPE, SelectFirstItem AS _BYTE)
__UI_Controls(__UI_ActiveMenu).Top = __UI_Controls(__UI_FormID).Height - __UI_Controls(__UI_ActiveMenu).Height - 5 __UI_Controls(__UI_ActiveMenu).Top = __UI_Controls(__UI_FormID).Height - __UI_Controls(__UI_ActiveMenu).Height - 5
END IF END IF
IF SelectFirstItem THEN IF SelectFirstItem AND NOT __UI_DesignMode AND TotalItems > 0 THEN
__UI_Focus = __UI_NextMenuItem(0) __UI_Focus = __UI_NextMenuItem(0)
ELSE ELSE
__UI_Focus = __UI_ActiveMenu __UI_Focus = __UI_ActiveMenu
@ -4062,6 +4296,15 @@ SUB __UI_DoEvents
END IF END IF
END SUB END SUB
'---------------------------------------------------------------------------------
FUNCTION __UI_TrimAt0$(Text$)
IF INSTR(Text$, CHR$(0)) > 0 THEN
__UI_TrimAt0$ = LEFT$(Text$, INSTR(Text$, CHR$(0)) - 1)
ELSE
__UI_TrimAt0$ = Text$
END IF
END FUNCTION
'--------------------------------------------------------------------------------- '---------------------------------------------------------------------------------
SUB __UI_MakeHardwareImageFromCanvas (This AS __UI_ControlTYPE) SUB __UI_MakeHardwareImageFromCanvas (This AS __UI_ControlTYPE)
DIM TempCanvas AS LONG DIM TempCanvas AS LONG
@ -4182,6 +4425,7 @@ SUB __UI_RefreshMenuBar
__UI_Controls(i).Left = __UI_Controls(__UI_FormID).Width - 1 - __UI_MenuBarOffset - __UI_Controls(i).Width __UI_Controls(i).Left = __UI_Controls(__UI_FormID).Width - 1 - __UI_MenuBarOffset - __UI_Controls(i).Width
END IF END IF
LastMenuItem = i LastMenuItem = i
__UI_NewMenuBarTextLeft = __UI_Controls(i).Left + __UI_Controls(i).Width
END IF END IF
END IF END IF
NEXT NEXT