Delphi-Help

Главная Статьи Всё остальное Календарь в дбгриде

Календарь в дбгриде

Оцените материал
(0 голосов)


Календарь в дбгриде

Передо мной стояла задача в дбгрид запихать календарь и показывать его тогда когда курсор стоит на поле с типом дата.

Смысл был в том что если юзер нажал кнопку в право и фокус стоит на годе и нажата клавиша в право то передать управление в грид .и в другую сторону - если курсор на дне и клавиша в лево то тоже передать это в грид.

Пришлось усложнить жизнь пользователям (или облегчить) и делать так

Если нажат шифт то не под каким предлогом фокус в грид не возвращать .

Если не нажата клавиша шифт то отдаем фокус гриду.

Вот реализация.

Создадим сначала календарь ....

понадобятся глобальные переменные

Date_edit_base:TDateTimePicker;
data_chebged:boolean = true;
Date_edit_base_f_name:string;
 
Date_edit_base:=TDateTimePicker.Create(DBGrid1);
Date_edit_base.Parent:=DBGrid1;
Date_edit_base.Left:=0;
Date_edit_base.Top:=0;
Date_edit_base.Visible:=false;
Date_edit_base.ShowCheckbox:=false;
Date_edit_base.Checked:=true;
Date_edit_base.OnChange:=set_Date; // изменяем значение в гриде
Date_edit_base.OnKeyDown:=datta_KeyDown; // обработка нажатий клавиш

После смены даты в календаре меняем соответственно значение поля

procedure TForm1.set_Date(Sender: TObject);
begin
if data_chebged then
if not(( DataSet.State = dsEdit) or (DataSet.State = dsInsert)) then
begin
DataSet.Edit;
DataSet.FieldByName(Date_edit_base_f_name).AsDateTime:=Date_edit_base.DateTime;
end;
data_chebged:=false;
end;

procedure TForm1.datta_KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
locc:boolean; // локально обрабатывать нажатую клавишу или отдать гриду фокус
begin
locc:=false;
if (VK_RETURN=Key) then locc:=true;
if (key in [48..57]) then locc:=true;
if (key in [96..105]) then locc:=true;
 
if key=109 then key:=189;
if (key = 189) then locc:=true;
 
 
if ((ssShift in Shift)
or (SsAlt in Shift)
or (SsCtrl in Shift)) then
begin
// самостоятельно обработать нажатую славишу
locc:=true;
 
end;
 
 
if not(locc) then
begin
 
//Фокус надо передать гриду
TDateTimePicker(Sender).Visible:=false;
DBGrid1.SetFocus;
PostMessage(DBGrid1.Handle,WM_KEYDOWN,Key,0);
 
Key:=0;
end;
 
 
if locc then
if (key = 13) then
push_down(Date_edit_base);
end;

Процедура push_down (заставляет выпать календарик ) реализована вот так

procedure push_down(contr:TDateTimePicker );
var
msg: tagEVENTMSG;
begin
msg.message:= WM_LBUTTONDOWN;
msg.paramL:=contr.Height div 2;
msg.paramH:= contr.Width - 5;
msg.hwnd:=contr.Handle;
contr.DefaultHandler(msg);
msg.message:=WM_LBUTTONUP;
contr.DefaultHandler(msg);
delay(1);
 
if contr.DroppedDown then
begin
contr.SetFocus;
msg.message:= WM_LBUTTONDOWN;
msg.paramL:= 5;
msg.paramH:= 5;
msg.hwnd:=contr.Handle;
contr.DefaultHandler(msg);
msg.message:=WM_LBUTTONUP;
contr.DefaultHandler(msg);
contr.SetFocus;
end;
end;

Также потребуется собственно нарисовать (0тбразить = переместить ) календарик в грде

Для этого у грида есть всем известное и любимое событие

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdFocused in State) then
if(( AnsiUpperCase(Column.FieldName) = AnsiUpperCase('Din') )
// тут я перечислил все свои поля типа даты
 
or ( AnsiUpperCase(Column.FieldName) = AnsiUpperCase('UPD_DATE') ))
 
then
if not(Column.Field.DataSet.FieldByName(Column.FieldName).AsDateTime=0) then
begin
 
Date_edit_base_f_name:=Column.FieldName; // задали в глоб перем имя столбца
Date_edit_base.Left := Rect.Left ; // левая точка календаря в координ грида
Date_edit_base.Top := Rect.Top ; // верхняя точка
Date_edit_base.Width := Rect.Right - Rect.Left + 2; // длина :)
Date_edit_base.Visible := True;
data_chebged:=true; // флажок что мол данные сменидися
 
Date_edit_base.DateTime:= Column.Field.DataSet.FieldByName(Column.FieldName).AsDateTime;
// записали в календарь нужное время
Date_edit_base.SetFocus; // отдали фокус календ
// push_down(Date_edit_base); // по желанию можно заставить его сразу и выпасть
 
end
else
begin
 
DBGrid1.Canvas.TextOut(Rect.Left+1,Rect.Top+1,'Нет данных!');
// Дата не проставлена
end;
end;

также по мере отладки выяснилось что надо такой финт дописать

(поймете по чему если будете делать)

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
IF Date_edit_base.DroppedDown THEN
PostMessage(DBGrid1.Handle,WM_KEYDOWN,VK_ESCAPE,0);
end;
 
 
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
Date_edit_base.Visible := False;
end;
Прочитано 6372 раз

Авторизация



Счетчики