Здравствуйте, 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?