VPF::Помогите обновить процедуру...

Boyur

Дата 16.6.2012, 19:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 13.12.2007
Где: Новороссийск

Репутация: нет
Всего: нет

Есть процедура, которая подганяет размер DateTimePicker под нужную ячейку, я хочу чтобы при изменении азмера ячейки процедура обнавилась и поменяла размеры.
Размер DBGrid меняется в procedure TFormPrihodMed.FormResize(Sender: TObject); тамже меняется размер ячеек.
Нужно чтобы под новые размеры подстраивался DateTimePicker.

процедура, которая подганяет размер DateTimePicker под нужную ячейку

Код


procedure TFormPrihodMed.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdFocused in State) then
  begin
    if (Column.Field.FieldName = 'srok') then
    with DateTimePicker2 do
    begin
      Left := Rect.Left + DBGrid1.Left + 1;
      Top := Rect.Top + DBGrid1.Top + 1;
      Width := Rect.Right - Rect.Left + 2;
      Width := Rect.Right - Rect.Left + 2;
      Height := Rect.Bottom - Rect.Top + 2;

      Visible := True;
    end;
  end
end;

размер ячеек меняется так:

Код


DBGrid1.Height:=Round(FormPrihodMed.Height/2-120);
  DBGrid1.Width:=FormPrihodMed.Width-30;
  //TableQSkladOtdelmed_name.DisplayWidth:=Round(DBGrid2.Width*0.15);
  DBGrid1.Columns[0].Width:=Round(DBGrid1.Width*0.2-8);
  DBGrid1.Columns[1].Width:=Round(DBGrid1.Width*0.2);
  DBGrid1.Columns[2].Width:=Round(DBGrid1.Width*0.2-15);
  DBGrid1.Columns[3].Width:=Round(DBGrid1.Width*0.2-15);
  DBGrid1.Columns[4].Width:=Round(DBGrid1.Width*0.1);
  DBGrid1.Columns[5].Width:=Round(DBGrid1.Width*0.1);

DateTimePicker подстраивается под ячейку Columns[5]

DarkProg

Дата 16.6.2012, 20:26 (ссылка)

(нет голосов)

Загрузка ...

Законченный романтик

Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: нет
Всего: 19

Эмм, а как у вас вообще сейчас рисуется при такой вот строчке

Код


if (gdFocused in State) then

Счёлкните на ячейку думаю у вас перерисуется ваш пикер... закоментите её начнёт работать в любое время...

--------------------

"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

smile

Boyur

Дата 16.6.2012, 20:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 13.12.2007
Где: Новороссийск

Репутация: нет
Всего: нет

О_о работает... спасибо )))

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »