Beispiel #1
0
//---------------------------------------------------------------------------
void __fastcall TFrm1010::execBtCancelExecute(TObject *Sender)
{
	TTreeNode *Node;
	TTreeNode *Prew = NULL;
	if (CadMenu->State == dsInsert) {
		Node = TreeMenu->Selected;
		Prew = Node->getPrevSibling();
		if(Prew == NULL) {
			Prew = Node->GetPrev();
		}
		if (Node) {
			TreeMenu->Items->Delete(Node);
		}
	}
	CadMenu->Cancel();
	pWorkEdition->SetWorkEdition(false,true,AppConfig->Colors->Disabled);
	HabilitarItens(false);
	ico_index->Color = AppConfig->Colors->Disabled;
	if (Prew != NULL) {
		TreeMenu->Selected = Prew;
	}
}