Bildschirm-Groesse in mm auslesen

Thema durchsuchen

Ansicht

Themen-Optionen

Bildschirm-Groesse in mm auslesen

Ein Thema von thomas2009 · begonnen am 14. Apr 2011 · letzter Beitrag vom 15. Apr 2011

Vorheriger Beitrag

Nächster Beitrag

thomas2009

(Gast)

n/a Beiträge

Bildschirm-Groesse in mm auslesen

14. Apr 2011, 15:25

Hi

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

zusammenfalten · markieren

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;