Forum: Programmieren allgemein
by Satty67,
14. Apr 2011
Ja irgendwie haben wir alle es geschrieben, abgesehen von der Umsetzung ist das Prinzip immer das gleiche.
Forum: Programmieren allgemein
by Satty67,
14. Apr 2011
Ich glaube nicht mehr an Bequemlichkeit und Copy&Paste Kultur, ich hoffe es ist nichts ansteckendes (und das Internet als Isolations-Schicht ausreichend ist) ;)
function ScreenSizeMM: TSize;
begin
Result.cx := Round((Screen.Width / Screen.PixelsPerInch) * 25.4);
Result.cy := Round((Screen.Height / Screen.PixelsPerInch) * 25.4);
end;
Ein Bier drauf, dass der Ergebnistyp weitere...
Forum: Programmieren allgemein
by Satty67,
14. Apr 2011
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.