Monthcalendar and dbgrid

@fakel-v · Регистрация: 07.12.2011

Студворк — интернет-сервис помощи студентам

здравствуйте всем!Помогите пожалуйста разобраться...есть Monthcalendar и dbgrid, 2 datetimepicker'а...через пикеры вводятся в колонки грид даты.первая дата-проверка прибора,вторая-следующая проверка.(например через год).как сделать так чтобы при приближении даты новой проверки,например за месяц до нее,колонка грида и один из пикеров окрашивался в желтый цвет а недели за две-в красный?

@SAMZ · 07.12.2011, 15:56

В объекте TDBGrid можно использовать событие
OnDrawColumnCell
В обработчике этого события проверяете даты и по результатам проверки меняете параметры прорисовки. Сейчас некогда, если необходимо немного позже пришлю пример.

@fakel-v · 07.12.2011, 16:38 **[ТС]**

Если можно то лучше вышлите пример.я попытаюсь разобраться,но для уверенности лучше глянуть.Спасибо большое.я подожду если что))

@SAMZ · 08.12.2011, 15:20

Выглядеть это может следующим образом

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
procedure TfmUCASESListView.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
var Irect: TRect;
begin with DBGridEh1.Canvas do begin
  if CASESAYEAR.AsInteger > 0 then begin //Здесь проверка некоторо условия. 
                                                         //У вас - это расстояние между датами 
      Font.Style := [fsBold];   //задаются параметры прорисовки
      Font.Color := clRed;
      FillRect(Rect);
      IRect := Rect;
      case Column.Alignment of
        taCenter :  DrawText(Handle, PChar(Column.Field.AsString),
          Length(Column.Field.AsString), iRect, DT_CENTER);
        taLeftJustify :  DrawText(Handle, PChar(Column.Field.AsString),
          Length(Column.Field.AsString), iRect, DT_LEFT);
        taRightJustify :  DrawText(Handle, PChar(Column.Field.AsString),
          Length(Column.Field.AsString), iRect, DT_Right);
      end;
  end else if CASESAMONTH.AsInteger >= 9 then begin  //опять проверка условия
      Font.Style := [fsBold];  //и задание альтернативных параметров прорисовки
      Font.Color := clMaroon;// clRed;
      FillRect(Rect);
      IRect := Rect;
      case Column.Alignment of
        taCenter :  DrawText(Handle, PChar(Column.Field.AsString),
          Length(Column.Field.AsString), iRect, DT_CENTER);
        taLeftJustify :  DrawText(Handle, PChar(Column.Field.AsString),
          Length(Column.Field.AsString), iRect, DT_LEFT);
        taRightJustify :  DrawText(Handle, PChar(Column.Field.AsString),
          Length(Column.Field.AsString), iRect, DT_Right);
      end;
  end else if CASESAMONTH.AsInteger < 6 then begin  // ну, и снова то же
      Font.Style := [fsBold];
      Font.Color := clGreen;// clRed;
      FillRect(Rect);
      IRect := Rect;
      case Column.Alignment of
        taCenter :  DrawText(Handle, PChar(Column.Field.AsString),
          Length(Column.Field.AsString), iRect, DT_CENTER);
        taLeftJustify :  DrawText(Handle, PChar(Column.Field.AsString),
          Length(Column.Field.AsString), iRect, DT_LEFT);
        taRightJustify :  DrawText(Handle, PChar(Column.Field.AsString),
          Length(Column.Field.AsString), iRect, DT_Right);
      end;
  end;
end end;

@fakel-v · 11.12.2011, 15:43 **[ТС]**

Только добрался до интернета!...Спасибо за код!Но...я не понял что за элемент на форме к которому относится CASESAYEAR и CASESAMONTH?

@SAMZ · 11.12.2011, 18:49

Сообщение от fakel-v

я не понял что за элемент на форме к которому относится CASESAYEAR и CASESAMONTH?

Это я выдернул код из контекста своего приложения. Я проверяю условие
CASESAYEAR.AsInteger > 0 и оно выполняется для дел, которые "кисли" более года и эти дела прорисовываю цветом clRed, далее проверяю CASESAMONTH.AsInteger >= 9 и эти дела, пролежавшие более 9 мес и менее года раскашиваю цветом clMaroon... Ну и так далее!
Вам здесь надо организовать проверку своих условий и вперед!

@fakel-v · 11.12.2011, 19:08 **[ТС]**

Понял.Спасибо!получилось!

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

@fakel-v 3 / 3 / 0 Регистрация: 07.12.2011 Сообщений: 55

	Monthcalendar and dbgrid 07.12.2011, 14:41. Показов 2233. Ответов 6 Метки нет (Все метки) здравствуйте всем!Помогите пожалуйста разобраться...есть Monthcalendar и dbgrid, 2 datetimepicker'а...через пикеры вводятся в колонки грид даты.первая дата-проверка прибора,вторая-следующая проверка.(например через год).как сделать так чтобы при приближении даты новой проверки,например за месяц до нее,колонка грида и один из пикеров окрашивался в желтый цвет а недели за две-в красный? 0

@SAMZ 1263 / 706 / 62 Регистрация: 21.12.2009 Сообщений: 2,256
	07.12.2011, 15:56
	В объекте TDBGrid можно использовать событие OnDrawColumnCell В обработчике этого события проверяете даты и по результатам проверки меняете параметры прорисовки. Сейчас некогда, если необходимо немного позже пришлю пример. 0

@fakel-v 3 / 3 / 0 Регистрация: 07.12.2011 Сообщений: 55
	07.12.2011, 16:38 [ТС]
	Если можно то лучше вышлите пример.я попытаюсь разобраться,но для уверенности лучше глянуть.Спасибо большое.я подожду если что)) 0

@fakel-v 3 / 3 / 0 Регистрация: 07.12.2011 Сообщений: 55
	11.12.2011, 15:43 [ТС]
	Только добрался до интернета!...Спасибо за код!Но...я не понял что за элемент на форме к которому относится CASESAYEAR и CASESAMONTH? 0

@fakel-v 3 / 3 / 0 Регистрация: 07.12.2011 Сообщений: 55
	11.12.2011, 19:08 [ТС]
	Понял.Спасибо!получилось! 0