Gets the current values for alignment, visibility, and title of the specified toolbar.
MDI frame and sheet windows
window.GetToolbar ( toolbarindex, visible {, alignment {, floatingtitle } } )
Argument |
Description |
|---|---|
window |
The MDI frame or sheet to which the toolbar belongs |
toolbarindex |
An integer whose value is the index of the toolbar for which you want the current settings |
visible |
A boolean variable in which you want to store a value indicating whether the toolbar is visible |
alignment (optional) |
A variable of the ToolbarAlignment enumerated datatype in which you want to store the current alignment of the toolbar |
floatingtitle (optional) |
A string variable in which you want to store the toolbar title that is displayed when the alignment is Floating! |
Integer. Returns 1 if it succeeds. GetToolbar returns -1 if there is no toolbar for the index you specify or if an error occurs. If any argument’s value is null, returns null.
To find out the position of the docked or floating toolbar, call GetToolbarPos.
This example finds out whether toolbar 1 is visible. It also gets the alignment and title of toolbar 1. The values are stored in the variables lb_visible, lta_align, and ls_title:
integer li_rtn
boolean lb_visible
toolbaralignment lta_align
li_rtn = w_frame.GetToolbar(1, lb_visible, &
lta_align, ls_title)
This example displays the settings for the toolbar index the user specifies in sle_index. The IF and CHOOSE CASE statements convert the values to strings so they can be displayed in mle_toolbar:
integer li_index, li_rtn
boolean lb_visible
toolbaralignment lta_align
string ls_visible, ls_align, ls_title
li_index = Integer(sle_index.Text)
li_rtn = w_frame.GetToolbar(li_index, &
lb_visible, lta_align, ls_title)
IF li_rtn = -1 THEN
MessageBox("Toolbars", "Can't get" &
+ " toolbar settings.")
RETURN -1
END IF
IF lb_visible = TRUE THEN
ls_visible = "TRUE"
ELSE
ls_visible = "FALSE"
END IF
CHOOSE CASE lta_align
CASE AlignAtTop!
ls_align = "top"
CASE AlignAtLeft!
ls_align = "left"
CASE AlignAtRight!
ls_align = "right"
CASE AlignAtBottom!
ls_align = "bottom"
CASE Floating!
ls_align = "floating"
END CHOOSE
mle_1.Text = ls_visible + "~r~n" &
+ ls_align + "~r~n" &
+ ls_title
