Module: VRStatusbarDockable

Defined in:
lib/vr/vrcomctl.rb

Instance Method Summary collapse

Instance Method Details

#addStatusbar(caption = "", height = 10, control = VRStatusbar) ⇒ Object 



1359
1360
1361
1362
1363
1364
1365
1366
 
# File 'lib/vr/vrcomctl.rb', line 1359

def addStatusbar(caption="",height=10,control=VRStatusbar)
  @_vr_statusbar=addControl control,"statusbar",caption,10,10,10,height
  if self.visible? then
    a=self.clientrect
    sendMessage WMsg::WM_SIZE,0,MAKELPARAM(a[2]-a[0],a[3]-a[1])
  end
  @statusbar = @_vr_statusbar 
end

#self_vr_statusbardock(w, h) ⇒ Object 



1368
1369
1370
1371
1372
1373
 
# File 'lib/vr/vrcomctl.rb', line 1368

def self_vr_statusbardock(w,h)
  if defined?(@_vr_statusbar) then
    s=@_vr_statusbar
    s.move 0, self.h - s.h, self.w, self.h - s.h
  end
end

#statusbardockableinit ⇒ Object

VRStatusbarDockable

This is a module to be added into VRForm for a statusbar that follows form resizing.

Method

— addStatusbar(caption=”,height=10,control=VRStatusbar)

Adds a statusbar on a form. If you have another statusbar control, you may
set it for ((|control|)).



1349
1350
1351
1352
 
# File 'lib/vr/vrcomctl.rb', line 1349

def statusbardockableinit
  addHandler WMsg::WM_SIZE, "vr_statusbardock", MSGTYPE::ARGLINTINT,nil
  acceptEvents [WMsg::WM_SIZE]
end

#vrinit ⇒ Object 



1354
1355
1356
1357
 
# File 'lib/vr/vrcomctl.rb', line 1354

def vrinit
  super
  statusbardockableinit
end