Class: WR::Toolbar

Inherits:

WinControl

Object
Data
RWin::Window
Window
WinControl
WR::Toolbar

show all

Extended by:: ModFormDesigner

Includes:: ModAccessor, ModCommCtrl, ModParent

Defined in:: lib/wrb/components/toolbar.rb,
lib/wrb/applications/frmdesigner/controls/Toolbar.rb

Overview

A control that contains one or more buttons. Each button, when clicked by a user, sends a command message to the parent window.
See also <a href=“docs.microsoft.com/en-us/windows/desktop/Controls/ window-controls”> Windows Control section of Microsoft Docs.</a>

Defined Under Namespace

Classes: Button

Constant Summary collapse

TBBUTTON =

API.defstruct "
int iBitmap;
int idCommand;
BYTE fsState;
BYTE fsStyle;
BYTE bReserved[2];
DWORD dwData;
TCHAR *iString;"

TBBUTTONINFO =

API.defstruct "
UINT cbSize;
DWORD dwMask;
int idCommand;
int iImage;
BYTE fsState;
BYTE fsStyle;
WORD cx;
LPARAM lParam;
LPTSTR pszText;
int cchText;"

TBNOTIFY =

API.defstruct "
NMHDR hdr;
int iItem;
TBBUTTON tbButton;
int cchText;
LPTSTR pszText;"

TBADDBITMAP =

API.defstruct "
HANDLE hInst;
UINT nID;"

NMTBSAVE =

API.defstruct "
NMHDR hdr;
DWORD *pData;
DWORD *pCurrent;
UINT cbData;
int iItem;
int cButtons;
TBBUTTON tbButton;"

NMTBRESTORE =

API.defstruct "
NMHDR hdr;
DWORD *pData;
DWORD *pCurrent;
UINT cbData;
int iItem;
int cButtons;
int cbBytesPerRecord;
TBBUTTON tbButton;"

NMTBGETINFOTIP =

API.defstruct "
NMHDR hdr;
LPTSTR pszText;
int cchTextMax;
int iItem;
LPARAM lParam;"

NMTBDISPINFO =

API.defstruct "
NMHDR hdr;
DWORD dwMask;
int idCommand;
LPARAM lParam;
int iImage;
LPTSTR pszText;
int cchText;"

NMTOOLBAR =

API.defstruct "
NMHDR hdr;
int iItem;
TBBUTTON tbButton;
int cchText;
LPSTR pszText;
RECT rcButton;"

NMTBHOTITEM =

API.defstruct "
NMHDR hdr;
int   idOld;
int   idNew;
DWORD dwFlags;"

BtnStyles =

{
  :button        => BTNS_BUTTON,
  :sep           => BTNS_SEP,
  :check         => BTNS_CHECK,
  :group         => BTNS_GROUP,
  :checkgroup    => BTNS_CHECKGROUP,
  :dropdown      => BTNS_DROPDOWN,
  :autosize      => BTNS_AUTOSIZE,
  :noprefix      => BTNS_NOPREFIX,
  :showtext      => BTNS_SHOWTEXT,
  :wholedropdown => BTNS_WHOLEDROPDOWN
}

TbStates =

{
  :checked       => TBSTATE_CHECKED,
  :pressed       => TBSTATE_PRESSED,
  :enabled       => TBSTATE_ENABLED,
  :hidden        => TBSTATE_HIDDEN,
  :indeterminate => TBSTATE_INDETERMINATE,
  :wrap          => TBSTATE_WRAP,
  :disabled      => ~TBSTATE_ENABLED,
}

StdBitmapSymbols = icon indexes for standard bitmap

{
  :cut             => STD_CUT,
  :copy            => STD_COPY,
  :paste           => STD_PASTE,
  :undo            => STD_UNDO,
  :redow           => STD_REDOW,
  :delete          => STD_DELETE,
  :filenew         => STD_FILENEW,
  :fileopen        => STD_FILEOPEN,
  :filesave        => STD_FILESAVE,
  :printpre        => STD_PRINTPRE,
  :properties      => STD_PROPERTIES,
  :help            => STD_HELP,
  :find            => STD_FIND,
  :replace         => STD_REPLACE,
  :print           => STD_PRINT
}

ViewBitmapSymbols = icon indexes for standard view bitmap

{
  :largeicons     => VIEW_LARGEICONS,
  :smallicons     => VIEW_SMALLICONS,
  :list           => VIEW_LIST,
  :details        => VIEW_DETAILS,
  :sortname       => VIEW_SORTNAME,
  :sortsize       => VIEW_SORTSIZE,
  :sortdate       => VIEW_SORTDATE,
  :sorttype       => VIEW_SORTTYPE,
  :parentfolder   => VIEW_PARENTFOLDER,
  :netconnect     => VIEW_NETCONNECT,
  :netdisconnect  => VIEW_NETDISCONNECT,
  :newfolder      => VIEW_NEWFOLDER,
  :viewmenu       => VIEW_VIEWMENU
}

HistBitmapSymbols = icon indexes for standard history bitmap

