//--------------------------------------------------------------------------- #include #pragma hdrstop #include "elem_Frm.h" #include "MainForm.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TInsertElement_Frm *InsertElement_Frm; //--------------------------------------------------------------------------- __fastcall TInsertElement_Frm::TInsertElement_Frm(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TInsertElement_Frm::FormShow(TObject *Sender) { Cardinal uCount, x; LEADDicom1 = MainFrm->LEADDicom1; uCount = LEADDicom1->GetTagCount(); for(x=0; xFindIndexTag(x); ComboBox_Tags->Items->AddObject(LEADDicom1->CurrentTag->Name, (TObject *)(LEADDicom1->CurrentTag->Code)); } ComboBox_Tags->ItemIndex = 0; } void __fastcall TInsertElement_Frm::OKBtnClick(TObject *Sender) { int nRet, nInsertIndex; TTreeNode *NodeX; Cardinal uTag; /* insert the new element */ uTag = Cardinal(ComboBox_Tags->Items->Objects[ComboBox_Tags->ItemIndex]); LEADDicom1->FindTag(uTag); nInsertIndex=ELEMENT_INDEX_MAX; nRet = LEADDicom1->InsertElement(CheckBox_InsertAsChild->Checked, uTag, LEADDicom1->CurrentTag->VR, CheckBox_ElementIsAFolder->Checked, nInsertIndex); if(nRet != SUCCESS) { ShowMessage("Error Inserting Element"); ModalResult = mrNone; } else { /* update the tree view */ NodeX = MainFrm->TreeView1->Selected; if(CheckBox_InsertAsChild->Checked) NodeX = MainFrm->TreeView1->Items->AddChild(NodeX, LEADDicom1->CurrentTag->Name); else NodeX = MainFrm->TreeView1->Items->Add(NodeX, LEADDicom1->CurrentTag->Name); NodeX->Data = Pointer(LEADDicom1->CurrentElement->hElement); if(CheckBox_ElementIsAFolder->Checked) { NodeX->ImageIndex = IMAGE_FOLDER_CLOSED; NodeX->SelectedIndex = IMAGE_FOLDER_CLOSED; } else { NodeX->ImageIndex = IMAGE_ITEM; NodeX->SelectedIndex = IMAGE_ITEM; } } }