X11
Код:
...
CheckBox: TcxEditorRow;
...
var
CheckComboboxItem: TcxCheckComboboxItem;
i: Integer;
ACheckBox: TcxCheckComboboxProperties;
AValue: string;
begin
ACheckBox := TcxCheckComboboxProperties(CheckBox.Properties.EditProperties);
ACheckBox.EditValueFormat := cvfStatesString;
ACheckBox.Items.BeginUpdate;
ACheckBox.Items.Clear;
for i := 1 to 5 do
begin
CheckComboboxItem := ACheckBox.Items.AddCheckItem('item ' + IntToStr(i));
CheckComboboxItem.Tag := i;
AValue := CheckBox.Properties.Value;
if (i mod 2) <> 0 then
AValue := AValue + '0'
else
AValue := AValue + '1';
CheckBox.Properties.Value := AValue;
end;
ACheckBox.Items.EndUpdate;
end;
Код:
...
CheckBox: TcxEditorRow;
...
var
CheckComboboxItem: TcxCheckComboboxItem;
i: Integer;
ACheckBox: TcxCheckComboboxProperties;
AValue: string;
begin
ACheckBox := TcxCheckComboboxProperties(CheckBox.Properties.EditProperties);
ACheckBox.EditValueFormat := cvfStatesString;
ACheckBox.Items.BeginUpdate;
ACheckBox.Items.Clear;
for i := 1 to 5 do
begin
CheckComboboxItem := ACheckBox.Items.AddCheckItem('item ' + IntToStr(i));
CheckComboboxItem.Tag := i;
AValue := CheckBox.Properties.Value;
if (i mod 2) <> 0 then
AValue := AValue + '0'
else
AValue := AValue + '1';
CheckBox.Properties.Value := AValue;
end;
ACheckBox.Items.EndUpdate;
end;