{
  :back           => HIST_BACK,
  :forward        => HIST_FORWARD,
  :favorites      => HIST_FAVORITES,
  :addtofavorites => HIST_ADDTOFAVORITES,
  :viewtree       => HIST_VIEWTREE
}

DefaultWindowStyle =

CCS_TOP

SystemBitmaps =

{:noimage=>I_IMAGENONE}

WinStyles =

{
  :tooltips     => TBSTYLE_TOOLTIPS,
  :wrapable     => TBSTYLE_WRAPABLE,
  :latdrag      => TBSTYLE_ALTDRAG,
  :flat         => TBSTYLE_FLAT,
  :list         => TBSTYLE_LIST,
  :customerase  => TBSTYLE_CUSTOMERASE,
  :registerdrop => TBSTYLE_REGISTERDROP,
  :transparent  => TBSTYLE_TRANSPARENT
}

WinExStyles = def self.sym2style(*args) _sym2style(WinStyles, args); end

{
}

TbExtendedStyles = def self.sym2exstyle(*args) _sym2style(WinExStyles, args); end

{
  :drawddarrows       => TBSTYLE_EX_DRAWDDARROWS,
  :mixedbuttons       => TBSTYLE_EX_MIXEDBUTTONS,
  :hideclippedbuttons => TBSTYLE_EX_HIDECLIPPEDBUTTONS,
  :doublebuffer       => TBSTYLE_EX_DOUBLEBUFFER
}

PreDefinedEvents = def self.sym2style(*args) _sym2style(WinStyles, args); end

{
  :char            => [WM_NOTIFY, NM_CHAR, 'xs', NMCHAR],
  :click           => [WM_NOTIFY, NM_CLICK, 'xs', NMMOUSE],
  :customdraw      => [WM_NOTIFY, NM_CUSTOMDRAW , 'xs', NMCUSTOMDRAW],
  :dblclk          => [WM_NOTIFY, NM_DBLCLK, 'xs', NMMOUSE],
  :keydown         => [WM_NOTIFY, NM_KEYDOWN, 'xs', NMKEY],
  :ldown           => [WM_NOTIFY, NM_LDOWN, 'xs', NMMOUSE],
  :rclick          => [WM_NOTIFY, NM_RCLICK, 'xs', NMMOUSE],
  :rdblclk         => [WM_NOTIFY, NM_RDBLCLK, 'xs', NMMOUSE],
  :releasedcapture => [WM_NOTIFY, NM_RELEASEDCAPTURE, 'xs', NMHDR],
  :tooltipscreated => [WM_NOTIFY, NM_TOOLTIPSCREATED, 'xs', NMTOOLTIPSCREATED],
  :begindrag       => [WM_NOTIFY, TBN_BEGINDRAG, 'xs', NMTOOLBAR],
  :enddrag         => [WM_NOTIFY, TBN_ENDDRAG, 'xs', NMTOOLBAR],
  :beginadjust     => [WM_NOTIFY, TBN_BEGINADJUST, 'xs', NMHDR],
  :endadjust       => [WM_NOTIFY, TBN_ENDADJUST, 'xs', NMHDR],
  :reset           => [WM_NOTIFY, TBN_RESET, 'xs', NMHDR],
  :queryinsert     => [WM_NOTIFY, TBN_QUERYINSERT, 'xs', NMTOOLBAR],
  :querydelete     => [WM_NOTIFY, TBN_QUERYDELETE, 'xs', NMTOOLBAR],
  :toolbarchange   => [WM_NOTIFY, TBN_TOOLBARCHANGE, 'xs', NMHDR],
  :custhelp        => [WM_NOTIFY, TBN_CUSTHELP, 'xs', NMHDR],
  :dropdown        => [WM_NOTIFY, TBN_DROPDOWN, 'xs', NMTOOLBAR],
  :hotitemchange   => [WM_NOTIFY, TBN_HOTITEMCHANGE, 'xs', NMTBHOTITEM],
  :draguot         => [WM_NOTIFY, TBN_DRAGOUT, 'xs', NMTOOLBAR],
  :deletingbutton  => [WM_NOTIFY, TBN_DELETINGBUTTON, 'xs', NMTOOLBAR],
  :getdispinfo     => [WM_NOTIFY, TBN_GETDISPINFO, 'xs', NMTBDISPINFO],
  :getinfotip      => [WM_NOTIFY, TBN_GETINFOTIP, 'xs', NMTBDISPINFO],
  :getbuttoninfo   => [WM_NOTIFY, TBN_GETBUTTONINFO, 'xs', NMTOOLBAR],
  :restore         => [WM_NOTIFY, TBN_RESTORE, 'xs', NMTBRESTORE],
  :save            => [WM_NOTIFY, TBN_SAVE, 'xs', NMTBSAVE],
  :initcustomize   => [WM_NOTIFY, TBN_INITCUSTOMIZE, 'xs', NMHDR],
  :dragover        => [WM_NOTIFY, TBN_DRAGOVER, 'xs', NMTBHOTITEM],
  :mapaccelerator  => [WM_NOTIFY, TBN_MAPACCELERATOR, 'xs', NMCHAR]
  
#      :wraphotitem    => [WM_NOTIFY, TBN_WRAPHOTITEM, 'xs', NMTBWRAPHOTITEM],
#      :dupaccelerator => [WM_NOTIFY, TBN_DUPACCELERATOR, 'xs',],
#      :wrapaccelerator=> [WM_NOTIFY, TBN_WRAPACCELERATOR, ],
}

