Font.Height = 0 ?

[Mathias]

Wieso kommt bei ersten Writeln eine 0 ?
Beim zweiten Writeln kommt die Höhe, aber komischerweise negativ ?

Das bei zweiten Klick keine 0 mehr kommt ist mir klar.

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  WriteLn(Button1.Font.Height);
  if FontDialog1.Execute then begin
    Button1.Font.Assign(FontDialog1.Font);
  end;
  WriteLn(Button1.Font.Height);
end;      

Bei folgenden Code, wird die Schrift bei beiden Buttons vergrössert, aber unterschiedlich.

Code: Alles auswählen

  Button1.Font.Height := 20;
  WriteLn(Button1.Font.Height);
  Button2.Font.Height := -20;
  WriteLn(Button2.Font.Height);   

[theo]

"0" bedeutet "Standard", also keine besondere Einstellung.

Font Pixels und Font Points stehen in einem Verhältnis:

Font.Height = -Font.Size*Font.PixelsPerInch/72