Ejemplo n.º 1
0
 // Methods
 internal NameValueEnumerator(TStringList coll, EnumeratorType type)
 {
     _coll           = coll;
     _type           = type;
     _versionChecker = _coll.GetBaseEnumerator();
     _pos            = -1;
 }
Ejemplo n.º 2
0
        protected override void Dispose(bool disposing)
        {
            if (disposing)
            {
                if (FItems != null)
                {
                    FUpdatingItems = true; // disable UpdateItems()
                    FItems.BeginUpdate();
                    try
                    {
                        FItems.Clear();
                        FItems = null;
                        FButtonList.Clear();
                        FButtonList   = null;
                        FHiddenButton = null;
                    }
                    finally
                    {
                        FUpdatingItems = false;
                    }
                }
            }

            base.Dispose(disposing);
        }
Ejemplo n.º 3
0
 protected internal void SetItems(TStringList Value)
 {
     if (Value != FItems)
     {
         FItems.Assign(Value);
         UpdateItems();
         UpdateControlsPerLine();
     }
 }
Ejemplo n.º 4
0
            public override void Assign(TStringList Source)
            {
                int SavedIndex = FRadioGroup.ItemIndex;

                base.Assign(Source);
                if (SavedIndex < Count)
                {
                    FRadioGroup.ItemIndex = SavedIndex;
                }
            }
Ejemplo n.º 5
0
 public virtual void Assign(TStringList Source)
 {
     BeginUpdate();
     try
     {
         Clear();
         FSpecialCharsInited = Source.FSpecialCharsInited;
         FNameValueSeparator = Source.FNameValueSeparator;
         AddStrings(Source);
     }
     finally
     {
         EndUpdate();
     }
 }
Ejemplo n.º 6
0
 public virtual void AddStrings(TStringList TheStrings)
 {
     try
     {
         BeginUpdate();
         int count = TheStrings.Count;
         for (int i = 0; i < count; i++)
         {
             this.AddObject(TheStrings[i], TheStrings.Objects[i]);
         }
     }
     finally
     {
         EndUpdate();
     }
 }
Ejemplo n.º 7
0
 public TRadioGroup()
 {
     SetStyle(ControlStyles.UserMouse | ControlStyles.StandardClick | ControlStyles.StandardDoubleClick, true);
     ChildSizing                 = new ChildSizingPanel();
     FItems                      = new TRadioGroupStringList(this);
     FAutoFill                   = true;
     FItemIndex                  = -1;
     FLastClickedItemIndex       = -1;
     FButtonList                 = new List <RadioButton>();
     FColumns                    = 1;
     FColumnLayout               = TColumnLayout.clHorizontalThenVertical;
     ChildSizing.PanelLayout     = PanelLayout.cclLeftToRightThenTopToBottom;
     ChildSizing.ControlsPerLine = FColumns;
     //ChildSizing.ShrinkHorizontal = crsScaleChilds;
     //ChildSizing.ShrinkVertical = crsScaleChilds;
     //ChildSizing.EnlargeHorizontal = crsHomogenousChildResize;
     //ChildSizing.EnlargeVertical = crsHomogenousChildResize;
     ChildSizing.LeftRightSpacing = 6;
     ChildSizing.TopBottomSpacing = 0;
     this.Controls.Add(this.ChildSizing);
 }
Ejemplo n.º 8
0
 private static int StringListAnsiCompare(TStringList List, int Index1, int Index2)
 {
     return(List.DoCompareText(List.Strings[Index1], List.Strings[Index2]));
 }
Ejemplo n.º 9
0
 internal ObjectsCollection(TStringList coll)
     : base(coll, EnumeratorType.Objects)
 {
 }
Ejemplo n.º 10
0
 internal StringsCollection(TStringList coll)
     : base(coll, EnumeratorType.Strings)
 {
 }
Ejemplo n.º 11
0
 internal ValuesCollection(TStringList coll)
     : base(coll, EnumeratorType.Values)
 {
 }
Ejemplo n.º 12
0
 internal NamesCollection(TStringList coll)
     : base(coll, EnumeratorType.Names)
 {
 }
Ejemplo n.º 13
0
 internal NameValueCollectionBase(TStringList coll, EnumeratorType type)
 {
     _coll = coll;
     _type = type;
 }