sancho1966 » 29.06.2014 14:35:07
Добрый день. Можно опционально в компонент добавить выбор квартал, год, полугодие. На пример, я делал на наследовании от TComboBox
procedure TmoMonthComboBox.Loaded;
begin
inherited;
if {(csLoading in ComponentState) or }(csDesigning in ComponentState) then exit;
LoadItems;
end;
procedure TmoMonthComboBox.LoadItems;
begin
with Items do
begin
if not OneMonth then Add('Год');
Add('Январь');
Add('Февраль');
Add('Март');
Add('Апрель');
Add('Май');
Add('Июнь');
Add('Июль');
Add('Август');
Add('Сентябрь');
Add('Октябрь');
Add('Ноябрь');
Add('Декабрь');
if not OneMonth then Add('1-й квартал');
if not OneMonth then Add('2-й квартал');
if not OneMonth then Add('3-й квартал');
if not OneMonth then Add('4-й квартал');
if not OneMonth then Add('полугодие');
ItemIndex := 0;
end;
end;