Class: WR::Tabctrl

Inherits:

WinControl

Object
Data
RWin::Window
Window
WinControl
WR::Tabctrl

show all

Extended by:: ModFormDesigner

Includes:: ModAccessor, ModCommCtrl, ModParent

Defined in:: lib/wrb/components/tabctrl.rb,
lib/wrb/applications/frmdesigner/controls/Tabctrl.rb

Overview

This control is analogous to the dividers in a notebook or the labels in a file cabinet.
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: Tab

Constant Summary collapse

TCITEMHEADER =

API.defstruct "
UINT mask;
UINT lpReserved1;
UINT lpReserved2;
LPTSTR pszText;
int cchTextMax;
int iImage;"

TCITEM =

API.defstruct "
UINT   mask;
DWORD  dwState;
DWORD  dwStateMask;
LPTSTR pszText;
int    cchTextMax;
int    iImage;
LPARAM lParam;"

TCHITTESTINFO =

API.defstruct "
POINT pt;
UINT flags;"

TCKEYDOWN =

API.defstruct "
NMHDR hdr;
WORD wVKey;
UINT flags;"

NMTCKEYDOWN =

API.defstruct "
NMHDR hdr;
WORD  wVKey;
UINT  flags;"

WinStyles =

{
  :bottom            => TCS_BOTTOM,
  :buttons           => TCS_BUTTONS,
  :fixedwidth        => TCS_FIXEDWIDTH,
  :focusnever        => TCS_FOCUSNEVER,
  :focusonbuttondown => TCS_FOCUSONBUTTONDOWN,
  :flatbuttons       => TCS_FLATBUTTONS,
  :forceiconleft     => TCS_FORCEICONLEFT,
  :forcelabelleft    => TCS_FORCELABELLEFT,
  :hottrack          => TCS_HOTTRACK,
  :ownerdrawfixed    => TCS_OWNERDRAWFIXED,
  :multiline         => TCS_MULTILINE,
  :multiselect       => TCS_MULTISELECT,
  :raggedright       => TCS_RAGGEDRIGHT,
  :right             => TCS_RIGHT,
  :rightjustify      => TCS_RIGHTJUSTIFY,
  :scrollopposite    => TCS_SCROLLOPPOSITE,
  :singleline        => TCS_SINGLELINE,
  :tabs              => TCS_TABS,
  :tooltips          => TCS_TOOLTIPS,
  :vertical          => TCS_VERTICAL,
}

TabExStyles =

{
  :flatseparators    => TCS_EX_FLATSEPARATORS,
  :registerdrop      => TCS_EX_REGISTERDROP,
  :noflatseparators  => ~TCS_EX_FLATSEPARATORS
}

PreDefinedEvents =

{
  :click           => [WM_NOTIFY, NM_CLICK, 'xs', NMMOUSE],
  :dblclk          => [WM_NOTIFY, NM_DBLCLK, 'xs', NMMOUSE],
  :focuschange     => [WM_NOTIFY, TCN_FOCUSCHANGE, 'xs', NMHDR],
  :keydown         => [WM_NOTIFY, TCN_KEYDOWN, 'xs', NMTCKEYDOWN],
  :rclick          => [WM_NOTIFY, NM_RCLICK, 'xs', NMMOUSE],
  :rdblclk         => [WM_NOTIFY, NM_RDBLCLK, 'xs', NMMOUSE],
  :releasedcapture => [WM_NOTIFY, NM_RELEASEDCAPTURE, 'xs', NMHDR],
  :selchange       => [WM_NOTIFY, TCN_SELCHANGE, 'xs', NMHDR],
  :selchanging     => [WM_NOTIFY, TCN_SELCHANGING, 'xs', NMHDR],
#     :getobject       => [WM_NOTIFY, TCN_GETOBJECT, 'xs', NMOBJECTNOTIFY], # COM
}

DefaultEvents = :getobject => [WM_NOTIFY, TCN_GETOBJECT, ‘xs’, NMOBJECTNOTIFY], # COM

[
  :selchange # ???_selchange(arg)
]

Instance Attribute Summary collapse

#_ar_data ⇒ Object readonly

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

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 control on this tab control.
Syntax is same as Controls#<< .
#[](idx) ⇒ Object

Retreives specified index of tab in this tab control.
#[]=(idx, *args) ⇒ Object

