Tweet
FUNCTION BuildRebar(BYVAL hWnd AS LONG) AS LONG
LOCAL hRebar AS LONG
LOCAL hIml AS LONG
LOCAL rbi AS REBARINFO
LOCAL rb AS REBARBANDINFO
LOCAL hBmp AS LONG
LOCAL hToolbar AS LONG
LOCAL hImlBmp AS LONG
DIM tbb(0 to 8) AS TBBUTTON
' Fill the TBBUTTON array with button information
tbb(0).iBitmap = 0
tbb(0).idCommand = %IDM_NEW
tbb(0).fsState = %TBSTATE_ENABLED
tbb(0).fsStyle = %TBSTYLE_BUTTON
tbb(0).dwData = 0
tbb(0).iString = 0
tbb(1).iBitmap = 1
tbb(1).idCommand = %IDM_OPEN
tbb(1).fsState = %TBSTATE_ENABLED
tbb(1).fsStyle = %TBSTYLE_BUTTON
tbb(1).dwData = 0
tbb(1).iString = 0
tbb(2).iBitmap = 2
tbb(2).idCommand = %IDM_SAVE
tbb(2).fsState = %TBSTATE_ENABLED
tbb(2).fsStyle = %TBSTYLE_BUTTON
tbb(2).dwData = 0
tbb(2).iString = 0
tbb(3).iBitmap = 0
tbb(3).idCommand = 0
tbb(3).fsState = %TBSTATE_ENABLED
tbb(3).fsStyle = %TBSTYLE_SEP
tbb(3).dwData = 0
tbb(3).iString = 0
tbb(4).iBitmap = 3
tbb(4).idCommand = %IDM_SAVE
tbb(4).fsState = %TBSTATE_ENABLED
tbb(4).fsStyle = %TBSTYLE_BUTTON
tbb(4).dwData = 0
tbb(4).iString = 0
tbb(5).iBitmap = 0
tbb(5).idCommand = 0
tbb(5).fsState = %TBSTATE_ENABLED
tbb(5).fsStyle = %TBSTYLE_SEP
tbb(5).dwData = 0
tbb(5).iString = 0
tbb(6).iBitmap = 4
tbb(6).idCommand = %IDM_CUT
tbb(6).fsState = %TBSTATE_ENABLED
tbb(6).fsStyle = %TBSTYLE_BUTTON
tbb(6).dwData = 0
tbb(6).iString = 0
tbb(7).iBitmap = 5
tbb(7).idCommand = %IDM_COPY
tbb(7).fsState = %TBSTATE_ENABLED
tbb(7).fsStyle = %TBSTYLE_BUTTON
tbb(7).dwData = 0
tbb(7).iString = 0
tbb(8).iBitmap = 6
tbb(8).idCommand = %IDM_PASTE
tbb(8).fsState = %TBSTATE_ENABLED
tbb(8).fsStyle = %TBSTYLE_BUTTON
tbb(8).dwData = 0
tbb(8).iString = 0
' Create the Coolbar window
hRebar = CreateRebar(hWnd, %WS_VISIBLE OR _
%WS_BORDER OR _
%WS_CHILD OR _
%WS_CLIPCHILDREN OR _
%WS_CLIPSIBLINGS OR _
%RBS_BANDBORDERS OR _
%CCS_NODIVIDER OR _
%CCS_NOPARENTALIGN, _
0, 0, 400, 24, %ID_COOLBAR, hInst)
hToolbar = CreateToolbarEx(hRebar, %WS_CHILD OR _
%WS_BORDER OR _
%WS_VISIBLE OR _
%TBSTYLE_TOOLTIPS OR _
%TBSTYLE_FLAT OR _
%CCS_NODIVIDER OR _
%CCS_TOP, _
%ID_TOOLBAR, _
0, hInst, %NULL, BYVAL %NULL, 0, 16, 16, 16, 16, LEN(TBBUTTON))
hBmp = ImageList_LoadBitmap(hInst, "TOOLBAR", 16, 0, %CLR_NONE)
SendMessage hToolbar, %TB_SETBITMAPSIZE, 0, MAKLNG(16,16)
SendMessage hToolbar, %TB_SETIMAGELIST, 0, hBmp
SendMessage hToolbar, %TB_ADDBUTTONS, 9, VARPTR(tbb(0))
rb.cbSize = SIZEOF(rb)
rb.fMask = %RBBIM_CHILD OR %RBBIM_CHILDSIZE OR %RBBIM_ID OR %RBBIM_STYLE OR %RBBIM_COLORS
rb.clrFore = GetSysColor(%COLOR_BTNTEXT)
rb.clrBack = GetSysColor(%COLOR_BTNFACE)
rb.fStyle = %RBBS_NOVERT OR %RBBS_CHILDEDGE OR %RBBS_FIXEDSIZE OR %RBBS_GRIPPERALWAYS
rb.hWndChild = hToolbar
rb.wID = %ID_TOOLBAR
rb.cxMinChild = 16
rb.cyMinChild = 18
SendMessage hRebar, %RB_INSERTBAND, -1, VARPTR(rb)
FUNCTION = hRebar
END FUNCTION
FUNCTION CreateRebar(BYVAL hParent AS LONG, BYVAL Style AS LONG, _
BYVAL x AS LONG, BYVAL y AS LONG, BYVAL w AS LONG, BYVAL h AS LONG, _
BYVAL id AS LONG, BYVAL hInst AS LONG) AS LONG
FUNCTION = CreateWindowEx(%WS_EX_TOOLWINDOW, "ReBarWindow32", BYVAL %NULL, Style, x, y, w, h, hParent, Id, hInst, BYVAL %NULL)
END FUNCTIO
Comment