// 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;
}