Bildschirm-Groesse in mm auslesen

[thomas2009]

Hi

gibt es eine andere alternative Methode um den Bildschirm-Groesse
in Millimeter auslesen zu können ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  DC : HDC;
  cm :Single;
begin
DC := GetDC(Form1.Handle); { or Canvas.Handle }
cm:=(GetDeviceCaps(DC,LOGPIXELSX)/2.54);

Edit1.Text := FloatToStr(Round( (StrToInt('1024')*10) / cm));  
Edit2.Text := FloatToStr(Round( (StrToInt('768')*10) / cm));

end;

Ich erhalte :
271 mm
x
203 mm

[DeddyH]

Erklär uns doch erstmal Zeile für Zeile, was Dein Code tun soll. Ich steig da nicht ganz durch.

[shmia]

Also irgendwie habe ich gerade ein Déjà-vu:
Pixel in Millimiter umrechnen mit dieser Funktion ? by thomas2009

[Satty67]

Wenn Forms eingebunden ist, bietet sich die Verwendung von Screen an.

Screen.Width/Height mit Screen.PixelsPerInch verrechnet gibt bei mir millimetergenaue (und korrekte) Werte.

[thomas2009]

Danke Andreas für den Link

Also wenn ich genauso tue :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
x: Double;
begin
x:= screen.Width/screen.Height * Screen.PixelsPerInch;
Caption:=FloatToStr(x);
end;

Ich erhalte : 128
Was bedeutet das dann ?

[jfheins]

Zitat von thomas2009:

Danke Andreas für den Link

Also wenn ich genauso tue :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
x: Double;
begin
x:= screen.Width/screen.Height * Screen.PixelsPerInch;
Caption:=FloatToStr(x);
end;

Ich erhalte : 128
Was bedeutet das dann ?

Es gibt viele Möglichkeiten, aber ich tippe darauf: Du hast einen Monitor mit 4:3 Seitenverhältnis und 96 ppi Auflösung.

Für dein Problem zielführender ist es natürlich wenn am Ende schon von den Einheiten was anderes rauskommt.
z.B. Indem man

Code:

screen.Width/Screen.PixelsPerInch

Rechnet. Dann kommen Zoll raus