|
open
|
|
Full name
|
pfc_w_dwpropertyservices.open
|
Access
|
public
|
Extend of
|
|
Return value
|
|
Prototype
|
event open()
|
Name
|
Datatype
|
ldw_obj
|
u_dw
|
li_rc
|
integer
|
li_row
|
integer
|
ls_dataobject
|
string
|
event open;call super::open;//////////////////////////////////////////////////////////////////////////////
//
// Event: open
//
// Description:
// Open the Property window.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0 Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
// Copyright © 1996-1997 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.
//
//////////////////////////////////////////////////////////////////////////////
integer li_rc
integer li_row
u_dw ldw_obj
string ls_dataobject
// Get the Message.
If IsValid(Message.PowerObjectParm) Then
If Message.PowerObjectParm.ClassName() = inv_attrib.ClassName() Then
inv_attrib = Message.PowerObjectParm
End If
End If
// There is nothing to update.
ib_disableclosequery = True
of_SetUpdateable(False)
// Validate.
If IsNull(inv_attrib) Or Not IsValid(inv_attrib) Then
Close (this)
End If
If IsNull(inv_attrib.idw_requestor) or Not IsValid(inv_attrib.idw_requestor) Then
Close(this)
End If
// If not type u_dw Then Close(This)
// Place the window.
If IsValid(inv_attrib.iw_main) Then
this.Move (inv_attrib.iw_main.X + 200, inv_attrib.iw_main.Y + 250)
End If
tab_property.Event pfc_PropertyStart(inv_attrib)
tab_property.Event pfc_PropertyOpen()
end event