From 58e28c5a9d101a00b86ec783a3e44919de4f3f24 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Mon, 1 Oct 2007 14:29:29 +0000
Subject: [PATCH] Qt: Added GetPixelsPerInch() into qtproc.

git-svn-id: trunk@12274 -
---
 lcl/interfaces/qt/qtproc.pp | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/lcl/interfaces/qt/qtproc.pp b/lcl/interfaces/qt/qtproc.pp
index 3ac0a3187c..91fd1284bd 100644
--- a/lcl/interfaces/qt/qtproc.pp
+++ b/lcl/interfaces/qt/qtproc.pp
@@ -38,6 +38,7 @@ uses
   GraphType;
 
 procedure FillStandardDescription(var Desc: TRawImageDescription);
+function GetPixelsPerInch: Integer;
 function GetUtf8String(S: String): WideString;
 
 implementation
@@ -90,4 +91,17 @@ begin
     Result := S;
 end;
 
+{------------------------------------------------------------------------------
+  Function: GetPixelsPerInch
+  Params: none
+  Returns: pixels per inch value eg. 96
+ ------------------------------------------------------------------------------}
+function GetPixelsPerInch: Integer;
+var
+  QtDC: QPaintDeviceH;
+begin
+  QtDC := QWidget_to_QPaintDevice(QApplication_desktop);
+  Result := QPaintDevice_logicalDpiY(QtDC);
+end;
+
 end.