[elle]

добрый день!
Подскажите пожалуйста как получить из переменной типа TDateTime значение месяца в ячейку DrawGrid?

[san-46]

Код:

1 2 3 4 5 6 7 8 9 10 11

uses DateUtils;   procedure TForm1.DrawGrid1Click(Sender: TObject); var R : TRect; begin   R := DrawGrid1.CellRect(X, Y);   //если X,Y - координаты ячейки, которая не видна, то CellRect возвращает   //пустое значение   if not IsRectEmpty(R) then     DrawGrid1.Canvas.TextOut(R.Left, R.Top, IntToStr(MonthOf(DateValue))); end;

[Zylex]

В событии таблицы OnDrawCell прописать:

Код:

1 2 3 4 5 6 7 8 9

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;   Rect: TRect; State: TGridDrawState); begin     with Sender as TDrawGrid, Canvas do     begin         if (Acol = 2) and (Arow = 1) then            TextOut(Rect.Left+10, Rect.Top+5,FormatDateTime('mmmm', Date));     end; end;

[elle]

спасибо вам)
но что-то у меня не получается пока так...
у меня в общем в dbedit есть две даты начала и окончания и есть drawgrid. мне нужно чтобы разность между этими датами вычислилась в dbedit в другом столбце и закрасилось такое же количество ячеек в drawgrid, а в самой верхней ячейки drawgrid вышло название месяца из даты начала.воть никак сообразить все это не могу( если можете помогите плииз)

[san-46]

Наверное, без твоих исходников не разобраться. Скинь их сюда, попробуем понять чего там закршивать и выводит.

[elle]

спасибо вам)
но у меня так все равно не работает(( вернее я сообразить не могу))
дело в том что у меня такая ситуация: есть dbedit две даты-дата начала b дата окончания и есть столбец для вычисления их разности... в
drawgrid нужно закрасить столько ячеек сколько содержит разность этих дат в днях, а в самой верхней ячейке drawgrid написать название месяца из даты начала вот такая вот ситуация...
помогите плиз ))

[san-46]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm1.Button1Click(Sender: TObject); var Days, I, C, R : Integer; begin   if (DBEdit1.Field = nil) or (DBEdit2.Field = nil) then     Exit;   //количество дней между двумя датами   Days := DaysBetween(DBEdit2.Field.AsDateTime, DBEdit1.Field.AsDateTime);     for C := 0 to SG2.ColCount-1 do     for R := 0 to SG2.RowCount-1 do       SG2.Objects[C, R] := TObject(0);           R := 0; //строка, с которой начинается закраска   C := 0; //колонка, с которой начинается зкраска   for I := 1 to Days do begin     SG2.Objects[C, R] := TObject(1);     Inc(C);     if I mod SG2.ColCount = 0 then begin       Inc(R); C := 0;     end;   end;   SG2.Invalidate; end;

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.SG2DrawCell(Sender: TObject; ACol, ARow: Integer;   Rect: TRect; State: TGridDrawState); var D : string; begin   if Integer(SG2.Objects[ACol, ARow]) = 1 then     SG2.Canvas.Brush.Color := clBtnFace   else     SG2.Canvas.Brush.Color := clWhite;   SG2.Canvas.FillRect(Rect);     if (ACol = 0) and (ARow = 0) then begin     if Integer(SG2.Objects[0, 0]) = 1 then begin       DateTimeToString(D, 'mmmm', DBEdit1.Field.AsDateTime);       InflateRect(Rect, -2, -2);       DrawText(SG2.Canvas.Handle, pchar(D), -1, Rect, DT_CENTER);     end;   end; end;

Только DrawGrid надо заменить на StringGrid, в объектах ячеек которой можно хранить дополнительную информацию. В DrawGrid этого нет.
Свойство StringGrid DefaultDrawing надо установить в False, и создать обработчик OnDrawCell (в примере SG2DrawCell).

[lmikle]

А я бы графику отрисовывал руками на канве, например TPaintBox. Это будет проще.

[elle]

пааасиба!
у меня ошибку выдает на функцию daysbetween
может нужно какие-то дополнительные библиотеки подключить или как???

[elle]

пасиба!
у меня выводит ошибку где daysbetween((

[san-46]

В сецкции uses надо указать DateUtils
Штатный модуль Delphi.
Для справки: установить курсор мышиный на имя функции и нажать F1. В появившемся окне хелпа среди прочего будет указан и модуль, где эта функция находится.

[elle]

ага спасибо я догадалась так тоже сделать, библиотеку подключить)) теперь не ругается))
а еще подскажи пожалуйста как вот эту разницу в датах Days записать в другой dbedit?

[san-46]

DBEdit1.Field.AsInteger := Days;