private void TUC_CollapsibleSearchPane_CollapsingEvent(System.Object sender, CollapsibleEventArgs args)
        {
            if (this.FPreventCollapsing == true)
            {
// TODO               args.Cancel = true;
                this.FCollapsing = false;
            }
            else
            {
// TODO                this.FCollapsing = args.WillCollapse;
            }
        }
        private void UcoUpperPart_CollapsingEvent(System.Object sender, CollapsibleEventArgs args)
        {
#if TODO
            if (args.WillCollapse)
            {
                // is getting collapsed
                ucoUpperPart.Caption = "  " + ucoUpperPart.PartnerQuickInfo(false);
// TODO               ucoUpperPart.SubCaption = '[' + FPartnerClass + "] ";

                if (FPartnerClass == SharedTypes.PartnerClassEnumToString(TPartnerClass.PERSON))
                {
// TODO                   ucoUpperPart.SubCaptionHighlighted = true;
                }
            }
            else
            {
                // is getting expanded
                ucoUpperPart.Caption = "";
                ucoUpperPart.SubCaption = "";
            }
#endif
        }