[]=(index, length=1, *args) Inserts and replaces tabs by specified index and length with arguments.
#__fd_edit_item(lv, idx, subitem, ed) ⇒ Object
#__fd_item_loaded(item, asrc) ⇒ Object
#__fd_on_additem(lv, idx, mnu, id) ⇒ Object
#__fd_on_addnode(lv, idx) ⇒ Object
#__fd_on_delete_this ⇒ Object
#__fd_on_deleteitem(lv, idx) ⇒ Object
#__fd_on_lv_rclick(lv, idx) ⇒ Object
#__fd_output_items(lns, curln, indent) ⇒ Object
#__fd_set_lvitem(lv, ilist) ⇒ Object
#__fd_update_lv(lv) ⇒ Object
#__move(x, y, w, h) ⇒ Object
#clear ⇒ Object

Clears all tabs and removes associated controls.
#count ⇒ Object

Retreives count of tabs in this tab control.
#create ⇒ Object
#cursel ⇒ Object

Determines the currently selected tab in this tab control.
#cursel=(args) ⇒ Object

Selects a tab in a tab control.
#delete(idx = nil) ⇒ Object

If given index, deletes a tab specified index and removes associated control from it, otherwize deletes self.
#each ⇒ Object

each(){|tab| … } Performs the block for each tab in this as a block parameter.
#extendedstyle ⇒ Object

Retrieves the extended styles that are currently in use for this tab control.
#extendedstyle=(xs) ⇒ Object

Sets the extended styles that this tab control will use.
#focused ⇒ Object

Only for TCS_BUTTONS style.
#focused=(fc) ⇒ Object

Only for TCS_BUTTONS style.
#hittest(x, y, flag = TCHT_ONITEM) ⇒ Object

Determines which tab, if any, is at a specified screen position.
Returns a TCHITTESTINFO structure.
#idcmd=(id) ⇒ Object
#imagelist ⇒ Object

Retrieves the image list associated with this tab control.
#imagelist=(il) ⇒ Object

Assigns an image list to this tab control.
#initialize(*args) ⇒ Tabctrl constructor

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

Inserts a new tab in this tab control.
Give an array of [text, image, data] or a Tabctrl::Tab.
#mintabwidth ⇒ Object

Gets the minimum width of tabs.
#mintabwidth=(w) ⇒ Object

Sets the minimum width of tabs in this tab control.
#padding ⇒ Object

Gets the padding of this tab control.
#padding=(args) ⇒ Object

Sets the padding around each tab’s icon and label in this tab control.
#register_event(*args) ⇒ Object
#tabs ⇒ Object

Retreives Tabctrl::Tabs.
#tabs=(ar) ⇒ Object

Sets multiple tabs to this tab control.
#tooltips ⇒ Object

Retrieves the tooltip control associated with this tab control.
#tooltips=(tt) ⇒ Object

Assigns a tooltip control to this tab control.

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=, #idcmd2ref, #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

[], #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, #registered_messages, #resize, #screenpos, #set_accelerator, #set_msgtranslator, #setorder, #unregister_event, #visible, #visible=, #w, #w=, #windowsize, #x, #x=, #y, #y=

Constructor Details

#initialize(*args) ⇒ `Tabctrl`

Returns a new instance of Tabctrl.

# File 'lib/wrb/components/tabctrl.rb', line 375

def initialize(*args)
  class << (@_tabs = []); attr_accessor :owner end
  @_tabs.owner = self
  super
  @_classname = 'SysTabControl32'
  self.style |= TCS_HOTTRACK
  @_acceptable_events = PreDefinedEvents.dup
  @_ar_data = []
end

Dynamic Method Handling

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

Instance Attribute Details

#_ar_data ⇒ `Object` (readonly)

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

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



373
374
375

# File 'lib/wrb/components/tabctrl.rb', line 373

def _ar_data
  @_ar_data
end

Instance Method Details

#<<(arg) ⇒ `Object`

Adds control on this tab control.
Syntax is same as Controls#<< .

# File 'lib/wrb/components/tabctrl.rb', line 490

def <<(arg)
  # Tabctl sends all message in the client area to parent, so no need to set parent.
  @controls ||= Controls.new(self)
  if arg.is_a?(WinControl)
    @controls << arg
    self._add_accessor(arg, arg.name)