DefaultEvents = :wraphotitem => [WM_NOTIFY, TBN_WRAPHOTITEM, ‘xs’, NMTBWRAPHOTITEM], :dupaccelerator => [WM_NOTIFY, TBN_DUPACCELERATOR, 'xs',], :wrapaccelerator=> [WM_NOTIFY, TBN_WRAPACCELERATOR, ],

[]

Instance Attribute Summary collapse

#_infotips ⇒ Object readonly

Returns the value of attribute _infotips.
#_systembitmaps ⇒ Object readonly

Returns the value of attribute _systembitmaps.

Attributes included from ModAccessor

#_accessors

Attributes inherited from WinControl

#name

Attributes included from ModBaseWin

#_deny_font_inherit

Attributes included from ModCreateWin

#default_hfont

Instance Method Summary collapse

#<<(*arg) ⇒ Object

Adds the multiple arguments at last of this toolbar contol.
#[](idx) ⇒ Object

Retreives a specified index of object in this toolbar.
#[]=(idx, *args) ⇒ Object

[]=(index, count=1, *args) Inserts and replaces the multiple arguments at last of this toolbar contol.
#__fd_add_ctrl(x, y, ct) ⇒ Object
#__fd_edit_item(lv, idx, subitem, ed) ⇒ Object
#__fd_item_loaded(item, asrc) ⇒ Object
#__fd_on_delete_this ⇒ Object
#__fd_on_deleteitem(lv, idx) ⇒ Object
#__fd_on_insertitem(lv, idx) ⇒ Object
#__fd_on_lv_rclick(lv, idx) ⇒ Object
#__fd_output_items(lns, curln, indent) ⇒ Object
#__fd_recreate_this ⇒ Object
#__fd_set_lvitem(lv, ilist) ⇒ Object
#__fd_update_lv(lv) ⇒ Object
#addbitmap(bmp, n = 0) ⇒ Object

Adds one or more images to the list of button images available for this toolbar.
#autosize ⇒ Object

Causes this toolbar to be resized.
#buttoncount ⇒ Object

Retrieves a count of the buttons currently in this toolbar.
#buttonsize ⇒ Object

Retrieves the current width and height of toolbar buttons, in pixels.
#buttonsize=(arg) ⇒ Object

Sets the size of buttons on a toolbar.
#create ⇒ Object
#delete(obj = nil) ⇒ Object

Deletes a specified object in this toolbar control.
An object can be a Toolbar::Button or a WinControl.
#each ⇒ Object

each(){|objct| … } Performs the block for each object in this toolbar control as a block parameter.
The given parameter will be a Toolbar::Button or a WinControl.
#each_buttons ⇒ Object

each_buttons(){|button| … } Performs the block for each button in this toolbar control as a block parameter.
The given parameter will be a Toolbar::Button.
#extendedstyle ⇒ Object

Retreives extended styles for this toolbar control.
#extendedstyle=(xstyle) ⇒ Object

Sets the extended styles for this toolbar control.
#hittest(x, y) ⇒ Object

Determines where a point lies in this toolbar control.
#idcmd2ref(id) ⇒ Object

Retreives an object in this toolbar control from specified id.
#idcmd=(id) ⇒ Object
#imagelist ⇒ Object

Retrieves the image list that the toolbar uses to display buttons in their default state.
#imagelist=(il) ⇒ Object

Sets the image list that the toolbar uses to display buttons in their default state.
#index(obj) ⇒ Object

Retreives index of a specified object in this toolbar control.
#initialize(*args) ⇒ Toolbar constructor

A new instance of Toolbar.
#insert(idx, arg) ⇒ Object

Inserts a toolbar button or control at the specified index and argument.
If an array of [name, ibitmap, text=nil, style=0, state=0, options…] given, inserts a toolbar button.
If a symbol of :sep geven, inserts separator.
And if a WinControl given, inserts a control in this toolbar control.
#tooltips=(ttp) ⇒ Object

Associates a tooltip control with a toolbar.
Deprecated.

Methods included from ModFormDesigner

extended

Methods included from ModAutoloading

included

Methods included from ModAccessor

#_add_accessor, #_check_name, #_define_access_method, #_delete_accessor, #_delete_accessor_by_obj

Methods included from ModParent

#__resize__, #controls, #font=, #inheritfont, #inheritfont=, #new_control_id

Methods included from RC

HIWORD, INDEXTOOVERLAYMASK, LOWORD, MAKELPARAM, MAKEROP4, RGB, SPLITPARAM, _I, _T, _X

Methods included from ModCommCtrl

included

Methods inherited from WinControl

[], #__move, #enabled, #enabled=, #get_toplevel_win, #idcmd, #is_subclassing, #margin, #margin=, #set_subclass

