Esempio n. 1
0
//---------------------------------------------------------------------------
TElTreeItem* TfrmObjectList::FindObjectByType(int type, void *obj)
{
    for ( TElTreeItem* node = tvItems->Items->GetFirstNode(); node; node = node->GetNext())
        if (!node->Parent && (node->Data == (void*)type)){
            for (TElTreeItem* chield = node->GetFirstChild(); chield; chield = node->GetNextChild(chield))
                if (chield->Data==obj) return chield;
            break;
        }
    return 0;
}