Re[4]: Не отображается sys-datetime
От: Danchik Украина  
Дата: 02.07.08 14:49
Оценка:
Здравствуйте, c-smile, Вы писали:

[Skip]

CS>Я о другом.


CS>Автор, скажем, написал следующее: <input type=sys-datetime>.

CS>Какой размер этому окну мне ставить?

Высоту, например, можна подсмотреть как делает VCL:
procedure TDateTimePicker.AdjustHeight;
var
  DC: HDC;
  SaveFont: HFont;
  SysMetrics, Metrics: TTextMetric;
begin
  DC := GetDC(0);
  try
    GetTextMetrics(DC, SysMetrics);
    SaveFont := SelectObject(DC, Font.Handle); // шрифт который будет использоваться
    GetTextMetrics(DC, Metrics);
    SelectObject(DC, SaveFont);
  finally
    ReleaseDC(0, DC);
  end;
  Height := Metrics.tmHeight + (GetSystemMetrics(SM_CYBORDER) * 8);
end;


C длиной повеселее, но тоже решабельно.

CS>И очень хотелось бы знать еще где у него baseline проходит.

Наверное туплю, но что вы подразумеваете под baseline?
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.