Methods inherited from Window

#position, #position=, #size=

Methods included from ModBaseWin

#CancelDefWindowProc, #accept_events, #acceptable_events, #active?, #caption, #caption=, #classname, #clientpos, #exstyle, #exstyle=, #focused?, #font, #font=, #h, #h=, #hide, #inspect, #move, #parent, #parent=, #refresh, #resize, #setorder, #show, #showna, #size=, #style, #style=, #sym2exstyle, #sym2style, #visible, #visible=, #w, #w=, #windowsize, #x, #x=, #y, #y=

Methods inherited from RWin::Window

#ClientToScreen, #DrawMenuBar, #GetWindowLong, #GetWindowRect, #PostMessage, #RegisterHotKey, #ReleaseCapture, #RemoveWindowSubclass, #ScreenToClient, #SendMessage, #SetCapture, #SetFocus, #SetMenu, #SetWindowLong, #SetWindowPos, #SetWindowSubclass, #ShowWindow, #TrackPopupMenu, #UnregisterHotKey, #_hwnd, #alive?, #caption, #caption=, #clientpos, #clientsize, #close, #cursorPos, #event_registered?, #get_msgtranslator, #h, #h=, #idcmd, #method_missing, #move, new_from_handle, #parent, #parent=, #redraw, #refresh, #register_event, #registered_messages, #resize, #screenpos, #set_accelerator, #set_msgtranslator, #setorder, #unregister_event, #visible, #visible=, #w, #w=, #windowsize, #x, #x=, #y, #y=

Constructor Details

#initialize(*args) ⇒ `Toolbar`

Returns a new instance of Toolbar.

# File 'lib/wrb/components/toolbar.rb', line 754

def initialize(*args)
  super
  @_classname = "ToolbarWindow32"
  @_buttons = [] #Collection.new
  @_infotips = {}
  @_acceptable_events = PreDefinedEvents.dup
  @_systembitmaps = {:noimage=>I_IMAGENONE}
end

Dynamic Method Handling

This class handles dynamic methods through the method_missing method in the class RWin::Window

Instance Attribute Details

#_infotips ⇒ `Object` (readonly)

Returns the value of attribute _infotips.



752
753
754

# File 'lib/wrb/components/toolbar.rb', line 752

def _infotips
  @_infotips
end

#_systembitmaps ⇒ `Object` (readonly)

Returns the value of attribute _systembitmaps.



752
753
754

# File 'lib/wrb/components/toolbar.rb', line 752

def _systembitmaps
  @_systembitmaps
end

Instance Method Details

#<<(*arg) ⇒ `Object`

Adds the multiple arguments at last of this toolbar contol. Each of arguments can be an argument when inserting in this toolbar control.

# File 'lib/wrb/components/toolbar.rb', line 876

def <<(*arg)
  arg = arg[0] if arg[0].is_a?(Array) || arg.size==1
  if arg.is_a?(Array) && !arg[0].is_a?(Symbol)
    arg.each{|i| insert(self.buttoncount, i)}
  else
    insert(self.buttoncount, arg)
  end
end

#[](idx) ⇒ `Object`

Retreives a specified index of object in this toolbar. Return value may be a Toolbar::Button or a WinControl.

# File 'lib/wrb/components/toolbar.rb', line 887

def [](idx)
  if alive?
    tbb = TBBUTTON.new
    SendMessage(TB_GETBUTTON, idx, tbb)
    idcmd2ref(tbb.idCommand)
  else
    @_buttons[idx]
  end
end

#[]=(idx, *args) ⇒ `Object`

[]=(index, count=1, *args) Inserts and replaces the multiple arguments at last of this toolbar contol. Each of arguments can be an argument when inserting in this toolbar control.

# File 'lib/wrb/components/toolbar.rb', line 900

def []=(idx, *args)
  num = args[0].is_a?(Integer) ? args.shift : 1
  num.times{self._delete(self[idx])}
  if args[0].is_a? Array
    args[0].each_with_index{|v, i| self.insert(idx+i, v)}
  else
    args.each_with_index{|v, i| self.insert(idx+i, v)}
  end
end

#__fd_add_ctrl(x, y, ct) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/controls/Toolbar.rb', line 110

def __fd_add_ctrl(x, y, ct)
  idx = hittest(x-self.x, y-self.y)
  insert(idx, ct)
  ct.y = 0
  ct
end

#__fd_edit_item(lv, idx, subitem, ed) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/controls/Toolbar.rb', line 37

def __fd_edit_item(lv, idx, subitem, ed)
  data = lv[idx].data
  txt = ed.text
  begin
    case subitem
    when 0 # Name
      if (txt=="(sep)" || txt==":sep")
        self[idx].style = BTNS_SEP
      else
        self[idx].name = txt.intern
        self[idx].style = 0
      end
    when 1 # Image
      self[idx].iimage = txt.empty? ? nil : txt.to_i
    when 2 # Text
      self[idx].text = txt.empty? ? nil : txt.to_s
    when 3
