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

578
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:
@ -722,7 +729,7 @@ SUB __UI_UpdateDisplay
COLOR __UI_Controls(__UI_FormID).ForeColor, __UI_Controls(__UI_FormID).BackColor COLOR __UI_Controls(__UI_FormID).ForeColor, __UI_Controls(__UI_FormID).BackColor
CLS CLS
IF __UI_HasMenuBar THEN IF __UI_HasMenuBar THEN
_FONT __UI_Controls(__UI_FormID).Font _FONT __UI_Controls(__UI_FormID).Font
LINE (0, uspacing& * 1.5 + 1)-STEP(__UI_Controls(__UI_FormID).Width - 1, 0), __UI_Darken(__UI_Controls(__UI_FormID).BackColor, 80) LINE (0, uspacing& * 1.5 + 1)-STEP(__UI_Controls(__UI_FormID).Width - 1, 0), __UI_Darken(__UI_Controls(__UI_FormID).BackColor, 80)
LINE (0, uspacing& * 1.5 + 2)-STEP(__UI_Controls(__UI_FormID).Width - 1, 0), __UI_Darken(__UI_Controls(__UI_FormID).BackColor, 120) LINE (0, uspacing& * 1.5 + 2)-STEP(__UI_Controls(__UI_FormID).Width - 1, 0), __UI_Darken(__UI_Controls(__UI_FormID).BackColor, 120)
END IF END IF
@ -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
__UI_TotalSelectedControls = 1 IF __UI_Controls(__UI_FocusSearch).Type <> __UI_Type_MenuItem THEN
__UI_FirstSelectedID = __UI_FocusSearch __UI_TotalSelectedControls = 1
__UI_Controls(__UI_FocusSearch).ControlIsSelected = __UI_True __UI_FirstSelectedID = __UI_FocusSearch
EXIT DO __UI_Controls(__UI_FocusSearch).ControlIsSelected = __UI_True
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,19 +1245,21 @@ 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_ActiveDropdownList > 0 AND ((__UI_Focus <> __UI_ActiveDropdownList AND __UI_Focus <> __UI_ParentDropdownList) OR __UI_KeyHit = 27) THEN IF __UI_DesignMode = __UI_False THEN
__UI_Focus = __UI_ParentDropdownList IF __UI_ActiveDropdownList > 0 AND ((__UI_Focus <> __UI_ActiveDropdownList AND __UI_Focus <> __UI_ParentDropdownList) OR __UI_KeyHit = 27) THEN
__UI_DestroyControl __UI_Controls(__UI_ActiveDropdownList) __UI_Focus = __UI_ParentDropdownList
__UI_KeyHit = 0 __UI_DestroyControl __UI_Controls(__UI_ActiveDropdownList)
ELSEIF __UI_ActiveMenu > 0 AND (__UI_Focus <> __UI_ActiveMenu AND __UI_Focus <> __UI_ParentMenu) THEN __UI_KeyHit = 0
IF __UI_Controls(__UI_Focus).Type <> __UI_Type_MenuItem THEN ELSEIF __UI_ActiveMenu > 0 AND (__UI_Focus <> __UI_ActiveMenu AND __UI_Focus <> __UI_ParentMenu) THEN
__UI_DestroyControl __UI_Controls(__UI_ActiveMenu) IF __UI_Controls(__UI_Focus).Type <> __UI_Type_MenuItem THEN
__UI_ForceRedraw = __UI_True __UI_DestroyControl __UI_Controls(__UI_ActiveMenu)
__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,28 +1414,60 @@ 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 ELSE
IF __UI_Controls(__UI_HoveringID).ControlIsSelected = __UI_False THEN 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) FOR i = 1 TO UBOUND(__UI_Controls)
__UI_Controls(i).ControlIsSelected = __UI_False __UI_Controls(i).ControlIsSelected = __UI_False
NEXT NEXT
__UI_TotalSelectedControls = 0 __UI_Controls(TempValue).ControlIsSelected = __UI_True
__UI_FirstSelectedID = 0 __UI_TotalSelectedControls = 1
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 __UI_FirstSelectedID = TempValue
__UI_Controls(__UI_HoveringID).ControlIsSelected = __UI_True 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_TotalSelectedControls = 1
__UI_FirstSelectedID = __UI_HoveringID __UI_FirstSelectedID = TempValue
__UI_ActivateMenu __UI_Controls(TempValue), __UI_False
__UI_HoveringID = TempValue
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_HoveringID).ControlIsSelected = __UI_False THEN
'Select all controls inside a frame FOR i = 1 TO UBOUND(__UI_Controls)
GOTO SelectAllInFrame __UI_Controls(i).ControlIsSelected = __UI_False
NEXT
__UI_TotalSelectedControls = 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_ContextMenu AND __UI_Controls(__UI_HoveringID).Type <> __UI_Type_MenuPanel THEN
__UI_Controls(__UI_HoveringID).ControlIsSelected = __UI_True
__UI_TotalSelectedControls = 1
__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
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
'Select all controls inside a frame
GOTO SelectAllInFrame
END IF
END IF END IF
END IF END IF
END IF END IF
@ -1519,12 +1603,18 @@ SUB __UI_EventDispatcher
EXIT FOR EXIT FOR
END IF END IF
NEXT NEXT
__UI_MouseDownOnID = 0 IF __UI_Controls(__UI_FirstSelectedID).Type = __UI_Type_MenuBar OR __UI_Controls(__UI_FirstSelectedID).Type = __UI_Type_MenuItem THEN
__UI_DragY = __UI_MouseTop __UI_DraggingID = 0
__UI_DragX = __UI_MouseLeft __UI_IsDragging = __UI_False
__UI_MouseDownOnID = 0
ELSE
__UI_MouseDownOnID = 0
__UI_DragY = __UI_MouseTop
__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,96 +2321,98 @@ 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 __UI_AltIsDown AND __UI_Controls(__UI_Focus).Type = __UI_Type_MenuBar THEN IF NOT __UI_DesignMode THEN
__UI_Focus = __UI_PreviousFocus IF __UI_AltIsDown AND __UI_Controls(__UI_Focus).Type = __UI_Type_MenuBar THEN
__UI_AltIsDown = __UI_False __UI_Focus = __UI_PreviousFocus
ELSEIF __UI_AltIsDown AND __UI_ActiveMenu > 0 THEN __UI_AltIsDown = __UI_False
__UI_Focus = __UI_PreviousFocus ELSEIF __UI_AltIsDown AND __UI_ActiveMenu > 0 THEN
__UI_DestroyControl __UI_Controls(__UI_ActiveMenu) __UI_Focus = __UI_PreviousFocus
__UI_ForceRedraw = __UI_True __UI_DestroyControl __UI_Controls(__UI_ActiveMenu)
__UI_KeyHit = 0 __UI_ForceRedraw = __UI_True
__UI_AltIsDown = __UI_False __UI_KeyHit = 0
ELSEIF __UI_AltIsDown THEN __UI_AltIsDown = __UI_False
IF NOT __UI_ShowHotKeys THEN ELSEIF __UI_AltIsDown THEN
__UI_ShowHotKeys = __UI_True IF NOT __UI_ShowHotKeys THEN
__UI_ForceRedraw = __UI_True 'Trigger a global redraw __UI_ShowHotKeys = __UI_True
END IF __UI_ForceRedraw = __UI_True 'Trigger a global redraw
END IF
SELECT CASE __UI_KeyHit SELECT CASE __UI_KeyHit
CASE 48 TO 57, 65 TO 90, 97 TO 122 'Alphanumeric CASE 48 TO 57, 65 TO 90, 97 TO 122 'Alphanumeric
DIM j AS LONG DIM j AS LONG
__UI_AltCombo$ = __UI_AltCombo$ + CHR$(__UI_KeyHit) __UI_AltCombo$ = __UI_AltCombo$ + CHR$(__UI_KeyHit)
IF __UI_KeyHit >= 97 THEN __UI_KeyHit = __UI_KeyHit - 32 'Turn to capitals IF __UI_KeyHit >= 97 THEN __UI_KeyHit = __UI_KeyHit - 32 'Turn to capitals
IF __UI_KeyHit > 0 THEN IF __UI_KeyHit > 0 THEN
'Search for a matching hot key in controls 'Search for a matching hot key in controls
FOR i = 1 TO UBOUND(__UI_Controls) FOR i = 1 TO UBOUND(__UI_Controls)
IF __UI_Controls(i).HotKey = __UI_KeyHit AND NOT __UI_Controls(i).Disabled AND __UI_Controls(i).Type <> __UI_Type_MenuItem THEN IF __UI_Controls(i).HotKey = __UI_KeyHit AND NOT __UI_Controls(i).Disabled AND __UI_Controls(i).Type <> __UI_Type_MenuItem THEN
SELECT CASE __UI_Controls(i).Type SELECT CASE __UI_Controls(i).Type
CASE __UI_Type_Button CASE __UI_Type_Button
IF __UI_Controls(i).CanHaveFocus THEN __UI_Focus = __UI_Controls(i).ID IF __UI_Controls(i).CanHaveFocus THEN __UI_Focus = __UI_Controls(i).ID
__UI_Click __UI_Controls(i).ID __UI_Click __UI_Controls(i).ID
CASE __UI_Type_RadioButton CASE __UI_Type_RadioButton
IF __UI_Controls(i).CanHaveFocus THEN __UI_Focus = __UI_Controls(i).ID IF __UI_Controls(i).CanHaveFocus THEN __UI_Focus = __UI_Controls(i).ID
__UI_SetRadioButtonValue __UI_Controls(i).ID __UI_SetRadioButtonValue __UI_Controls(i).ID
__UI_Click __UI_Controls(i).ID __UI_Click __UI_Controls(i).ID
CASE __UI_Type_CheckBox CASE __UI_Type_CheckBox
IF __UI_Controls(i).CanHaveFocus THEN __UI_Focus = __UI_Controls(i).ID IF __UI_Controls(i).CanHaveFocus THEN __UI_Focus = __UI_Controls(i).ID
__UI_Controls(i).Value = NOT __UI_Controls(i).Value __UI_Controls(i).Value = NOT __UI_Controls(i).Value
__UI_Click __UI_Controls(i).ID __UI_Click __UI_Controls(i).ID
CASE __UI_Type_Frame CASE __UI_Type_Frame
'Find the first children in this frame that can have focus 'Find the first children in this frame that can have focus
FOR j = i + 1 TO UBOUND(__UI_Controls) FOR j = i + 1 TO UBOUND(__UI_Controls)
IF __UI_Controls(j).ParentID = __UI_Controls(i).ID AND __UI_Controls(j).CanHaveFocus AND NOT __UI_Controls(j).Disabled THEN IF __UI_Controls(j).ParentID = __UI_Controls(i).ID AND __UI_Controls(j).CanHaveFocus AND NOT __UI_Controls(j).Disabled THEN
__UI_Focus = __UI_Controls(j).ID __UI_Focus = __UI_Controls(j).ID
EXIT FOR EXIT FOR
END IF
NEXT
CASE __UI_Type_Label
'Find the next control in the same container that can have focus
FOR j = i + 1 TO UBOUND(__UI_Controls)
IF __UI_Controls(j).ParentID = __UI_Controls(i).ParentID AND __UI_Controls(j).CanHaveFocus AND NOT __UI_Controls(j).Disabled THEN
__UI_Focus = __UI_Controls(j).ID
EXIT FOR
END IF
NEXT
CASE __UI_Type_MenuBar
IF __UI_ActiveMenu = 0 THEN
__UI_PreviousFocus = __UI_Focus
__UI_ActivateMenu __UI_Controls(i), __UI_True
__UI_ForceRedraw = __UI_True
__UI_Controls(__UI_ActiveMenu).Value = __UI_Focus
__UI_KeyHit = 0
__UI_AltIsDown = __UI_False
END IF END IF
NEXT END SELECT
CASE __UI_Type_Label EXIT FOR
'Find the next control in the same container that can have focus END IF
FOR j = i + 1 TO UBOUND(__UI_Controls) NEXT
IF __UI_Controls(j).ParentID = __UI_Controls(i).ParentID AND __UI_Controls(j).CanHaveFocus AND NOT __UI_Controls(j).Disabled THEN END IF
__UI_Focus = __UI_Controls(j).ID __UI_KeyHit = 0
EXIT FOR END SELECT
END IF ELSE
NEXT IF __UI_ShowHotKeys THEN
CASE __UI_Type_MenuBar __UI_ShowHotKeys = __UI_False
IF __UI_ActiveMenu = 0 THEN __UI_ForceRedraw = __UI_True 'Trigger a global redraw
__UI_PreviousFocus = __UI_Focus
__UI_ActivateMenu __UI_Controls(i), __UI_True
__UI_ForceRedraw = __UI_True
__UI_Controls(__UI_ActiveMenu).Value = __UI_Focus
__UI_KeyHit = 0
__UI_AltIsDown = __UI_False
END IF
END SELECT
EXIT FOR
END IF
NEXT
END IF
__UI_KeyHit = 0
END SELECT
ELSE
IF __UI_ShowHotKeys THEN
__UI_ShowHotKeys = __UI_False
__UI_ForceRedraw = __UI_True 'Trigger a global redraw
IF LEN(__UI_AltCombo$) THEN IF LEN(__UI_AltCombo$) THEN
'Numeric keypresses with alt pressed are converted into the proper ASCII character 'Numeric keypresses with alt pressed are converted into the proper ASCII character
'and inserted into the active textbox, if any. 'and inserted into the active textbox, if any.
IF VAL(__UI_AltCombo$) >= 32 AND VAL(__UI_AltCombo$) <= 254 THEN IF VAL(__UI_AltCombo$) >= 32 AND VAL(__UI_AltCombo$) <= 254 THEN
__UI_KeyHit = VAL(__UI_AltCombo$) __UI_KeyHit = VAL(__UI_AltCombo$)
END IF END IF
__UI_AltCombo$ = "" __UI_AltCombo$ = ""
ELSE ELSE
'Alt was released with no key having been pressed in the meantime, 'Alt was released with no key having been pressed in the meantime,
'so the menubar will be activated, if it exists (unless a dropdown 'so the menubar will be activated, if it exists (unless a dropdown
'list was activated 'list was activated
IF __UI_HasMenuBar AND __UI_ActiveDropdownList = 0 THEN IF __UI_HasMenuBar AND __UI_ActiveDropdownList = 0 THEN
__UI_PreviousFocus = __UI_Focus __UI_PreviousFocus = __UI_Focus
__UI_Focus = __UI_FirstMenuBarControl __UI_Focus = __UI_FirstMenuBarControl
END IF
END IF END IF
END IF END IF
END IF END IF
@ -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