From b2e14d5fa9ea9ba93182d846ff7a95fa623b550f Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Sun, 23 Oct 2011 14:22:03 +0000
Subject: [PATCH] Qt: added TextMargins property to TQtLineEdit

git-svn-id: trunk@33047 -
---
 lcl/interfaces/qt/qtwidgets.pas | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 11d1532336..c13b9f7414 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -686,6 +686,8 @@ type
   TQtLineEdit = class(TQtWidget, IQtEdit)
   private
     FTextChanged: QLineEdit_hookH;
+    function getTextMargins: TRect;
+    procedure setTextMargins(ARect: TRect);
   protected
     function CreateWidget(const AParams: TCreateParams):QWidgetH; override;
   public
@@ -721,6 +723,7 @@ type
     procedure preferredSize(var PreferredWidth, PreferredHeight: integer;
       WithThemeSpace: Boolean); override;
     procedure SignalTextChanged(p1: PWideString); cdecl;
+    property TextMargins: TRect read GetTextMargins write SetTextMargins;
   end;
 
   { TQtTextEdit }
@@ -6672,6 +6675,15 @@ begin
   QLineEdit_text(QLineEditH(Widget), @Result);
 end;
 
+function TQtLineEdit.getTextMargins: TRect;
+var
+  L, T, R, B: Integer;
+begin
+  QLineEdit_getTextMargins(QLineEditH(Widget),
+    @L, @T, @R, @B);
+  Result := Rect(L, T, R, B);
+end;
+
 function TQtLineEdit.getTextStatic: Boolean;
 begin
   Result := False;
@@ -6799,6 +6811,12 @@ begin
   QLineEdit_setText(QLineEditH(Widget), @AText);
 end;
 
+procedure TQtLineEdit.setTextMargins(ARect: TRect);
+begin
+  with ARect do
+    QLineEdit_setTextMargins(QLineEditH(Widget), Left, Top, Right, Bottom);
+end;
+
 procedure TQtLineEdit.Cut;
 begin
   QLineEdit_cut(QLineEditH(Widget));