#       @_parent.controls._add_accessor(arg, arg.name)  # Which do you like?
    arg
  else # add new tab and page
    self[self.count, 0] = *arg
    self.tabs
  end
end

#[](idx) ⇒ `Object`

Retreives specified index of tab in this tab control.



505
506
507

# File 'lib/wrb/components/tabctrl.rb', line 505

def [](idx)
  @_tabs[idx]
end

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

[]=(index, length=1, *args) Inserts and replaces tabs by specified index and length with arguments.

# File 'lib/wrb/components/tabctrl.rb', line 511

def []=(idx, *args)
  case args.size
  when 1
    num = 1; args=args[0]
  when 2
    num, args = args
  end
  return if args.empty? || args==[nil]
  anum = args.size
  j = 0
  item = args[0].is_a?(String) ? [args.shift] : [] #; dpp args
  while i=args.shift
    if i.is_a?(String) #; dpp i, j, item
      unless item.empty?
        insert(idx+j, item)
        j += 1
      end
      item = []
    elsif i.is_a?(Array) || i.is_a?(Tab) # ; dpp i, j, item
      unless item.empty?
        insert(idx+j, item)
        j += 1
      end
      insert(idx+j, i)
      j += 1
      item = []
      next
    elsif i.nil?
      next
    end
    item << i
  end
  insert(idx+j, item) if !item.empty? #; dpp @_pages,idx, num, ar_pages, anum
  refresh if alive?
end

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

# File 'lib/wrb/applications/frmdesigner/controls/Tabctrl.rb', line 34

def __fd_edit_item(lv, idx, subitem, ed)
  str = lv[idx].text
  data = lv[idx].data
  stbr = lv.get_toplevel_win._stbr1
  case subitem
  when 0
    self[data].text = ed.text unless ed.text.empty?
  when 1
    self[data].image = ed.text.to_i unless ed.text.empty?
  when 2
    ed.hide
  end
  refresh
  __fd_update_lv(lv)
end

#__fd_item_loaded(item, asrc) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/controls/Tabctrl.rb', line 107

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

#__fd_on_additem(lv, idx, mnu, id) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/controls/Tabctrl.rb', line 64

def __fd_on_additem(lv, idx, mnu, id)
  self[lv[idx].data] << controls.__send__(mnu.ctrls[id].caption.intern)
  __fd_update_lv(lv)
end

#__fd_on_addnode(lv, idx) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/controls/Tabctrl.rb', line 69

def __fd_on_addnode(lv, idx)
  self << "Tab#{count+1}"
  __fd_update_lv(lv)
end

#__fd_on_delete_this ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/controls/Tabctrl.rb', line 112

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/Tabctrl.rb', line 74

def __fd_on_deleteitem(lv, idx)
  return if idx < 0
  tabidx = lv[idx].data
  if lv[idx][1].empty?
    self[tabidx].delete
  else
    self[tabidx].controls.delete(self.__send__(("_"+lv[idx][1]).intern))
  end
  __fd_update_lv(lv)
end

#__fd_on_lv_rclick(lv, idx) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/controls/Tabctrl.rb', line 50

def __fd_on_lv_rclick(lv, idx)
  if idx < 0
    [:addnode, "Add Tab"]
  else
    ar = controls.inject([]){|r, i| r << i.name.to_s unless i.respond_to?(:_owner); r}
    a = []
    count.times{|i| self[i].controls.each{|j| a << j.name.to_s}}
    ar -= a
    ar.map!{|i| [:additem, i]}.flatten!
    mn = Menu[:ctrls, "Add Control", *ar]
    [:addnode, "Add Tab", mn, :sep, :deleteitem, "Remove"]
  end
end

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

# File 'lib/wrb/applications/frmdesigner/controls/Tabctrl.rb', line 85

def __fd_output_items(lns, curln, indent)
  if @_tabs.empty?
    __fd_delete_items_srcs(lns)
  else
    ps = __fd_get_parents_str2
#        ar = @_tabs.inject([]){|a, i| 
#          a << "#{ps} << " + (i.image<0 ? "\"#{i.text}\"" : "[\"#{i.text}\", #{i.image}]")
#        }
#        curln = __fd_set_items_srcs(lns, curln, indent, ar)
    ar = @_tabs.inject([]){|a, i| 
      a << (i.image<0 ? "\"#{i.text}\"" : "[\"#{i.text}\", #{i.image}]")
    }
    s = ar.size==1 ? ar[0] : "[#{ar.join(', ')}]"
    curln = __fd_set_items_srcs(lns, curln, indent, ["#{ps} << #{s}"])
    
  end
  count.times{|i| 
    self[i].controls.each{|j| j.__fd_tmp_parent_str = "#{ps}[#{i}]"}
  }      
  curln
