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

Makes "Add new" indicator the proper color (MenuBar)

Browse source
This commit is contained in:
FellippeHeitor 2018-05-25 23:25:26 -03:00
parent e868948fb7
commit 63ed2156b8
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
InForm/xp.uitheme
View file

@ -1472,9 +1472,10 @@ SUB __UI_DrawMenuBar (This AS __UI_ControlTYPE, ControlState AS _BYTE)
IF __UI_DesignMode THEN
IF This.Left + This.Width = __UI_NewMenuBarTextLeft THEN
'Last menu bar item. Next is "Add new"
COLOR Darken(Control(__UI_FormID).BackColor, 80)
_DEST Control(__UI_FormID).Canvas
COLOR Darken(Control(__UI_FormID).BackColor, 80)
_FONT (This.Font)
LINE (__UI_NewMenuBarTextLeft + __UI_MenuBarOffset, ((This.Height \ 2) - (falcon_uspacing& + (((_FONT = 8) * -1) * __UI_Font8Offset + ((_FONT = 16) * -1) * __UI_Font16Offset)) \ 2))-STEP(__UI_PrintWidth("Add new"),(falcon_uspacing& + (((_FONT = 8) * -1) * __UI_Font8Offset + ((_FONT = 16) * -1) * __UI_Font16Offset))), Control(__UI_FormID).BackColor, BF
__UI_PrintString __UI_NewMenuBarTextLeft + __UI_MenuBarOffset, ((This.Height \ 2) - (falcon_uspacing& + (((_FONT = 8) * -1) * __UI_Font8Offset + ((_FONT = 16) * -1) * __UI_Font16Offset)) \ 2), "Add new"
END IF
END IF