Вопрос на засыпку про единицу измерения в Delphi

[artemavd]

До смешного. Если в Delphi, у какого-либо компонента, установлено свойство Height = 150, то сколько это будет в сантиметрах? 15?

[Hacker19_90]

В зависимости от разрешения и диагонали монитора!

[Кольша]

150px точно будет

[artemavd]

Да? Я думал, что есть конкретное название единицы измерения высоты компоненты на форме, вне зависимости от монитора и т.д.

[Вадим Мошев]

Если не ошибаюсь, измерения идут в пикселях...

[Hacker19_90]

Да? Я думал, что есть конкретное название единицы измерения высоты компоненты на форме, вне зависимости от монитора и т.д.

Ну попробуйте создайте оконное приложение
А потом запустите посмотрите!
Потом измените разрешение допустим 640 на 480
Увидите разницу

Если не ошибаюсь, измерения идут в пикселях...

присоединяюсь
да и к тому же

конкретное название единицы измерения высоты компоненты на форме

Название есть это пиксели
Поэтому что бы определить размер в сантиметрах
надо знать разрешение и диагональ!

[Hacker19_90]

Вот накатал, может поможет

procedure TForm1.FormCreate(Sender: TObject);
var
  hDC: THandle;
  Scr: TScreen;
  pix, sant, x: integer;
begin
    hDc := GetDC(0);
    sant := GetDeviceCaps(hDc, VertSize);
    pix := Scr.Height;
    x := Round((Form1.Height*pix)/sant);
    Form1.Caption := IntToStr(x);
end;

Так определял размер формы
Выведет в милиметрах!

[__123]

У TForm есть свойсво PixelsPerInch - кол-во пикселей в дюйме.