#          case txt
#          when /^0[xX]/
#            val = txt.to_i(16)
#          when /[0-9]+/
#            val = txt.to_i
#          else
#            val = 0
#            txt.split(',').each{|i| val |= BtnStyles[i.strip.intern].to_i}
#          end
#          self[idx].style = val
      self[idx].infotip = txt
    end
  rescue => err
    $fd_main_frm.MessageBox "#{err}", "FormDesigner", 0x10
  end
  __fd_recreate_this
  autosize
end

#__fd_item_loaded(item, asrc) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/controls/Toolbar.rb', line 136

def __fd_item_loaded(item, asrc)
  extend ModFDItemsSrcLine unless @__fd_items_srcs
  @__fd_items_srcs << asrc
end

#__fd_on_delete_this ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/controls/Toolbar.rb', line 141

def __fd_on_delete_this()
  return unless lns = @_toplevelwin.__fd_src[:lines]
  __fd_delete_items_srcs(lns)
end

#__fd_on_deleteitem(lv, idx) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/controls/Toolbar.rb', line 103

def __fd_on_deleteitem(lv, idx)
  ct = controls.find{|i| i.__associated_toolbar_id == idcmd}
  ct.delete if ct
  self[idx].delete
  __fd_update_lv(lv)
end

#__fd_on_insertitem(lv, idx) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/controls/Toolbar.rb', line 96

def __fd_on_insertitem(lv, idx)
  sname = get_toplevel_win.suffixed_name('tbbutton1')
  self << [sname.intern, nil]
  autosize
  __fd_update_lv(lv)
end

#__fd_on_lv_rclick(lv, idx) ⇒ `Object`



92
93
94

# File 'lib/wrb/applications/frmdesigner/controls/Toolbar.rb', line 92

def __fd_on_lv_rclick(lv, idx)
  [:insertitem, "Insert", :deleteitem, "Delete"]
end

#__fd_output_items(lns, curln, indent) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/controls/Toolbar.rb', line 117

def __fd_output_items(lns, curln, indent)
  ps = __fd_get_parents_str2
  ar = []
  each{|bt|
    if obj=controls.find{|i| i.__associated_toolbar_id == bt.idcmd}
      ar << ps + " << " + obj.__fd_to_str_core(nil)
    elsif bt.style==TBSTYLE_SEP
      ar << ps + " << :sep"
    else
      s = sprintf("[%p, %p", bt.name, bt.iimage)
      s << sprintf(", %p", bt.text) unless bt.text.empty?
      s << sprintf(", %#x", bt.style) if bt.style > 0
      s << ", :infotip=>'#{bt.infotip}'" unless bt.infotip.empty?
      ar << ps + " << " + s + ']'
    end
  }
  __fd_set_items_srcs(lns, curln, indent, ar)
end

#__fd_recreate_this ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/controls/Toolbar.rb', line 18

def __fd_recreate_this()
  @__extendedstyle = self.extendedstyle
  @__systemimagelist = nil
  @__imagelist = self.imagelist
  @_buttons = []
  self.each{|i|
    tbb = Button[i.name, i.iimage, i.text, i.style]
    tbb.idcmd = i.idcmd
    tbb.owner = self
    @_buttons << tbb
  }
  @controls.each{|i|
    idx = SendMessage(TB_COMMANDTOINDEX, i.__associated_toolbar_id, 0)
    i.close
    i.w = self[idx].iimage
  }
  __fd_recreate()
end

#__fd_set_lvitem(lv, ilist) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/controls/Toolbar.rb', line 83

def __fd_set_lvitem(lv, ilist)
  lv.viewmode = :reportview
  lv.imagelist = ilist
  lv.style &= ~LVS_NOCOLUMNHEADER
  lv.columns = ['Name',80], ['Img', 32], ['Text', 72], ['Infotip', 96]
  __fd_update_lv(lv)
end

#__fd_update_lv(lv) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/controls/Toolbar.rb', line 73

def __fd_update_lv(lv)
  lv.clear
  buttoncount.times{|i|
    bt = self[i]
    nm = bt.style&TBSTYLE_SEP>0 ? "(sep)" : bt.name
    s = sprintf("%s\t%d\t%s\t%s", nm, bt.iimage, bt.text, bt.infotip)
    lv << [s, nil, nil, bt]
  }
end

#addbitmap(bmp, n = 0) ⇒ `Object`

Adds one or more images to the list of button images available for this toolbar.

# File 'lib/wrb/components/toolbar.rb', line 978

def addbitmap(bmp, n=0)
  if SendMessage(TB_GETIMAGELIST, 0, 0) != 0
    raise RuntimeError, "Imagelist was already set, so cannot run this method.", caller(2)
  end
  if bmp.is_a? TBADDBITMAP
    hbitmap = bmp
  elsif bmp.is_a? Integer
    hbitmap = TBADDBITMAP[nil, bmp]
  elsif bmp.is_a? RWin::Imagelist
    h = bmp.getimageinfo(0)[2][3]
    n = bmp.count
    cv = RWin::Canvas.new(h * n, h, RWin::API.getSysColor(30))
    n.times{|i| cv.drawImagelist(bmp, i, i*h, 0)}
    hbitmap = TBADDBITMAP[nil, cv.hbitmap(self)]
  elsif bmp.is_a? RWin::Canvas
    n = bmp.width / bmp.height
    hbitmap = TBADDBITMAP[nil, bmp.hbitmap(self)]
  else
    raise ArgumentError, "argument must be Integer, Imagelist or Canvas", caller(2)
  end
  SendMessage(TB_ADDBITMAP, n, hbitmap)
