Hi,
I would be grateful if someone could commit this change to the InsertBand
method of a rebar control. I've added the option "-style".
Cheers,
jez.
###########################################################################
# (@)METHOD:InsertBand(%OPTIONS)
#
# Insert a new band into the rebar control.
#
# Allowed %OPTIONS are:
#
# -image => Zero based index of the imagelist.
# -index => Zero based index where the band is inserted.
# -bitmap => The background bitmap for the band.
# -child => Child control. See Below.
# -foreground => Band foreground colors.
# -background => Band background colors.
# -width => The width of the band.
# -minwidth => The minimum width of the band.
# -minheight => The minimum height of the band.
# -text => The text for the band.
# -style => The style of the band. See Below
#
# Each band can only contain one child control. However, you can add a
child window that contains many controls:
#
# $mainwindow = <main window code>
#
# my $band = new Win32::GUI::Window (
# -parent => $mainwindow,
# -name => "RebarBand1",
# -popstyle => WS_CAPTION | WS_SIZEBOX,
# -pushstyle => WS_CHILD,
# );
#
# # create Date time control for band 1
# my $DateTime = $band->AddDateTime (
# -name => "DateTime",
# -pos => [0, 0],
# -size => [130, 20],
# -tip => 'A date and time',
# );
# #set the format for the datetime control
# $DateTime->Format('dd-MMM-yyyy HH:mm:ss');
#
# #Add a button to band 1
# $band->AddButton (
# -name => 'Button',
# -pos => [135, 0],
# -size => [50, 20],
# -text => 'Button',
# -tip => 'A Button',
# -onClick => sub {print 'button clicked' },
# );
#
# my $rebar = $mainwindow->AddRebar(
# -name => "Rebar",
# -bandborders => 1,
# );
#
# #Insert band
# $rebar->InsertBand (
# -child => $band,
# -width => 210,
# -minwidth => 210,
# -minheight => 20,
# );
#
# Styles
#
# Each band can have it's own style. As a default, each band has
RBBS_CHILDEDGE | RBBS_FIXEDBMP
# RBBS_BREAK 1 The band is on a new line.
# RBBS_FIXEDSIZE 2 The band can't be sized. With this style, the sizing
grip is not displayed on the band.
# RBBS_CHILDEDGE 4 The band has an edge at the top and bottom of the child
window.
# RBBS_HIDDEN 8 The band will not be visible.
# RBBS_FIXEDBMP 32 The background bitmap does not move when the band is
resized.
# RBBS_VARIABLEHEIGHT 64 The band can be resized by the rebar control.
# RBBS_GRIPPERALWAYS 128 The band will always have a sizing grip, even if
it is the only band in the rebar.
# RBBS_NOGRIPPER 256 The band will never have a sizing grip, even if there
is more than one band in the rebar.
#
LRESULT
InsertBand(handle,...)
HWND handle
PREINIT:
REBARBANDINFO rbbi;
int i, next_i;
UINT index;
CODE:
ZeroMemory(&rbbi, sizeof(REBARBANDINFO));
rbbi.cbSize = sizeof(REBARBANDINFO);
rbbi.fStyle = RBBS_CHILDEDGE | RBBS_FIXEDBMP;
SwitchBit(rbbi.fMask, RBBIM_STYLE, 1);
index = (UINT) -1;
next_i = -1;
for(i = 1; i < items; i++) {
if(next_i == -1) {
if(strcmp(SvPV_nolen(ST(i)), "-image") == 0) {
next_i = i + 1;
rbbi.iImage = SvIV(ST(next_i));
SwitchBit(rbbi.fMask, RBBIM_IMAGE, 1);
} else if(strcmp(SvPV_nolen(ST(i)), "-index") == 0) {
next_i = i + 1;
index = (UINT) SvIV(ST(next_i));
} else if(strcmp(SvPV_nolen(ST(i)), "-bitmap") == 0) {
next_i = i + 1;
rbbi.hbmBack = (HBITMAP) handle_From(NOTXSCALL ST(next_i));
SwitchBit(rbbi.fMask, RBBIM_BACKGROUND, 1);
} else if(strcmp(SvPV_nolen(ST(i)), "-child") == 0) {
next_i = i + 1;
rbbi.hwndChild = (HWND) handle_From(NOTXSCALL ST(next_i));
SwitchBit(rbbi.fMask, RBBIM_CHILD, 1);
} else if(strcmp(SvPV_nolen(ST(i)), "-foreground") == 0) {
next_i = i + 1;
rbbi.clrFore = SvCOLORREF(NOTXSCALL ST(next_i));
SwitchBit(rbbi.fMask, RBBIM_COLORS, 1);
} else if(strcmp(SvPV_nolen(ST(i)), "-background") == 0) {
next_i = i + 1;
rbbi.clrBack = SvCOLORREF(NOTXSCALL ST(next_i));
SwitchBit(rbbi.fMask, RBBIM_COLORS, 1);
} else if(strcmp(SvPV_nolen(ST(i)), "-width") == 0) {
next_i = i + 1;
rbbi.cx = SvIV(ST(next_i));
SwitchBit(rbbi.fMask, RBBIM_SIZE, 1);
} else if(strcmp(SvPV_nolen(ST(i)), "-minwidth") == 0) {
next_i = i + 1;
rbbi.cxMinChild = SvIV(ST(next_i));
SwitchBit(rbbi.fMask, RBBIM_CHILDSIZE, 1);
} else if(strcmp(SvPV_nolen(ST(i)), "-minheight") == 0) {
next_i = i + 1;
rbbi.cyMinChild = SvIV(ST(next_i));
SwitchBit(rbbi.fMask, RBBIM_CHILDSIZE, 1);
} else if(strcmp(SvPV_nolen(ST(i)), "-text") == 0) {
next_i = i + 1;
rbbi.lpText = SvPV_nolen(ST(next_i));
SwitchBit(rbbi.fMask, RBBIM_TEXT, 1);
} else if(strcmp(SvPV_nolen(ST(i)), "-style") == 0) {
next_i = i + 1;
rbbi.fStyle = SvIV(ST(next_i));
}
} else {
next_i = -1;
}
}
RETVAL = SendMessage(handle, RB_INSERTBAND, (WPARAM) index, (LPARAM) &rbbi);
OUTPUT:
RETVAL
