|
constructor
|
|
Full name
|
pfc_u_st_splitbar.constructor
|
Access
|
public
|
Extend of
|
|
Return value
|
|
Prototype
|
event constructor()
|
Name
|
Datatype
|
lpo_parent
|
powerobject
|
event constructor;//////////////////////////////////////////////////////////////////////////////
//
// Event: constructor
//
// Arguments: None.
//
// Returns: None.
//
// Description: SplitBar Object.
// Initialize required information by the object.
//
// *Note: The Style and the Width (this.Width for a VerticalBar and this.Height
// for a HorizontalBar) are not changeable past this point. For example,
// an outside entity should not change this.Height for a HorizontalBar.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0 Initial version - Claudio J. Quant
//
//////////////////////////////////////////////////////////////////////////////
//
// Copyright © 1996 Sybase, Inc. and its subsidiaries. All rights reserved.
// Any distribution of the PowerBuilder Foundation Classes (PFC)
// source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////
powerobject lpo_parent
// Determine if this object is supported.
ib_supported = of_IsSupported()
// Defined the object to be on Top of other objects.
this.SetPosition(ToTop!)
// Set the object to the Non-Moving Split bar color.
this.BackColor = il_barcolor
// Get and store the parent object.
lpo_parent = this.GetParent()
CHOOSE CASE lpo_parent.TypeOf()
CASE Window!
iw_parent = lpo_parent
CASE UserObject!
iuo_parent = lpo_parent
CASE Tab!
itab_parent = lpo_parent
END CHOOSE
If ib_supported Then
// Determine object attributes by looking at the object size.
If this.Height >= this.Width Then
ii_style = VERTICAL
this.Pointer = is_verticalpointer
ii_barwidth = this.Width
Else
ii_style = HORIZONTAL
this.Pointer = is_horizontalpointer
ii_barwidth = this.Height
End If
Else
// Since it is not supported - hide the object.
this.Enabled = False
this.Visible = False
this.Resize(0,0)
End If
end event
Name
|
Owner
|
powerobject.getparent |
powerobject
|
powerobject.typeof |
powerobject
|
windowobject.resize |
windowobject
|
dragobject.setposition |
dragobject
|
pfc_u_st_splitbar.of_issupported |
pfc_u_st_splitbar
|