end

#autosize ⇒ `Object`

Causes this toolbar to be resized.



966
967
968

# File 'lib/wrb/components/toolbar.rb', line 966

def autosize() 
  SendMessage(TB_AUTOSIZE, 0, 0)
end

#buttoncount ⇒ `Object`

Retrieves a count of the buttons currently in this toolbar.



961
962
963

# File 'lib/wrb/components/toolbar.rb', line 961

def buttoncount() 
  alive? ? SendMessage(TB_BUTTONCOUNT, 0, 0) : @_buttons.size
end

#buttonsize ⇒ `Object`

Retrieves the current width and height of toolbar buttons, in pixels.



950
951
952

# File 'lib/wrb/components/toolbar.rb', line 950

def buttonsize() 
  SPLITPARAM(SendMessage(TB_GETBUTTONSIZE, 0, 0))
end

#buttonsize=(arg) ⇒ `Object`

Sets the size of buttons on a toolbar.

# File 'lib/wrb/components/toolbar.rb', line 954

def buttonsize=(arg) 
  w, h = arg
  SendMessage(TB_SETBUTTONSIZE, 0, MAKELPARAM(w, h))
  autosize
end

#create ⇒ `Object`

# File 'lib/wrb/components/toolbar.rb', line 771

def create()
  if @controls
    def @controls.receiver=(r)
      @receiver = r
    end
    @controls.receiver = parent
  end
  super
  SendMessage(TB_BUTTONSTRUCTSIZE, TBBUTTON::Size, 0)
  self.imagelist = @__imagelist if @__imagelist
  self.extendedstyle = @__extendedstyle if @__extendedstyle
  @_buttons.each_with_index{|btn, idx|
    SendMessage(TB_INSERTBUTTON, idx, btn._tbbutton)
    if @controls && (ctl=@controls.find{|i| i.__associated_toolbar_id == btn.idcmd})
      ctl.move(btn.rect.left, 0)
    end
  } if @_buttons
  autosize
  self.tooltips = @__tooltips if @__tooltips
  @__imagelist = @__extendedstyle = @_buttons = @__tooltips = nil
end

#delete(obj = nil) ⇒ `Object`

Deletes a specified object in this toolbar control.
An object can be a Toolbar::Button or a WinControl. If no argument given, deletes this toolbar control.

# File 'lib/wrb/components/toolbar.rb', line 855

def delete(obj=nil)
  return super() unless obj
  if alive?
    idx = self.index(obj)
    SendMessage(TB_DELETEBUTTON, idx, 0)
    _delete_accessor(obj.name, obj)
    if @controls
      ctl = @controls[obj.name]
      @controls.delete(ctl) if ctl
      @controls.each{|i|
        SendMessage(TB_GETRECT, i.__associated_toolbar_id, rc=RECT.new)
        i.x = rc.left
      }
    end
  else
    @_buttons.delete(obj) if @_buttons
  end
end

#each ⇒ `Object`

each(){|objct| … } Performs the block for each object in this toolbar control as a block parameter.
The given parameter will be a Toolbar::Button or a WinControl.

# File 'lib/wrb/components/toolbar.rb', line 913

def each()
  self.buttoncount.times{|i|
    yield self[i]
  }
end

#each_buttons ⇒ `Object`

each_buttons(){|button| … } Performs the block for each button in this toolbar control as a block parameter.
The given parameter will be a Toolbar::Button.



973
974
975

# File 'lib/wrb/components/toolbar.rb', line 973

def each_buttons()
  self.buttoncount.times{|i| yield self[i]} if block_given?
end

#extendedstyle ⇒ `Object`

Retreives extended styles for this toolbar control.



936
937
938

# File 'lib/wrb/components/toolbar.rb', line 936

def extendedstyle() 
  alive? ? SendMessage(TB_GETEXTENDEDSTYLE, 0, 0) : @__extendedstyle.to_i
end

#extendedstyle=(xstyle) ⇒ `Object`

Sets the extended styles for this toolbar control.



940
941
942

# File 'lib/wrb/components/toolbar.rb', line 940

def extendedstyle=(xstyle)
  alive? ? SendMessage(TB_SETEXTENDEDSTYLE, 0, xstyle) : @__extendedstyle = xstyle
end

#hittest(x, y) ⇒ `Object`

Determines where a point lies in this toolbar control.



945
946
947

# File 'lib/wrb/components/toolbar.rb', line 945

def hittest(x, y) 
  SendMessage(TB_HITTEST, 0, POINT[x, y])
end

#idcmd2ref(id) ⇒ `Object`

Retreives an object in this toolbar control from specified id.

# File 'lib/wrb/components/toolbar.rb', line 920

