//---------------------------------------------------------------------------
bool CLevelTool::OnCreate()
{
inherited::OnCreate();
target = OBJCLASS_DUMMY;
sub_target = -1;
pCurTool = 0;
ssRBOnly << ssRight;
paParent = fraLeftBar->paFrames; VERIFY(paParent);
m_Flags.set (flChangeAction,FALSE);
m_Flags.set (flChangeTarget,FALSE);
// scene creating
Scene->OnCreate ();
// change target to Object
ExecCommand (COMMAND_CHANGE_TARGET, OBJCLASS_SCENEOBJECT);
m_Props = TProperties::CreateForm( "Object Inspector",
0,
alClient,
TOnModifiedEvent(this,&CLevelTool::OnPropsModified),
0,
TOnCloseEvent(this,&CLevelTool::OnPropsClose),
TProperties::plItemFolders|TProperties::plFolderStore|TProperties::plNoClearStore|TProperties::plFullExpand);
pObjectListForm = TfrmObjectList::CreateForm();
return true;
}
void CCustomPreferences::OnCreate()
{
Load ();
m_ItemProps = TProperties::CreateModalForm("Editor Preferences",false,0,0,TOnCloseEvent(this,&CCustomPreferences::OnClose),TProperties::plItemFolders|TProperties::plFullSort); //TProperties::plFullExpand TProperties::plFullSort TProperties::plNoClearStore|TProperties::plFolderStore|
}
