Начал делать новый компонент - TRxDateRangeEdit
Предназначен для выбора периода - месяц и год.
Жду пожеланий и замечаний.
В планах реализовать DB вариант данной компоненты.
Добавлено спустя 29 секунд:
Если у кого есть красивая пиктограмка для компоненты - тоже буду рад.
Новый компонент - TRxDateRangeEdit
Модераторы: alexs, Модераторы
-
sancho1966
- незнакомец
- Сообщения: 1
- Зарегистрирован: 12.04.2013 15:58:20
Добрый день. Можно опционально в компонент добавить выбор квартал, год, полугодие. На пример, я делал на наследовании от 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;
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;