def idcmd2ref(id)
  if alive?
    @_accessors.each{|k, v|
      if v.is_a?(Array)
        v.each{|i| return i if i.idcmd==id}
      else
        return v if v.idcmd==id
      end
    }
    nil
  else
    @_buttons.find{|i| i.idcmd == id}
  end
end

#idcmd=(id) ⇒ `Object`

# File 'lib/wrb/components/toolbar.rb', line 763

def idcmd=(id)
  parent.set_msgtranslator(WM_NOTIFY) unless parent.get_msgtranslator(WM_NOTIFY)
  parent.register_event(WM_SIZE, '__toolbar_resize__', 'ii', self)
  parent.register_event(id, WM_NOTIFY, TBN_GETINFOTIP, "__getinfotip__", 'xi', 
                                              self) if (self.style & TBSTYLE_TOOLTIPS) != 0
  super
end

#imagelist ⇒ `Object`

Retrieves the image list that the toolbar uses to display buttons in their default state.

# File 'lib/wrb/components/toolbar.rb', line 1006

def imagelist()
  if alive?
    himl = SendMessage(TB_GETIMAGELIST, 0, 0)
    if ret=APP.hrsc2ref(himl)
      ret
    elsif himl!=0
      pcx = API::DWORD[1]
      pcy = API::DWORD[1]
      API.ImageList_GetIconSize(himl, pcx, pcy)
      case pcy[0]
      when 24
        :systemlarge
      when 16
        :systemsmall
      else
        nil
      end
    else
      nil
    end
  else
    @__imagelist
  end
end

#imagelist=(il) ⇒ `Object`

Sets the image list that the toolbar uses to display buttons in their default state.

# File 'lib/wrb/components/toolbar.rb', line 1032

def imagelist=(il)
  if self.alive?
    if il==:systemsmall
      return if imagelist==:systemsmall
      raise "System image must be set initially." if imagelist || @__systemimagelist
      @_systembitmaps = {:noimage=>I_IMAGENONE}
      offset = SendMessage(TB_ADDBITMAP, 0, TBADDBITMAP[HINST_COMMCTRL, IDB_STD_SMALL_COLOR])
      StdBitmapSymbols.each{|k, v| @_systembitmaps[k] = offset + v}
      offset = SendMessage(TB_ADDBITMAP, 0, TBADDBITMAP[HINST_COMMCTRL, IDB_VIEW_SMALL_COLOR])
      ViewBitmapSymbols.each{|k, v| @_systembitmaps[k] = offset + v}
      offset = SendMessage(TB_ADDBITMAP, 0, TBADDBITMAP[HINST_COMMCTRL, IDB_HIST_SMALL_COLOR])
      HistBitmapSymbols.each{|k, v| @_systembitmaps[k] = offset + v}
      @__systemimagelist = [:systemsmall, SendMessage(TB_GETIMAGELIST, 0, 0)]
    elsif il==:systemlarge
      return if imagelist==:systemlarge
      raise "System image must be set initially." if imagelist || @__systemimagelist
      @_systembitmaps = {:noimage=>I_IMAGENONE}
      offset = SendMessage(TB_ADDBITMAP, 0, TBADDBITMAP[HINST_COMMCTRL, IDB_STD_LARGE_COLOR])
      StdBitmapSymbols.each{|k, v| @_systembitmaps[k] = offset + v}
      offset = SendMessage(TB_ADDBITMAP, 0, TBADDBITMAP[HINST_COMMCTRL, IDB_VIEW_LARGE_COLOR])
      ViewBitmapSymbols.each{|k, v| @_systembitmaps[k] = offset + v}
      offset = SendMessage(TB_ADDBITMAP, 0, TBADDBITMAP[HINST_COMMCTRL, IDB_HIST_LARGE_COLOR])
      HistBitmapSymbols.each{|k, v| @_systembitmaps[k] = offset + v}
      @__systemimagelist = [:systemlarge, SendMessage(TB_GETIMAGELIST, 0, 0)]
    elsif il.is_a? RWin::Imagelist
      hi = il._himagelist
      SendMessage(TB_SETIMAGELIST, 0, hi)
    elsif il.nil?
      SendMessage(TB_SETIMAGELIST, 0, 0)
    else
      raise ArgumentError, "Argument must be Imagelist or :systemsmall or :systemlarge"
    end
  else
    @__imagelist = il
  end
end

#index(obj) ⇒ `Object`

Retreives index of a specified object in this toolbar control.
An object can be a Toolbar::Button or a WinControl.

# File 'lib/wrb/components/toolbar.rb', line 844

def index(obj)
  if alive?
    SendMessage(TB_COMMANDTOINDEX, obj.idcmd, 0)
  else
    @_buttons.index(obj)
  end
end

#insert(idx, arg) ⇒ `Object`

Inserts a toolbar button or control at the specified index and argument.
If an array of [name, ibitmap, text=nil, style=0, state=0, options…] given, inserts a toolbar button.
If a symbol of :sep geven, inserts separator.
And if a WinControl given, inserts a control in this toolbar control.

# File 'lib/wrb/components/toolbar.rb', line 797