end

#__fd_set_lvitem(lv, ilist) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/controls/Tabctrl.rb', line 26

def __fd_set_lvitem(lv, ilist)
  lv.viewmode = :reportview
  lv.imagelist = ilist
  lv.style &= ~LVS_NOCOLUMNHEADER
  lv.columns = ['TabText', 104], ['Img', 32], ['Controls', 128]
  __fd_update_lv(lv)
end

#__fd_update_lv(lv) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/controls/Tabctrl.rb', line 14

def __fd_update_lv(lv)
  lv.clear
  @_tabs.each_with_index{|tab, idx|
    lv << "#{tab.text}\t#{tab.image>=0 ? tab.image : ''}"
    lv.last.data = idx
    self[idx].controls.each{|i| 
      lv << "\t\t#{i.name}"
      lv.last.data = idx
    }
  }
end

#__move(x, y, w, h) ⇒ `Object`

# File 'lib/wrb/components/tabctrl.rb', line 657

def __move(x, y, w, h)
  super
  @controls.each{|i| i.__move(0, 0, self.w, self.h)} if @controls
end

#clear ⇒ `Object`

Clears all tabs and removes associated controls.

# File 'lib/wrb/components/tabctrl.rb', line 483

def clear()
  alive? && SendMessage(TCM_DELETEALLITEMS, 0, 0)
  @_tabs.clear
end

#count ⇒ `Object`

Retreives count of tabs in this tab control.



462
463
464

# File 'lib/wrb/components/tabctrl.rb', line 462

def count() #; dpp @_tabs
  alive? ? SendMessage(TCM_GETITEMCOUNT, 0, 0) : @_tabs.size
end

#create ⇒ `Object`

# File 'lib/wrb/components/tabctrl.rb', line 391

def create()
  super
  SetWindowSubclass()
  self.imagelist = @_imagelist if @_imagelist
  self.cursel = @_cursel if @_cursel
  self.focused = @_focused if @_focused
  self.tooltips = @_tooltips if @_tooltips
  self.extendedstyle = @_extendedstyle if @_extendedstyle
  self.padding = @_padding if @_padding
  self.mintabwidth = @_mintabwidth if @_mintabwidth
  self.tabs = @_tabs if @_tabs
end

#cursel ⇒ `Object`

Determines the currently selected tab in this tab control.



562
563
564

# File 'lib/wrb/components/tabctrl.rb', line 562

def cursel() 
  alive? ? SendMessage(TCM_GETCURSEL, 0, 0) : @_cursel.to_i
end

#cursel=(args) ⇒ `Object`

Selects a tab in a tab control.

# File 'lib/wrb/components/tabctrl.rb', line 566

def cursel=(args)
  sel, with_msg = args
  if alive?
    SendMessage(TCM_SETCURSEL, sel, 0)
    if with_msg.nil? || with_msg
      SendMessage(WM_NOTIFY, 0, NMHDR[_hwnd, idcmd, TCN_SELCHANGE])
    end
  else
    @_cursel = sel
  end
end

#delete(idx = nil) ⇒ `Object`

If given index, deletes a tab specified index and removes associated control from it, otherwize deletes self.

# File 'lib/wrb/components/tabctrl.rb', line 444

def delete(idx=nil)
  if idx.nil?
    @controls.each{|i| i.delete}
    @_parent.controls.delete(self)
    return
  end
  if alive?
    return if idx >= self.count
    if n=@_ar_data.index(self[idx].data)
      @_ar_data.delete_at(n)
    end
    SendMessage(TCM_DELETEITEM, idx, 0)
    self.refresh
  end
  @_tabs.delete_at(idx)
end

#each ⇒ `Object`

each(){|tab| … } Performs the block for each tab in this as a block parameter.



644
645
646

# File 'lib/wrb/components/tabctrl.rb', line 644

def each()
  tabs.each{|tb| yield tb}
end

#extendedstyle ⇒ `Object`

Retrieves the extended styles that are currently in use for this tab control.

