// Methods internal NameValueEnumerator(TStringList coll, EnumeratorType type) { _coll = coll; _type = type; _versionChecker = _coll.GetBaseEnumerator(); _pos = -1; }
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); }
protected internal void SetItems(TStringList Value) { if (Value != FItems) { FItems.Assign(Value); UpdateItems(); UpdateControlsPerLine(); } }
public override void Assign(TStringList Source) { int SavedIndex = FRadioGroup.ItemIndex; base.Assign(Source); if (SavedIndex < Count) { FRadioGroup.ItemIndex = SavedIndex; } }
public virtual void Assign(TStringList Source) { BeginUpdate(); try { Clear(); FSpecialCharsInited = Source.FSpecialCharsInited; FNameValueSeparator = Source.FNameValueSeparator; AddStrings(Source); } finally { EndUpdate(); } }
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(); } }
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); }
private static int StringListAnsiCompare(TStringList List, int Index1, int Index2) { return(List.DoCompareText(List.Strings[Index1], List.Strings[Index2])); }
internal ObjectsCollection(TStringList coll) : base(coll, EnumeratorType.Objects) { }
internal StringsCollection(TStringList coll) : base(coll, EnumeratorType.Strings) { }
internal ValuesCollection(TStringList coll) : base(coll, EnumeratorType.Values) { }
internal NamesCollection(TStringList coll) : base(coll, EnumeratorType.Names) { }
internal NameValueCollectionBase(TStringList coll, EnumeratorType type) { _coll = coll; _type = type; }