def insert(idx, arg) #; dpp idx, arg
  if arg.is_a?(Array) && arg[0].is_a?(Symbol)
    tbb = Toolbar::Button[*arg]
  elsif arg.is_a?(Toolbar::Button)
    tbb = arg
  elsif arg.is_a?(Symbol)
    raise ArgumentError, "Symbol must be `:sep'", caller(1) if arg != :sep
    tbb = Toolbar::Button[:separator, -1, nil, BTNS_SEP]
  elsif arg.is_a?(WinControl)
    @controls ||= Controls.new(self, parent)
    tbb = Toolbar::Button[arg.name, arg.w, nil, BTNS_SEP]
    @controls << arg
    class << arg
      attr_accessor :__associated_toolbar_id
    end
    self._add_accessor(arg, arg.name)
  else
    raise ArgumentError, sprintf("Unknown argument: %p", arg)
  end 
  tbb.idcmd = parent.new_control_id
  tbb.owner = self
  arg.__associated_toolbar_id = tbb.idcmd if arg.respond_to?(:__associated_toolbar_id)
  topwin = get_toplevel_win()
  topwin.set_msgtranslator(WM_COMMAND) unless topwin.get_msgtranslator(WM_COMMAND)
#      parent.set_msgtranslator(WM_COMMAND) unless parent.get_msgtranslator(WM_COMMAND)
  if tbb.style!=BTNS_SEP;
    topwin.register_event(tbb.idcmd, WM_COMMAND, BN_CLICKED, "#{tbb.name}_clicked", "h")
#        parent.register_event(tbb.idcmd, WM_COMMAND, BN_CLICKED, "#{tbb.name}_clicked", "h")
  end
  _add_accessor(tbb, tbb.name)
  if alive? 
    SendMessage(TB_INSERTBUTTON, idx, tbb._tbbutton)
    if @controls
      @controls.each{|i|
        SendMessage(TB_GETRECT, i.__associated_toolbar_id, rc=RECT.new)
        i.x = rc.left
      }
    end
    autosize
  else
    @_buttons.insert(idx, tbb)
  end
  tbb
end

#tooltips=(ttp) ⇒ `Object`

Associates a tooltip control with a toolbar.
Deprecated. Use ‘TBSTYLE_TOOLTIPS’ style and ‘Tip#infotip=’ method instead.

# File 'lib/wrb/components/toolbar.rb', line 1071

def tooltips=(ttp) 
  if alive?
    SendMessage(TB_SETTOOLTIPS, ttp ? ttp._hwnd : 0, 0)
  else
    @__tooltips = ttp
  end
end

Class: WR::Toolbar

Overview

Defined Under Namespace

Constant Summary collapse

Constants included from ModParent

Constants included from RC

Constants included from ModCommCtrl

Constants included from ModBaseWin

Instance Attribute Summary collapse

Attributes included from ModAccessor

Attributes inherited from WinControl

Attributes included from ModBaseWin

Attributes included from ModCreateWin

Instance Method Summary collapse

Methods included from ModFormDesigner

Methods included from ModAutoloading

Methods included from ModAccessor

Methods included from ModParent

Methods included from RC

Methods included from ModCommCtrl

Methods inherited from WinControl

Methods inherited from Window

Methods included from ModBaseWin

Methods inherited from RWin::Window

Constructor Details

#initialize(*args) ⇒ Toolbar

Dynamic Method Handling

Instance Attribute Details

#_infotips ⇒ Object (readonly)

#_systembitmaps ⇒ Object (readonly)

Instance Method Details

#<<(*arg) ⇒ Object

#[](idx) ⇒ Object

#[]=(idx, *args) ⇒ Object

#__fd_add_ctrl(x, y, ct) ⇒ Object

#__fd_edit_item(lv, idx, subitem, ed) ⇒ Object

#__fd_item_loaded(item, asrc) ⇒ Object

#__fd_on_delete_this ⇒ Object

#__fd_on_deleteitem(lv, idx) ⇒ Object

#__fd_on_insertitem(lv, idx) ⇒ Object

#__fd_on_lv_rclick(lv, idx) ⇒ Object

#__fd_output_items(lns, curln, indent) ⇒ Object

#__fd_recreate_this ⇒ Object

#__fd_set_lvitem(lv, ilist) ⇒ Object

#__fd_update_lv(lv) ⇒ Object

#addbitmap(bmp, n = 0) ⇒ Object

#autosize ⇒ Object

#buttoncount ⇒ Object

#buttonsize ⇒ Object

#buttonsize=(arg) ⇒ Object

#create ⇒ Object

#delete(obj = nil) ⇒ Object

#each ⇒ Object

#each_buttons ⇒ Object

#extendedstyle ⇒ Object

#extendedstyle=(xstyle) ⇒ Object

#hittest(x, y) ⇒ Object

#idcmd2ref(id) ⇒ Object

#idcmd=(id) ⇒ Object

#imagelist ⇒ Object

#imagelist=(il) ⇒ Object

#index(obj) ⇒ Object

#insert(idx, arg) ⇒ Object

#tooltips=(ttp) ⇒ Object