# File 'lib/wrb/components/tabctrl.rb', line 597

def extendedstyle()
  if alive?
    SendMessage(TCM_GETEXTENDEDSTYLE, 0, 0)
  else
    @_extendedstyle.to_i
  end
end

#extendedstyle=(xs) ⇒ `Object`

Sets the extended styles that this tab control will use.

# File 'lib/wrb/components/tabctrl.rb', line 605

def extendedstyle=(xs)
  if alive? #; dp "@%p", xs
    SendMessage(TCM_SETEXTENDEDSTYLE, 0, xs)
  else
    @_extendedstyle = xs
  end
end

#focused ⇒ `Object`

Only for TCS_BUTTONS style



579
580
581

# File 'lib/wrb/components/tabctrl.rb', line 579

def focused() 
  alive? ? SendMessage(TCM_GETCURFOCUS, 0, 0) : @_focused.to_i
end

#focused=(fc) ⇒ `Object`

Only for TCS_BUTTONS style



583
584
585

# File 'lib/wrb/components/tabctrl.rb', line 583

def focused=(fc)
  alive? ? SendMessage(TCM_SETCURFOCUS, fc, 0) : @_focused = fc
end

#hittest(x, y, flag = TCHT_ONITEM) ⇒ `Object`

Determines which tab, if any, is at a specified screen position.
Returns a TCHITTESTINFO structure.



652
653
654

# File 'lib/wrb/components/tabctrl.rb', line 652

def hittest(x, y, flag=TCHT_ONITEM)
  SendMessage(TCM_HITTEST, 0, TCHITTESTINFO[x, y, flag])
end

#idcmd=(id) ⇒ `Object`

# File 'lib/wrb/components/tabctrl.rb', line 385

def idcmd=(id)
  @_parent.set_msgtranslator(WM_NOTIFY) unless @_parent.get_msgtranslator(WM_NOTIFY)
  @_parent.register_event(id, WM_NOTIFY, TCN_SELCHANGE, "__selchanged__", 'xs', NMHDR, self) #refrection
  super
end

#imagelist ⇒ `Object`

Retrieves the image list associated with this tab control.



548
549
550

# File 'lib/wrb/components/tabctrl.rb', line 548

def imagelist() 
  alive? ? APP.hrsc2ref(SendMessage(TCM_GETIMAGELIST, 0, 0)) || nil : @_imagelist
end

#imagelist=(il) ⇒ `Object`

Assigns an image list to this tab control.

# File 'lib/wrb/components/tabctrl.rb', line 552

def imagelist=(il)
  il = Imagelist.loadb64(il) if il.is_a?(String)
  if alive? 
    SendMessage(TCM_SETIMAGELIST, 0, il ? il._himagelist : 0)
  else
    @_imagelist = il
  end
end

#insert(idx, arg) ⇒ `Object`



427
428
429

# File 'lib/wrb/components/tabctrl.rb', line 427

def insert(idx, arg)
  insert_tab(idx, arg)
end

#insert_tab(idx, arg) ⇒ `Object`

Inserts a new tab in this tab control.
Give an array of [text, image, data] or a Tabctrl::Tab

# File 'lib/wrb/components/tabctrl.rb', line 414

def insert_tab(idx, arg) #;dpp idx, arg
  if arg.is_a?(Array)
    tab = Tab.new(self, *arg)
  elsif arg.is_a?(Tab)
    tab = arg
    tab.owner = self
  else
    raise ArgumentError, "Argument must be a Tab or an Array."
  end
  @_tabs.insert(idx, tab)
  SendMessage(TCM_INSERTITEM, idx, tab.tcitem) if alive?
  tab
end

#mintabwidth ⇒ `Object`

Gets the minimum width of tabs.



614
615
616

# File 'lib/wrb/components/tabctrl.rb', line 614

def mintabwidth()
  @_mintabwidth
end

#mintabwidth=(w) ⇒ `Object`

Sets the minimum width of tabs in this tab control.

# File 'lib/wrb/components/tabctrl.rb', line 618

def mintabwidth=(w)
  @_mintabwidth = w
  SendMessage(TCM_SETMINTABWIDTH, 0, w.nil? ? -1 : w) if alive?
end

#padding ⇒ `Object`

Gets the padding of this tab control.



624
625
626

# File 'lib/wrb/components/tabctrl.rb', line 624

def padding()
  @_padding
end

#padding=(args) ⇒ `Object`

Sets the padding around each tab’s icon and label in this tab control.

# File 'lib/wrb/components/tabctrl.rb', line 628

def padding=(args) # Write only
  @_padding = args
  if alive?
    px, py = args.nil? ? [0, 0] : args
    raise ArgumentError, "Argument must be pair of x, y pixcels" unless py
    SendMessage(TCM_SETPADDING, 0, MAKELPARAM(px, py))
  end
end

#register_event(*args) ⇒ `Object`

# File 'lib/wrb/components/tabctrl.rb', line 404

def register_event(*args)
  if !@_setsubclass && !args.last.is_a?(RWin::Window) &&
     (args[1]==WM_COMMAND || args[1]==WM_NOTIFY)
    args[6] = get_toplevel_win # forwarding to toplevel
  end
  super *args
end

#tabs ⇒ `Object`

Retreives Tabctrl::Tabs

# File 'lib/wrb/components/tabctrl.rb', line 467

def tabs()
  #r = alive? ? (0..count-1).inject([]){|r, i| r << Tab.new(self).update(i)} : @_tabs
  @_tabs
end

#tabs=(ar) ⇒ `Object`

Sets multiple tabs to this tab control. Give an array of [[text, image, data], … ] or an array of Tabctrl::Tabs.

# File 'lib/wrb/components/tabctrl.rb', line 473

def tabs=(ar)
  ar = [ar] unless ar.is_a?(Array) #; dpp ar, @_tabs, count
  if alive?
    ar = ar.dup
    self.clear
  end
  self[0, count] = ar unless ar.empty?
end

#tooltips ⇒ `Object`

Retrieves the tooltip control associated with this tab control.



588
589
590

# File 'lib/wrb/components/tabctrl.rb', line 588

def tooltips()
  alive? ? APP.hwnd2ref(SendMessage(TCM_GETTOOLTIPS, 0, 0)) : @_tooltips
end

#tooltips=(tt) ⇒ `Object`

Assigns a tooltip control to this tab control.



592
593
594

# File 'lib/wrb/components/tabctrl.rb', line 592

def tooltips=(tt)
  alive? ? SendMessage(TCM_SETTOOLTIPS, 0, tt.hWnd) : @_tooltips = tt
end

Class: WR::Tabctrl

Overview

Defined Under Namespace

Constant Summary collapse

Constants included from ModParent

Constants included from RC

Constants included from ModCommCtrl

Constants inherited from WinControl

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) ⇒ Tabctrl

Dynamic Method Handling

Instance Attribute Details

#_ar_data ⇒ Object (readonly)

Instance Method Details

#<<(arg) ⇒ Object

#[](idx) ⇒ Object

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

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

#__fd_item_loaded(item, asrc) ⇒ Object

#__fd_on_additem(lv, idx, mnu, id) ⇒ Object

#__fd_on_addnode(lv, idx) ⇒ Object

#__fd_on_delete_this ⇒ Object

#__fd_on_deleteitem(lv, idx) ⇒ Object

#__fd_on_lv_rclick(lv, idx) ⇒ Object

#__fd_output_items(lns, curln, indent) ⇒ Object

#__fd_set_lvitem(lv, ilist) ⇒ Object

#__fd_update_lv(lv) ⇒ Object

#__move(x, y, w, h) ⇒ Object

#clear ⇒ Object

#count ⇒ Object

#create ⇒ Object

#cursel ⇒ Object

#cursel=(args) ⇒ Object

#delete(idx = nil) ⇒ Object

#each ⇒ Object

#extendedstyle ⇒ Object

#extendedstyle=(xs) ⇒ Object

#focused ⇒ Object

#focused=(fc) ⇒ Object

#hittest(x, y, flag = TCHT_ONITEM) ⇒ Object

#idcmd=(id) ⇒ Object

#imagelist ⇒ Object

#imagelist=(il) ⇒ Object

#insert(idx, arg) ⇒ Object

#insert_tab(idx, arg) ⇒ Object

#mintabwidth ⇒ Object

#mintabwidth=(w) ⇒ Object

#padding ⇒ Object

#padding=(args) ⇒ Object

#register_event(*args) ⇒ Object

#tabs ⇒ Object

#tabs=(ar) ⇒ Object

#tooltips ⇒ Object

#tooltips=(tt) ⇒ Object